{-# LANGUAGE OverloadedStrings #-}
module GitLab.API.Commits where
import Control.Monad.IO.Unlift
import Data.Text (Text)
import qualified Data.Text as T
import GitLab.Types
import GitLab.WebRequests.GitLabWebCalls
projectCommits :: (MonadIO m)
=> Project
-> GitLab m [Commit]
projectCommits project = projectCommits' (project_id project)
projectCommits' :: (MonadIO m)
=> Int
-> GitLab m [Commit]
projectCommits' projectId =
gitlabWithAttrs (commitsAddr projectId) "&with_stats=true"
where
commitsAddr :: Int -> Text
commitsAddr projId =
"/projects/" <> T.pack (show projId) <> "/repository" <> "/commits"
commitDetails :: (MonadIO m)
=> Project
-> Text
-> GitLab m (Maybe Commit)
commitDetails project = commitDetails' (project_id project)
commitDetails' :: (MonadIO m)
=> Int
-> Text
-> GitLab m (Maybe Commit)
commitDetails' projectId hash =
gitlabOne (commitsAddr projectId)
where
commitsAddr :: Int -> Text
commitsAddr projId =
"/projects/"
<> T.pack (show projId)
<> "/repository"
<> "/commits"
<> "/" <> hash