module GitHub.Endpoints.Gists.Comments (
commentsOn,
commentsOnR,
comment,
gistCommentR,
module GitHub.Data,
) where
import Data.Vector (Vector)
import GitHub.Data
import GitHub.Request
commentsOn :: Name Gist -> IO (Either Error (Vector GistComment))
commentsOn gid =
executeRequest' $ commentsOnR gid Nothing
commentsOnR :: Name Gist -> Maybe Count -> Request k (Vector GistComment)
commentsOnR gid =
PagedQuery ["gists", toPathPart gid, "comments"] []
comment :: Id GistComment -> IO (Either Error GistComment)
comment cid =
executeRequest' $ gistCommentR cid
gistCommentR :: Id GistComment -> Request k GistComment
gistCommentR cid =
Query ["gists", "comments", toPathPart cid] []