createPullRequest :: GithubAuth
                  -> String
                  -> String
                  -> CreatePullRequest
                  -> IO (Either Error DetailedPullRequest)
createPullRequest auth reqUserName reqRepoName createPR =
    githubPost auth ["repos", reqUserName, reqRepoName, "pulls"] createPR
createPullRequest :: GithubAuth
                  -> String
                  -> String
                  -> CreatePullRequest
                  -> IO (Either Error DetailedPullRequest)
createPullRequest auth reqUserName reqRepoName createPR =
    githubPost auth ["repos", reqUserName, reqRepoName, "pulls"] createPR
createPullRequest auth reqUserName reqRepoName createPR =
    githubPost auth ["repos", reqUserName, reqRepoName, "pulls"] createPR