-- |
-- The repo starring API as described on
-- .
module GitHub.Endpoints.Activity.Starring (
stargazersForR,
reposStarredByR,
myStarredR,
myStarredAcceptStarR,
starRepoR,
unstarRepoR,
module GitHub.Data,
) where
import GitHub.Auth
import GitHub.Data
import GitHub.Internal.Prelude
import Prelude ()
-- | List Stargazers.
-- See
stargazersForR :: Name Owner -> Name Repo -> FetchCount -> Request k (Vector SimpleUser)
stargazersForR user repo =
pagedQuery ["repos", toPathPart user, toPathPart repo, "stargazers"] []
-- | List repositories being starred.
-- See
reposStarredByR :: Name Owner -> FetchCount -> Request k (Vector Repo)
reposStarredByR user =
pagedQuery ["users", toPathPart user, "starred"] []
-- | All the repos starred by the authenticated user.
-- See
myStarredR :: FetchCount -> Request 'RA (Vector Repo)
myStarredR = pagedQuery ["user", "starred"] []
-- | All the repos starred by the authenticated user.
-- See
myStarredAcceptStarR :: FetchCount -> GenRequest 'MtStar 'RA (Vector RepoStarred)
myStarredAcceptStarR = PagedQuery ["user", "starred"] []
-- | Star a repo by the authenticated user.
-- See
starRepoR :: Name Owner -> Name Repo -> GenRequest 'MtUnit 'RW ()
starRepoR user repo = Command Put paths mempty
where
paths = ["user", "starred", toPathPart user, toPathPart repo]
-- | Unstar a repo by the authenticated user.
-- See
unstarRepoR :: Name Owner -> Name Repo -> GenRequest 'MtUnit 'RW ()
unstarRepoR user repo = Command Delete paths mempty
where
paths = ["user", "starred", toPathPart user, toPathPart repo]