{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE OverloadedStrings #-}
module GitLab.API.Issues where
import Control.Concurrent.Async
import Control.Monad
import Control.Monad.IO.Class
import Control.Monad.IO.Unlift
import Control.Monad.Trans.Reader
import Data.Array.IO
import Data.List
import Data.Text (Text)
import qualified Data.Text as T
import Data.Time.Calendar
import Network.HTTP.Types.Status
import System.IO
import System.Random
import UnliftIO.Async
import GitLab.WebRequests.GitLabWebCalls
import GitLab.Types
projectOpenedIssues ::
(MonadIO m)
=> Project
-> GitLab m [Issue]
projectOpenedIssues = projectOpenedIssues' . project_id
projectOpenedIssues' ::
(MonadIO 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 user =
gitlabWithAttrs addr attrs
where
addr = "/issues"
attrs = T.pack $
"&author_id="
<> show (user_id user)
<> "&scope=all"