viewList :: (ProjectInfo -> PullRequestId -> PullRequest -> Html)
         -> ProjectInfo
         -> ProjectState
         -> [PullRequestId]
         -> Html
viewList view info state prIds = forM_ prIds $ \ prId ->
  let
    Just pr = Project.lookupPullRequest prId state
  in
    p $ view info prId pr
viewList :: (ProjectInfo -> PullRequestId -> PullRequest -> Html)
         -> ProjectInfo
         -> ProjectState
         -> [PullRequestId]
         -> Html
viewList view info state prIds = forM_ prIds $ \ prId ->
  let
    Just pr = Project.lookupPullRequest prId state
  in
    p $ view info prId pr
viewList view info state prIds = forM_ prIds $ \ prId ->
  let
    Just pr = Project.lookupPullRequest prId state
  in
    p $ view info prId pr