-- |
-- The gists API as described at .
module GitHub.Endpoints.Gists (
gistsR,
gistR,
createGistR,
starGistR,
unstarGistR,
deleteGistR,
module GitHub.Data,
) where
import GitHub.Data
import GitHub.Internal.Prelude
import Prelude ()
-- | List gists.
-- See
gistsR :: Name Owner -> FetchCount -> Request k (Vector Gist)
gistsR user = pagedQuery ["users", toPathPart user, "gists"] []
-- | Query a single gist.
-- See
gistR :: Name Gist -> Request k Gist
gistR gid =
query ["gists", toPathPart gid] []
-- | Create a new gist
-- See
createGistR :: NewGist -> Request 'RW Gist
createGistR ngist = command Post ["gists"] (encode ngist)
-- | Star a gist by the authenticated user.
-- See
starGistR :: Name Gist -> GenRequest 'MtUnit 'RW ()
starGistR gid = Command Put ["gists", toPathPart gid, "star"] mempty
-- | Unstar a gist by the authenticated user.
-- See
unstarGistR :: Name Gist -> GenRequest 'MtUnit 'RW ()
unstarGistR gid = Command Delete ["gists", toPathPart gid, "star"] mempty
-- | Delete a gist by the authenticated user.
-- See
deleteGistR :: Name Gist -> GenRequest 'MtUnit 'RW ()
deleteGistR gid = Command Delete ["gists", toPathPart gid] mempty