{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
module GitLab.API.Issues where
import Control.Monad.IO.Class
import Control.Monad.IO.Unlift
import Data.Either
import qualified Data.Text as T
import GitLab.Types
import GitLab.WebRequests.GitLabWebCalls
import Network.HTTP.Types.Status
projectOpenedIssues ::
(MonadIO m, MonadUnliftIO m) =>
Project ->
GitLab m [Issue]
projectOpenedIssues p = do
result <- projectOpenedIssues' (project_id p)
return (fromRight (error "projectOpenedIssues error") result)
projectOpenedIssues' ::
(MonadIO m, MonadUnliftIO m) =>
Int ->
GitLab m (Either Status [Issue])
projectOpenedIssues' projectId = do
let path = "/projects/" <> T.pack (show projectId) <> "/issues"
gitlab path
userIssues ::
(MonadIO m) =>
User ->
GitLab m [Issue]
userIssues usr =
gitlabWithAttrsUnsafe addr attrs
where
addr = "/issues"
attrs =
T.pack $
"&author_id="
<> show (user_id usr)
<> "&scope=all"