Add unwatch request

samples/Repos/Watching/Unwatch.hs

@@ -0,0 +1,17 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Main where
+
+import qualified GitHub as GH
+import qualified Data.Text    as T
+import qualified Data.Text.IO as T
+
+main :: IO ()
+main = do
+    let auth = GH.BasicAuth "<login>" "<pass>"
+        owner = "haskell-github"
+        repo  = "github"
+    result <- GH.github auth GH.unwatchRepoR (GH.mkOwnerName owner) (GH.mkRepoName repo)
+    case result of
+        Left err -> putStrLn $ "Error: " ++ show err
+        Right () -> T.putStrLn $ T.concat ["No longer watching: ", owner, "/", repo]

samples/github-samples.cabal

@@ -160,6 +160,12 @@ executable github-teaminfo-for
   main-is:        TeamInfoFor.hs
   hs-source-dirs: Teams
 
+executable github-unwatch-repo
+  import:         deps
+  main-is:        Unwatch.hs
+  ghc-options:    -Wall -threaded
+  hs-source-dirs: Repos/Watching
+
 -- executable github-create-public-ssh-key
 --   import:         deps
 --   main-is:        CreatePublicSSHKey.hs

src/GitHub.hs

@@ -52,9 +52,9 @@ module GitHub (
     --
     -- * Query a Repository Subscription
     -- * Set a Repository Subscription
-    -- * Delete a Repository Subscription
     watchersForR,
     reposWatchedByR,
+    unwatchRepoR,
 
     -- * Gists
     -- | See <https://developer.github.com/v3/gists/>

src/GitHub/Endpoints/Activity/Watching.hs

@@ -8,6 +8,7 @@
 module GitHub.Endpoints.Activity.Watching (
     watchersForR,
     reposWatchedByR,
+    unwatchRepoR,
     module GitHub.Data,
 ) where
 
@@ -27,3 +28,9 @@ watchersForR user repo limit =
 reposWatchedByR :: Name Owner -> FetchCount -> Request k (Vector Repo)
 reposWatchedByR user =
     pagedQuery ["users", toPathPart user, "subscriptions"] []
+
+-- | Stop watching repository.
+-- See <https://docs.github.com/en/rest/reference/activity#delete-a-repository-subscription>
+unwatchRepoR :: Name Owner -> Name Repo -> Request 'RW ()
+unwatchRepoR owner repo =
+    command Delete ["repos", toPathPart owner, toPathPart repo, "subscription"] mempty