{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
module GitLab.API.Members where
import Data.Either
import Data.Text (Text)
import qualified Data.Text as T
import GitLab.Types
import GitLab.WebRequests.GitLabWebCalls
import Network.HTTP.Types.Status
data AccessLevel
= Guest
| Reporter
| Developer
| Maintainer
| Owner
instance Show AccessLevel where
show Guest = "10"
show Reporter = "20"
show Developer = "30"
show Maintainer = "40"
show Owner = "50"
membersOfProject :: Project -> GitLab [Member]
membersOfProject p = do
result <- membersOfProject' (project_id p)
return (fromRight (error "membersOfProject error") result)
membersOfProject' :: Int -> GitLab (Either Status [Member])
membersOfProject' projectId =
gitlab addr
where
addr =
"/projects/" <> T.pack (show projectId) <> "/members"
addMemberToProject ::
Project ->
AccessLevel ->
User ->
GitLab (Either Status Member)
addMemberToProject project access usr =
addMemberToProject' (project_id project) access (user_id usr)
addMemberToProject' ::
Int ->
AccessLevel ->
Int ->
GitLab (Either Status Member)
addMemberToProject' projectId access userId =
gitlabPost addr dataBody
where
dataBody :: Text
dataBody =
"user_id=" <> T.pack (show userId) <> "&access_level=" <> T.pack (show access)
addr =
"/projects/" <> T.pack (show projectId) <> "/members"
addMembersToProject ::
Project ->
AccessLevel ->
[User] ->
GitLab [Either Status Member]
addMembersToProject project access =
mapM (addMemberToProject project access)
addMembersToProject' ::
Int ->
AccessLevel ->
[Int] ->
GitLab [Either Status Member]
addMembersToProject' projectId access =
mapM (addMemberToProject' projectId access)