1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
module RepoComments where
import qualified Github.Repos.Commits as Github
import Data.List
import Data.Maybe (maybe)
main = do
possibleComments <- Github.commentsFor "thoughtbot" "paperclip"
case possibleComments of
(Left error) -> putStrLn $ "Error: " ++ (show error)
(Right comments) -> putStrLn $ intercalate "\n\n" $ map formatComment comments
formatComment :: Github.Comment -> String
formatComment comment =
"Author: " ++ (formatAuthor $ Github.commentUser comment) ++
"\nUpdated: " ++ (show $ Github.commentUpdatedAt comment) ++
(maybe "" ("\nURL: "++) $ Github.commentHtmlUrl comment) ++
"\n\n" ++ (Github.commentBody comment)
formatAuthor :: Github.GithubOwner -> String
formatAuthor user =
(Github.githubOwnerLogin user) ++ " (" ++ (Github.githubOwnerUrl user) ++ ")"
|
