module SwaggerPetstore.API.User where
import SwaggerPetstore.Core
import SwaggerPetstore.MimeTypes
import SwaggerPetstore.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
-> Accept accept
-> User
-> SwaggerPetstoreRequest CreateUser contentType res accept
createUser _ _ body =
_mkRequest "POST" ["/user"]
`setBodyParam` body
data CreateUser
instance HasBodyParam CreateUser User
instance Produces CreateUser MimeXML
instance Produces CreateUser MimeJSON
createUsersWithArrayInput
:: (Consumes CreateUsersWithArrayInput contentType, MimeRender contentType Body)
=> ContentType contentType
-> Accept accept
-> Body
-> SwaggerPetstoreRequest CreateUsersWithArrayInput contentType res accept
createUsersWithArrayInput _ _ body =
_mkRequest "POST" ["/user/createWithArray"]
`setBodyParam` body
data CreateUsersWithArrayInput
instance HasBodyParam CreateUsersWithArrayInput Body
instance Produces CreateUsersWithArrayInput MimeXML
instance Produces CreateUsersWithArrayInput MimeJSON
createUsersWithListInput
:: (Consumes CreateUsersWithListInput contentType, MimeRender contentType Body)
=> ContentType contentType
-> Accept accept
-> Body
-> SwaggerPetstoreRequest CreateUsersWithListInput contentType res accept
createUsersWithListInput _ _ body =
_mkRequest "POST" ["/user/createWithList"]
`setBodyParam` body
data CreateUsersWithListInput
instance HasBodyParam CreateUsersWithListInput Body
instance Produces CreateUsersWithListInput MimeXML
instance Produces CreateUsersWithListInput MimeJSON
deleteUser
:: Accept accept
-> Username
-> SwaggerPetstoreRequest DeleteUser MimeNoContent res accept
deleteUser _ (Username username) =
_mkRequest "DELETE" ["/user/",toPath username]
data DeleteUser
instance Produces DeleteUser MimeXML
instance Produces DeleteUser MimeJSON
getUserByName
:: Accept accept
-> Username
-> SwaggerPetstoreRequest GetUserByName MimeNoContent User accept
getUserByName _ (Username username) =
_mkRequest "GET" ["/user/",toPath username]
data GetUserByName
instance Produces GetUserByName MimeXML
instance Produces GetUserByName MimeJSON
loginUser
:: Accept accept
-> Username
-> Password
-> SwaggerPetstoreRequest LoginUser MimeNoContent Text accept
loginUser _ (Username username) (Password password) =
_mkRequest "GET" ["/user/login"]
`setQuery` toQuery ("username", Just username)
`setQuery` toQuery ("password", Just password)
data LoginUser
instance Produces LoginUser MimeXML
instance Produces LoginUser MimeJSON
logoutUser
:: Accept accept
-> SwaggerPetstoreRequest LogoutUser MimeNoContent res accept
logoutUser _ =
_mkRequest "GET" ["/user/logout"]
data LogoutUser
instance Produces LogoutUser MimeXML
instance Produces LogoutUser MimeJSON
updateUser
:: (Consumes UpdateUser contentType, MimeRender contentType User)
=> ContentType contentType
-> Accept accept
-> Username
-> User
-> SwaggerPetstoreRequest UpdateUser contentType res accept
updateUser _ _ (Username username) body =
_mkRequest "PUT" ["/user/",toPath username]
`setBodyParam` body
data UpdateUser
instance HasBodyParam UpdateUser User
instance Produces UpdateUser MimeXML
instance Produces UpdateUser MimeJSON