github-0.1: samples/Pulls/ShowCommits.hs

module ShowCommits where

import qualified Github.PullRequests as Github
import Data.List
import Data.Maybe

main = do
  possiblePullRequestCommits <- Github.pullRequestCommits "thoughtbot" "paperclip" 575
  case possiblePullRequestCommits of
       (Left error)    -> putStrLn $ "Error: " ++ (show error)
       (Right commits) -> putStrLn $ intercalate "\n" $ map formatCommit commits

formatCommit commit =
  (formatAuthor $ Github.gitCommitAuthor gitCommit) ++ "\n" ++
    (maybe "unknown SHA" id $ Github.gitCommitSha gitCommit) ++ "\n" ++
    (Github.gitCommitMessage gitCommit)
  where gitCommit = Github.commitGitCommit commit

formatAuthor :: Github.GitUser -> String
formatAuthor author =
  (Github.gitUserName author) ++ " <" ++ (Github.gitUserEmail author) ++ ">"