{-# LANGUAGE OverloadedStrings #-}
module GitLab.API.Jobs where
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
jobs ::
(MonadIO m) =>
Project ->
GitLab m [Job]
jobs project = do
result <- jobs' (project_id project)
return (fromRight (error "jobs error") result)
jobs' ::
(MonadIO m) =>
Int ->
GitLab m (Either Status [Job])
jobs' projectId =
gitlab addr
where
addr =
"/projects/"
<> T.pack (show projectId)
<> "/jobs"