Endpoints for deleting issue comments

Author: dahlia

src/GitHub/Endpoints/Issues/Comments.hs

@@ -13,6 +13,8 @@ module GitHub.Endpoints.Issues.Comments (
     comments',
     createComment,
     createCommentR,
+    deleteComment,
+    deleteCommentR,
     editComment,
     editCommentR,
     module GitHub.Data,
@@ -88,3 +90,19 @@ editCommentR user repo commid body =
     command Patch parts (encode $ EditComment body)
   where
     parts = ["repos", toPathPart user, toPathPart repo, "issues", "comments", toPathPart commid]
+
+-- | Delete a comment.
+--
+-- > deleteComment (User (user, password)) user repo commentid
+deleteComment :: Auth -> Name Owner -> Name Repo -> Id Comment
+              -> IO (Either Error ())
+deleteComment auth user repo commid =
+    executeRequest auth $ deleteCommentR user repo commid
+
+-- | Delete a comment.
+-- See <https://developer.github.com/v3/issues/comments/#delete-a-comment>
+deleteCommentR :: Name Owner -> Name Repo -> Id Comment -> Request 'RW ()
+deleteCommentR user repo commid =
+    command Delete parts mempty
+  where
+    parts = ["repos", toPathPart user, toPathPart repo, "issues", "comments", toPathPart commid]