{-# LANGUAGE OverloadedStrings #-}
module GitLab.API.MergeRequests where
import Control.Monad.IO.Unlift
import qualified Data.Text as T
import GitLab.Types
import GitLab.WebRequests.GitLabWebCalls
mergeRequests :: (MonadIO m)
=> Project
-> GitLab m [MergeRequest]
mergeRequests = mergeRequests' . project_id
mergeRequests' :: (MonadIO m)
=> Int
-> GitLab m [MergeRequest]
mergeRequests' projectId =
gitlabWithAttrs addr "&scope=all"
where
addr =
"/projects/"
<> T.pack (show projectId)
<> "/merge_requests"