{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
module GitLab.API.Issues where
import qualified Data.Aeson as J
import Data.Either
import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Text.Lazy
import qualified Data.Text.Lazy.Encoding
import GitLab.Types
import GitLab.WebRequests.GitLabWebCalls
import Network.HTTP.Types.Status
projectOpenedIssues ::
Project ->
GitLab [Issue]
projectOpenedIssues p = do
result <- projectOpenedIssues' (project_id p)
return (fromRight (error "projectOpenedIssues error") result)
projectOpenedIssues' ::
Int ->
GitLab (Either Status [Issue])
projectOpenedIssues' projectId = do
let path = "/projects/" <> T.pack (show projectId) <> "/issues"
gitlab path
userIssues ::
User ->
GitLab [Issue]
userIssues usr =
gitlabWithAttrsUnsafe addr attrs
where
addr = "/issues"
attrs =
T.pack $
"&author_id="
<> show (user_id usr)
<> "&scope=all"
newIssue ::
Project ->
Text ->
Text ->
GitLab (Either Status Issue)
newIssue project =
newIssue' (project_id project)
newIssue' ::
Int ->
Text ->
Text ->
GitLab (Either Status Issue)
newIssue' projectId issueTitle issueDescription =
gitlabPost addr dataBody
where
dataBody :: Text
dataBody =
"title="
<> issueTitle
<> "&description="
<> issueDescription
addr =
"/projects/"
<> T.pack (show projectId)
<> "/issues"
editIssue ::
ProjectId ->
IssueId ->
EditIssueReq ->
GitLab (Either Status Issue)
editIssue projId issueId editIssueReq = do
let path =
"/projects/" <> T.pack (show projId)
<> "/issues/"
<> T.pack (show issueId)
gitlabPut
path
( Data.Text.Lazy.toStrict
( Data.Text.Lazy.Encoding.decodeUtf8
(J.encode editIssueReq)
)
)