-- | The repo collaborators API as described on-- <http://developer.github.com/v3/repos/collaborators/>.moduleGithub.Repos.Collaborators(collaboratorsOn,isCollaboratorOn,moduleGithub.Data)whereimportGithub.DataimportGithub.PrivateimportData.ByteString.Char8(pack)importqualifiedNetwork.HTTP.ConduitasC(statusCode)importqualifiedNetwork.HTTP.TypesasT(statusCode)-- | All the users who have collaborated on a repo.---- > collaboratorsOn "thoughtbot" "paperclip"collaboratorsOn::String->String->IO(EitherError[GithubOwner])collaboratorsOnuserNamerepoName=githubGet["repos",userName,repoName,"collaborators"]-- | Whether the user is collaborating on a repo. Takes the user in question,-- the user who owns the repo, and the repo name.---- > isCollaboratorOn "mike-burns" "thoughtbot" "paperclip"-- > isCollaboratorOn "johnson" "thoughtbot" "paperclip"isCollaboratorOn::String->String->String->IO(EitherErrorBool)isCollaboratorOnuserNamerepoOwnerNamerepoName=doresult<-doHttps(pack"GET")(buildUrl["repos",repoOwnerName,repoName,"collaborators",userName])Nothingreturn$either(Left.HTTPConnectionError)(Right.(204==).T.statusCode.C.statusCode)result