Bind "delete thread subscription" notification endpoint

dlax · mergify-bot · commit 61db9b7dd20b · 2022-04-19T15:43:52.000Z
This is used to "mute" a thread of notifications.
diff --git a/src/GitHub.hs b/src/GitHub.hs
@@ -31,6 +31,7 @@ module GitHub (
     getNotificationsR,
     markNotificationAsReadR,
     markAllNotificationsAsReadR,
+    deleteThreadSubscriptionR,
 
     -- ** Starring
     -- | See <https://developer.github.com/v3/activity/starring/>
diff --git a/src/GitHub/Endpoints/Activity/Notifications.hs b/src/GitHub/Endpoints/Activity/Notifications.hs
@@ -34,3 +34,15 @@ markNotificationAsReadR nid = Command
 markAllNotificationsAsReadR :: GenRequest 'MtUnit 'RW ()
 markAllNotificationsAsReadR =
     Command Put ["notifications"] $ encode emptyObject
+
+deleteThreadSubscription :: Auth -> Id Notification -> IO (Either Error ())
+deleteThreadSubscription auth nid =
+    executeRequest auth $ deleteThreadSubscriptionR nid
+
+-- | Delete a thread subscription.
+-- See <https://developer.github.com/v3/activity/notifications/#delete-a-thread-subscription>
+deleteThreadSubscriptionR :: Id Notification -> GenRequest 'MtUnit 'RW ()
+deleteThreadSubscriptionR nid = Command
+    Delete
+    ["notifications", "threads", toPathPart nid, "subscription"]
+    mempty
