ShowRepo.hs

module ShowRepo where

import qualified Github.Repos as Github
import Data.List

main = do
  possibleRepo <- Github.userRepo "mike-burns" "trylambda"
  case possibleRepo of
       (Left error) -> putStrLn $ "Error: " ++ (show error)
       (Right repo) -> putStrLn $ formatRepo repo

formatRepo repo =
  (Github.repoName repo) ++ "\t" ++
    (Github.repoDescription repo) ++ "\n" ++
    (Github.repoHtmlUrl repo) ++ "\n" ++
    (Github.repoCloneUrl repo) ++ "\t" ++
    (formatDate $ Github.repoUpdatedAt repo) ++ "\n" ++
    "language: " ++ (Github.repoLanguage repo) ++ "\t" ++
    "watchers: " ++ (show $ Github.repoWatchers repo) ++ "\t" ++
    "forks: " ++ (show $ Github.repoForks repo)

formatDate = show . Github.fromGithubDate