module GitHub.Endpoints.GitData.Commits (
commit,
gitCommitR,
module GitHub.Data,
) where
import GitHub.Data
import GitHub.Internal.Prelude
import GitHub.Request
import Prelude ()
commit :: Name Owner -> Name Repo -> Name GitCommit -> IO (Either Error GitCommit)
commit :: Name Owner
-> Name Repo -> Name GitCommit -> IO (Either Error GitCommit)
commit user :: Name Owner
user repo :: Name Repo
repo sha :: Name GitCommit
sha =
GenRequest 'MtJSON 'RO GitCommit -> IO (Either Error GitCommit)
forall (mt :: MediaType *) a.
ParseResponse mt a =>
GenRequest mt 'RO a -> IO (Either Error a)
executeRequest' (GenRequest 'MtJSON 'RO GitCommit -> IO (Either Error GitCommit))
-> GenRequest 'MtJSON 'RO GitCommit -> IO (Either Error GitCommit)
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo -> Name GitCommit -> GenRequest 'MtJSON 'RO GitCommit
forall (k :: RW).
Name Owner -> Name Repo -> Name GitCommit -> Request k GitCommit
gitCommitR Name Owner
user Name Repo
repo Name GitCommit
sha
gitCommitR :: Name Owner -> Name Repo -> Name GitCommit -> Request k GitCommit
gitCommitR :: Name Owner -> Name Repo -> Name GitCommit -> Request k GitCommit
gitCommitR user :: Name Owner
user repo :: Name Repo
repo sha :: Name GitCommit
sha =
Paths -> QueryString -> Request k GitCommit
forall (mt :: RW) a. Paths -> QueryString -> Request mt a
query ["repos", Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
user, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo, "git", "commits", Name GitCommit -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name GitCommit
sha] []