{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MonoLocalBinds #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
module OpenAPIPetstore.API.User where
import OpenAPIPetstore.Core
import OpenAPIPetstore.MimeTypes
import OpenAPIPetstore.Model as M
import qualified Data.Aeson as A
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
import qualified Data.Foldable as P
import qualified Data.Map as Map
import qualified Data.Maybe as P
import qualified Data.Proxy as P (Proxy(..))
import qualified Data.Set as Set
import qualified Data.String as P
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import qualified Data.Text.Lazy as TL
import qualified Data.Text.Lazy.Encoding as TL
import qualified Data.Time as TI
import qualified Network.HTTP.Client.MultipartFormData as NH
import qualified Network.HTTP.Media as ME
import qualified Network.HTTP.Types as NH
import qualified Web.FormUrlEncoded as WH
import qualified Web.HttpApiData as WH
import Data.Text (Text)
import GHC.Base ((<|>))
import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
import qualified Prelude as P
createUser
:: (Consumes CreateUser contentType, MimeRender contentType User)
=> ContentType contentType
-> User
-> OpenAPIPetstoreRequest CreateUser contentType NoContent MimeNoContent
createUser :: ContentType contentType
-> User
-> OpenAPIPetstoreRequest
CreateUser contentType NoContent MimeNoContent
createUser ContentType contentType
_ User
body =
Method
-> [ByteString]
-> OpenAPIPetstoreRequest
CreateUser contentType NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString]
-> OpenAPIPetstoreRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/user"]
OpenAPIPetstoreRequest
CreateUser contentType NoContent MimeNoContent
-> User
-> OpenAPIPetstoreRequest
CreateUser contentType NoContent MimeNoContent
forall req param contentType res accept.
(HasBodyParam req param, Consumes req contentType,
MimeRender contentType param) =>
OpenAPIPetstoreRequest req contentType res accept
-> param -> OpenAPIPetstoreRequest req contentType res accept
`setBodyParam` User
body
data CreateUser
instance HasBodyParam CreateUser User
instance MimeType mtype => Consumes CreateUser mtype
instance Produces CreateUser MimeNoContent
createUsersWithArrayInput
:: (Consumes CreateUsersWithArrayInput contentType, MimeRender contentType Body)
=> ContentType contentType
-> Body
-> OpenAPIPetstoreRequest CreateUsersWithArrayInput contentType NoContent MimeNoContent
createUsersWithArrayInput :: ContentType contentType
-> Body
-> OpenAPIPetstoreRequest
CreateUsersWithArrayInput contentType NoContent MimeNoContent
createUsersWithArrayInput ContentType contentType
_ Body
body =
Method
-> [ByteString]
-> OpenAPIPetstoreRequest
CreateUsersWithArrayInput contentType NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString]
-> OpenAPIPetstoreRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/user/createWithArray"]
OpenAPIPetstoreRequest
CreateUsersWithArrayInput contentType NoContent MimeNoContent
-> Body
-> OpenAPIPetstoreRequest
CreateUsersWithArrayInput contentType NoContent MimeNoContent
forall req param contentType res accept.
(HasBodyParam req param, Consumes req contentType,
MimeRender contentType param) =>
OpenAPIPetstoreRequest req contentType res accept
-> param -> OpenAPIPetstoreRequest req contentType res accept
`setBodyParam` Body
body
data CreateUsersWithArrayInput
instance HasBodyParam CreateUsersWithArrayInput Body
instance MimeType mtype => Consumes CreateUsersWithArrayInput mtype
instance Produces CreateUsersWithArrayInput MimeNoContent
createUsersWithListInput
:: (Consumes CreateUsersWithListInput contentType, MimeRender contentType Body)
=> ContentType contentType
-> Body
-> OpenAPIPetstoreRequest CreateUsersWithListInput contentType NoContent MimeNoContent
createUsersWithListInput :: ContentType contentType
-> Body
-> OpenAPIPetstoreRequest
CreateUsersWithListInput contentType NoContent MimeNoContent
createUsersWithListInput ContentType contentType
_ Body
body =
Method
-> [ByteString]
-> OpenAPIPetstoreRequest
CreateUsersWithListInput contentType NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString]
-> OpenAPIPetstoreRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/user/createWithList"]
OpenAPIPetstoreRequest
CreateUsersWithListInput contentType NoContent MimeNoContent
-> Body
-> OpenAPIPetstoreRequest
CreateUsersWithListInput contentType NoContent MimeNoContent
forall req param contentType res accept.
(HasBodyParam req param, Consumes req contentType,
MimeRender contentType param) =>
OpenAPIPetstoreRequest req contentType res accept
-> param -> OpenAPIPetstoreRequest req contentType res accept
`setBodyParam` Body
body
data CreateUsersWithListInput
instance HasBodyParam CreateUsersWithListInput Body
instance MimeType mtype => Consumes CreateUsersWithListInput mtype
instance Produces CreateUsersWithListInput MimeNoContent
deleteUser
:: Username
-> OpenAPIPetstoreRequest DeleteUser MimeNoContent NoContent MimeNoContent
deleteUser :: Username
-> OpenAPIPetstoreRequest
DeleteUser MimeNoContent NoContent MimeNoContent
deleteUser (Username Text
username) =
Method
-> [ByteString]
-> OpenAPIPetstoreRequest
DeleteUser MimeNoContent NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString]
-> OpenAPIPetstoreRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/user/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
username]
data DeleteUser
instance Produces DeleteUser MimeNoContent
getUserByName
:: Accept accept
-> Username
-> OpenAPIPetstoreRequest GetUserByName MimeNoContent User accept
getUserByName :: Accept accept
-> Username
-> OpenAPIPetstoreRequest GetUserByName MimeNoContent User accept
getUserByName Accept accept
_ (Username Text
username) =
Method
-> [ByteString]
-> OpenAPIPetstoreRequest GetUserByName MimeNoContent User accept
forall req contentType res accept.
Method
-> [ByteString]
-> OpenAPIPetstoreRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/user/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
username]
data GetUserByName
instance Produces GetUserByName MimeXML
instance Produces GetUserByName MimeJSON
loginUser
:: Accept accept
-> Username
-> Password
-> OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
loginUser :: Accept accept
-> Username
-> Password
-> OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
loginUser Accept accept
_ (Username Text
username) (Password Text
password) =
Method
-> [ByteString]
-> OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
forall req contentType res accept.
Method
-> [ByteString]
-> OpenAPIPetstoreRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/user/login"]
OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
-> [QueryItem]
-> OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
forall req contentType res accept.
OpenAPIPetstoreRequest req contentType res accept
-> [QueryItem] -> OpenAPIPetstoreRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"username", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
username)
OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
-> [QueryItem]
-> OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
forall req contentType res accept.
OpenAPIPetstoreRequest req contentType res accept
-> [QueryItem] -> OpenAPIPetstoreRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"password", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
password)
data LoginUser
instance Produces LoginUser MimeXML
instance Produces LoginUser MimeJSON
logoutUser
:: OpenAPIPetstoreRequest LogoutUser MimeNoContent NoContent MimeNoContent
logoutUser :: OpenAPIPetstoreRequest
LogoutUser MimeNoContent NoContent MimeNoContent
logoutUser =
Method
-> [ByteString]
-> OpenAPIPetstoreRequest
LogoutUser MimeNoContent NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString]
-> OpenAPIPetstoreRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/user/logout"]
data LogoutUser
instance Produces LogoutUser MimeNoContent
updateUser
:: (Consumes UpdateUser contentType, MimeRender contentType User)
=> ContentType contentType
-> User
-> Username
-> OpenAPIPetstoreRequest UpdateUser contentType NoContent MimeNoContent
updateUser :: ContentType contentType
-> User
-> Username
-> OpenAPIPetstoreRequest
UpdateUser contentType NoContent MimeNoContent
updateUser ContentType contentType
_ User
body (Username Text
username) =
Method
-> [ByteString]
-> OpenAPIPetstoreRequest
UpdateUser contentType NoContent MimeNoContent
forall req contentType res accept.
Method
-> [ByteString]
-> OpenAPIPetstoreRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/user/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
username]
OpenAPIPetstoreRequest
UpdateUser contentType NoContent MimeNoContent
-> User
-> OpenAPIPetstoreRequest
UpdateUser contentType NoContent MimeNoContent
forall req param contentType res accept.
(HasBodyParam req param, Consumes req contentType,
MimeRender contentType param) =>
OpenAPIPetstoreRequest req contentType res accept
-> param -> OpenAPIPetstoreRequest req contentType res accept
`setBodyParam` User
body
data UpdateUser
instance HasBodyParam UpdateUser User
instance MimeType mtype => Consumes UpdateUser mtype
instance Produces UpdateUser MimeNoContent