1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
module GitShow where
import qualified Github.GitData.Commits as Github
import Data.Maybe (fromJust)
main = do
possibleCommit <- Github.commit "thoughtbot" "paperclip" "bc5c51d1ece1ee45f94b056a0f5a1674d7e8cba9"
case possibleCommit of
(Left error) -> putStrLn $ "Error: " ++ (show error)
(Right commit) -> putStrLn $ formatCommit commit
formatCommit :: Github.GitCommit -> String
formatCommit commit =
"commit " ++ (fromJust $ Github.gitCommitSha commit) ++
"\nAuthor: " ++ (formatAuthor author) ++
"\nDate: " ++ (show $ Github.fromGithubDate $ Github.gitUserDate author) ++
"\n\n\t" ++ (Github.gitCommitMessage commit) ++ "\n"
where author = Github.gitCommitAuthor commit
formatAuthor :: Github.GitUser -> String
formatAuthor author =
(Github.gitUserName author) ++ " <" ++ (Github.gitUserEmail author) ++ ">"
|
