-- |
-- The repo watching API as described on
-- .
module GitHub.Endpoints.Activity.Watching (
watchersForR,
reposWatchedByR,
unwatchRepoR,
module GitHub.Data,
) where
import GitHub.Auth
import GitHub.Data
import GitHub.Internal.Prelude
import Prelude ()
-- | List watchers.
-- See
watchersForR :: Name Owner -> Name Repo -> FetchCount -> Request k (Vector SimpleUser)
watchersForR user repo limit =
pagedQuery ["repos", toPathPart user, toPathPart repo, "watchers"] [] limit
-- | List repositories being watched.
-- See
reposWatchedByR :: Name Owner -> FetchCount -> Request k (Vector Repo)
reposWatchedByR user =
pagedQuery ["users", toPathPart user, "subscriptions"] []
-- | Stop watching repository.
-- See
unwatchRepoR :: Name Owner -> Name Repo -> Request 'RW ()
unwatchRepoR owner repo =
command Delete ["repos", toPathPart owner, toPathPart repo, "subscription"] mempty