1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
module ShowComments where
import qualified Github.Gists.Comments as Github
import Data.List (intercalate)
main = do
possibleComments <- Github.commentsOn "1174060"
case possibleComments of
(Left error) -> putStrLn $ "Error: " ++ (show error)
(Right comments) -> putStrLn $ intercalate "\n\n" $ map formatComment comments
formatComment comment =
(Github.githubOwnerLogin $ Github.gistCommentUser comment) ++ "\n" ++
(formatGithubDate $ Github.gistCommentUpdatedAt comment) ++ "\n\n" ++
(Github.gistCommentBody comment)
formatGithubDate = show . Github.fromGithubDate
|
