-- | All pull requests for the repo, by owner, repo name, and pull request state.
-- | With authentification
--
-- > pullRequestsFor' (Just ("github-username", "github-password")) "rails" "rails" (Just "open")
--
-- State can be one of @all@, @open@, or @closed@. Default is @open@.
--
pullRequestsFor'' :: Maybe GithubAuth -> Maybe String -> String -> String -> IO (Either Error [PullRequest])
pullRequestsFor'' auth state userName reqRepoName =
  githubGetWithQueryString' auth ["repos", userName, reqRepoName, "pulls"] $
    maybe "" ("state=" ++) state
pullRequestsFor'' :: Maybe GithubAuth -> Maybe String -> String -> String -> IO (Either Error [PullRequest])
pullRequestsFor'' auth state userName reqRepoName =
  githubGetWithQueryString' auth ["repos", userName, reqRepoName, "pulls"] $
    maybe "" ("state=" ++) state
pullRequestsFor'' auth state userName reqRepoName =
  githubGetWithQueryString' auth ["repos", userName, reqRepoName, "pulls"] $
    maybe "" ("state=" ++) state