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
26
|
module ListOrgRepos where
import qualified Github.Repos as Github
import Data.List
import Data.Maybe
main = do
possibleRepos <- Github.organizationRepos "thoughtbot"
case possibleRepos of
(Left error) -> putStrLn $ "Error: " ++ (show error)
(Right repos) -> putStrLn $ intercalate "\n\n" $ map formatRepo repos
formatRepo repo =
(Github.repoName repo) ++ "\t" ++
(fromMaybe "" $ Github.repoDescription repo) ++ "\n" ++
(Github.repoHtmlUrl repo) ++ "\n" ++
(Github.repoCloneUrl repo) ++ "\t" ++
(formatDate $ Github.repoUpdatedAt repo) ++ "\n" ++
formatLanguage (Github.repoLanguage repo) ++
"watchers: " ++ (show $ Github.repoWatchers repo) ++ "\t" ++
"forks: " ++ (show $ Github.repoForks repo)
formatDate = show . Github.fromGithubDate
formatLanguage (Just language) = "language: " ++ language ++ "\t"
formatLanguage Nothing = ""
|
