candidateState :: PullRequestId -> Branch -> Sha -> Text -> Sha -> ProjectState
candidateState pr prBranch prSha prAuthor candidateSha =
  let state0 = singlePullRequestState pr prBranch prSha prAuthor
      state1 = Project.setIntegrationStatus pr (Project.Integrated candidateSha) state0
  in  state1 { Project.integrationCandidate = Just pr }
candidateState :: PullRequestId -> Branch -> Sha -> Text -> Sha -> ProjectState
candidateState pr prBranch prSha prAuthor candidateSha =
  let state0 = singlePullRequestState pr prBranch prSha prAuthor
      state1 = Project.setIntegrationStatus pr (Project.Integrated candidateSha) state0
  in  state1 { Project.integrationCandidate = Just pr }
candidateState pr prBranch prSha prAuthor candidateSha =
  let state0 = singlePullRequestState pr prBranch prSha prAuthor
      state1 = Project.setIntegrationStatus pr (Project.Integrated candidateSha) state0
  in  state1 { Project.integrationCandidate = Just pr }