{-# 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 Httpstan.API.ApiDefault where
import Httpstan.Core
import Httpstan.MimeTypes
import Httpstan.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
v1HealthGet
:: HttpstanRequest V1HealthGet MimeNoContent NoContent MimeNoContent
v1HealthGet :: HttpstanRequest V1HealthGet MimeNoContent NoContent MimeNoContent
v1HealthGet =
forall req contentType res accept.
Method
-> [ByteString] -> HttpstanRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/v1/health"]
data V1HealthGet
instance Produces V1HealthGet MimeNoContent
v1ModelsGet
:: HttpstanRequest V1ModelsGet MimeNoContent V1ModelsGet200Response MimeJSON
v1ModelsGet :: HttpstanRequest
V1ModelsGet MimeNoContent V1ModelsGet200Response MimeJSON
v1ModelsGet =
forall req contentType res accept.
Method
-> [ByteString] -> HttpstanRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/v1/models"]
data V1ModelsGet
instance Produces V1ModelsGet MimeJSON
v1ModelsModelIdDelete
:: ModelId
-> HttpstanRequest V1ModelsModelIdDelete MimeNoContent NoContent MimeNoContent
v1ModelsModelIdDelete :: ModelId
-> HttpstanRequest
V1ModelsModelIdDelete MimeNoContent NoContent MimeNoContent
v1ModelsModelIdDelete (ModelId Text
modelId) =
forall req contentType res accept.
Method
-> [ByteString] -> HttpstanRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/v1/models/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
modelId]
data V1ModelsModelIdDelete
instance Produces V1ModelsModelIdDelete MimeNoContent
v1ModelsModelIdFitsFitIdDelete
:: ModelId
-> FitId
-> HttpstanRequest V1ModelsModelIdFitsFitIdDelete MimeNoContent NoContent MimeNoContent
v1ModelsModelIdFitsFitIdDelete :: ModelId
-> FitId
-> HttpstanRequest
V1ModelsModelIdFitsFitIdDelete
MimeNoContent
NoContent
MimeNoContent
v1ModelsModelIdFitsFitIdDelete (ModelId Text
modelId) (FitId Text
fitId) =
forall req contentType res accept.
Method
-> [ByteString] -> HttpstanRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/v1/models/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
modelId,ByteString
"/fits/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
fitId]
data V1ModelsModelIdFitsFitIdDelete
instance Produces V1ModelsModelIdFitsFitIdDelete MimeNoContent
v1ModelsModelIdFitsFitIdGet
:: ModelId
-> FitId
-> HttpstanRequest V1ModelsModelIdFitsFitIdGet MimeNoContent NoContent MimeNoContent
v1ModelsModelIdFitsFitIdGet :: ModelId
-> FitId
-> HttpstanRequest
V1ModelsModelIdFitsFitIdGet MimeNoContent NoContent MimeNoContent
v1ModelsModelIdFitsFitIdGet (ModelId Text
modelId) (FitId Text
fitId) =
forall req contentType res accept.
Method
-> [ByteString] -> HttpstanRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/v1/models/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
modelId,ByteString
"/fits/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
fitId]
data V1ModelsModelIdFitsFitIdGet
instance Produces V1ModelsModelIdFitsFitIdGet MimeNoContent
v1ModelsModelIdFitsPost
:: (Consumes V1ModelsModelIdFitsPost MimeJSON, MimeRender MimeJSON CreateFitRequest)
=> CreateFitRequest
-> ModelId
-> HttpstanRequest V1ModelsModelIdFitsPost MimeJSON Fit MimeJSON
v1ModelsModelIdFitsPost :: (Consumes V1ModelsModelIdFitsPost MimeJSON,
MimeRender MimeJSON CreateFitRequest) =>
CreateFitRequest
-> ModelId
-> HttpstanRequest V1ModelsModelIdFitsPost MimeJSON Fit MimeJSON
v1ModelsModelIdFitsPost CreateFitRequest
body (ModelId Text
modelId) =
forall req contentType res accept.
Method
-> [ByteString] -> HttpstanRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/v1/models/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
modelId,ByteString
"/fits"]
forall req param contentType res accept.
(HasBodyParam req param, Consumes req contentType,
MimeRender contentType param) =>
HttpstanRequest req contentType res accept
-> param -> HttpstanRequest req contentType res accept
`setBodyParam` CreateFitRequest
body
data V1ModelsModelIdFitsPost
instance HasBodyParam V1ModelsModelIdFitsPost CreateFitRequest
instance Consumes V1ModelsModelIdFitsPost MimeJSON
instance Produces V1ModelsModelIdFitsPost MimeJSON
v1ModelsModelIdLogProbGradPost
:: (Consumes V1ModelsModelIdLogProbGradPost MimeJSON)
=> ModelId
-> HttpstanRequest V1ModelsModelIdLogProbGradPost MimeJSON V1ModelsModelIdLogProbGradPost200Response MimeJSON
v1ModelsModelIdLogProbGradPost :: Consumes V1ModelsModelIdLogProbGradPost MimeJSON =>
ModelId
-> HttpstanRequest
V1ModelsModelIdLogProbGradPost
MimeJSON
V1ModelsModelIdLogProbGradPost200Response
MimeJSON
v1ModelsModelIdLogProbGradPost (ModelId Text
modelId) =
forall req contentType res accept.
Method
-> [ByteString] -> HttpstanRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/v1/models/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
modelId,ByteString
"/log_prob_grad"]
data V1ModelsModelIdLogProbGradPost
instance HasBodyParam V1ModelsModelIdLogProbGradPost AdjustTransform
instance Consumes V1ModelsModelIdLogProbGradPost MimeJSON
instance Produces V1ModelsModelIdLogProbGradPost MimeJSON
v1ModelsModelIdLogProbPost
:: (Consumes V1ModelsModelIdLogProbPost MimeJSON)
=> ModelId
-> HttpstanRequest V1ModelsModelIdLogProbPost MimeJSON V1ModelsModelIdLogProbPost200Response MimeJSON
v1ModelsModelIdLogProbPost :: Consumes V1ModelsModelIdLogProbPost MimeJSON =>
ModelId
-> HttpstanRequest
V1ModelsModelIdLogProbPost
MimeJSON
V1ModelsModelIdLogProbPost200Response
MimeJSON
v1ModelsModelIdLogProbPost (ModelId Text
modelId) =
forall req contentType res accept.
Method
-> [ByteString] -> HttpstanRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/v1/models/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
modelId,ByteString
"/log_prob"]
data V1ModelsModelIdLogProbPost
instance HasBodyParam V1ModelsModelIdLogProbPost AdjustTransform
instance Consumes V1ModelsModelIdLogProbPost MimeJSON
instance Produces V1ModelsModelIdLogProbPost MimeJSON
v1ModelsModelIdParamsPost
:: (Consumes V1ModelsModelIdParamsPost MimeJSON, MimeRender MimeJSON ParamData)
=> ParamData
-> ModelId
-> HttpstanRequest V1ModelsModelIdParamsPost MimeJSON V1ModelsModelIdParamsPost200Response MimeJSON
v1ModelsModelIdParamsPost :: (Consumes V1ModelsModelIdParamsPost MimeJSON,
MimeRender MimeJSON ParamData) =>
ParamData
-> ModelId
-> HttpstanRequest
V1ModelsModelIdParamsPost
MimeJSON
V1ModelsModelIdParamsPost200Response
MimeJSON
v1ModelsModelIdParamsPost ParamData
_data (ModelId Text
modelId) =
forall req contentType res accept.
Method
-> [ByteString] -> HttpstanRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/v1/models/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
modelId,ByteString
"/params"]
forall req param contentType res accept.
(HasBodyParam req param, Consumes req contentType,
MimeRender contentType param) =>
HttpstanRequest req contentType res accept
-> param -> HttpstanRequest req contentType res accept
`setBodyParam` ParamData
_data
data V1ModelsModelIdParamsPost
instance HasBodyParam V1ModelsModelIdParamsPost ParamData
instance Consumes V1ModelsModelIdParamsPost MimeJSON
instance Produces V1ModelsModelIdParamsPost MimeJSON
v1ModelsModelIdTransformInitsPost
:: (Consumes V1ModelsModelIdTransformInitsPost MimeJSON, MimeRender MimeJSON ConstrainedParameters)
=> ConstrainedParameters
-> ModelId
-> HttpstanRequest V1ModelsModelIdTransformInitsPost MimeJSON V1ModelsModelIdTransformInitsPost200Response MimeJSON
v1ModelsModelIdTransformInitsPost :: (Consumes V1ModelsModelIdTransformInitsPost MimeJSON,
MimeRender MimeJSON ConstrainedParameters) =>
ConstrainedParameters
-> ModelId
-> HttpstanRequest
V1ModelsModelIdTransformInitsPost
MimeJSON
V1ModelsModelIdTransformInitsPost200Response
MimeJSON
v1ModelsModelIdTransformInitsPost ConstrainedParameters
constrainedParameters (ModelId Text
modelId) =
forall req contentType res accept.
Method
-> [ByteString] -> HttpstanRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/v1/models/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
modelId,ByteString
"/transform_inits"]
forall req param contentType res accept.
(HasBodyParam req param, Consumes req contentType,
MimeRender contentType param) =>
HttpstanRequest req contentType res accept
-> param -> HttpstanRequest req contentType res accept
`setBodyParam` ConstrainedParameters
constrainedParameters
data V1ModelsModelIdTransformInitsPost
instance HasBodyParam V1ModelsModelIdTransformInitsPost ConstrainedParameters
instance Consumes V1ModelsModelIdTransformInitsPost MimeJSON
instance Produces V1ModelsModelIdTransformInitsPost MimeJSON
v1ModelsModelIdWriteArrayPost
:: (Consumes V1ModelsModelIdWriteArrayPost MimeJSON, MimeRender MimeJSON IncludeGqs)
=> IncludeGqs
-> ModelId
-> HttpstanRequest V1ModelsModelIdWriteArrayPost MimeJSON V1ModelsModelIdWriteArrayPost200Response MimeJSON
v1ModelsModelIdWriteArrayPost :: (Consumes V1ModelsModelIdWriteArrayPost MimeJSON,
MimeRender MimeJSON IncludeGqs) =>
IncludeGqs
-> ModelId
-> HttpstanRequest
V1ModelsModelIdWriteArrayPost
MimeJSON
V1ModelsModelIdWriteArrayPost200Response
MimeJSON
v1ModelsModelIdWriteArrayPost IncludeGqs
includeGqs (ModelId Text
modelId) =
forall req contentType res accept.
Method
-> [ByteString] -> HttpstanRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/v1/models/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
modelId,ByteString
"/write_array"]
forall req param contentType res accept.
(HasBodyParam req param, Consumes req contentType,
MimeRender contentType param) =>
HttpstanRequest req contentType res accept
-> param -> HttpstanRequest req contentType res accept
`setBodyParam` IncludeGqs
includeGqs
data V1ModelsModelIdWriteArrayPost
instance HasBodyParam V1ModelsModelIdWriteArrayPost IncludeGqs
instance Consumes V1ModelsModelIdWriteArrayPost MimeJSON
instance Produces V1ModelsModelIdWriteArrayPost MimeJSON
v1ModelsPost
:: (Consumes V1ModelsPost MimeJSON, MimeRender MimeJSON CreateModelRequest)
=> CreateModelRequest
-> HttpstanRequest V1ModelsPost MimeJSON Model MimeJSON
v1ModelsPost :: (Consumes V1ModelsPost MimeJSON,
MimeRender MimeJSON CreateModelRequest) =>
CreateModelRequest
-> HttpstanRequest V1ModelsPost MimeJSON Model MimeJSON
v1ModelsPost CreateModelRequest
body =
forall req contentType res accept.
Method
-> [ByteString] -> HttpstanRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/v1/models"]
forall req param contentType res accept.
(HasBodyParam req param, Consumes req contentType,
MimeRender contentType param) =>
HttpstanRequest req contentType res accept
-> param -> HttpstanRequest req contentType res accept
`setBodyParam` CreateModelRequest
body
data V1ModelsPost
instance HasBodyParam V1ModelsPost CreateModelRequest
instance Consumes V1ModelsPost MimeJSON
instance Produces V1ModelsPost MimeJSON
v1OperationsOperationIdGet
:: OperationId
-> HttpstanRequest V1OperationsOperationIdGet MimeNoContent Operation MimeJSON
v1OperationsOperationIdGet :: OperationId
-> HttpstanRequest
V1OperationsOperationIdGet MimeNoContent Operation MimeJSON
v1OperationsOperationIdGet (OperationId Text
operationId) =
forall req contentType res accept.
Method
-> [ByteString] -> HttpstanRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/v1/operations/",forall a. ToHttpApiData a => a -> ByteString
toPath Text
operationId]
data V1OperationsOperationIdGet
instance Produces V1OperationsOperationIdGet MimeJSON