-- Functions to prepare certain test states.

singlePullRequestState :: PullRequestId -> Branch -> Sha -> Text -> ProjectState
singlePullRequestState pr prBranch prSha prAuthor =
  let event = PullRequestOpened pr prBranch prSha "Untitled" prAuthor
  in  handleEventFlat event Project.emptyProjectState
singlePullRequestState :: PullRequestId -> Branch -> Sha -> Text -> ProjectState
singlePullRequestState pr prBranch prSha prAuthor =
  let event = PullRequestOpened pr prBranch prSha "Untitled" prAuthor
  in  handleEventFlat event Project.emptyProjectState
singlePullRequestState pr prBranch prSha prAuthor =
  let event = PullRequestOpened pr prBranch prSha "Untitled" prAuthor
  in  handleEventFlat event Project.emptyProjectState