-- | The repo collaborators API as described on

module Github.Repos.Collaborators (

collaboratorsOn

,isCollaboratorOn

,module Github.Data

) where

import Github.Data

import Github.Private

import Data.ByteString.Char8 (pack)

import qualified Network.HTTP.Conduit as C (responseStatus)

import qualified Network.HTTP.Types as T (statusCode)

-- | All the users who have collaborated on a repo.

collaboratorsOn :: String -> String -> IO (Either Error [GithubOwner])

collaboratorsOn userName repoName =

githubGet ["repos", userName, repoName, "collaborators"]

-- | Whether the user is collaborating on a repo. Takes the user in question,

isCollaboratorOn :: String -> String -> String -> IO (Either Error Bool)

isCollaboratorOn userName repoOwnerName repoName = do

result <- doHttps (pack "GET")

(buildUrl ["repos", repoOwnerName, repoName, "collaborators", userName])

Nothing

Nothing

return $ either (Left . HTTPConnectionError)

(Right . (204 ==) . T.statusCode . C.responseStatus)

result