1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
module ShowRepoIssue where
import qualified Github.Issues as Github
import Data.List (intercalate)
main = do
let limitations = [Github.OnlyClosed, Github.Mentions "mike-burns", Github.AssignedTo "jyurek"]
possibleIssues <- Github.issuesForRepo "thoughtbot" "paperclip" limitations
case possibleIssues of
(Left error) -> putStrLn $ "Error: " ++ show error
(Right issues) ->
putStrLn $ intercalate "\n\n" $ map formatIssue issues
formatIssue issue =
(Github.githubOwnerLogin $ Github.issueUser issue) ++
" opened this issue " ++
(show $ Github.fromGithubDate $ Github.issueCreatedAt issue) ++ "\n" ++
(Github.issueState issue) ++ " with " ++
(show $ Github.issueComments issue) ++ " comments" ++ "\n\n" ++
(Github.issueTitle issue)
|
