1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
module ListForks where
import qualified Github.Repos.Forks as Github
import Data.List
main = do
possibleForks <- Github.forksFor "thoughtbot" "paperclip"
putStrLn $ either (("Error: "++) . show)
(intercalate "\n\n" . map formatFork)
possibleForks
formatFork fork =
(Github.githubOwnerLogin $ Github.repoOwner fork) ++ "\t" ++
(formatPushedAt $ Github.repoPushedAt fork) ++ "\n" ++
(Github.repoCloneUrl fork)
formatPushedAt Nothing = ""
formatPushedAt (Just pushedAt) = show $ Github.fromGithubDate pushedAt
|
