{-# LANGUAGE OverloadedStrings #-}
module GitLab.API.RepositoryFiles where
import Control.Monad.IO.Unlift
import Data.Text (Text)
import qualified Data.Text as T
import GitLab.Types
import GitLab.WebRequests.GitLabWebCalls
repositoryFiles :: (MonadIO m)
=> Project
-> Text
-> Text
-> GitLab m (Maybe RepositoryFile)
repositoryFiles project = repositoryFiles' (project_id project)
repositoryFiles' :: (MonadIO m)
=> Int
-> Text
-> Text
-> GitLab m (Maybe RepositoryFile)
repositoryFiles' projectId filePath reference =
gitlabWithAttrsOne addr ("&ref=" <> reference)
where
addr =
"/projects/"
<> T.pack (show projectId)
<> "/repository"
<> "/files"
<> "/"
<> filePath