1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
-- | The repo collaborators API as described on
-- <http://developer.github.com/v3/repos/collaborators/>.
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 "thoughtbot" "paperclip"
collaboratorsOn :: String -> String -> IO (Either Error [GithubOwner])
collaboratorsOn userName reqRepoName =
githubGet ["repos", userName, reqRepoName, "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 (Either Error Bool)
isCollaboratorOn userName repoOwnerName reqRepoName = do
result <- doHttps (pack "GET")
(buildUrl ["repos", repoOwnerName, reqRepoName, "collaborators", userName])
Nothing
Nothing
return $ either (Left . HTTPConnectionError)
(Right . (204 ==) . T.statusCode . C.responseStatus)
result
|
