forked from haskell-github/github
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathShowRepo.hs
More file actions
25 lines (20 loc) · 853 Bytes
/
ShowRepo.hs
File metadata and controls
25 lines (20 loc) · 853 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
module ShowRepo where
import qualified Github.Repos as Github
import Data.List
import Data.Maybe
main = do
possibleRepo <- Github.repository "mike-burns" "trylambda"
case possibleRepo of
Left error -> putStrLn $ "Error: " ++ show error
Right repo -> putStrLn $ formatRepo repo
formatRepo repo = Github.repoName repo ++ "\t" ++
fromMaybe "" (Github.repoDescription repo) ++ "\n" ++
Github.repoHtmlUrl repo ++ "\n" ++
fromMaybe "" (Github.repoCloneUrl repo) ++ "\t" ++
maybe "" formatDate (Github.repoUpdatedAt repo) ++ "\n" ++
formatLanguage (Github.repoLanguage repo) ++
"watchers: " ++ show (Github.repoWatchers repo) ++ "\t" ++
"forks: " ++ show (Github.repoForks repo)
formatDate = show . Github.fromDate
formatLanguage (Just language) = "language: " ++ language ++ "\t"
formatLanguage Nothing = ""