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