module GitHub.Endpoints.PullRequests.ReviewComments (
pullRequestReviewCommentsIO,
pullRequestReviewCommentsR,
pullRequestReviewComment,
pullRequestReviewCommentR,
module GitHub.Data,
) where
import Data.Vector (Vector)
import GitHub.Data
import GitHub.Request
pullRequestReviewCommentsIO :: Name Owner -> Name Repo -> Id PullRequest -> IO (Either Error (Vector Comment))
pullRequestReviewCommentsIO user repo prid =
executeRequest' $ pullRequestReviewCommentsR user repo prid Nothing
pullRequestReviewCommentsR :: Name Owner -> Name Repo -> Id PullRequest -> Maybe Count -> Request k (Vector Comment)
pullRequestReviewCommentsR user repo prid =
PagedQuery ["repos", toPathPart user, toPathPart repo, "pulls", toPathPart prid, "comments"] []
pullRequestReviewComment :: Name Owner -> Name Repo -> Id Comment -> IO (Either Error Comment)
pullRequestReviewComment user repo cid =
executeRequest' $ pullRequestReviewCommentR user repo cid
pullRequestReviewCommentR :: Name Owner -> Name Repo -> Id Comment -> Request k Comment
pullRequestReviewCommentR user repo cid =
Query ["repos", toPathPart user, toPathPart repo, "pulls", "comments", toPathPart cid] []