viewPullRequest :: ProjectInfo -> PullRequestId -> PullRequest -> Html
viewPullRequest info (PullRequestId n) pullRequest =
  let
    url = format "https://github.com/{}/{}/pull/{}"
      (Project.owner info, Project.repository info, n)
  in
    a ! href (toValue url) $ toHtml $ Project.title pullRequest
viewPullRequest :: ProjectInfo -> PullRequestId -> PullRequest -> Html
viewPullRequest info (PullRequestId n) pullRequest =
  let
    url = format "https://github.com/{}/{}/pull/{}"
      (Project.owner info, Project.repository info, n)
  in
    a ! href (toValue url) $ toHtml $ Project.title pullRequest
viewPullRequest info (PullRequestId n) pullRequest =
  let
    url = format "https://github.com/{}/{}/pull/{}"
      (Project.owner info, Project.repository info, n)
  in
    a ! href (toValue url) $ toHtml $ Project.title pullRequest