{-# LANGUAGE OverloadedStrings #-}
module GitLab.API.Commits where
import Data.Either
import Data.Text (Text)
import qualified Data.Text as T
import GitLab.Types
import GitLab.WebRequests.GitLabWebCalls
import Network.HTTP.Types.Status
projectCommits ::
Project ->
GitLab [Commit]
projectCommits project = do
result <- projectCommits' (project_id project)
return (fromRight (error "projectCommits error") result)
projectCommits' ::
Int ->
GitLab (Either Status [Commit])
projectCommits' projectId =
gitlabWithAttrs (commitsAddr projectId) "&with_stats=true"
where
commitsAddr :: Int -> Text
commitsAddr projId =
"/projects/" <> T.pack (show projId) <> "/repository" <> "/commits"
commitDetails ::
Project ->
Text ->
GitLab (Maybe Commit)
commitDetails project theHash = do
result <- commitDetails' (project_id project) theHash
return (fromRight (error "commitDetails error") result)
commitDetails' ::
Int ->
Text ->
GitLab (Either Status (Maybe Commit))
commitDetails' projectId hash =
gitlabOne (commitsAddr projectId)
where
commitsAddr :: Int -> Text
commitsAddr projId =
"/projects/"
<> T.pack (show projId)
<> "/repository"
<> "/commits"
<> "/"
<> hash