module GitHub.Endpoints.Gists (
gists,
gists',
gistsR,
gist,
gist',
gistR,
starGist,
starGistR,
unstarGist,
unstarGistR,
deleteGist,
deleteGistR,
module GitHub.Data,
) where
import GitHub.Data
import GitHub.Internal.Prelude
import GitHub.Request
import Prelude ()
gists' :: Maybe Auth -> Name Owner -> IO (Either Error (Vector Gist))
gists' :: Maybe Auth -> Name Owner -> IO (Either Error (Vector Gist))
gists' auth :: Maybe Auth
auth user :: Name Owner
user =
Maybe Auth
-> GenRequest 'MtJSON 'RO (Vector Gist)
-> IO (Either Error (Vector Gist))
forall am (mt :: MediaType *) a.
(AuthMethod am, ParseResponse mt a) =>
Maybe am -> GenRequest mt 'RO a -> IO (Either Error a)
executeRequestMaybe Maybe Auth
auth (GenRequest 'MtJSON 'RO (Vector Gist)
-> IO (Either Error (Vector Gist)))
-> GenRequest 'MtJSON 'RO (Vector Gist)
-> IO (Either Error (Vector Gist))
forall a b. (a -> b) -> a -> b
$ Name Owner -> FetchCount -> GenRequest 'MtJSON 'RO (Vector Gist)
forall (k :: RW).
Name Owner -> FetchCount -> Request k (Vector Gist)
gistsR Name Owner
user FetchCount
FetchAll
gists :: Name Owner -> IO (Either Error (Vector Gist))
gists :: Name Owner -> IO (Either Error (Vector Gist))
gists = Maybe Auth -> Name Owner -> IO (Either Error (Vector Gist))
gists' Maybe Auth
forall a. Maybe a
Nothing
gistsR :: Name Owner -> FetchCount -> Request k (Vector Gist)
gistsR :: Name Owner -> FetchCount -> Request k (Vector Gist)
gistsR user :: Name Owner
user = Paths -> QueryString -> FetchCount -> Request k (Vector Gist)
forall a (mt :: RW).
FromJSON a =>
Paths -> QueryString -> FetchCount -> Request mt (Vector a)
pagedQuery ["users", Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
user, "gists"] []
gist' :: Maybe Auth -> Name Gist -> IO (Either Error Gist)
gist' :: Maybe Auth -> Name Gist -> IO (Either Error Gist)
gist' auth :: Maybe Auth
auth gid :: Name Gist
gid =
Maybe Auth -> GenRequest 'MtJSON 'RO Gist -> IO (Either Error Gist)
forall am (mt :: MediaType *) a.
(AuthMethod am, ParseResponse mt a) =>
Maybe am -> GenRequest mt 'RO a -> IO (Either Error a)
executeRequestMaybe Maybe Auth
auth (GenRequest 'MtJSON 'RO Gist -> IO (Either Error Gist))
-> GenRequest 'MtJSON 'RO Gist -> IO (Either Error Gist)
forall a b. (a -> b) -> a -> b
$ Name Gist -> GenRequest 'MtJSON 'RO Gist
forall (k :: RW). Name Gist -> Request k Gist
gistR Name Gist
gid
gist :: Name Gist -> IO (Either Error Gist)
gist :: Name Gist -> IO (Either Error Gist)
gist = Maybe Auth -> Name Gist -> IO (Either Error Gist)
gist' Maybe Auth
forall a. Maybe a
Nothing
gistR :: Name Gist -> Request k Gist
gistR :: Name Gist -> Request k Gist
gistR gid :: Name Gist
gid =
Paths -> QueryString -> Request k Gist
forall (mt :: RW) a. Paths -> QueryString -> Request mt a
query ["gists", Name Gist -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Gist
gid] []
starGist :: Auth -> Name Gist -> IO (Either Error ())
starGist :: Auth -> Name Gist -> IO (Either Error ())
starGist auth :: Auth
auth gid :: Name Gist
gid = Auth -> GenRequest 'MtUnit 'RW () -> IO (Either Error ())
forall am (mt :: MediaType *) a (rw :: RW).
(AuthMethod am, ParseResponse mt a) =>
am -> GenRequest mt rw a -> IO (Either Error a)
executeRequest Auth
auth (GenRequest 'MtUnit 'RW () -> IO (Either Error ()))
-> GenRequest 'MtUnit 'RW () -> IO (Either Error ())
forall a b. (a -> b) -> a -> b
$ Name Gist -> GenRequest 'MtUnit 'RW ()
starGistR Name Gist
gid
starGistR :: Name Gist -> GenRequest 'MtUnit 'RW ()
starGistR :: Name Gist -> GenRequest 'MtUnit 'RW ()
starGistR gid :: Name Gist
gid = CommandMethod -> Paths -> ByteString -> GenRequest 'MtUnit 'RW ()
forall (mt :: MediaType *) a.
CommandMethod -> Paths -> ByteString -> GenRequest mt 'RW a
Command CommandMethod
Put ["gists", Name Gist -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Gist
gid, "star"] ByteString
forall a. Monoid a => a
mempty
unstarGist :: Auth -> Name Gist -> IO (Either Error ())
unstarGist :: Auth -> Name Gist -> IO (Either Error ())
unstarGist auth :: Auth
auth gid :: Name Gist
gid = Auth -> GenRequest 'MtUnit 'RW () -> IO (Either Error ())
forall am (mt :: MediaType *) a (rw :: RW).
(AuthMethod am, ParseResponse mt a) =>
am -> GenRequest mt rw a -> IO (Either Error a)
executeRequest Auth
auth (GenRequest 'MtUnit 'RW () -> IO (Either Error ()))
-> GenRequest 'MtUnit 'RW () -> IO (Either Error ())
forall a b. (a -> b) -> a -> b
$ Name Gist -> GenRequest 'MtUnit 'RW ()
unstarGistR Name Gist
gid
unstarGistR :: Name Gist -> GenRequest 'MtUnit 'RW ()
unstarGistR :: Name Gist -> GenRequest 'MtUnit 'RW ()
unstarGistR gid :: Name Gist
gid = CommandMethod -> Paths -> ByteString -> GenRequest 'MtUnit 'RW ()
forall (mt :: MediaType *) a.
CommandMethod -> Paths -> ByteString -> GenRequest mt 'RW a
Command CommandMethod
Delete ["gists", Name Gist -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Gist
gid, "star"] ByteString
forall a. Monoid a => a
mempty
deleteGist :: Auth -> Name Gist -> IO (Either Error ())
deleteGist :: Auth -> Name Gist -> IO (Either Error ())
deleteGist auth :: Auth
auth gid :: Name Gist
gid = Auth -> GenRequest 'MtUnit 'RW () -> IO (Either Error ())
forall am (mt :: MediaType *) a (rw :: RW).
(AuthMethod am, ParseResponse mt a) =>
am -> GenRequest mt rw a -> IO (Either Error a)
executeRequest Auth
auth (GenRequest 'MtUnit 'RW () -> IO (Either Error ()))
-> GenRequest 'MtUnit 'RW () -> IO (Either Error ())
forall a b. (a -> b) -> a -> b
$ Name Gist -> GenRequest 'MtUnit 'RW ()
deleteGistR Name Gist
gid
deleteGistR :: Name Gist -> GenRequest 'MtUnit 'RW ()
deleteGistR :: Name Gist -> GenRequest 'MtUnit 'RW ()
deleteGistR gid :: Name Gist
gid = CommandMethod -> Paths -> ByteString -> GenRequest 'MtUnit 'RW ()
forall (mt :: MediaType *) a.
CommandMethod -> Paths -> ByteString -> GenRequest mt 'RW a
Command CommandMethod
Delete ["gists", Name Gist -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Gist
gid] ByteString
forall a. Monoid a => a
mempty