----------------------------------------------------------------------------- -- | -- License : BSD-3-Clause -- Maintainer : Oleg Grenrus <oleg.grenrus@iki.fi> -- -- The API for underlying git commits of a Github repo, as described on -- <http://developer.github.com/v3/git/commits/>. module GitHub.Endpoints.GitData.Commits ( commit, gitCommitR, module GitHub.Data, ) where import GitHub.Data import GitHub.Request -- | A single commit, by SHA1. -- -- > commit "thoughtbot" "paperclip" "bc5c51d1ece1ee45f94b056a0f5a1674d7e8cba9" commit :: Name Owner -> Name Repo -> Name GitCommit -> IO (Either Error GitCommit) commit user repo sha = executeRequest' $ gitCommitR user repo sha -- | Query a commit. -- See <https://developer.github.com/v3/git/commits/#get-a-commit> gitCommitR :: Name Owner -> Name Repo -> Name GitCommit -> Request k GitCommit gitCommitR user repo sha = Query ["repos", toPathPart user, toPathPart repo, "git", "commits", toPathPart sha] []