1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
module ShowComments where
import qualified Github.Issues.Comments as Github
import Data.List (intercalate)
main = do
possibleComments <- Github.comments "thoughtbot" "paperclip" 635
case possibleComments of
(Left error) -> putStrLn $ "Error: " ++ show error
(Right issues) ->
putStrLn $ intercalate "\n\n" $ map formatComment issues
formatComment comment =
(Github.githubOwnerLogin $ Github.issueCommentUser comment) ++
" commented " ++
(show $ Github.fromGithubDate $ Github.issueCommentUpdatedAt comment) ++
"\n" ++ (Github.issueCommentBody comment)
|
