1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
module ListPulls where
import qualified Github.PullRequests as Github
import Data.List
main = do
possiblePullRequests <- Github.pullRequestsFor "thoughtbot" "paperclip"
case possiblePullRequests of
(Left error) -> putStrLn $ "Error: " ++ (show error)
(Right pullRequests) ->
putStrLn $ intercalate "\n\n" $ map formatPullRequest pullRequests
formatPullRequest pullRequest =
(Github.pullRequestTitle pullRequest) ++ "\n" ++
(take 80 $ Github.pullRequestBody pullRequest) ++ "\n" ++
(Github.githubOwnerLogin $ Github.pullRequestUser pullRequest) ++
" submitted to thoughtbot/paperclip " ++
(formatGithubDate $ Github.pullRequestCreatedAt pullRequest) ++
" updated " ++
(formatGithubDate $ Github.pullRequestUpdatedAt pullRequest) ++ "\n" ++
(Github.pullRequestHtmlUrl pullRequest)
formatGithubDate = show . Github.fromGithubDate
|
