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