diff --git a/src/GitHub.hs b/src/GitHub.hs index e00a53cb..02a26d87 100644 --- a/src/GitHub.hs +++ b/src/GitHub.hs @@ -31,6 +31,7 @@ module GitHub ( getNotificationsR, markNotificationAsReadR, markAllNotificationsAsReadR, + deleteThreadSubscriptionR, -- ** Starring -- | See diff --git a/src/GitHub/Endpoints/Activity/Notifications.hs b/src/GitHub/Endpoints/Activity/Notifications.hs index 7c246c54..d22ccf2b 100644 --- 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 +deleteThreadSubscriptionR :: Id Notification -> GenRequest 'MtUnit 'RW () +deleteThreadSubscriptionR nid = Command + Delete + ["notifications", "threads", toPathPart nid, "subscription"] + mempty