module GitHub.Endpoints.PullRequests.Reviews
( pullRequestReviewsR
, pullRequestReviews
, pullRequestReviews'
, pullRequestReviewR
, pullRequestReview
, pullRequestReview'
, pullRequestReviewCommentsR
, pullRequestReviewCommentsIO
, pullRequestReviewCommentsIO'
, module GitHub.Data
) where
import GitHub.Data
import GitHub.Data.Id (Id)
import GitHub.Internal.Prelude
import GitHub.Request
(Request, executeRequest', executeRequestMaybe)
import Prelude ()
pullRequestReviewsR
:: Name Owner
-> Name Repo
-> Id PullRequest
-> FetchCount
-> Request k (Vector Review)
pullRequestReviewsR :: Name Owner
-> Name Repo
-> Id PullRequest
-> FetchCount
-> Request k (Vector Review)
pullRequestReviewsR owner :: Name Owner
owner repo :: Name Repo
repo prid :: Id PullRequest
prid =
Paths -> QueryString -> FetchCount -> Request k (Vector Review)
forall a (mt :: RW).
FromJSON a =>
Paths -> QueryString -> FetchCount -> Request mt (Vector a)
pagedQuery
[ "repos"
, Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
owner
, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo
, "pulls"
, Id PullRequest -> Text
forall a. IsPathPart a => a -> Text
toPathPart Id PullRequest
prid
, "reviews"
]
[]
pullRequestReviews
:: Name Owner
-> Name Repo
-> Id PullRequest
-> IO (Either Error (Vector Review))
pullRequestReviews :: Name Owner
-> Name Repo -> Id PullRequest -> IO (Either Error (Vector Review))
pullRequestReviews owner :: Name Owner
owner repo :: Name Repo
repo prid :: Id PullRequest
prid =
GenRequest 'MtJSON 'RO (Vector Review)
-> IO (Either Error (Vector Review))
forall (mt :: MediaType *) a.
ParseResponse mt a =>
GenRequest mt 'RO a -> IO (Either Error a)
executeRequest' (GenRequest 'MtJSON 'RO (Vector Review)
-> IO (Either Error (Vector Review)))
-> GenRequest 'MtJSON 'RO (Vector Review)
-> IO (Either Error (Vector Review))
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> Id PullRequest
-> FetchCount
-> GenRequest 'MtJSON 'RO (Vector Review)
forall (k :: RW).
Name Owner
-> Name Repo
-> Id PullRequest
-> FetchCount
-> Request k (Vector Review)
pullRequestReviewsR Name Owner
owner Name Repo
repo Id PullRequest
prid FetchCount
FetchAll
pullRequestReviews'
:: Maybe Auth
-> Name Owner
-> Name Repo
-> Id PullRequest
-> IO (Either Error (Vector Review))
pullRequestReviews' :: Maybe Auth
-> Name Owner
-> Name Repo
-> Id PullRequest
-> IO (Either Error (Vector Review))
pullRequestReviews' auth :: Maybe Auth
auth owner :: Name Owner
owner repo :: Name Repo
repo pr :: Id PullRequest
pr =
Maybe Auth
-> GenRequest 'MtJSON 'RO (Vector Review)
-> IO (Either Error (Vector Review))
forall am (mt :: MediaType *) a.
(AuthMethod am, ParseResponse mt a) =>
Maybe am -> GenRequest mt 'RO a -> IO (Either Error a)
executeRequestMaybe Maybe Auth
auth (GenRequest 'MtJSON 'RO (Vector Review)
-> IO (Either Error (Vector Review)))
-> GenRequest 'MtJSON 'RO (Vector Review)
-> IO (Either Error (Vector Review))
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> Id PullRequest
-> FetchCount
-> GenRequest 'MtJSON 'RO (Vector Review)
forall (k :: RW).
Name Owner
-> Name Repo
-> Id PullRequest
-> FetchCount
-> Request k (Vector Review)
pullRequestReviewsR Name Owner
owner Name Repo
repo Id PullRequest
pr FetchCount
FetchAll
pullRequestReviewR
:: Name Owner
-> Name Repo
-> Id PullRequest
-> Id Review
-> Request k Review
pullRequestReviewR :: Name Owner
-> Name Repo -> Id PullRequest -> Id Review -> Request k Review
pullRequestReviewR owner :: Name Owner
owner repo :: Name Repo
repo prid :: Id PullRequest
prid rid :: Id Review
rid =
Paths -> QueryString -> Request k Review
forall (mt :: RW) a. Paths -> QueryString -> Request mt a
query
[ "repos"
, Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
owner
, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo
, "pulls"
, Id PullRequest -> Text
forall a. IsPathPart a => a -> Text
toPathPart Id PullRequest
prid
, "reviews"
, Id Review -> Text
forall a. IsPathPart a => a -> Text
toPathPart Id Review
rid
]
[]
pullRequestReview
:: Name Owner
-> Name Repo
-> Id PullRequest
-> Id Review
-> IO (Either Error Review)
pullRequestReview :: Name Owner
-> Name Repo
-> Id PullRequest
-> Id Review
-> IO (Either Error Review)
pullRequestReview owner :: Name Owner
owner repo :: Name Repo
repo prid :: Id PullRequest
prid rid :: Id Review
rid =
GenRequest 'MtJSON 'RO Review -> IO (Either Error Review)
forall (mt :: MediaType *) a.
ParseResponse mt a =>
GenRequest mt 'RO a -> IO (Either Error a)
executeRequest' (GenRequest 'MtJSON 'RO Review -> IO (Either Error Review))
-> GenRequest 'MtJSON 'RO Review -> IO (Either Error Review)
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> Id PullRequest
-> Id Review
-> GenRequest 'MtJSON 'RO Review
forall (k :: RW).
Name Owner
-> Name Repo -> Id PullRequest -> Id Review -> Request k Review
pullRequestReviewR Name Owner
owner Name Repo
repo Id PullRequest
prid Id Review
rid
pullRequestReview'
:: Maybe Auth
-> Name Owner
-> Name Repo
-> Id PullRequest
-> Id Review
-> IO (Either Error Review)
pullRequestReview' :: Maybe Auth
-> Name Owner
-> Name Repo
-> Id PullRequest
-> Id Review
-> IO (Either Error Review)
pullRequestReview' auth :: Maybe Auth
auth owner :: Name Owner
owner repo :: Name Repo
repo prid :: Id PullRequest
prid rid :: Id Review
rid =
Maybe Auth
-> GenRequest 'MtJSON 'RO Review -> IO (Either Error Review)
forall am (mt :: MediaType *) a.
(AuthMethod am, ParseResponse mt a) =>
Maybe am -> GenRequest mt 'RO a -> IO (Either Error a)
executeRequestMaybe Maybe Auth
auth (GenRequest 'MtJSON 'RO Review -> IO (Either Error Review))
-> GenRequest 'MtJSON 'RO Review -> IO (Either Error Review)
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> Id PullRequest
-> Id Review
-> GenRequest 'MtJSON 'RO Review
forall (k :: RW).
Name Owner
-> Name Repo -> Id PullRequest -> Id Review -> Request k Review
pullRequestReviewR Name Owner
owner Name Repo
repo Id PullRequest
prid Id Review
rid
pullRequestReviewCommentsR
:: Name Owner
-> Name Repo
-> Id PullRequest
-> Id Review
-> Request k [ReviewComment]
owner :: Name Owner
owner repo :: Name Repo
repo prid :: Id PullRequest
prid rid :: Id Review
rid =
Paths -> QueryString -> Request k [ReviewComment]
forall (mt :: RW) a. Paths -> QueryString -> Request mt a
query
[ "repos"
, Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
owner
, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo
, "pulls"
, Id PullRequest -> Text
forall a. IsPathPart a => a -> Text
toPathPart Id PullRequest
prid
, "reviews"
, Id Review -> Text
forall a. IsPathPart a => a -> Text
toPathPart Id Review
rid
, "comments"
]
[]
pullRequestReviewCommentsIO
:: Name Owner
-> Name Repo
-> Id PullRequest
-> Id Review
-> IO (Either Error [ReviewComment])
owner :: Name Owner
owner repo :: Name Repo
repo prid :: Id PullRequest
prid rid :: Id Review
rid =
GenRequest 'MtJSON 'RO [ReviewComment]
-> IO (Either Error [ReviewComment])
forall (mt :: MediaType *) a.
ParseResponse mt a =>
GenRequest mt 'RO a -> IO (Either Error a)
executeRequest' (GenRequest 'MtJSON 'RO [ReviewComment]
-> IO (Either Error [ReviewComment]))
-> GenRequest 'MtJSON 'RO [ReviewComment]
-> IO (Either Error [ReviewComment])
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> Id PullRequest
-> Id Review
-> GenRequest 'MtJSON 'RO [ReviewComment]
forall (k :: RW).
Name Owner
-> Name Repo
-> Id PullRequest
-> Id Review
-> Request k [ReviewComment]
pullRequestReviewCommentsR Name Owner
owner Name Repo
repo Id PullRequest
prid Id Review
rid
pullRequestReviewCommentsIO'
:: Maybe Auth
-> Name Owner
-> Name Repo
-> Id PullRequest
-> Id Review
-> IO (Either Error [ReviewComment])
auth :: Maybe Auth
auth owner :: Name Owner
owner repo :: Name Repo
repo prid :: Id PullRequest
prid rid :: Id Review
rid =
Maybe Auth
-> GenRequest 'MtJSON 'RO [ReviewComment]
-> IO (Either Error [ReviewComment])
forall am (mt :: MediaType *) a.
(AuthMethod am, ParseResponse mt a) =>
Maybe am -> GenRequest mt 'RO a -> IO (Either Error a)
executeRequestMaybe Maybe Auth
auth (GenRequest 'MtJSON 'RO [ReviewComment]
-> IO (Either Error [ReviewComment]))
-> GenRequest 'MtJSON 'RO [ReviewComment]
-> IO (Either Error [ReviewComment])
forall a b. (a -> b) -> a -> b
$ Name Owner
-> Name Repo
-> Id PullRequest
-> Id Review
-> GenRequest 'MtJSON 'RO [ReviewComment]
forall (k :: RW).
Name Owner
-> Name Repo
-> Id PullRequest
-> Id Review
-> Request k [ReviewComment]
pullRequestReviewCommentsR Name Owner
owner Name Repo
repo Id PullRequest
prid Id Review
rid