Merge pull request haskell-github#424 from TomMD/feature/add-comment-replies-endpoint

phadej · web-flow · commit c21d78adc31c · 2020-01-04T11:00:31.000+02:00
Add support for the comment reply endpoint
diff --git a/src/GitHub/Data/Comments.hs b/src/GitHub/Data/Comments.hs
@@ -83,3 +83,15 @@ instance ToJSON NewPullComment where
                , "path" .= path
                , "position" .= pos
                ]
+
+data PullCommentReply = PullCommentReply
+    { pullCommentReplyBody     :: Text
+    }
+  deriving (Show, Data, Typeable, Eq, Ord, Generic)
+
+instance NFData PullCommentReply where rnf = genericRnf
+
+instance ToJSON PullCommentReply where
+    toJSON (PullCommentReply b) =
+        object [ "body" .= b
+               ]
diff --git a/src/GitHub/Endpoints/PullRequests/Comments.hs b/src/GitHub/Endpoints/PullRequests/Comments.hs
@@ -9,6 +9,7 @@ module GitHub.Endpoints.PullRequests.Comments (
     pullRequestCommentsR,
     pullRequestCommentR,
     createPullCommentR,
+    createPullCommentReplyR,
     module GitHub.Data,
     ) where
 
@@ -36,3 +37,13 @@ createPullCommentR user repo iss commit path position body =
     command Post parts (encode $ NewPullComment commit path position body)
   where
     parts = ["repos", toPathPart user, toPathPart repo, "pulls", toPathPart iss, "comments"]
+
+-- | Create a comment reply.
+--
+-- See <https://developer.github.com/v3/pulls/comments/#create-a-review-comment-reply>
+createPullCommentReplyR :: Name Owner -> Name Repo -> IssueNumber -> Id Comment -> Text -> Request 'RW Comment
+createPullCommentReplyR user repo iss cid body =
+    command Post parts (encode $ PullCommentReply body)
+  where
+    parts = ["repos", toPathPart user, toPathPart repo, "pulls", toPathPart iss
+            , "comments", toPathPart cid, "replies"]
