1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
module ShowPull where
import qualified Github.PullRequests as Github
import Data.List
main = do
possiblePullRequest <- Github.pullRequest "thoughtbot" "paperclip" 575
case possiblePullRequest of
(Left error) -> putStrLn $ "Error: " ++ (show error)
(Right pullRequest) -> putStrLn $ formatPullRequest pullRequest
formatPullRequest p =
(Github.githubOwnerLogin $ Github.detailedPullRequestUser p) ++
" opened this pull request " ++
(formatGithubDate $ Github.detailedPullRequestCreatedAt p) ++ "\n" ++
(Github.detailedPullRequestTitle p) ++ "\n" ++
(Github.detailedPullRequestBody p) ++ "\n" ++
(Github.detailedPullRequestState p) ++ "\n" ++
"+" ++ (show $ Github.detailedPullRequestAdditions p) ++ " additions\n" ++
"-" ++ (show $ Github.detailedPullRequestDeletions p) ++ " deletions\n" ++
(show $ Github.detailedPullRequestComments p) ++ " comments\n" ++
(Github.detailedPullRequestHtmlUrl p)
formatGithubDate = show . Github.fromGithubDate
|
