forked from loafle/openapi-generator-original
Merge branch 'master' of https://github.com/swagger-api/swagger-codegen
This commit is contained in:
commit
a2cb35b1e9
@ -28,4 +28,5 @@ fi
|
||||
export JAVA_OPTS="${JAVA_OPTS} -XX:MaxPermSize=256M -Xmx1024M -DloggerPath=conf/log4j.properties"
|
||||
ags="$@ generate -t modules/swagger-codegen/src/main/resources/haskell-http-client -i modules/swagger-codegen/src/test/resources/2_0/petstore.yaml -l haskell-http-client -o samples/client/petstore/haskell-http-client"
|
||||
|
||||
echo "java ${JAVA_OPTS} -jar ${executable} ${ags}"
|
||||
java $JAVA_OPTS -jar $executable $ags
|
||||
|
@ -42,7 +42,6 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
protected String artifactId = "swagger-haskell-http-client";
|
||||
protected String artifactVersion = "1.0.0";
|
||||
|
||||
protected String defaultDateTimeFormat = "%Y-%m-%dT%H:%M:%S%Q%z";
|
||||
protected String defaultDateFormat = "%Y-%m-%d";
|
||||
|
||||
// CLI
|
||||
@ -54,6 +53,7 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
public static final String GENERATE_LENSES = "generateLenses";
|
||||
public static final String GENERATE_MODEL_CONSTRUCTORS = "generateModelConstructors";
|
||||
public static final String MODEL_DERIVING = "modelDeriving";
|
||||
public static final String STRICT_FIELDS = "strictFields";
|
||||
|
||||
// protected String MODEL_IMPORTS = "modelImports";
|
||||
// protected String MODEL_EXTENSIONS = "modelExtensions";
|
||||
@ -182,21 +182,22 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
importMapping.clear();
|
||||
importMapping.put("Map", "qualified Data.Map as Map");
|
||||
|
||||
cliOptions.add(new CliOption(CodegenConstants.MODEL_PACKAGE, CodegenConstants.MODEL_PACKAGE_DESC));
|
||||
cliOptions.add(new CliOption(CodegenConstants.API_PACKAGE, CodegenConstants.API_PACKAGE_DESC));
|
||||
cliOptions.add(CliOption.newString(CodegenConstants.MODEL_PACKAGE, CodegenConstants.MODEL_PACKAGE_DESC));
|
||||
cliOptions.add(CliOption.newString(CodegenConstants.API_PACKAGE, CodegenConstants.API_PACKAGE_DESC));
|
||||
|
||||
cliOptions.add(new CliOption(ALLOW_FROMJSON_NULLS, "allow JSON Null during model decoding from JSON").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(new CliOption(ALLOW_TOJSON_NULLS, "allow emitting JSON Null during model encoding to JSON").defaultValue(Boolean.FALSE.toString()));
|
||||
cliOptions.add(new CliOption(GENERATE_LENSES, "Generate Lens optics for Models").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(new CliOption(GENERATE_MODEL_CONSTRUCTORS, "Generate smart constructors (only supply required fields) for models").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(new CliOption(GENERATE_FORM_URLENCODED_INSTANCES, "Generate FromForm/ToForm instances for models that are used by operations that produce or consume application/x-www-form-urlencoded").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(ALLOW_FROMJSON_NULLS, "allow JSON Null during model decoding from JSON").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(ALLOW_TOJSON_NULLS, "allow emitting JSON Null during model encoding to JSON").defaultValue(Boolean.FALSE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(GENERATE_LENSES, "Generate Lens optics for Models").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(GENERATE_MODEL_CONSTRUCTORS, "Generate smart constructors (only supply required fields) for models").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(GENERATE_FORM_URLENCODED_INSTANCES, "Generate FromForm/ToForm instances for models that are used by operations that produce or consume application/x-www-form-urlencoded").defaultValue(Boolean.TRUE.toString()));
|
||||
|
||||
cliOptions.add(new CliOption(MODEL_DERIVING, "Additional classes to include in the deriving() clause of Models"));
|
||||
cliOptions.add(CliOption.newString(MODEL_DERIVING, "Additional classes to include in the deriving() clause of Models"));
|
||||
cliOptions.add(CliOption.newBoolean(STRICT_FIELDS, "Add strictness annotations to all model fields").defaultValue((Boolean.FALSE.toString())));
|
||||
|
||||
cliOptions.add(new CliOption(DATETIME_FORMAT, "format string used to parse/render a datetime").defaultValue(defaultDateTimeFormat));
|
||||
cliOptions.add(new CliOption(DATE_FORMAT, "format string used to parse/render a date").defaultValue(defaultDateFormat));
|
||||
cliOptions.add(CliOption.newString(DATETIME_FORMAT, "format string used to parse/render a datetime"));
|
||||
cliOptions.add(CliOption.newString(DATE_FORMAT, "format string used to parse/render a date").defaultValue(defaultDateFormat));
|
||||
|
||||
cliOptions.add(new CliOption(CodegenConstants.HIDE_GENERATION_TIMESTAMP, "hides the timestamp when files were generated").defaultValue(Boolean.TRUE.toString()));
|
||||
cliOptions.add(CliOption.newBoolean(CodegenConstants.HIDE_GENERATION_TIMESTAMP, "hides the timestamp when files were generated").defaultValue(Boolean.TRUE.toString()));
|
||||
|
||||
// cliOptions.add(new CliOption(MODEL_IMPORTS, "Additional imports in the Models file"));
|
||||
// cliOptions.add(new CliOption(MODEL_EXTENSIONS, "Additional extensions in the Models file"));
|
||||
@ -241,12 +242,16 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
|
||||
public void setDateFormat(String value) {
|
||||
if (StringUtils.isBlank(value)) {
|
||||
additionalProperties.put(DATE_FORMAT, defaultDateFormat);
|
||||
additionalProperties.remove(DATE_FORMAT);
|
||||
} else {
|
||||
additionalProperties.put(DATE_FORMAT, value);
|
||||
}
|
||||
}
|
||||
|
||||
public void setStrictFields(Boolean value) {
|
||||
additionalProperties.put("x-strictFields", value);
|
||||
}
|
||||
|
||||
@Override
|
||||
public void processOpts() {
|
||||
super.processOpts();
|
||||
@ -296,13 +301,19 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
|
||||
if (additionalProperties.containsKey(DATETIME_FORMAT)) {
|
||||
setDateTimeFormat(additionalProperties.get(DATETIME_FORMAT).toString());
|
||||
} else {
|
||||
setDateTimeFormat(null);
|
||||
setDateTimeFormat(null); // default should be null
|
||||
}
|
||||
|
||||
if (additionalProperties.containsKey(DATE_FORMAT)) {
|
||||
setDateFormat(additionalProperties.get(DATE_FORMAT).toString());
|
||||
} else {
|
||||
setDateFormat(null);
|
||||
setDateFormat(defaultDateFormat);
|
||||
}
|
||||
|
||||
if (additionalProperties.containsKey(STRICT_FIELDS)) {
|
||||
setStrictFields(convertPropertyToBoolean(STRICT_FIELDS));
|
||||
} else {
|
||||
setStrictFields(false);
|
||||
}
|
||||
|
||||
}
|
||||
|
@ -11,13 +11,15 @@ Module : {{title}}.API
|
||||
{-# LANGUAGE FlexibleContexts #-}
|
||||
{-# LANGUAGE ConstraintKinds #-}
|
||||
{-# LANGUAGE InstanceSigs #-}
|
||||
{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-}
|
||||
{-# LANGUAGE NamedFieldPuns #-}
|
||||
{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
|
||||
|
||||
module {{title}}.API where
|
||||
|
||||
|
||||
import {{title}}.Model as M
|
||||
import {{title}}.MimeTypes
|
||||
import {{title}}.Lens
|
||||
|
||||
import qualified Data.Aeson as A
|
||||
import Data.Aeson (Value)
|
||||
@ -52,6 +54,8 @@ import qualified Data.Text.Lazy.Encoding as TL
|
||||
import qualified GHC.Base as P (Alternative)
|
||||
import qualified Control.Arrow as P (left)
|
||||
|
||||
import qualified Lens.Micro as L
|
||||
|
||||
import Data.Monoid ((<>))
|
||||
import Data.Function ((&))
|
||||
import Data.Set (Set)
|
||||
@ -144,11 +148,26 @@ newtype {{{vendorExtensions.x-paramNameType}}} = {{{vendorExtensions.x-paramName
|
||||
-- | Represents a request. The "req" type variable is the request type. The "res" type variable is the response type.
|
||||
data {{requestType}} req contentType res = {{requestType}}
|
||||
{ rMethod :: NH.Method -- ^ Method of {{requestType}}
|
||||
, urlPath :: [BCL.ByteString] -- ^ Endpoint of {{requestType}}
|
||||
, params :: Params -- ^ params of {{requestType}}
|
||||
, rUrlPath :: [BCL.ByteString] -- ^ Endpoint of {{requestType}}
|
||||
, rParams :: Params -- ^ params of {{requestType}}
|
||||
}
|
||||
deriving (P.Show)
|
||||
|
||||
-- | 'rMethod' Lens
|
||||
rMethodL :: Lens_' ({{requestType}} req contentType res) NH.Method
|
||||
rMethodL f {{requestType}}{..} = (\rMethod -> {{requestType}} { rMethod, ..} ) <$> f rMethod
|
||||
{-# INLINE rMethodL #-}
|
||||
|
||||
-- | 'rUrlPath' Lens
|
||||
rUrlPathL :: Lens_' ({{requestType}} req contentType res) [BCL.ByteString]
|
||||
rUrlPathL f {{requestType}}{..} = (\rUrlPath -> {{requestType}} { rUrlPath, ..} ) <$> f rUrlPath
|
||||
{-# INLINE rUrlPathL #-}
|
||||
|
||||
-- | 'rParams' Lens
|
||||
rParamsL :: Lens_' ({{requestType}} req contentType res) Params
|
||||
rParamsL f {{requestType}}{..} = (\rParams -> {{requestType}} { rParams, ..} ) <$> f rParams
|
||||
{-# INLINE rParamsL #-}
|
||||
|
||||
-- | Request Params
|
||||
data Params = Params
|
||||
{ paramsQuery :: NH.Query
|
||||
@ -157,6 +176,21 @@ data Params = Params
|
||||
}
|
||||
deriving (P.Show)
|
||||
|
||||
-- | 'paramsQuery' Lens
|
||||
paramsQueryL :: Lens_' Params NH.Query
|
||||
paramsQueryL f Params{..} = (\paramsQuery -> Params { paramsQuery, ..} ) <$> f paramsQuery
|
||||
{-# INLINE paramsQueryL #-}
|
||||
|
||||
-- | 'paramsHeaders' Lens
|
||||
paramsHeadersL :: Lens_' Params NH.RequestHeaders
|
||||
paramsHeadersL f Params{..} = (\paramsHeaders -> Params { paramsHeaders, ..} ) <$> f paramsHeaders
|
||||
{-# INLINE paramsHeadersL #-}
|
||||
|
||||
-- | 'paramsBody' Lens
|
||||
paramsBodyL :: Lens_' Params ParamBody
|
||||
paramsBodyL f Params{..} = (\paramsBody -> Params { paramsBody, ..} ) <$> f paramsBody
|
||||
{-# INLINE paramsBodyL #-}
|
||||
|
||||
-- | Request Body
|
||||
data ParamBody
|
||||
= ParamBodyNone
|
||||
@ -177,15 +211,18 @@ _mkParams :: Params
|
||||
_mkParams = Params [] [] ParamBodyNone
|
||||
|
||||
setHeader :: {{requestType}} req contentType res -> [NH.Header] -> {{requestType}} req contentType res
|
||||
setHeader req header =
|
||||
let _params = params (req `removeHeader` P.fmap P.fst header)
|
||||
in req { params = _params { paramsHeaders = header P.++ paramsHeaders _params } }
|
||||
setHeader req header =
|
||||
req `removeHeader` P.fmap P.fst header &
|
||||
L.over (rParamsL . paramsHeadersL) (header P.++)
|
||||
|
||||
removeHeader :: {{requestType}} req contentType res -> [NH.HeaderName] -> {{requestType}} req contentType res
|
||||
removeHeader req header =
|
||||
let _params = params req
|
||||
in req { params = _params { paramsHeaders = [h | h <- paramsHeaders _params, cifst h `P.notElem` P.fmap CI.mk header] } }
|
||||
where cifst = CI.mk . P.fst
|
||||
removeHeader req header =
|
||||
req &
|
||||
L.over
|
||||
(rParamsL . paramsHeadersL)
|
||||
(P.filter (\h -> cifst h `P.notElem` P.fmap CI.mk header))
|
||||
where
|
||||
cifst = CI.mk . P.fst
|
||||
|
||||
|
||||
_setContentTypeHeader :: forall req contentType res. MimeType contentType => {{requestType}} req contentType res -> {{requestType}} req contentType res
|
||||
@ -202,35 +239,34 @@ _setAcceptHeader req accept =
|
||||
|
||||
_setQuery :: {{requestType}} req contentType res -> [NH.QueryItem] -> {{requestType}} req contentType res
|
||||
_setQuery req query =
|
||||
let _params = params req
|
||||
in req { params = _params { paramsQuery = query P.++ [q | q <- paramsQuery _params, cifst q `P.notElem` P.fmap cifst query] } }
|
||||
where cifst = CI.mk . P.fst
|
||||
req &
|
||||
L.over
|
||||
(rParamsL . paramsQueryL)
|
||||
((query P.++) . P.filter (\q -> cifst q `P.notElem` P.fmap cifst query))
|
||||
where
|
||||
cifst = CI.mk . P.fst
|
||||
|
||||
_addForm :: {{requestType}} req contentType res -> WH.Form -> {{requestType}} req contentType res
|
||||
_addForm req newform =
|
||||
let _params = params req
|
||||
form = case paramsBody _params of
|
||||
let form = case paramsBody (rParams req) of
|
||||
ParamBodyFormUrlEncoded _form -> _form
|
||||
_ -> mempty
|
||||
in req { params = _params { paramsBody = ParamBodyFormUrlEncoded (newform <> form) } }
|
||||
in req & L.set (rParamsL . paramsBodyL) (ParamBodyFormUrlEncoded (newform <> form))
|
||||
|
||||
_addMultiFormPart :: {{requestType}} req contentType res -> NH.Part -> {{requestType}} req contentType res
|
||||
_addMultiFormPart req newpart =
|
||||
let _params = params req
|
||||
parts = case paramsBody _params of
|
||||
let parts = case paramsBody (rParams req) of
|
||||
ParamBodyMultipartFormData _parts -> _parts
|
||||
_ -> []
|
||||
in req { params = _params { paramsBody = ParamBodyMultipartFormData (newpart : parts) } }
|
||||
in req & L.set (rParamsL . paramsBodyL) (ParamBodyMultipartFormData (newpart : parts))
|
||||
|
||||
_setBodyBS :: {{requestType}} req contentType res -> B.ByteString -> {{requestType}} req contentType res
|
||||
_setBodyBS req body =
|
||||
let _params = params req
|
||||
in req { params = _params { paramsBody = ParamBodyB body } }
|
||||
req & L.set (rParamsL . paramsBodyL) (ParamBodyB body)
|
||||
|
||||
_setBodyLBS :: {{requestType}} req contentType res -> BL.ByteString -> {{requestType}} req contentType res
|
||||
_setBodyLBS req body =
|
||||
let _params = params req
|
||||
in req { params = _params { paramsBody = ParamBodyBL body } }
|
||||
req & L.set (rParamsL . paramsBodyL) (ParamBodyBL body)
|
||||
|
||||
|
||||
-- ** Params Utils
|
||||
|
@ -225,15 +225,15 @@ _toInitRequest
|
||||
-> accept -- ^ "accept" 'MimeType'
|
||||
-> IO (InitRequest req contentType res accept) -- ^ initialized request
|
||||
_toInitRequest config req0 accept = do
|
||||
parsedReq <- NH.parseRequest $ BCL.unpack $ BCL.append (configHost config) (BCL.concat (urlPath req0))
|
||||
parsedReq <- NH.parseRequest $ BCL.unpack $ BCL.append (configHost config) (BCL.concat (rUrlPath req0))
|
||||
let req1 = _setAcceptHeader req0 accept & _setContentTypeHeader
|
||||
reqHeaders = ("User-Agent", WH.toHeader (configUserAgent config)) : paramsHeaders (params req1)
|
||||
reqQuery = NH.renderQuery True (paramsQuery (params req1))
|
||||
reqHeaders = ("User-Agent", WH.toHeader (configUserAgent config)) : paramsHeaders (rParams req1)
|
||||
reqQuery = NH.renderQuery True (paramsQuery (rParams req1))
|
||||
pReq = parsedReq { NH.method = (rMethod req1)
|
||||
, NH.requestHeaders = reqHeaders
|
||||
, NH.queryString = reqQuery
|
||||
}
|
||||
outReq <- case paramsBody (params req1) of
|
||||
outReq <- case paramsBody (rParams req1) of
|
||||
ParamBodyNone -> pure (pReq { NH.requestBody = mempty })
|
||||
ParamBodyB bs -> pure (pReq { NH.requestBody = NH.RequestBodyBS bs })
|
||||
ParamBodyBL bl -> pure (pReq { NH.requestBody = NH.RequestBodyLBS bl })
|
||||
|
@ -2,7 +2,6 @@
|
||||
Module : {{title}}.Model
|
||||
-}
|
||||
|
||||
{-# LANGUAGE DeriveAnyClass #-}
|
||||
{-# LANGUAGE DeriveDataTypeable #-}
|
||||
{-# LANGUAGE DeriveFoldable #-}
|
||||
{-# LANGUAGE DeriveGeneric #-}
|
||||
@ -58,7 +57,7 @@ import qualified Prelude as P
|
||||
-- {{{.}}}{{/description}}
|
||||
{{^vendorExtensions.x-customNewtype}}
|
||||
data {{classname}} = {{classname}}
|
||||
{ {{#vars}}{{name}} :: {{^required}}Maybe {{/required}}{{datatype}} -- ^ {{#required}}/Required/ {{/required}}{{#readOnly}}/ReadOnly/ {{/readOnly}}"{{baseName}}"{{#description}} - {{description}}{{/description}}{{#hasMore}}
|
||||
{ {{#vars}}{{name}} :: {{#x-strictFields}}!({{/x-strictFields}}{{^required}}Maybe {{/required}}{{datatype}}{{#x-strictFields}}){{/x-strictFields}} -- ^ {{#required}}/Required/ {{/required}}{{#readOnly}}/ReadOnly/ {{/readOnly}}"{{baseName}}"{{#description}} - {{description}}{{/description}}{{#hasMore}}
|
||||
, {{/hasMore}}{{/vars}}
|
||||
} deriving (P.Show,P.Eq,P.Typeable{{#modelDeriving}},{{modelDeriving}}{{/modelDeriving}})
|
||||
|
||||
|
@ -50,17 +50,20 @@ haskell-http-client
|
||||
|
||||
- use `setHeader` to add any required headers to requests
|
||||
|
||||
* Model Inheritance
|
||||
|
||||
* Default Parameter Values
|
||||
|
||||
* Enum Parameters
|
||||
|
||||
|
||||
This is beta software; other cases may not be supported.
|
||||
|
||||
### Codegen "config option" parameters
|
||||
### Codegen "additional properties" parameters
|
||||
|
||||
These options allow some customization of the code generation process.
|
||||
|
||||
**haskell-http-client specific options:**
|
||||
**haskell-http-client additional properties:**
|
||||
|
||||
| OPTION | DESCRIPTION | DEFAULT | ACTUAL |
|
||||
| ------------------------------- | ----------------------------------------------------------------------------------------------------------------------------- | -------- | ------------------------------------- |
|
||||
@ -72,15 +75,23 @@ These options allow some customization of the code generation process.
|
||||
| generateLenses | Generate Lens optics for Models | true | {{{generateLenses}}} |
|
||||
| generateModelConstructors | Generate smart constructors (only supply required fields) for models | true | {{{generateModelConstructors}}} |
|
||||
| modelDeriving | Additional classes to include in the deriving() clause of Models | | {{{modelDeriving}}} |
|
||||
| strictFields | Add strictness annotations to all model fields | false | {{{x-strictFields}}} |
|
||||
|
||||
[1]: https://www.stackage.org/haddock/lts-9.0/iso8601-time-0.1.4/Data-Time-ISO8601.html#v:formatISO8601Millis
|
||||
|
||||
An example setting _strictFields_ and _dateTimeFormat_:
|
||||
|
||||
```
|
||||
java -jar swagger-codegen-cli.jar generate -i petstore.yaml -l haskell-http-client -o output/haskell-http-client -DstrictFields=true -DdateTimeFormat="%Y-%m-%dT%H:%M:%S%Q%z"
|
||||
```
|
||||
|
||||
View the full list of Codegen "config option" parameters with the command:
|
||||
|
||||
```
|
||||
java -jar modules/swagger-codegen-cli/target/swagger-codegen-cli.jar config-help -l haskell-http-client
|
||||
java -jar swagger-codegen-cli.jar config-help -l haskell-http-client
|
||||
```
|
||||
|
||||
|
||||
### Example SwaggerPetstore Haddock documentation
|
||||
|
||||
An example of the generated haddock documentation targeting the server http://petstore.swagger.io/ (SwaggerPetstore) can be found [here][2]
|
||||
|
@ -7,11 +7,11 @@ module {{title}}
|
||||
, module {{title}}.API
|
||||
, module {{title}}.Model
|
||||
, module {{title}}.MimeTypes
|
||||
, {{#generateLenses}}module {{title}}.Lens{{/generateLenses}}
|
||||
, module {{title}}.Lens
|
||||
) where
|
||||
|
||||
import {{title}}.API
|
||||
import {{title}}.Client
|
||||
import {{title}}.Model
|
||||
import {{title}}.MimeTypes
|
||||
{{#generateLenses}}import {{title}}.Lens{{/generateLenses}}
|
||||
import {{title}}.Lens
|
||||
|
@ -57,13 +57,14 @@ library
|
||||
, monad-logger >=0.3 && <0.4
|
||||
, safe-exceptions <0.2
|
||||
, case-insensitive
|
||||
, microlens >= 0.4.3 && <0.5
|
||||
exposed-modules:
|
||||
{{title}}
|
||||
{{title}}.API
|
||||
{{title}}.Client
|
||||
{{title}}.Model
|
||||
{{title}}.MimeTypes
|
||||
{{#generateLenses}}{{title}}.Lens{{/generateLenses}}
|
||||
{{title}}.Lens
|
||||
other-modules:
|
||||
Paths_{{pathsName}}
|
||||
default-language: Haskell2010
|
||||
|
@ -36,16 +36,18 @@ dependencies:
|
||||
- transformers >=0.4.0.0
|
||||
- mtl >=2.2.1
|
||||
- unordered-containers
|
||||
ghc-options: -Wall
|
||||
library:
|
||||
source-dirs: lib
|
||||
ghc-options: -Wall
|
||||
ghc-options:
|
||||
{{#x-strictFields}}- -funbox-strict-fields{{/x-strictFields}}
|
||||
exposed-modules:
|
||||
- {{title}}
|
||||
- {{title}}.API
|
||||
- {{title}}.Client
|
||||
- {{title}}.Model
|
||||
- {{title}}.MimeTypes
|
||||
{{#generateLenses}}- {{title}}.Lens{{/generateLenses}}
|
||||
- {{title}}.Lens
|
||||
dependencies:
|
||||
- aeson >=1.0 && <2.0
|
||||
- bytestring >=0.10.0 && <0.11
|
||||
@ -65,6 +67,7 @@ library:
|
||||
- monad-logger >=0.3 && <0.4
|
||||
- safe-exceptions <0.2
|
||||
- case-insensitive
|
||||
- microlens >= 0.4.3 && <0.5
|
||||
tests:
|
||||
tests:
|
||||
main: Test.hs
|
||||
|
@ -1,3 +1,5 @@
|
||||
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
|
||||
|
||||
module Instances where
|
||||
|
||||
import Data.Text (Text, pack)
|
||||
|
@ -1,6 +1,7 @@
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
{-# LANGUAGE FlexibleContexts #-}
|
||||
{-# LANGUAGE ConstraintKinds #-}
|
||||
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
|
||||
|
||||
module PropMime where
|
||||
|
||||
|
@ -47,6 +47,8 @@ public class HaskellHttpClientOptionsTest extends AbstractOptionsTest {
|
||||
times = 1;
|
||||
clientCodegen.setDateFormat(HaskellHttpClientOptionsProvider.DATE_FORMAT);
|
||||
times = 1;
|
||||
clientCodegen.setStrictFields(Boolean.valueOf(HaskellHttpClientOptionsProvider.STRICT_FIELDS));
|
||||
times = 1;
|
||||
|
||||
}};
|
||||
}
|
||||
|
@ -19,6 +19,7 @@ public class HaskellHttpClientOptionsProvider implements OptionsProvider {
|
||||
public static final String DATETIME_FORMAT = "%Y-%m-%dT%H:%M:%S%Q%z";
|
||||
public static final String DATE_FORMAT = "%Y-%m-%d";
|
||||
public static final String MODEL_DERIVING = "";
|
||||
public static final String STRICT_FIELDS = "false";
|
||||
public static final String GENERATE_FORM_URLENCODED_INSTANCES = "true";
|
||||
public static final String GENERATE_LENSES = "true";
|
||||
public static final String GENERATE_MODEL_CONSTRUCTORS = "true";
|
||||
@ -46,6 +47,7 @@ public class HaskellHttpClientOptionsProvider implements OptionsProvider {
|
||||
.put(HaskellHttpClientCodegen.GENERATE_FORM_URLENCODED_INSTANCES, GENERATE_FORM_URLENCODED_INSTANCES)
|
||||
.put(HaskellHttpClientCodegen.GENERATE_LENSES, GENERATE_LENSES)
|
||||
.put(HaskellHttpClientCodegen.GENERATE_MODEL_CONSTRUCTORS, GENERATE_MODEL_CONSTRUCTORS)
|
||||
.put(HaskellHttpClientCodegen.STRICT_FIELDS, STRICT_FIELDS)
|
||||
|
||||
.build();
|
||||
}
|
||||
|
28
samples/client/petstore/haskell-http-client/CONTRIBUTING.md
Normal file
28
samples/client/petstore/haskell-http-client/CONTRIBUTING.md
Normal file
@ -0,0 +1,28 @@
|
||||
### Rebuild jar
|
||||
|
||||
```
|
||||
(cd ../../../..; mvn package);
|
||||
```
|
||||
|
||||
### Regenerate Template
|
||||
|
||||
1. Run the shell script `haskell-http-client-petstore.sh` to update the Petstore sample
|
||||
|
||||
```bash
|
||||
(cd ../../../..; ./bin/haskell-http-client-petstore.sh);
|
||||
```
|
||||
|
||||
### Typecheck, Build and run Unit tests
|
||||
|
||||
2. Check that the following commands complete build without any errors
|
||||
|
||||
```bash
|
||||
(stack clean && stack haddock && stack test);
|
||||
(cd ./example-app; stack clean && stack build);
|
||||
(cd ./tests-integration; stack clean && stack build --no-run-tests);
|
||||
```
|
||||
|
||||
### Integration Tests
|
||||
|
||||
3. run the integration tests as described in `./tests-integration/README.md`
|
||||
|
@ -50,17 +50,20 @@ haskell-http-client
|
||||
|
||||
- use `setHeader` to add any required headers to requests
|
||||
|
||||
* Model Inheritance
|
||||
|
||||
* Default Parameter Values
|
||||
|
||||
* Enum Parameters
|
||||
|
||||
|
||||
This is beta software; other cases may not be supported.
|
||||
|
||||
### Codegen "config option" parameters
|
||||
### Codegen "additional properties" parameters
|
||||
|
||||
These options allow some customization of the code generation process.
|
||||
|
||||
**haskell-http-client specific options:**
|
||||
**haskell-http-client additional properties:**
|
||||
|
||||
| OPTION | DESCRIPTION | DEFAULT | ACTUAL |
|
||||
| ------------------------------- | ----------------------------------------------------------------------------------------------------------------------------- | -------- | ------------------------------------- |
|
||||
@ -72,15 +75,23 @@ These options allow some customization of the code generation process.
|
||||
| generateLenses | Generate Lens optics for Models | true | true |
|
||||
| generateModelConstructors | Generate smart constructors (only supply required fields) for models | true | true |
|
||||
| modelDeriving | Additional classes to include in the deriving() clause of Models | | |
|
||||
| strictFields | Add strictness annotations to all model fields | false | false |
|
||||
|
||||
[1]: https://www.stackage.org/haddock/lts-9.0/iso8601-time-0.1.4/Data-Time-ISO8601.html#v:formatISO8601Millis
|
||||
|
||||
An example setting _strictFields_ and _dateTimeFormat_:
|
||||
|
||||
```
|
||||
java -jar swagger-codegen-cli.jar generate -i petstore.yaml -l haskell-http-client -o output/haskell-http-client -DstrictFields=true -DdateTimeFormat="%Y-%m-%dT%H:%M:%S%Q%z"
|
||||
```
|
||||
|
||||
View the full list of Codegen "config option" parameters with the command:
|
||||
|
||||
```
|
||||
java -jar modules/swagger-codegen-cli/target/swagger-codegen-cli.jar config-help -l haskell-http-client
|
||||
java -jar swagger-codegen-cli.jar config-help -l haskell-http-client
|
||||
```
|
||||
|
||||
|
||||
### Example SwaggerPetstore Haddock documentation
|
||||
|
||||
An example of the generated haddock documentation targeting the server http://petstore.swagger.io/ (SwaggerPetstore) can be found [here][2]
|
||||
|
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,4 +1,4 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title>swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client (Index - R)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript"></script><script type="text/javascript">//<![CDATA[
|
||||
window.onload = function () {pageLoad();};
|
||||
//]]>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - R</p><table><tr><td class="src">removeHeader</td><td class="module"><a href="SwaggerPetstore-API.html#v:removeHeader">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">rMethod</td><td class="module"><a href="SwaggerPetstore-API.html#v:rMethod">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">runExceptionLoggingT</td><td class="module"><a href="SwaggerPetstore-Client.html#v:runExceptionLoggingT">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">runLoggingT</td><td class="module"><a href="SwaggerPetstore-Client.html#v:runLoggingT">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">runNullLoggingT</td><td class="module"><a href="SwaggerPetstore-Client.html#v:runNullLoggingT">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
||||
</script></head><body><div id="package-header"><ul class="links" id="page-menu"><li><a href="index.html">Contents</a></li><li><a href="doc-index.html">Index</a></li></ul><p class="caption">swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</p></div><div id="content"><div id="alphabet"><ul><li><a href="doc-index-A.html">A</a></li><li><a href="doc-index-C.html">C</a></li><li><a href="doc-index-D.html">D</a></li><li><a href="doc-index-E.html">E</a></li><li><a href="doc-index-F.html">F</a></li><li><a href="doc-index-G.html">G</a></li><li><a href="doc-index-H.html">H</a></li><li><a href="doc-index-I.html">I</a></li><li><a href="doc-index-L.html">L</a></li><li><a href="doc-index-M.html">M</a></li><li><a href="doc-index-N.html">N</a></li><li><a href="doc-index-O.html">O</a></li><li><a href="doc-index-P.html">P</a></li><li><a href="doc-index-R.html">R</a></li><li><a href="doc-index-S.html">S</a></li><li><a href="doc-index-T.html">T</a></li><li><a href="doc-index-U.html">U</a></li><li><a href="doc-index-W.html">W</a></li><li><a href="doc-index-45.html">-</a></li><li><a href="doc-index-95.html">_</a></li><li><a href="doc-index-All.html">All</a></li></ul></div><div id="index"><p class="caption">Index - R</p><table><tr><td class="src">removeHeader</td><td class="module"><a href="SwaggerPetstore-API.html#v:removeHeader">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">rMethod</td><td class="module"><a href="SwaggerPetstore-API.html#v:rMethod">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">rMethodL</td><td class="module"><a href="SwaggerPetstore-API.html#v:rMethodL">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">rParams</td><td class="module"><a href="SwaggerPetstore-API.html#v:rParams">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">rParamsL</td><td class="module"><a href="SwaggerPetstore-API.html#v:rParamsL">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">runExceptionLoggingT</td><td class="module"><a href="SwaggerPetstore-Client.html#v:runExceptionLoggingT">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">runLoggingT</td><td class="module"><a href="SwaggerPetstore-Client.html#v:runLoggingT">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">runNullLoggingT</td><td class="module"><a href="SwaggerPetstore-Client.html#v:runNullLoggingT">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">rUrlPath</td><td class="module"><a href="SwaggerPetstore-API.html#v:rUrlPath">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">rUrlPathL</td><td class="module"><a href="SwaggerPetstore-API.html#v:rUrlPathL">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.17.3</p></div></body></html>
|
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -15,7 +15,7 @@
|
||||
</span><a name="line-15"></a><span class="hs-cpp">#if defined(VERSION_base)</span><span>
|
||||
</span><a name="line-16"></a><span>
|
||||
</span><a name="line-17"></a><span class="hs-cpp">#if MIN_VERSION_base(4,0,0)</span><span>
|
||||
</span><a name="line-18"></a><span class="hs-identifier">catchIO</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679142201"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Exception</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">IOException</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679142201"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679142201"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-18"></a><span class="hs-identifier">catchIO</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679143240"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Exception</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">IOException</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679143240"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679143240"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-19"></a><span class="hs-cpp">#else</span><span>
|
||||
</span><a name="line-20"></a><span class="hs-identifier">catchIO</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">a</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier">Exception</span><span class="hs-operator">.</span><span class="hs-identifier">Exception</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">a</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">a</span><span>
|
||||
</span><a name="line-21"></a><span class="hs-cpp">#endif</span><span>
|
||||
@ -30,7 +30,7 @@
|
||||
</span><a name="line-30"></a><span class="hs-identifier">bindir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">libdir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">dynlibdir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">datadir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">libexecdir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">sysconfdir</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">FilePath</span><span>
|
||||
</span><a name="line-31"></a><span>
|
||||
</span><a name="line-32"></a><a name="bindir"><a href="Paths_swagger_petstore.html#bindir"><span class="hs-identifier">bindir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"/home/jon/fs/git/swagger-codegen/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-9.0/8.0.2/bin"</span><span>
|
||||
</span><a name="line-33"></a><a name="libdir"><a href="Paths_swagger_petstore.html#libdir"><span class="hs-identifier">libdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"/home/jon/fs/git/swagger-codegen/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-9.0/8.0.2/lib/x86_64-linux-ghc-8.0.2/swagger-petstore-0.1.0.0-FhAGC7YzWguJAT2YJ3ggeI"</span><span>
|
||||
</span><a name="line-33"></a><a name="libdir"><a href="Paths_swagger_petstore.html#libdir"><span class="hs-identifier">libdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"/home/jon/fs/git/swagger-codegen/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-9.0/8.0.2/lib/x86_64-linux-ghc-8.0.2/swagger-petstore-0.1.0.0-CY2qj9sV8yi3N5R3aev4xa"</span><span>
|
||||
</span><a name="line-34"></a><a name="dynlibdir"><a href="Paths_swagger_petstore.html#dynlibdir"><span class="hs-identifier">dynlibdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"/home/jon/fs/git/swagger-codegen/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-9.0/8.0.2/lib/x86_64-linux-ghc-8.0.2"</span><span>
|
||||
</span><a name="line-35"></a><a name="datadir"><a href="Paths_swagger_petstore.html#datadir"><span class="hs-identifier">datadir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"/home/jon/fs/git/swagger-codegen/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-9.0/8.0.2/share/x86_64-linux-ghc-8.0.2/swagger-petstore-0.1.0.0"</span><span>
|
||||
</span><a name="line-36"></a><a name="libexecdir"><a href="Paths_swagger_petstore.html#libexecdir"><span class="hs-identifier">libexecdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"/home/jon/fs/git/swagger-codegen/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-9.0/8.0.2/libexec"</span><span>
|
||||
@ -45,7 +45,7 @@
|
||||
</span><a name="line-45"></a><a name="getSysconfDir"><a href="Paths_swagger_petstore.html#getSysconfDir"><span class="hs-identifier">getSysconfDir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="Paths_swagger_petstore.html#catchIO"><span class="hs-identifier hs-var">catchIO</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">getEnv</span><span> </span><span class="hs-string">"swagger_petstore_sysconfdir"</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="Paths_swagger_petstore.html#sysconfdir"><span class="hs-identifier hs-var">sysconfdir</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-46"></a><span>
|
||||
</span><a name="line-47"></a><span class="hs-identifier">getDataFileName</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">FilePath</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-identifier hs-type">FilePath</span><span>
|
||||
</span><a name="line-48"></a><a name="getDataFileName"><a href="Paths_swagger_petstore.html#getDataFileName"><span class="hs-identifier">getDataFileName</span></a></a><span> </span><a name="local-6989586621679142527"><a href="#local-6989586621679142527"><span class="hs-identifier">name</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-49"></a><span> </span><a name="local-6989586621679142528"><a href="#local-6989586621679142528"><span class="hs-identifier">dir</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="Paths_swagger_petstore.html#getDataDir"><span class="hs-identifier hs-var">getDataDir</span></a><span>
|
||||
</span><a name="line-50"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679142528"><span class="hs-identifier hs-var">dir</span></a><span> </span><span class="hs-operator hs-var">++</span><span> </span><span class="hs-string">"/"</span><span> </span><span class="hs-operator hs-var">++</span><span> </span><a href="#local-6989586621679142527"><span class="hs-identifier hs-var">name</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-48"></a><a name="getDataFileName"><a href="Paths_swagger_petstore.html#getDataFileName"><span class="hs-identifier">getDataFileName</span></a></a><span> </span><a name="local-6989586621679143566"><a href="#local-6989586621679143566"><span class="hs-identifier">name</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-49"></a><span> </span><a name="local-6989586621679143567"><a href="#local-6989586621679143567"><span class="hs-identifier">dir</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="Paths_swagger_petstore.html#getDataDir"><span class="hs-identifier hs-var">getDataDir</span></a><span>
|
||||
</span><a name="line-50"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679143567"><span class="hs-identifier hs-var">dir</span></a><span> </span><span class="hs-operator hs-var">++</span><span> </span><span class="hs-string">"/"</span><span> </span><span class="hs-operator hs-var">++</span><span> </span><a href="#local-6989586621679143566"><span class="hs-identifier hs-var">name</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-51"></a></pre></body></html>
|
File diff suppressed because it is too large
Load Diff
@ -63,11 +63,11 @@ Module : SwaggerPetstore.Client
|
||||
</span><a name="line-63"></a><span>
|
||||
</span><a name="line-64"></a><span class="hs-comment">-- | display the config</span><span>
|
||||
</span><a name="line-65"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">Show</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-66"></a><span> </span><a name="local-8214565720323792628"><span class="hs-identifier">show</span></a><span> </span><a name="local-6989586621679133740"><a href="#local-6989586621679133740"><span class="hs-identifier">c</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-66"></a><span> </span><a name="local-8214565720323792628"><span class="hs-identifier">show</span></a><span> </span><a name="local-6989586621679134843"><a href="#local-6989586621679134843"><span class="hs-identifier">c</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-67"></a><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">printf</span><span>
|
||||
</span><a name="line-68"></a><span> </span><span class="hs-string">"{ configHost = %v, configUserAgent = %v, ..}"</span><span>
|
||||
</span><a name="line-69"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configHost</span><span> </span><a href="#local-6989586621679133740"><span class="hs-identifier hs-var">c</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-70"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configUserAgent</span><span> </span><a href="#local-6989586621679133740"><span class="hs-identifier hs-var">c</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-69"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configHost</span><span> </span><a href="#local-6989586621679134843"><span class="hs-identifier hs-var">c</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-70"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configUserAgent</span><span> </span><a href="#local-6989586621679134843"><span class="hs-identifier hs-var">c</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-71"></a><span>
|
||||
</span><a name="line-72"></a><span class="hs-comment">-- | constructs a default SwaggerPetstoreConfig</span><span>
|
||||
</span><a name="line-73"></a><span class="hs-comment">--</span><span>
|
||||
@ -93,15 +93,15 @@ Module : SwaggerPetstore.Client
|
||||
</span><a name="line-93"></a><span>
|
||||
</span><a name="line-94"></a><span class="hs-comment">-- | updates the config to use a MonadLogger instance which prints to stdout.</span><span>
|
||||
</span><a name="line-95"></a><span class="hs-identifier">withStdoutLogging</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-96"></a><a name="withStdoutLogging"><a href="SwaggerPetstore.Client.html#withStdoutLogging"><span class="hs-identifier">withStdoutLogging</span></a></a><span> </span><a name="local-6989586621679132960"><a href="#local-6989586621679132960"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679132960"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configExecLoggingT</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">runStdoutLoggingT</span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-96"></a><a name="withStdoutLogging"><a href="SwaggerPetstore.Client.html#withStdoutLogging"><span class="hs-identifier">withStdoutLogging</span></a></a><span> </span><a name="local-6989586621679134063"><a href="#local-6989586621679134063"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679134063"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configExecLoggingT</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">runStdoutLoggingT</span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-97"></a><span>
|
||||
</span><a name="line-98"></a><span class="hs-comment">-- | updates the config to use a MonadLogger instance which prints to stderr.</span><span>
|
||||
</span><a name="line-99"></a><span class="hs-identifier">withStderrLogging</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-100"></a><a name="withStderrLogging"><a href="SwaggerPetstore.Client.html#withStderrLogging"><span class="hs-identifier">withStderrLogging</span></a></a><span> </span><a name="local-6989586621679132961"><a href="#local-6989586621679132961"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679132961"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configExecLoggingT</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">runStderrLoggingT</span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-100"></a><a name="withStderrLogging"><a href="SwaggerPetstore.Client.html#withStderrLogging"><span class="hs-identifier">withStderrLogging</span></a></a><span> </span><a name="local-6989586621679134064"><a href="#local-6989586621679134064"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679134064"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configExecLoggingT</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">runStderrLoggingT</span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-101"></a><span>
|
||||
</span><a name="line-102"></a><span class="hs-comment">-- | updates the config to disable logging</span><span>
|
||||
</span><a name="line-103"></a><span class="hs-identifier">withNoLogging</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-104"></a><a name="withNoLogging"><a href="SwaggerPetstore.Client.html#withNoLogging"><span class="hs-identifier">withNoLogging</span></a></a><span> </span><a name="local-6989586621679132962"><a href="#local-6989586621679132962"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679132962"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configExecLoggingT</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Client.html#runNullLoggingT"><span class="hs-identifier hs-var">runNullLoggingT</span></a><span class="hs-special">}</span><span>
|
||||
</span><a name="line-104"></a><a name="withNoLogging"><a href="SwaggerPetstore.Client.html#withNoLogging"><span class="hs-identifier">withNoLogging</span></a></a><span> </span><a name="local-6989586621679134065"><a href="#local-6989586621679134065"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679134065"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configExecLoggingT</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Client.html#runNullLoggingT"><span class="hs-identifier hs-var">runNullLoggingT</span></a><span class="hs-special">}</span><span>
|
||||
</span><a name="line-105"></a><span>
|
||||
</span><a name="line-106"></a><span class="hs-comment">-- * Dispatch</span><span>
|
||||
</span><a name="line-107"></a><span>
|
||||
@ -109,21 +109,21 @@ Module : SwaggerPetstore.Client
|
||||
</span><a name="line-109"></a><span>
|
||||
</span><a name="line-110"></a><span class="hs-comment">-- | send a request returning the raw http response</span><span>
|
||||
</span><a name="line-111"></a><span class="hs-identifier">dispatchLbs</span><span>
|
||||
</span><a name="line-112"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="#local-6989586621679132956"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679132957"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679132958"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-112"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="#local-6989586621679134059"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679134060"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679134061"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-113"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-114"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-115"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679132956"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679132958"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679132959"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-116"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679132957"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-115"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679134059"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679134061"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679134062"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-116"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679134060"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-117"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-118"></a><a name="dispatchLbs"><a href="SwaggerPetstore.Client.html#dispatchLbs"><span class="hs-identifier">dispatchLbs</span></a></a><span> </span><a name="local-6989586621679132963"><a href="#local-6989586621679132963"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679132964"><a href="#local-6989586621679132964"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679132965"><a href="#local-6989586621679132965"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679132966"><a href="#local-6989586621679132966"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-119"></a><span> </span><a name="local-6989586621679132967"><a href="#local-6989586621679132967"><span class="hs-identifier">initReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier hs-var">_toInitRequest</span></a><span> </span><a href="#local-6989586621679132964"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679132965"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679132966"><span class="hs-identifier hs-var">accept</span></a><span> </span><span>
|
||||
</span><a name="line-120"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679132963"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679132964"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679132967"><span class="hs-identifier hs-var">initReq</span></a><span>
|
||||
</span><a name="line-118"></a><a name="dispatchLbs"><a href="SwaggerPetstore.Client.html#dispatchLbs"><span class="hs-identifier">dispatchLbs</span></a></a><span> </span><a name="local-6989586621679134066"><a href="#local-6989586621679134066"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679134067"><a href="#local-6989586621679134067"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679134068"><a href="#local-6989586621679134068"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679134069"><a href="#local-6989586621679134069"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-119"></a><span> </span><a name="local-6989586621679134070"><a href="#local-6989586621679134070"><span class="hs-identifier">initReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier hs-var">_toInitRequest</span></a><span> </span><a href="#local-6989586621679134067"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679134068"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679134069"><span class="hs-identifier hs-var">accept</span></a><span> </span><span>
|
||||
</span><a name="line-120"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679134066"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679134067"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679134070"><span class="hs-identifier hs-var">initReq</span></a><span>
|
||||
</span><a name="line-121"></a><span>
|
||||
</span><a name="line-122"></a><span class="hs-comment">-- ** Mime</span><span>
|
||||
</span><a name="line-123"></a><span>
|
||||
</span><a name="line-124"></a><span class="hs-comment">-- | pair of decoded http body and http response</span><span>
|
||||
</span><a name="line-125"></a><span class="hs-keyword">data</span><span> </span><a name="MimeResult"><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier">MimeResult</span></a></a><span> </span><a name="local-6989586621679132828"><a href="#local-6989586621679132828"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-126"></a><span> </span><a name="MimeResult"><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier">MimeResult</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="mimeResult"><a href="SwaggerPetstore.Client.html#mimeResult"><span class="hs-identifier">mimeResult</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Either</span><span> </span><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier hs-type">MimeError</span></a><span> </span><a href="#local-6989586621679132828"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ decoded http body</span><span>
|
||||
</span><a name="line-125"></a><span class="hs-keyword">data</span><span> </span><a name="MimeResult"><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier">MimeResult</span></a></a><span> </span><a name="local-6989586621679133931"><a href="#local-6989586621679133931"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-126"></a><span> </span><a name="MimeResult"><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier">MimeResult</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="mimeResult"><a href="SwaggerPetstore.Client.html#mimeResult"><span class="hs-identifier">mimeResult</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Either</span><span> </span><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier hs-type">MimeError</span></a><span> </span><a href="#local-6989586621679133931"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ decoded http body</span><span>
|
||||
</span><a name="line-127"></a><span> </span><span class="hs-special">,</span><span> </span><a name="mimeResultResponse"><a href="SwaggerPetstore.Client.html#mimeResultResponse"><span class="hs-identifier">mimeResultResponse</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-comment">-- ^ http response </span><span>
|
||||
</span><a name="line-128"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-129"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Foldable</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Traversable</span><span class="hs-special">)</span><span>
|
||||
@ -137,124 +137,124 @@ Module : SwaggerPetstore.Client
|
||||
</span><a name="line-137"></a><span>
|
||||
</span><a name="line-138"></a><span class="hs-comment">-- | send a request returning the 'MimeResult'</span><span>
|
||||
</span><a name="line-139"></a><span class="hs-identifier">dispatchMime</span><span>
|
||||
</span><a name="line-140"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="#local-6989586621679132952"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679132953"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="#local-6989586621679132953"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679132954"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679132955"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-140"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="#local-6989586621679134055"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679134056"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="#local-6989586621679134056"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679134057"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679134058"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-141"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-142"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-143"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679132952"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679132955"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679132954"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-144"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679132953"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-145"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-type">MimeResult</span></a><span> </span><a href="#local-6989586621679132954"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-146"></a><a name="dispatchMime"><a href="SwaggerPetstore.Client.html#dispatchMime"><span class="hs-identifier">dispatchMime</span></a></a><span> </span><a name="local-6989586621679132968"><a href="#local-6989586621679132968"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679132969"><a href="#local-6989586621679132969"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679132970"><a href="#local-6989586621679132970"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679132971"><a href="#local-6989586621679132971"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-147"></a><span> </span><a name="local-6989586621679132972"><a href="#local-6989586621679132972"><span class="hs-identifier">httpResponse</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#dispatchLbs"><span class="hs-identifier hs-var">dispatchLbs</span></a><span> </span><a href="#local-6989586621679132968"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679132969"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679132970"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679132971"><span class="hs-identifier hs-var">accept</span></a><span>
|
||||
</span><a name="line-148"></a><span> </span><a name="local-6989586621679132975"><a href="#local-6989586621679132975"><span class="hs-identifier">parsedResult</span></a></a><span> </span><span class="hs-glyph"><-</span><span>
|
||||
</span><a name="line-149"></a><span> </span><a href="SwaggerPetstore.Client.html#runExceptionLoggingT"><span class="hs-identifier hs-var">runExceptionLoggingT</span></a><span> </span><span class="hs-string">"Client"</span><span> </span><a href="#local-6989586621679132969"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-150"></a><span> </span><span class="hs-keyword">do</span><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier hs-var">mimeUnrender'</span></a><span> </span><a href="#local-6989586621679132971"><span class="hs-identifier hs-var">accept</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">responseBody</span><span> </span><a href="#local-6989586621679132972"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-151"></a><span> </span><span class="hs-identifier hs-var">Left</span><span> </span><a name="local-6989586621679132973"><a href="#local-6989586621679132973"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-152"></a><span> </span><a href="SwaggerPetstore.Client.html#logNST"><span class="hs-identifier hs-var">logNST</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">LevelError</span><span> </span><span class="hs-string">"Client"</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><a href="#local-6989586621679132973"><span class="hs-identifier hs-var">s</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-153"></a><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Left</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier hs-var">MimeError</span></a><span> </span><a href="#local-6989586621679132973"><span class="hs-identifier hs-var">s</span></a><span> </span><a href="#local-6989586621679132972"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-154"></a><span> </span><span class="hs-identifier hs-var">Right</span><span> </span><a name="local-6989586621679132974"><a href="#local-6989586621679132974"><span class="hs-identifier">r</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Right</span><span> </span><a href="#local-6989586621679132974"><span class="hs-identifier hs-var">r</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-155"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-var">MimeResult</span></a><span> </span><a href="#local-6989586621679132975"><span class="hs-identifier hs-var">parsedResult</span></a><span> </span><a href="#local-6989586621679132972"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-143"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679134055"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679134058"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679134057"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-144"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679134056"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-145"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-type">MimeResult</span></a><span> </span><a href="#local-6989586621679134057"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-146"></a><a name="dispatchMime"><a href="SwaggerPetstore.Client.html#dispatchMime"><span class="hs-identifier">dispatchMime</span></a></a><span> </span><a name="local-6989586621679134071"><a href="#local-6989586621679134071"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679134072"><a href="#local-6989586621679134072"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679134073"><a href="#local-6989586621679134073"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679134074"><a href="#local-6989586621679134074"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-147"></a><span> </span><a name="local-6989586621679134075"><a href="#local-6989586621679134075"><span class="hs-identifier">httpResponse</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#dispatchLbs"><span class="hs-identifier hs-var">dispatchLbs</span></a><span> </span><a href="#local-6989586621679134071"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679134072"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679134073"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679134074"><span class="hs-identifier hs-var">accept</span></a><span>
|
||||
</span><a name="line-148"></a><span> </span><a name="local-6989586621679134078"><a href="#local-6989586621679134078"><span class="hs-identifier">parsedResult</span></a></a><span> </span><span class="hs-glyph"><-</span><span>
|
||||
</span><a name="line-149"></a><span> </span><a href="SwaggerPetstore.Client.html#runExceptionLoggingT"><span class="hs-identifier hs-var">runExceptionLoggingT</span></a><span> </span><span class="hs-string">"Client"</span><span> </span><a href="#local-6989586621679134072"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-150"></a><span> </span><span class="hs-keyword">do</span><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier hs-var">mimeUnrender'</span></a><span> </span><a href="#local-6989586621679134074"><span class="hs-identifier hs-var">accept</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">responseBody</span><span> </span><a href="#local-6989586621679134075"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-151"></a><span> </span><span class="hs-identifier hs-var">Left</span><span> </span><a name="local-6989586621679134076"><a href="#local-6989586621679134076"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-152"></a><span> </span><a href="SwaggerPetstore.Client.html#logNST"><span class="hs-identifier hs-var">logNST</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">LevelError</span><span> </span><span class="hs-string">"Client"</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><a href="#local-6989586621679134076"><span class="hs-identifier hs-var">s</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-153"></a><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Left</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier hs-var">MimeError</span></a><span> </span><a href="#local-6989586621679134076"><span class="hs-identifier hs-var">s</span></a><span> </span><a href="#local-6989586621679134075"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-154"></a><span> </span><span class="hs-identifier hs-var">Right</span><span> </span><a name="local-6989586621679134077"><a href="#local-6989586621679134077"><span class="hs-identifier">r</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Right</span><span> </span><a href="#local-6989586621679134077"><span class="hs-identifier hs-var">r</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-155"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-var">MimeResult</span></a><span> </span><a href="#local-6989586621679134078"><span class="hs-identifier hs-var">parsedResult</span></a><span> </span><a href="#local-6989586621679134075"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-156"></a><span>
|
||||
</span><a name="line-157"></a><span class="hs-comment">-- | like 'dispatchMime', but only returns the decoded http body</span><span>
|
||||
</span><a name="line-158"></a><span class="hs-identifier">dispatchMime'</span><span>
|
||||
</span><a name="line-159"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="#local-6989586621679132948"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679132949"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="#local-6989586621679132949"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679132950"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679132951"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-159"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="#local-6989586621679134051"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679134052"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="#local-6989586621679134052"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679134053"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679134054"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-160"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-161"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-162"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679132948"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679132951"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679132950"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-163"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679132949"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-164"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Either</span><span> </span><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier hs-type">MimeError</span></a><span> </span><a href="#local-6989586621679132950"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-165"></a><a name="dispatchMime%27"><a href="SwaggerPetstore.Client.html#dispatchMime%27"><span class="hs-identifier">dispatchMime'</span></a></a><span> </span><a name="local-6989586621679132976"><a href="#local-6989586621679132976"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679132977"><a href="#local-6989586621679132977"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679132978"><a href="#local-6989586621679132978"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679132979"><a href="#local-6989586621679132979"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-166"></a><span> </span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-var">MimeResult</span></a><span> </span><a name="local-6989586621679132980"><a href="#local-6989586621679132980"><span class="hs-identifier">parsedResult</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#dispatchMime"><span class="hs-identifier hs-var">dispatchMime</span></a><span> </span><a href="#local-6989586621679132976"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679132977"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679132978"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679132979"><span class="hs-identifier hs-var">accept</span></a><span> </span><span>
|
||||
</span><a name="line-167"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679132980"><span class="hs-identifier hs-var">parsedResult</span></a><span>
|
||||
</span><a name="line-162"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679134051"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679134054"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679134053"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-163"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679134052"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-164"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Either</span><span> </span><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier hs-type">MimeError</span></a><span> </span><a href="#local-6989586621679134053"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-165"></a><a name="dispatchMime%27"><a href="SwaggerPetstore.Client.html#dispatchMime%27"><span class="hs-identifier">dispatchMime'</span></a></a><span> </span><a name="local-6989586621679134079"><a href="#local-6989586621679134079"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679134080"><a href="#local-6989586621679134080"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679134081"><a href="#local-6989586621679134081"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679134082"><a href="#local-6989586621679134082"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-166"></a><span> </span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-var">MimeResult</span></a><span> </span><a name="local-6989586621679134083"><a href="#local-6989586621679134083"><span class="hs-identifier">parsedResult</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#dispatchMime"><span class="hs-identifier hs-var">dispatchMime</span></a><span> </span><a href="#local-6989586621679134079"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679134080"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679134081"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679134082"><span class="hs-identifier hs-var">accept</span></a><span> </span><span>
|
||||
</span><a name="line-167"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679134083"><span class="hs-identifier hs-var">parsedResult</span></a><span>
|
||||
</span><a name="line-168"></a><span>
|
||||
</span><a name="line-169"></a><span class="hs-comment">-- ** Unsafe</span><span>
|
||||
</span><a name="line-170"></a><span>
|
||||
</span><a name="line-171"></a><span class="hs-comment">-- | like 'dispatchReqLbs', but does not validate the operation is a 'Producer' of the "accept" 'MimeType'. (Useful if the server's response is undocumented)</span><span>
|
||||
</span><a name="line-172"></a><span class="hs-identifier">dispatchLbsUnsafe</span><span>
|
||||
</span><a name="line-173"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679132944"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679132945"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-173"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679134047"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679134048"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-174"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-175"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-176"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679132946"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679132945"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679132947"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-177"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679132944"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-176"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679134049"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679134048"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679134050"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-177"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679134047"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-178"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-179"></a><a name="dispatchLbsUnsafe"><a href="SwaggerPetstore.Client.html#dispatchLbsUnsafe"><span class="hs-identifier">dispatchLbsUnsafe</span></a></a><span> </span><a name="local-6989586621679132981"><a href="#local-6989586621679132981"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679132982"><a href="#local-6989586621679132982"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679132983"><a href="#local-6989586621679132983"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679132984"><a href="#local-6989586621679132984"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-180"></a><span> </span><a name="local-6989586621679132985"><a href="#local-6989586621679132985"><span class="hs-identifier">initReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier hs-var">_toInitRequest</span></a><span> </span><a href="#local-6989586621679132982"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679132983"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679132984"><span class="hs-identifier hs-var">accept</span></a><span>
|
||||
</span><a name="line-181"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679132981"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679132982"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679132985"><span class="hs-identifier hs-var">initReq</span></a><span>
|
||||
</span><a name="line-179"></a><a name="dispatchLbsUnsafe"><a href="SwaggerPetstore.Client.html#dispatchLbsUnsafe"><span class="hs-identifier">dispatchLbsUnsafe</span></a></a><span> </span><a name="local-6989586621679134084"><a href="#local-6989586621679134084"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679134085"><a href="#local-6989586621679134085"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679134086"><a href="#local-6989586621679134086"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679134087"><a href="#local-6989586621679134087"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-180"></a><span> </span><a name="local-6989586621679134088"><a href="#local-6989586621679134088"><span class="hs-identifier">initReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier hs-var">_toInitRequest</span></a><span> </span><a href="#local-6989586621679134085"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679134086"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679134087"><span class="hs-identifier hs-var">accept</span></a><span>
|
||||
</span><a name="line-181"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679134084"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679134085"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679134088"><span class="hs-identifier hs-var">initReq</span></a><span>
|
||||
</span><a name="line-182"></a><span>
|
||||
</span><a name="line-183"></a><span class="hs-comment">-- | dispatch an InitRequest</span><span>
|
||||
</span><a name="line-184"></a><span class="hs-identifier">dispatchInitUnsafe</span><span>
|
||||
</span><a name="line-185"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Manager</span><span> </span><span class="hs-comment">-- ^ http-client Connection manager</span><span>
|
||||
</span><a name="line-186"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-187"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679132940"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679132941"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679132942"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679132943"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ init request</span><span>
|
||||
</span><a name="line-187"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679134043"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679134044"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679134045"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679134046"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ init request</span><span>
|
||||
</span><a name="line-188"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-189"></a><a name="dispatchInitUnsafe"><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier">dispatchInitUnsafe</span></a></a><span> </span><a name="local-6989586621679132986"><a href="#local-6989586621679132986"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679132987"><a href="#local-6989586621679132987"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a name="local-6989586621679132988"><a href="#local-6989586621679132988"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-190"></a><span> </span><a href="SwaggerPetstore.Client.html#runExceptionLoggingT"><span class="hs-identifier hs-var">runExceptionLoggingT</span></a><span> </span><a href="#local-6989586621679132989"><span class="hs-identifier hs-var">logSrc</span></a><span> </span><a href="#local-6989586621679132987"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-191"></a><span> </span><span class="hs-keyword">do</span><span> </span><a href="SwaggerPetstore.Client.html#logNST"><span class="hs-identifier hs-var">logNST</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">LevelInfo</span><span> </span><a href="#local-6989586621679132989"><span class="hs-identifier hs-var">logSrc</span></a><span> </span><a href="#local-6989586621679132991"><span class="hs-identifier hs-var">requestLogMsg</span></a><span>
|
||||
</span><a name="line-192"></a><span> </span><a href="SwaggerPetstore.Client.html#logNST"><span class="hs-identifier hs-var">logNST</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">LevelDebug</span><span> </span><a href="#local-6989586621679132989"><span class="hs-identifier hs-var">logSrc</span></a><span> </span><a href="#local-6989586621679132992"><span class="hs-identifier hs-var">requestDbgLogMsg</span></a><span>
|
||||
</span><a name="line-193"></a><span> </span><a name="local-6989586621679133424"><a href="#local-6989586621679133424"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">liftIO</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">httpLbs</span><span> </span><a href="#local-6989586621679132988"><span class="hs-identifier hs-var">req</span></a><span> </span><a href="#local-6989586621679132986"><span class="hs-identifier hs-var">manager</span></a><span>
|
||||
</span><a name="line-194"></a><span> </span><a href="SwaggerPetstore.Client.html#logNST"><span class="hs-identifier hs-var">logNST</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">LevelInfo</span><span> </span><a href="#local-6989586621679132989"><span class="hs-identifier hs-var">logSrc</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679132994"><span class="hs-identifier hs-var">responseLogMsg</span></a><span> </span><a href="#local-6989586621679133424"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-195"></a><span> </span><a href="SwaggerPetstore.Client.html#logNST"><span class="hs-identifier hs-var">logNST</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">LevelDebug</span><span> </span><a href="#local-6989586621679132989"><span class="hs-identifier hs-var">logSrc</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679133424"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-196"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679133424"><span class="hs-identifier hs-var">res</span></a><span>
|
||||
</span><a name="line-189"></a><a name="dispatchInitUnsafe"><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier">dispatchInitUnsafe</span></a></a><span> </span><a name="local-6989586621679134089"><a href="#local-6989586621679134089"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679134090"><a href="#local-6989586621679134090"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a name="local-6989586621679134091"><a href="#local-6989586621679134091"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-190"></a><span> </span><a href="SwaggerPetstore.Client.html#runExceptionLoggingT"><span class="hs-identifier hs-var">runExceptionLoggingT</span></a><span> </span><a href="#local-6989586621679134092"><span class="hs-identifier hs-var">logSrc</span></a><span> </span><a href="#local-6989586621679134090"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-191"></a><span> </span><span class="hs-keyword">do</span><span> </span><a href="SwaggerPetstore.Client.html#logNST"><span class="hs-identifier hs-var">logNST</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">LevelInfo</span><span> </span><a href="#local-6989586621679134092"><span class="hs-identifier hs-var">logSrc</span></a><span> </span><a href="#local-6989586621679134094"><span class="hs-identifier hs-var">requestLogMsg</span></a><span>
|
||||
</span><a name="line-192"></a><span> </span><a href="SwaggerPetstore.Client.html#logNST"><span class="hs-identifier hs-var">logNST</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">LevelDebug</span><span> </span><a href="#local-6989586621679134092"><span class="hs-identifier hs-var">logSrc</span></a><span> </span><a href="#local-6989586621679134095"><span class="hs-identifier hs-var">requestDbgLogMsg</span></a><span>
|
||||
</span><a name="line-193"></a><span> </span><a name="local-6989586621679134527"><a href="#local-6989586621679134527"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">liftIO</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">httpLbs</span><span> </span><a href="#local-6989586621679134091"><span class="hs-identifier hs-var">req</span></a><span> </span><a href="#local-6989586621679134089"><span class="hs-identifier hs-var">manager</span></a><span>
|
||||
</span><a name="line-194"></a><span> </span><a href="SwaggerPetstore.Client.html#logNST"><span class="hs-identifier hs-var">logNST</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">LevelInfo</span><span> </span><a href="#local-6989586621679134092"><span class="hs-identifier hs-var">logSrc</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679134097"><span class="hs-identifier hs-var">responseLogMsg</span></a><span> </span><a href="#local-6989586621679134527"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-195"></a><span> </span><a href="SwaggerPetstore.Client.html#logNST"><span class="hs-identifier hs-var">logNST</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">LevelDebug</span><span> </span><a href="#local-6989586621679134092"><span class="hs-identifier hs-var">logSrc</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679134527"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-196"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679134527"><span class="hs-identifier hs-var">res</span></a><span>
|
||||
</span><a name="line-197"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-198"></a><span> </span><a name="local-6989586621679132989"><a href="#local-6989586621679132989"><span class="hs-identifier">logSrc</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"Client"</span><span>
|
||||
</span><a name="line-199"></a><span> </span><a name="local-6989586621679132990"><a href="#local-6989586621679132990"><span class="hs-identifier">endpoint</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-198"></a><span> </span><a name="local-6989586621679134092"><a href="#local-6989586621679134092"><span class="hs-identifier">logSrc</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"Client"</span><span>
|
||||
</span><a name="line-199"></a><span> </span><a name="local-6989586621679134093"><a href="#local-6989586621679134093"><span class="hs-identifier">endpoint</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-200"></a><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-201"></a><span> </span><span class="hs-identifier hs-var">BC</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-202"></a><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">method</span><span> </span><a href="#local-6989586621679132988"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" "</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">host</span><span> </span><a href="#local-6989586621679132988"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">path</span><span> </span><a href="#local-6989586621679132988"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">queryString</span><span> </span><a href="#local-6989586621679132988"><span class="hs-identifier hs-var">req</span></a><span>
|
||||
</span><a name="line-203"></a><span> </span><a name="local-6989586621679132991"><a href="#local-6989586621679132991"><span class="hs-identifier">requestLogMsg</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"REQ:"</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679132990"><span class="hs-identifier hs-var">endpoint</span></a><span>
|
||||
</span><a name="line-204"></a><span> </span><a name="local-6989586621679132992"><a href="#local-6989586621679132992"><span class="hs-identifier">requestDbgLogMsg</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-205"></a><span> </span><span class="hs-string">"Headers="</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestHeaders</span><span> </span><a href="#local-6989586621679132988"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" Body="</span><span> </span><span class="hs-operator hs-var"><></span><span>
|
||||
</span><a name="line-206"></a><span> </span><span class="hs-special">(</span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><a href="#local-6989586621679132988"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-207"></a><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyLBS</span><span> </span><a name="local-6989586621679132995"><a href="#local-6989586621679132995"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span> </span><a href="#local-6989586621679132995"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-202"></a><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">method</span><span> </span><a href="#local-6989586621679134091"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" "</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">host</span><span> </span><a href="#local-6989586621679134091"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">path</span><span> </span><a href="#local-6989586621679134091"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">queryString</span><span> </span><a href="#local-6989586621679134091"><span class="hs-identifier hs-var">req</span></a><span>
|
||||
</span><a name="line-203"></a><span> </span><a name="local-6989586621679134094"><a href="#local-6989586621679134094"><span class="hs-identifier">requestLogMsg</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"REQ:"</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679134093"><span class="hs-identifier hs-var">endpoint</span></a><span>
|
||||
</span><a name="line-204"></a><span> </span><a name="local-6989586621679134095"><a href="#local-6989586621679134095"><span class="hs-identifier">requestDbgLogMsg</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-205"></a><span> </span><span class="hs-string">"Headers="</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestHeaders</span><span> </span><a href="#local-6989586621679134091"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" Body="</span><span> </span><span class="hs-operator hs-var"><></span><span>
|
||||
</span><a name="line-206"></a><span> </span><span class="hs-special">(</span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><a href="#local-6989586621679134091"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-207"></a><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyLBS</span><span> </span><a name="local-6989586621679134098"><a href="#local-6989586621679134098"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span> </span><a href="#local-6989586621679134098"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-208"></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-string">"<RequestBody>"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-209"></a><span> </span><a name="local-6989586621679132993"><a href="#local-6989586621679132993"><span class="hs-identifier">responseStatusCode</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">statusCode</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">responseStatus</span><span>
|
||||
</span><a name="line-210"></a><span> </span><a name="local-6989586621679132994"><a href="#local-6989586621679132994"><span class="hs-identifier">responseLogMsg</span></a></a><span> </span><a name="local-6989586621679133370"><a href="#local-6989586621679133370"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-211"></a><span> </span><span class="hs-string">"RES:statusCode="</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679132993"><span class="hs-identifier hs-var">responseStatusCode</span></a><span> </span><a href="#local-6989586621679133370"><span class="hs-identifier hs-var">res</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" ("</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679132990"><span class="hs-identifier hs-var">endpoint</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">")"</span><span>
|
||||
</span><a name="line-209"></a><span> </span><a name="local-6989586621679134096"><a href="#local-6989586621679134096"><span class="hs-identifier">responseStatusCode</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">statusCode</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">responseStatus</span><span>
|
||||
</span><a name="line-210"></a><span> </span><a name="local-6989586621679134097"><a href="#local-6989586621679134097"><span class="hs-identifier">responseLogMsg</span></a></a><span> </span><a name="local-6989586621679134473"><a href="#local-6989586621679134473"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-211"></a><span> </span><span class="hs-string">"RES:statusCode="</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679134096"><span class="hs-identifier hs-var">responseStatusCode</span></a><span> </span><a href="#local-6989586621679134473"><span class="hs-identifier hs-var">res</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" ("</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679134093"><span class="hs-identifier hs-var">endpoint</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">")"</span><span>
|
||||
</span><a name="line-212"></a><span>
|
||||
</span><a name="line-213"></a><span class="hs-comment">-- * InitRequest</span><span>
|
||||
</span><a name="line-214"></a><span>
|
||||
</span><a name="line-215"></a><span class="hs-comment">-- | wraps an http-client 'Request' with request/response type parameters</span><span>
|
||||
</span><a name="line-216"></a><span class="hs-keyword">newtype</span><span> </span><a name="InitRequest"><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier">InitRequest</span></a></a><span> </span><a name="local-6989586621679132824"><a href="#local-6989586621679132824"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679132825"><a href="#local-6989586621679132825"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679132826"><a href="#local-6989586621679132826"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679132827"><a href="#local-6989586621679132827"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="InitRequest"><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier">InitRequest</span></a></a><span>
|
||||
</span><a name="line-216"></a><span class="hs-keyword">newtype</span><span> </span><a name="InitRequest"><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier">InitRequest</span></a></a><span> </span><a name="local-6989586621679133927"><a href="#local-6989586621679133927"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679133928"><a href="#local-6989586621679133928"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679133929"><a href="#local-6989586621679133929"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679133930"><a href="#local-6989586621679133930"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="InitRequest"><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier">InitRequest</span></a></a><span>
|
||||
</span><a name="line-217"></a><span> </span><span class="hs-special">{</span><span> </span><a name="unInitRequest"><a href="SwaggerPetstore.Client.html#unInitRequest"><span class="hs-identifier">unInitRequest</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span>
|
||||
</span><a name="line-218"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-219"></a><span>
|
||||
</span><a name="line-220"></a><span class="hs-comment">-- | Build an http-client 'Request' record from the supplied config and request</span><span>
|
||||
</span><a name="line-221"></a><span class="hs-identifier">_toInitRequest</span><span>
|
||||
</span><a name="line-222"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679132936"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679132937"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-222"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679134039"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679134040"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-223"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-224"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679132938"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679132937"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679132939"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-225"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679132936"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-226"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679132938"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679132937"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679132939"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679132936"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ initialized request</span><span>
|
||||
</span><a name="line-227"></a><a name="_toInitRequest"><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier">_toInitRequest</span></a></a><span> </span><a name="local-6989586621679133425"><a href="#local-6989586621679133425"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679133426"><a href="#local-6989586621679133426"><span class="hs-identifier">req0</span></a></a><span> </span><a name="local-6989586621679133427"><a href="#local-6989586621679133427"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-228"></a><span> </span><a name="local-6989586621679133428"><a href="#local-6989586621679133428"><span class="hs-identifier">parsedReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">parseRequest</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">append</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configHost</span><span> </span><a href="#local-6989586621679133425"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">concat</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">urlPath</span><span> </span><a href="#local-6989586621679133426"><span class="hs-identifier hs-var">req0</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-229"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679133429"><a href="#local-6989586621679133429"><span class="hs-identifier">req1</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#_setAcceptHeader"><span class="hs-identifier hs-var">_setAcceptHeader</span></a><span> </span><a href="#local-6989586621679133426"><span class="hs-identifier hs-var">req0</span></a><span> </span><a href="#local-6989586621679133427"><span class="hs-identifier hs-var">accept</span></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><a href="SwaggerPetstore.API.html#_setContentTypeHeader"><span class="hs-identifier hs-var">_setContentTypeHeader</span></a><span>
|
||||
</span><a name="line-230"></a><span> </span><a name="local-6989586621679133430"><a href="#local-6989586621679133430"><span class="hs-identifier">reqHeaders</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-string">"User-Agent"</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toHeader</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configUserAgent</span><span> </span><a href="#local-6989586621679133425"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">:</span><span> </span><span class="hs-identifier">paramsHeaders</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679133429"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-231"></a><span> </span><a name="local-6989586621679133431"><a href="#local-6989586621679133431"><span class="hs-identifier">reqQuery</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">renderQuery</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">paramsQuery</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679133429"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-232"></a><span> </span><a name="local-6989586621679133432"><a href="#local-6989586621679133432"><span class="hs-identifier">pReq</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679133428"><span class="hs-identifier hs-var">parsedReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">method</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rMethod</span><span> </span><a href="#local-6989586621679133429"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-233"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestHeaders</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679133430"><span class="hs-identifier hs-var">reqHeaders</span></a><span>
|
||||
</span><a name="line-234"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">queryString</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679133431"><span class="hs-identifier hs-var">reqQuery</span></a><span>
|
||||
</span><a name="line-224"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679134041"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679134040"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679134042"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-225"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679134039"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-226"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679134041"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679134040"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679134042"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679134039"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ initialized request</span><span>
|
||||
</span><a name="line-227"></a><a name="_toInitRequest"><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier">_toInitRequest</span></a></a><span> </span><a name="local-6989586621679134528"><a href="#local-6989586621679134528"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679134529"><a href="#local-6989586621679134529"><span class="hs-identifier">req0</span></a></a><span> </span><a name="local-6989586621679134530"><a href="#local-6989586621679134530"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-228"></a><span> </span><a name="local-6989586621679134531"><a href="#local-6989586621679134531"><span class="hs-identifier">parsedReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">parseRequest</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">append</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configHost</span><span> </span><a href="#local-6989586621679134528"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">concat</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rUrlPath</span><span> </span><a href="#local-6989586621679134529"><span class="hs-identifier hs-var">req0</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-229"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679134532"><a href="#local-6989586621679134532"><span class="hs-identifier">req1</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#_setAcceptHeader"><span class="hs-identifier hs-var">_setAcceptHeader</span></a><span> </span><a href="#local-6989586621679134529"><span class="hs-identifier hs-var">req0</span></a><span> </span><a href="#local-6989586621679134530"><span class="hs-identifier hs-var">accept</span></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><a href="SwaggerPetstore.API.html#_setContentTypeHeader"><span class="hs-identifier hs-var">_setContentTypeHeader</span></a><span>
|
||||
</span><a name="line-230"></a><span> </span><a name="local-6989586621679134533"><a href="#local-6989586621679134533"><span class="hs-identifier">reqHeaders</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-string">"User-Agent"</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toHeader</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configUserAgent</span><span> </span><a href="#local-6989586621679134528"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">:</span><span> </span><span class="hs-identifier">paramsHeaders</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679134532"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-231"></a><span> </span><a name="local-6989586621679134534"><a href="#local-6989586621679134534"><span class="hs-identifier">reqQuery</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">renderQuery</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">paramsQuery</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679134532"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-232"></a><span> </span><a name="local-6989586621679134535"><a href="#local-6989586621679134535"><span class="hs-identifier">pReq</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679134531"><span class="hs-identifier hs-var">parsedReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">method</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rMethod</span><span> </span><a href="#local-6989586621679134532"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-233"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestHeaders</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679134533"><span class="hs-identifier hs-var">reqHeaders</span></a><span>
|
||||
</span><a name="line-234"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">queryString</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679134534"><span class="hs-identifier hs-var">reqQuery</span></a><span>
|
||||
</span><a name="line-235"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-236"></a><span> </span><a name="local-6989586621679133437"><a href="#local-6989586621679133437"><span class="hs-identifier">outReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679133429"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-237"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyNone"><span class="hs-identifier hs-var">ParamBodyNone</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679133432"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">mempty</span><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-238"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyB"><span class="hs-identifier hs-var">ParamBodyB</span></a><span> </span><a name="local-6989586621679133433"><a href="#local-6989586621679133433"><span class="hs-identifier">bs</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679133432"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyBS</span><span> </span><a href="#local-6989586621679133433"><span class="hs-identifier hs-var">bs</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-239"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyBL"><span class="hs-identifier hs-var">ParamBodyBL</span></a><span> </span><a name="local-6989586621679133434"><a href="#local-6989586621679133434"><span class="hs-identifier">bl</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679133432"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyLBS</span><span> </span><a href="#local-6989586621679133434"><span class="hs-identifier hs-var">bl</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-240"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><a name="local-6989586621679133435"><a href="#local-6989586621679133435"><span class="hs-identifier">form</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679133432"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyLBS</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlEncodeForm</span><span> </span><a href="#local-6989586621679133435"><span class="hs-identifier hs-var">form</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-241"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><a name="local-6989586621679133436"><a href="#local-6989586621679133436"><span class="hs-identifier">parts</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formDataBody</span><span> </span><a href="#local-6989586621679133436"><span class="hs-identifier hs-var">parts</span></a><span> </span><a href="#local-6989586621679133432"><span class="hs-identifier hs-var">pReq</span></a><span>
|
||||
</span><a name="line-236"></a><span> </span><a name="local-6989586621679134540"><a href="#local-6989586621679134540"><span class="hs-identifier">outReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679134532"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-237"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyNone"><span class="hs-identifier hs-var">ParamBodyNone</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679134535"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">mempty</span><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-238"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyB"><span class="hs-identifier hs-var">ParamBodyB</span></a><span> </span><a name="local-6989586621679134536"><a href="#local-6989586621679134536"><span class="hs-identifier">bs</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679134535"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyBS</span><span> </span><a href="#local-6989586621679134536"><span class="hs-identifier hs-var">bs</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-239"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyBL"><span class="hs-identifier hs-var">ParamBodyBL</span></a><span> </span><a name="local-6989586621679134537"><a href="#local-6989586621679134537"><span class="hs-identifier">bl</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679134535"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyLBS</span><span> </span><a href="#local-6989586621679134537"><span class="hs-identifier hs-var">bl</span></a><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-240"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><a name="local-6989586621679134538"><a href="#local-6989586621679134538"><span class="hs-identifier">form</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679134535"><span class="hs-identifier hs-var">pReq</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestBody</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">RequestBodyLBS</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlEncodeForm</span><span> </span><a href="#local-6989586621679134538"><span class="hs-identifier hs-var">form</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-241"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><a name="local-6989586621679134539"><a href="#local-6989586621679134539"><span class="hs-identifier">parts</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formDataBody</span><span> </span><a href="#local-6989586621679134539"><span class="hs-identifier hs-var">parts</span></a><span> </span><a href="#local-6989586621679134535"><span class="hs-identifier hs-var">pReq</span></a><span>
|
||||
</span><a name="line-242"></a><span>
|
||||
</span><a name="line-243"></a><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a href="#local-6989586621679133437"><span class="hs-identifier hs-var">outReq</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-243"></a><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a href="#local-6989586621679134540"><span class="hs-identifier hs-var">outReq</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-244"></a><span>
|
||||
</span><a name="line-245"></a><span class="hs-comment">-- | modify the underlying Request</span><span>
|
||||
</span><a name="line-246"></a><span class="hs-identifier">modifyInitRequest</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679132932"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679132933"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679132934"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679132935"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679132932"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679132933"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679132934"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679132935"><span class="hs-identifier hs-type">accept</span></a><span> </span><span>
|
||||
</span><a name="line-247"></a><a name="modifyInitRequest"><a href="SwaggerPetstore.Client.html#modifyInitRequest"><span class="hs-identifier">modifyInitRequest</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a name="local-6989586621679133438"><a href="#local-6989586621679133438"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679133439"><a href="#local-6989586621679133439"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679133439"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679133438"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-246"></a><span class="hs-identifier">modifyInitRequest</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679134035"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679134036"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679134037"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679134038"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679134035"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679134036"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679134037"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679134038"><span class="hs-identifier hs-type">accept</span></a><span> </span><span>
|
||||
</span><a name="line-247"></a><a name="modifyInitRequest"><a href="SwaggerPetstore.Client.html#modifyInitRequest"><span class="hs-identifier">modifyInitRequest</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a name="local-6989586621679134541"><a href="#local-6989586621679134541"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679134542"><a href="#local-6989586621679134542"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679134542"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679134541"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-248"></a><span>
|
||||
</span><a name="line-249"></a><span class="hs-comment">-- | modify the underlying Request (monadic)</span><span>
|
||||
</span><a name="line-250"></a><span class="hs-identifier">modifyInitRequestM</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679132927"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679132928"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679132929"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679132930"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679132931"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679132927"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679132927"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679132928"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679132929"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679132930"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679132931"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-251"></a><a name="modifyInitRequestM"><a href="SwaggerPetstore.Client.html#modifyInitRequestM"><span class="hs-identifier">modifyInitRequestM</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a name="local-6989586621679133440"><a href="#local-6989586621679133440"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679133441"><a href="#local-6989586621679133441"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679133441"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679133440"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-250"></a><span class="hs-identifier">modifyInitRequestM</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679134030"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679134031"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679134032"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679134033"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679134034"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679134030"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679134030"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679134031"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679134032"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679134033"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679134034"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-251"></a><a name="modifyInitRequestM"><a href="SwaggerPetstore.Client.html#modifyInitRequestM"><span class="hs-identifier">modifyInitRequestM</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><a name="local-6989586621679134543"><a href="#local-6989586621679134543"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679134544"><a href="#local-6989586621679134544"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-var">InitRequest</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679134544"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679134543"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-252"></a><span>
|
||||
</span><a name="line-253"></a><span class="hs-comment">-- * Logging</span><span>
|
||||
</span><a name="line-254"></a><span>
|
||||
</span><a name="line-255"></a><span class="hs-comment">-- | A block using a MonadLogger instance</span><span>
|
||||
</span><a name="line-256"></a><span class="hs-keyword">type</span><span> </span><a name="ExecLoggingT"><a href="SwaggerPetstore.Client.html#ExecLoggingT"><span class="hs-identifier">ExecLoggingT</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679132822"><a href="#local-6989586621679132822"><span class="hs-identifier">m</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679132822"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span>
|
||||
</span><a name="line-257"></a><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679132823"><a href="#local-6989586621679132823"><span class="hs-identifier">a</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">LoggingT</span><span> </span><a href="#local-6989586621679132822"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132823"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679132822"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132823"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-256"></a><span class="hs-keyword">type</span><span> </span><a name="ExecLoggingT"><a href="SwaggerPetstore.Client.html#ExecLoggingT"><span class="hs-identifier">ExecLoggingT</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679133925"><a href="#local-6989586621679133925"><span class="hs-identifier">m</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679133925"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span>
|
||||
</span><a name="line-257"></a><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679133926"><a href="#local-6989586621679133926"><span class="hs-identifier">a</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">LoggingT</span><span> </span><a href="#local-6989586621679133925"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679133926"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679133925"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679133926"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-258"></a><span>
|
||||
</span><a name="line-259"></a><span class="hs-comment">-- ** Null Logger</span><span>
|
||||
</span><a name="line-260"></a><span>
|
||||
@ -263,7 +263,7 @@ Module : SwaggerPetstore.Client
|
||||
</span><a name="line-263"></a><a name="nullLogger"><a href="SwaggerPetstore.Client.html#nullLogger"><span class="hs-identifier">nullLogger</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-264"></a><span>
|
||||
</span><a name="line-265"></a><span class="hs-comment">-- | run the monad transformer that disables logging</span><span>
|
||||
</span><a name="line-266"></a><span class="hs-identifier">runNullLoggingT</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">LoggingT</span><span> </span><a href="#local-6989586621679132834"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132835"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679132834"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132835"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-266"></a><span class="hs-identifier">runNullLoggingT</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">LoggingT</span><span> </span><a href="#local-6989586621679133937"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679133938"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679133937"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679133938"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-267"></a><a name="runNullLoggingT"><a href="SwaggerPetstore.Client.html#runNullLoggingT"><span class="hs-identifier">runNullLoggingT</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-special">`</span><span class="hs-identifier">LG</span><span class="hs-operator">.</span><span class="hs-identifier">runLoggingT</span><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Client.html#nullLogger"><span class="hs-identifier hs-var">nullLogger</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-268"></a><span>
|
||||
</span><a name="line-269"></a><span class="hs-comment">-- ** Logging Filters</span><span>
|
||||
@ -281,38 +281,38 @@ Module : SwaggerPetstore.Client
|
||||
</span><a name="line-281"></a><a name="debugLevelFilter"><a href="SwaggerPetstore.Client.html#debugLevelFilter"><span class="hs-identifier">debugLevelFilter</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Client.html#minLevelFilter"><span class="hs-identifier hs-var">minLevelFilter</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">LevelDebug</span><span>
|
||||
</span><a name="line-282"></a><span>
|
||||
</span><a name="line-283"></a><span class="hs-identifier">minLevelFilter</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">LogLevel</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">LogSource</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">LogLevel</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Bool</span><span>
|
||||
</span><a name="line-284"></a><a name="minLevelFilter"><a href="SwaggerPetstore.Client.html#minLevelFilter"><span class="hs-identifier">minLevelFilter</span></a></a><span> </span><a name="local-6989586621679133442"><a href="#local-6989586621679133442"><span class="hs-identifier">l</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679133443"><a href="#local-6989586621679133443"><span class="hs-identifier">l'</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679133443"><span class="hs-identifier hs-var">l'</span></a><span> </span><span class="hs-operator hs-var">>=</span><span> </span><a href="#local-6989586621679133442"><span class="hs-identifier hs-var">l</span></a><span>
|
||||
</span><a name="line-284"></a><a name="minLevelFilter"><a href="SwaggerPetstore.Client.html#minLevelFilter"><span class="hs-identifier">minLevelFilter</span></a></a><span> </span><a name="local-6989586621679134545"><a href="#local-6989586621679134545"><span class="hs-identifier">l</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679134546"><a href="#local-6989586621679134546"><span class="hs-identifier">l'</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679134546"><span class="hs-identifier hs-var">l'</span></a><span> </span><span class="hs-operator hs-var">>=</span><span> </span><a href="#local-6989586621679134545"><span class="hs-identifier hs-var">l</span></a><span>
|
||||
</span><a name="line-285"></a><span>
|
||||
</span><a name="line-286"></a><span class="hs-comment">-- ** Logging </span><span>
|
||||
</span><a name="line-287"></a><span>
|
||||
</span><a name="line-288"></a><span class="hs-comment">-- | Log a message using the current time</span><span>
|
||||
</span><a name="line-289"></a><span class="hs-identifier">logNST</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679132833"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadLogger</span><span> </span><a href="#local-6989586621679132833"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">LogLevel</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679132833"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-290"></a><a name="logNST"><a href="SwaggerPetstore.Client.html#logNST"><span class="hs-identifier">logNST</span></a></a><span> </span><a name="local-6989586621679133444"><a href="#local-6989586621679133444"><span class="hs-identifier">level</span></a></a><span> </span><a name="local-6989586621679133445"><a href="#local-6989586621679133445"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679133446"><a href="#local-6989586621679133446"><span class="hs-identifier">msg</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-291"></a><span> </span><a name="local-6989586621679133478"><a href="#local-6989586621679133478"><span class="hs-identifier">now</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">liftIO</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679133448"><span class="hs-identifier hs-var">formatTimeLog</span></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">getCurrentTime</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-292"></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">logOtherNS</span><span> </span><a href="#local-6989586621679133447"><span class="hs-identifier hs-var">sourceLog</span></a><span> </span><a href="#local-6989586621679133444"><span class="hs-identifier hs-var">level</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679133478"><span class="hs-identifier hs-var">now</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" "</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679133446"><span class="hs-identifier hs-var">msg</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-289"></a><span class="hs-identifier">logNST</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679133936"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadLogger</span><span> </span><a href="#local-6989586621679133936"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">LogLevel</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679133936"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-290"></a><a name="logNST"><a href="SwaggerPetstore.Client.html#logNST"><span class="hs-identifier">logNST</span></a></a><span> </span><a name="local-6989586621679134547"><a href="#local-6989586621679134547"><span class="hs-identifier">level</span></a></a><span> </span><a name="local-6989586621679134548"><a href="#local-6989586621679134548"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679134549"><a href="#local-6989586621679134549"><span class="hs-identifier">msg</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-291"></a><span> </span><a name="local-6989586621679134581"><a href="#local-6989586621679134581"><span class="hs-identifier">now</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">liftIO</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679134551"><span class="hs-identifier hs-var">formatTimeLog</span></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">getCurrentTime</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-292"></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">logOtherNS</span><span> </span><a href="#local-6989586621679134550"><span class="hs-identifier hs-var">sourceLog</span></a><span> </span><a href="#local-6989586621679134547"><span class="hs-identifier hs-var">level</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679134581"><span class="hs-identifier hs-var">now</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" "</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679134549"><span class="hs-identifier hs-var">msg</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-293"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-294"></a><span> </span><a name="local-6989586621679133447"><a href="#local-6989586621679133447"><span class="hs-identifier">sourceLog</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"SwaggerPetstore/"</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679133445"><span class="hs-identifier hs-var">src</span></a><span>
|
||||
</span><a name="line-295"></a><span> </span><a name="local-6989586621679133448"><a href="#local-6989586621679133448"><span class="hs-identifier">formatTimeLog</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-294"></a><span> </span><a name="local-6989586621679134550"><a href="#local-6989586621679134550"><span class="hs-identifier">sourceLog</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"SwaggerPetstore/"</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679134548"><span class="hs-identifier hs-var">src</span></a><span>
|
||||
</span><a name="line-295"></a><span> </span><a name="local-6989586621679134551"><a href="#local-6989586621679134551"><span class="hs-identifier">formatTimeLog</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-296"></a><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formatTime</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultTimeLocale</span><span> </span><span class="hs-string">"%Y-%m-%dT%H:%M:%S%Z"</span><span>
|
||||
</span><a name="line-297"></a><span>
|
||||
</span><a name="line-298"></a><span class="hs-comment">-- | re-throws exceptions after logging them</span><span>
|
||||
</span><a name="line-299"></a><span class="hs-identifier">logExceptions</span><span>
|
||||
</span><a name="line-300"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadLogger</span><span> </span><a href="#local-6989586621679132831"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadCatch</span><span> </span><a href="#local-6989586621679132831"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679132831"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-301"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679132831"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132832"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679132831"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132832"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-302"></a><a name="logExceptions"><a href="SwaggerPetstore.Client.html#logExceptions"><span class="hs-identifier">logExceptions</span></a></a><span> </span><a name="local-6989586621679133479"><a href="#local-6989586621679133479"><span class="hs-identifier">src</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-300"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadLogger</span><span> </span><a href="#local-6989586621679133934"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadCatch</span><span> </span><a href="#local-6989586621679133934"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679133934"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-301"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679133934"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679133935"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679133934"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679133935"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-302"></a><a name="logExceptions"><a href="SwaggerPetstore.Client.html#logExceptions"><span class="hs-identifier">logExceptions</span></a></a><span> </span><a name="local-6989586621679134582"><a href="#local-6989586621679134582"><span class="hs-identifier">src</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-303"></a><span> </span><span class="hs-identifier hs-var">E</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">handle</span><span>
|
||||
</span><a name="line-304"></a><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><a name="local-6989586621679133736"><a href="#local-6989586621679133736"><span class="hs-identifier">e</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">SomeException</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-305"></a><span> </span><a href="SwaggerPetstore.Client.html#logNST"><span class="hs-identifier hs-var">logNST</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">LevelError</span><span> </span><a href="#local-6989586621679133479"><span class="hs-identifier hs-var">src</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679133736"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-306"></a><span> </span><span class="hs-identifier hs-var">E</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">throw</span><span> </span><a href="#local-6989586621679133736"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-304"></a><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><a name="local-6989586621679134839"><a href="#local-6989586621679134839"><span class="hs-identifier">e</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">SomeException</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-305"></a><span> </span><a href="SwaggerPetstore.Client.html#logNST"><span class="hs-identifier hs-var">logNST</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">LevelError</span><span> </span><a href="#local-6989586621679134582"><span class="hs-identifier hs-var">src</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679134839"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-306"></a><span> </span><span class="hs-identifier hs-var">E</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">throw</span><span> </span><a href="#local-6989586621679134839"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-307"></a><span>
|
||||
</span><a name="line-308"></a><span class="hs-comment">-- | Run a block using the configured MonadLogger instance</span><span>
|
||||
</span><a name="line-309"></a><span class="hs-identifier">runLoggingT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#ExecLoggingT"><span class="hs-identifier hs-type">ExecLoggingT</span></a><span>
|
||||
</span><a name="line-310"></a><a name="runLoggingT"><a href="SwaggerPetstore.Client.html#runLoggingT"><span class="hs-identifier">runLoggingT</span></a></a><span> </span><a name="local-6989586621679133737"><a href="#local-6989586621679133737"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-311"></a><span> </span><span class="hs-identifier">configExecLoggingT</span><span> </span><a href="#local-6989586621679133737"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">filterLogger</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configLoggingFilter</span><span> </span><a href="#local-6989586621679133737"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-310"></a><a name="runLoggingT"><a href="SwaggerPetstore.Client.html#runLoggingT"><span class="hs-identifier">runLoggingT</span></a></a><span> </span><a name="local-6989586621679134840"><a href="#local-6989586621679134840"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-311"></a><span> </span><span class="hs-identifier">configExecLoggingT</span><span> </span><a href="#local-6989586621679134840"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">filterLogger</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configLoggingFilter</span><span> </span><a href="#local-6989586621679134840"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-312"></a><span>
|
||||
</span><a name="line-313"></a><span class="hs-comment">-- | Run a block using the configured MonadLogger instance (logs exceptions)</span><span>
|
||||
</span><a name="line-314"></a><span class="hs-identifier">runExceptionLoggingT</span><span>
|
||||
</span><a name="line-315"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadCatch</span><span> </span><a href="#local-6989586621679132829"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679132829"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-316"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">LoggingT</span><span> </span><a href="#local-6989586621679132829"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132830"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679132829"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132830"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-317"></a><a name="runExceptionLoggingT"><a href="SwaggerPetstore.Client.html#runExceptionLoggingT"><span class="hs-identifier">runExceptionLoggingT</span></a></a><span> </span><a name="local-6989586621679133738"><a href="#local-6989586621679133738"><span class="hs-identifier">logSrc</span></a></a><span> </span><a name="local-6989586621679133739"><a href="#local-6989586621679133739"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Client.html#runLoggingT"><span class="hs-identifier hs-var">runLoggingT</span></a><span> </span><a href="#local-6989586621679133739"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Client.html#logExceptions"><span class="hs-identifier hs-var">logExceptions</span></a><span> </span><a href="#local-6989586621679133738"><span class="hs-identifier hs-var">logSrc</span></a><span>
|
||||
</span><a name="line-315"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadCatch</span><span> </span><a href="#local-6989586621679133932"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679133932"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-316"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">LoggingT</span><span> </span><a href="#local-6989586621679133932"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679133933"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679133932"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679133933"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-317"></a><a name="runExceptionLoggingT"><a href="SwaggerPetstore.Client.html#runExceptionLoggingT"><span class="hs-identifier">runExceptionLoggingT</span></a></a><span> </span><a name="local-6989586621679134841"><a href="#local-6989586621679134841"><span class="hs-identifier">logSrc</span></a></a><span> </span><a name="local-6989586621679134842"><a href="#local-6989586621679134842"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Client.html#runLoggingT"><span class="hs-identifier hs-var">runLoggingT</span></a><span> </span><a href="#local-6989586621679134842"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Client.html#logExceptions"><span class="hs-identifier hs-var">logExceptions</span></a><span> </span><a href="#local-6989586621679134841"><span class="hs-identifier hs-var">logSrc</span></a><span>
|
||||
</span><a name="line-318"></a></pre></body></html>
|
@ -29,25 +29,25 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-29"></a><span>
|
||||
</span><a name="line-30"></a><span class="hs-comment">-- * Type Aliases</span><span>
|
||||
</span><a name="line-31"></a><span>
|
||||
</span><a name="line-32"></a><span class="hs-keyword">type</span><span> </span><a name="Lens_%27"><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier">Lens_'</span></a></a><span> </span><a name="local-6989586621679079367"><a href="#local-6989586621679079367"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679079368"><a href="#local-6989586621679079368"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_"><span class="hs-identifier hs-type">Lens_</span></a><span> </span><a href="#local-6989586621679079367"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679079367"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679079368"><span class="hs-identifier hs-type">a</span></a><span> </span><a href="#local-6989586621679079368"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">type</span><span> </span><a name="Lens_"><a href="SwaggerPetstore.Lens.html#Lens_"><span class="hs-identifier">Lens_</span></a></a><span> </span><a name="local-6989586621679079362"><a href="#local-6989586621679079362"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679079363"><a href="#local-6989586621679079363"><span class="hs-identifier">t</span></a></a><span> </span><a name="local-6989586621679079364"><a href="#local-6989586621679079364"><span class="hs-identifier">a</span></a></a><span> </span><a name="local-6989586621679079365"><a href="#local-6989586621679079365"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><a name="local-6989586621679079366"><a href="#local-6989586621679079366"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-operator hs-type">*</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-operator hs-type">*</span><span class="hs-special">)</span><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">Functor</span><span> </span><a href="#local-6989586621679079366"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679079364"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679079366"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679079365"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679079362"><span class="hs-identifier hs-type">s</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679079366"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679079363"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-32"></a><span class="hs-keyword">type</span><span> </span><a name="Lens_%27"><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier">Lens_'</span></a></a><span> </span><a name="local-6989586621679079498"><a href="#local-6989586621679079498"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679079499"><a href="#local-6989586621679079499"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_"><span class="hs-identifier hs-type">Lens_</span></a><span> </span><a href="#local-6989586621679079498"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679079498"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679079499"><span class="hs-identifier hs-type">a</span></a><span> </span><a href="#local-6989586621679079499"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">type</span><span> </span><a name="Lens_"><a href="SwaggerPetstore.Lens.html#Lens_"><span class="hs-identifier">Lens_</span></a></a><span> </span><a name="local-6989586621679079493"><a href="#local-6989586621679079493"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679079494"><a href="#local-6989586621679079494"><span class="hs-identifier">t</span></a></a><span> </span><a name="local-6989586621679079495"><a href="#local-6989586621679079495"><span class="hs-identifier">a</span></a></a><span> </span><a name="local-6989586621679079496"><a href="#local-6989586621679079496"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><a name="local-6989586621679079497"><a href="#local-6989586621679079497"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-operator hs-type">*</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-operator hs-type">*</span><span class="hs-special">)</span><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">Functor</span><span> </span><a href="#local-6989586621679079497"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679079495"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679079497"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679079496"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679079493"><span class="hs-identifier hs-type">s</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679079497"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679079494"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-34"></a><span>
|
||||
</span><a name="line-35"></a><span>
|
||||
</span><a name="line-36"></a><span class="hs-comment">-- * ApiResponse</span><span>
|
||||
</span><a name="line-37"></a><span>
|
||||
</span><a name="line-38"></a><span class="hs-comment">-- | 'apiResponseCode' Lens</span><span>
|
||||
</span><a name="line-39"></a><span class="hs-identifier">apiResponseCodeL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-40"></a><a name="apiResponseCodeL"><a href="SwaggerPetstore.Lens.html#apiResponseCodeL"><span class="hs-identifier">apiResponseCodeL</span></a></a><span> </span><a name="local-6989586621679079369"><a href="#local-6989586621679079369"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079373"><a href="#local-6989586621679079373"><span class="hs-identifier">apiResponseCode</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079373"><span class="hs-identifier hs-var">apiResponseCode</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079369"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079370"><span class="hs-identifier hs-var">apiResponseCode</span></a><span>
|
||||
</span><a name="line-40"></a><a name="apiResponseCodeL"><a href="SwaggerPetstore.Lens.html#apiResponseCodeL"><span class="hs-identifier">apiResponseCodeL</span></a></a><span> </span><a name="local-6989586621679079500"><a href="#local-6989586621679079500"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079504"><a href="#local-6989586621679079504"><span class="hs-identifier">apiResponseCode</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079504"><span class="hs-identifier hs-var">apiResponseCode</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079500"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079501"><span class="hs-identifier hs-var">apiResponseCode</span></a><span>
|
||||
</span><a name="line-41"></a><span class="hs-pragma">{-# INLINE apiResponseCodeL #-}</span><span>
|
||||
</span><a name="line-42"></a><span>
|
||||
</span><a name="line-43"></a><span class="hs-comment">-- | 'apiResponseType' Lens</span><span>
|
||||
</span><a name="line-44"></a><span class="hs-identifier">apiResponseTypeL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-45"></a><a name="apiResponseTypeL"><a href="SwaggerPetstore.Lens.html#apiResponseTypeL"><span class="hs-identifier">apiResponseTypeL</span></a></a><span> </span><a name="local-6989586621679079374"><a href="#local-6989586621679079374"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079378"><a href="#local-6989586621679079378"><span class="hs-identifier">apiResponseType</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079378"><span class="hs-identifier hs-var">apiResponseType</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079374"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079376"><span class="hs-identifier hs-var">apiResponseType</span></a><span>
|
||||
</span><a name="line-45"></a><a name="apiResponseTypeL"><a href="SwaggerPetstore.Lens.html#apiResponseTypeL"><span class="hs-identifier">apiResponseTypeL</span></a></a><span> </span><a name="local-6989586621679079505"><a href="#local-6989586621679079505"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079509"><a href="#local-6989586621679079509"><span class="hs-identifier">apiResponseType</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079509"><span class="hs-identifier hs-var">apiResponseType</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079505"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079507"><span class="hs-identifier hs-var">apiResponseType</span></a><span>
|
||||
</span><a name="line-46"></a><span class="hs-pragma">{-# INLINE apiResponseTypeL #-}</span><span>
|
||||
</span><a name="line-47"></a><span>
|
||||
</span><a name="line-48"></a><span class="hs-comment">-- | 'apiResponseMessage' Lens</span><span>
|
||||
</span><a name="line-49"></a><span class="hs-identifier">apiResponseMessageL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-50"></a><a name="apiResponseMessageL"><a href="SwaggerPetstore.Lens.html#apiResponseMessageL"><span class="hs-identifier">apiResponseMessageL</span></a></a><span> </span><a name="local-6989586621679079379"><a href="#local-6989586621679079379"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079383"><a href="#local-6989586621679079383"><span class="hs-identifier">apiResponseMessage</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079383"><span class="hs-identifier hs-var">apiResponseMessage</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079379"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079382"><span class="hs-identifier hs-var">apiResponseMessage</span></a><span>
|
||||
</span><a name="line-50"></a><a name="apiResponseMessageL"><a href="SwaggerPetstore.Lens.html#apiResponseMessageL"><span class="hs-identifier">apiResponseMessageL</span></a></a><span> </span><a name="local-6989586621679079510"><a href="#local-6989586621679079510"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079514"><a href="#local-6989586621679079514"><span class="hs-identifier">apiResponseMessage</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079514"><span class="hs-identifier hs-var">apiResponseMessage</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079510"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079513"><span class="hs-identifier hs-var">apiResponseMessage</span></a><span>
|
||||
</span><a name="line-51"></a><span class="hs-pragma">{-# INLINE apiResponseMessageL #-}</span><span>
|
||||
</span><a name="line-52"></a><span>
|
||||
</span><a name="line-53"></a><span>
|
||||
@ -56,12 +56,12 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-56"></a><span>
|
||||
</span><a name="line-57"></a><span class="hs-comment">-- | 'categoryId' Lens</span><span>
|
||||
</span><a name="line-58"></a><span class="hs-identifier">categoryIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-59"></a><a name="categoryIdL"><a href="SwaggerPetstore.Lens.html#categoryIdL"><span class="hs-identifier">categoryIdL</span></a></a><span> </span><a name="local-6989586621679079384"><a href="#local-6989586621679079384"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079387"><a href="#local-6989586621679079387"><span class="hs-identifier">categoryId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079387"><span class="hs-identifier hs-var">categoryId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079384"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079385"><span class="hs-identifier hs-var">categoryId</span></a><span>
|
||||
</span><a name="line-59"></a><a name="categoryIdL"><a href="SwaggerPetstore.Lens.html#categoryIdL"><span class="hs-identifier">categoryIdL</span></a></a><span> </span><a name="local-6989586621679079515"><a href="#local-6989586621679079515"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079518"><a href="#local-6989586621679079518"><span class="hs-identifier">categoryId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079518"><span class="hs-identifier hs-var">categoryId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079515"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079516"><span class="hs-identifier hs-var">categoryId</span></a><span>
|
||||
</span><a name="line-60"></a><span class="hs-pragma">{-# INLINE categoryIdL #-}</span><span>
|
||||
</span><a name="line-61"></a><span>
|
||||
</span><a name="line-62"></a><span class="hs-comment">-- | 'categoryName' Lens</span><span>
|
||||
</span><a name="line-63"></a><span class="hs-identifier">categoryNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-64"></a><a name="categoryNameL"><a href="SwaggerPetstore.Lens.html#categoryNameL"><span class="hs-identifier">categoryNameL</span></a></a><span> </span><a name="local-6989586621679079388"><a href="#local-6989586621679079388"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079391"><a href="#local-6989586621679079391"><span class="hs-identifier">categoryName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079391"><span class="hs-identifier hs-var">categoryName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079388"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079390"><span class="hs-identifier hs-var">categoryName</span></a><span>
|
||||
</span><a name="line-64"></a><a name="categoryNameL"><a href="SwaggerPetstore.Lens.html#categoryNameL"><span class="hs-identifier">categoryNameL</span></a></a><span> </span><a name="local-6989586621679079519"><a href="#local-6989586621679079519"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079522"><a href="#local-6989586621679079522"><span class="hs-identifier">categoryName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079522"><span class="hs-identifier hs-var">categoryName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079519"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079521"><span class="hs-identifier hs-var">categoryName</span></a><span>
|
||||
</span><a name="line-65"></a><span class="hs-pragma">{-# INLINE categoryNameL #-}</span><span>
|
||||
</span><a name="line-66"></a><span>
|
||||
</span><a name="line-67"></a><span>
|
||||
@ -70,32 +70,32 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-70"></a><span>
|
||||
</span><a name="line-71"></a><span class="hs-comment">-- | 'orderId' Lens</span><span>
|
||||
</span><a name="line-72"></a><span class="hs-identifier">orderIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-73"></a><a name="orderIdL"><a href="SwaggerPetstore.Lens.html#orderIdL"><span class="hs-identifier">orderIdL</span></a></a><span> </span><a name="local-6989586621679079392"><a href="#local-6989586621679079392"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079399"><a href="#local-6989586621679079399"><span class="hs-identifier">orderId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079399"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079392"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079393"><span class="hs-identifier hs-var">orderId</span></a><span>
|
||||
</span><a name="line-73"></a><a name="orderIdL"><a href="SwaggerPetstore.Lens.html#orderIdL"><span class="hs-identifier">orderIdL</span></a></a><span> </span><a name="local-6989586621679079523"><a href="#local-6989586621679079523"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079530"><a href="#local-6989586621679079530"><span class="hs-identifier">orderId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079530"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079523"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079524"><span class="hs-identifier hs-var">orderId</span></a><span>
|
||||
</span><a name="line-74"></a><span class="hs-pragma">{-# INLINE orderIdL #-}</span><span>
|
||||
</span><a name="line-75"></a><span>
|
||||
</span><a name="line-76"></a><span class="hs-comment">-- | 'orderPetId' Lens</span><span>
|
||||
</span><a name="line-77"></a><span class="hs-identifier">orderPetIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-78"></a><a name="orderPetIdL"><a href="SwaggerPetstore.Lens.html#orderPetIdL"><span class="hs-identifier">orderPetIdL</span></a></a><span> </span><a name="local-6989586621679079400"><a href="#local-6989586621679079400"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079407"><a href="#local-6989586621679079407"><span class="hs-identifier">orderPetId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079407"><span class="hs-identifier hs-var">orderPetId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079400"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079402"><span class="hs-identifier hs-var">orderPetId</span></a><span>
|
||||
</span><a name="line-78"></a><a name="orderPetIdL"><a href="SwaggerPetstore.Lens.html#orderPetIdL"><span class="hs-identifier">orderPetIdL</span></a></a><span> </span><a name="local-6989586621679079531"><a href="#local-6989586621679079531"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079538"><a href="#local-6989586621679079538"><span class="hs-identifier">orderPetId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079538"><span class="hs-identifier hs-var">orderPetId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079531"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079533"><span class="hs-identifier hs-var">orderPetId</span></a><span>
|
||||
</span><a name="line-79"></a><span class="hs-pragma">{-# INLINE orderPetIdL #-}</span><span>
|
||||
</span><a name="line-80"></a><span>
|
||||
</span><a name="line-81"></a><span class="hs-comment">-- | 'orderQuantity' Lens</span><span>
|
||||
</span><a name="line-82"></a><span class="hs-identifier">orderQuantityL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-83"></a><a name="orderQuantityL"><a href="SwaggerPetstore.Lens.html#orderQuantityL"><span class="hs-identifier">orderQuantityL</span></a></a><span> </span><a name="local-6989586621679079408"><a href="#local-6989586621679079408"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079415"><a href="#local-6989586621679079415"><span class="hs-identifier">orderQuantity</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079415"><span class="hs-identifier hs-var">orderQuantity</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079408"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079411"><span class="hs-identifier hs-var">orderQuantity</span></a><span>
|
||||
</span><a name="line-83"></a><a name="orderQuantityL"><a href="SwaggerPetstore.Lens.html#orderQuantityL"><span class="hs-identifier">orderQuantityL</span></a></a><span> </span><a name="local-6989586621679079539"><a href="#local-6989586621679079539"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079546"><a href="#local-6989586621679079546"><span class="hs-identifier">orderQuantity</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079546"><span class="hs-identifier hs-var">orderQuantity</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079539"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079542"><span class="hs-identifier hs-var">orderQuantity</span></a><span>
|
||||
</span><a name="line-84"></a><span class="hs-pragma">{-# INLINE orderQuantityL #-}</span><span>
|
||||
</span><a name="line-85"></a><span>
|
||||
</span><a name="line-86"></a><span class="hs-comment">-- | 'orderShipDate' Lens</span><span>
|
||||
</span><a name="line-87"></a><span class="hs-identifier">orderShipDateL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">UTCTime</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-88"></a><a name="orderShipDateL"><a href="SwaggerPetstore.Lens.html#orderShipDateL"><span class="hs-identifier">orderShipDateL</span></a></a><span> </span><a name="local-6989586621679079416"><a href="#local-6989586621679079416"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079423"><a href="#local-6989586621679079423"><span class="hs-identifier">orderShipDate</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079423"><span class="hs-identifier hs-var">orderShipDate</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079416"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079420"><span class="hs-identifier hs-var">orderShipDate</span></a><span>
|
||||
</span><a name="line-88"></a><a name="orderShipDateL"><a href="SwaggerPetstore.Lens.html#orderShipDateL"><span class="hs-identifier">orderShipDateL</span></a></a><span> </span><a name="local-6989586621679079547"><a href="#local-6989586621679079547"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079554"><a href="#local-6989586621679079554"><span class="hs-identifier">orderShipDate</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079554"><span class="hs-identifier hs-var">orderShipDate</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079547"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079551"><span class="hs-identifier hs-var">orderShipDate</span></a><span>
|
||||
</span><a name="line-89"></a><span class="hs-pragma">{-# INLINE orderShipDateL #-}</span><span>
|
||||
</span><a name="line-90"></a><span>
|
||||
</span><a name="line-91"></a><span class="hs-comment">-- | 'orderStatus' Lens</span><span>
|
||||
</span><a name="line-92"></a><span class="hs-identifier">orderStatusL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-93"></a><a name="orderStatusL"><a href="SwaggerPetstore.Lens.html#orderStatusL"><span class="hs-identifier">orderStatusL</span></a></a><span> </span><a name="local-6989586621679079424"><a href="#local-6989586621679079424"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079431"><a href="#local-6989586621679079431"><span class="hs-identifier">orderStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079431"><span class="hs-identifier hs-var">orderStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079424"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079429"><span class="hs-identifier hs-var">orderStatus</span></a><span>
|
||||
</span><a name="line-93"></a><a name="orderStatusL"><a href="SwaggerPetstore.Lens.html#orderStatusL"><span class="hs-identifier">orderStatusL</span></a></a><span> </span><a name="local-6989586621679079555"><a href="#local-6989586621679079555"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079562"><a href="#local-6989586621679079562"><span class="hs-identifier">orderStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079562"><span class="hs-identifier hs-var">orderStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079555"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079560"><span class="hs-identifier hs-var">orderStatus</span></a><span>
|
||||
</span><a name="line-94"></a><span class="hs-pragma">{-# INLINE orderStatusL #-}</span><span>
|
||||
</span><a name="line-95"></a><span>
|
||||
</span><a name="line-96"></a><span class="hs-comment">-- | 'orderComplete' Lens</span><span>
|
||||
</span><a name="line-97"></a><span class="hs-identifier">orderCompleteL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-98"></a><a name="orderCompleteL"><a href="SwaggerPetstore.Lens.html#orderCompleteL"><span class="hs-identifier">orderCompleteL</span></a></a><span> </span><a name="local-6989586621679079432"><a href="#local-6989586621679079432"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079439"><a href="#local-6989586621679079439"><span class="hs-identifier">orderComplete</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079439"><span class="hs-identifier hs-var">orderComplete</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079432"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079438"><span class="hs-identifier hs-var">orderComplete</span></a><span>
|
||||
</span><a name="line-98"></a><a name="orderCompleteL"><a href="SwaggerPetstore.Lens.html#orderCompleteL"><span class="hs-identifier">orderCompleteL</span></a></a><span> </span><a name="local-6989586621679079563"><a href="#local-6989586621679079563"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079570"><a href="#local-6989586621679079570"><span class="hs-identifier">orderComplete</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079570"><span class="hs-identifier hs-var">orderComplete</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079563"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079569"><span class="hs-identifier hs-var">orderComplete</span></a><span>
|
||||
</span><a name="line-99"></a><span class="hs-pragma">{-# INLINE orderCompleteL #-}</span><span>
|
||||
</span><a name="line-100"></a><span>
|
||||
</span><a name="line-101"></a><span>
|
||||
@ -104,32 +104,32 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-104"></a><span>
|
||||
</span><a name="line-105"></a><span class="hs-comment">-- | 'petId' Lens</span><span>
|
||||
</span><a name="line-106"></a><span class="hs-identifier">petIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-107"></a><a name="petIdL"><a href="SwaggerPetstore.Lens.html#petIdL"><span class="hs-identifier">petIdL</span></a></a><span> </span><a name="local-6989586621679079440"><a href="#local-6989586621679079440"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079447"><a href="#local-6989586621679079447"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079447"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079440"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079441"><span class="hs-identifier hs-var">petId</span></a><span>
|
||||
</span><a name="line-107"></a><a name="petIdL"><a href="SwaggerPetstore.Lens.html#petIdL"><span class="hs-identifier">petIdL</span></a></a><span> </span><a name="local-6989586621679079571"><a href="#local-6989586621679079571"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079578"><a href="#local-6989586621679079578"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079578"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079571"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079572"><span class="hs-identifier hs-var">petId</span></a><span>
|
||||
</span><a name="line-108"></a><span class="hs-pragma">{-# INLINE petIdL #-}</span><span>
|
||||
</span><a name="line-109"></a><span>
|
||||
</span><a name="line-110"></a><span class="hs-comment">-- | 'petCategory' Lens</span><span>
|
||||
</span><a name="line-111"></a><span class="hs-identifier">petCategoryL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-112"></a><a name="petCategoryL"><a href="SwaggerPetstore.Lens.html#petCategoryL"><span class="hs-identifier">petCategoryL</span></a></a><span> </span><a name="local-6989586621679079448"><a href="#local-6989586621679079448"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079455"><a href="#local-6989586621679079455"><span class="hs-identifier">petCategory</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079455"><span class="hs-identifier hs-var">petCategory</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079448"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079450"><span class="hs-identifier hs-var">petCategory</span></a><span>
|
||||
</span><a name="line-112"></a><a name="petCategoryL"><a href="SwaggerPetstore.Lens.html#petCategoryL"><span class="hs-identifier">petCategoryL</span></a></a><span> </span><a name="local-6989586621679079579"><a href="#local-6989586621679079579"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079586"><a href="#local-6989586621679079586"><span class="hs-identifier">petCategory</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079586"><span class="hs-identifier hs-var">petCategory</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079579"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079581"><span class="hs-identifier hs-var">petCategory</span></a><span>
|
||||
</span><a name="line-113"></a><span class="hs-pragma">{-# INLINE petCategoryL #-}</span><span>
|
||||
</span><a name="line-114"></a><span>
|
||||
</span><a name="line-115"></a><span class="hs-comment">-- | 'petName' Lens</span><span>
|
||||
</span><a name="line-116"></a><span class="hs-identifier">petNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-117"></a><a name="petNameL"><a href="SwaggerPetstore.Lens.html#petNameL"><span class="hs-identifier">petNameL</span></a></a><span> </span><a name="local-6989586621679079456"><a href="#local-6989586621679079456"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079463"><a href="#local-6989586621679079463"><span class="hs-identifier">petName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079463"><span class="hs-identifier hs-var">petName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079456"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079459"><span class="hs-identifier hs-var">petName</span></a><span>
|
||||
</span><a name="line-117"></a><a name="petNameL"><a href="SwaggerPetstore.Lens.html#petNameL"><span class="hs-identifier">petNameL</span></a></a><span> </span><a name="local-6989586621679079587"><a href="#local-6989586621679079587"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079594"><a href="#local-6989586621679079594"><span class="hs-identifier">petName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079594"><span class="hs-identifier hs-var">petName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079587"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079590"><span class="hs-identifier hs-var">petName</span></a><span>
|
||||
</span><a name="line-118"></a><span class="hs-pragma">{-# INLINE petNameL #-}</span><span>
|
||||
</span><a name="line-119"></a><span>
|
||||
</span><a name="line-120"></a><span class="hs-comment">-- | 'petPhotoUrls' Lens</span><span>
|
||||
</span><a name="line-121"></a><span class="hs-identifier">petPhotoUrlsL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-122"></a><a name="petPhotoUrlsL"><a href="SwaggerPetstore.Lens.html#petPhotoUrlsL"><span class="hs-identifier">petPhotoUrlsL</span></a></a><span> </span><a name="local-6989586621679079464"><a href="#local-6989586621679079464"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079471"><a href="#local-6989586621679079471"><span class="hs-identifier">petPhotoUrls</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079471"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079464"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079468"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span>
|
||||
</span><a name="line-122"></a><a name="petPhotoUrlsL"><a href="SwaggerPetstore.Lens.html#petPhotoUrlsL"><span class="hs-identifier">petPhotoUrlsL</span></a></a><span> </span><a name="local-6989586621679079595"><a href="#local-6989586621679079595"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079602"><a href="#local-6989586621679079602"><span class="hs-identifier">petPhotoUrls</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079602"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079595"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079599"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span>
|
||||
</span><a name="line-123"></a><span class="hs-pragma">{-# INLINE petPhotoUrlsL #-}</span><span>
|
||||
</span><a name="line-124"></a><span>
|
||||
</span><a name="line-125"></a><span class="hs-comment">-- | 'petTags' Lens</span><span>
|
||||
</span><a name="line-126"></a><span class="hs-identifier">petTagsL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-127"></a><a name="petTagsL"><a href="SwaggerPetstore.Lens.html#petTagsL"><span class="hs-identifier">petTagsL</span></a></a><span> </span><a name="local-6989586621679079472"><a href="#local-6989586621679079472"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079479"><a href="#local-6989586621679079479"><span class="hs-identifier">petTags</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079479"><span class="hs-identifier hs-var">petTags</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079472"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079477"><span class="hs-identifier hs-var">petTags</span></a><span>
|
||||
</span><a name="line-127"></a><a name="petTagsL"><a href="SwaggerPetstore.Lens.html#petTagsL"><span class="hs-identifier">petTagsL</span></a></a><span> </span><a name="local-6989586621679079603"><a href="#local-6989586621679079603"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079610"><a href="#local-6989586621679079610"><span class="hs-identifier">petTags</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079610"><span class="hs-identifier hs-var">petTags</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079603"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079608"><span class="hs-identifier hs-var">petTags</span></a><span>
|
||||
</span><a name="line-128"></a><span class="hs-pragma">{-# INLINE petTagsL #-}</span><span>
|
||||
</span><a name="line-129"></a><span>
|
||||
</span><a name="line-130"></a><span class="hs-comment">-- | 'petStatus' Lens</span><span>
|
||||
</span><a name="line-131"></a><span class="hs-identifier">petStatusL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-132"></a><a name="petStatusL"><a href="SwaggerPetstore.Lens.html#petStatusL"><span class="hs-identifier">petStatusL</span></a></a><span> </span><a name="local-6989586621679079480"><a href="#local-6989586621679079480"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079487"><a href="#local-6989586621679079487"><span class="hs-identifier">petStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079487"><span class="hs-identifier hs-var">petStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079480"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079486"><span class="hs-identifier hs-var">petStatus</span></a><span>
|
||||
</span><a name="line-132"></a><a name="petStatusL"><a href="SwaggerPetstore.Lens.html#petStatusL"><span class="hs-identifier">petStatusL</span></a></a><span> </span><a name="local-6989586621679079611"><a href="#local-6989586621679079611"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079618"><a href="#local-6989586621679079618"><span class="hs-identifier">petStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079618"><span class="hs-identifier hs-var">petStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079611"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079617"><span class="hs-identifier hs-var">petStatus</span></a><span>
|
||||
</span><a name="line-133"></a><span class="hs-pragma">{-# INLINE petStatusL #-}</span><span>
|
||||
</span><a name="line-134"></a><span>
|
||||
</span><a name="line-135"></a><span>
|
||||
@ -138,12 +138,12 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-138"></a><span>
|
||||
</span><a name="line-139"></a><span class="hs-comment">-- | 'tagId' Lens</span><span>
|
||||
</span><a name="line-140"></a><span class="hs-identifier">tagIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-141"></a><a name="tagIdL"><a href="SwaggerPetstore.Lens.html#tagIdL"><span class="hs-identifier">tagIdL</span></a></a><span> </span><a name="local-6989586621679079488"><a href="#local-6989586621679079488"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079491"><a href="#local-6989586621679079491"><span class="hs-identifier">tagId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079491"><span class="hs-identifier hs-var">tagId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079488"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079489"><span class="hs-identifier hs-var">tagId</span></a><span>
|
||||
</span><a name="line-141"></a><a name="tagIdL"><a href="SwaggerPetstore.Lens.html#tagIdL"><span class="hs-identifier">tagIdL</span></a></a><span> </span><a name="local-6989586621679079619"><a href="#local-6989586621679079619"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079622"><a href="#local-6989586621679079622"><span class="hs-identifier">tagId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079622"><span class="hs-identifier hs-var">tagId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079619"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079620"><span class="hs-identifier hs-var">tagId</span></a><span>
|
||||
</span><a name="line-142"></a><span class="hs-pragma">{-# INLINE tagIdL #-}</span><span>
|
||||
</span><a name="line-143"></a><span>
|
||||
</span><a name="line-144"></a><span class="hs-comment">-- | 'tagName' Lens</span><span>
|
||||
</span><a name="line-145"></a><span class="hs-identifier">tagNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-146"></a><a name="tagNameL"><a href="SwaggerPetstore.Lens.html#tagNameL"><span class="hs-identifier">tagNameL</span></a></a><span> </span><a name="local-6989586621679079492"><a href="#local-6989586621679079492"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079495"><a href="#local-6989586621679079495"><span class="hs-identifier">tagName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079495"><span class="hs-identifier hs-var">tagName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079492"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079494"><span class="hs-identifier hs-var">tagName</span></a><span>
|
||||
</span><a name="line-146"></a><a name="tagNameL"><a href="SwaggerPetstore.Lens.html#tagNameL"><span class="hs-identifier">tagNameL</span></a></a><span> </span><a name="local-6989586621679079623"><a href="#local-6989586621679079623"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079626"><a href="#local-6989586621679079626"><span class="hs-identifier">tagName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079626"><span class="hs-identifier hs-var">tagName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079623"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079625"><span class="hs-identifier hs-var">tagName</span></a><span>
|
||||
</span><a name="line-147"></a><span class="hs-pragma">{-# INLINE tagNameL #-}</span><span>
|
||||
</span><a name="line-148"></a><span>
|
||||
</span><a name="line-149"></a><span>
|
||||
@ -152,42 +152,42 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-152"></a><span>
|
||||
</span><a name="line-153"></a><span class="hs-comment">-- | 'userId' Lens</span><span>
|
||||
</span><a name="line-154"></a><span class="hs-identifier">userIdL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-155"></a><a name="userIdL"><a href="SwaggerPetstore.Lens.html#userIdL"><span class="hs-identifier">userIdL</span></a></a><span> </span><a name="local-6989586621679079496"><a href="#local-6989586621679079496"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079505"><a href="#local-6989586621679079505"><span class="hs-identifier">userId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079505"><span class="hs-identifier hs-var">userId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079496"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079497"><span class="hs-identifier hs-var">userId</span></a><span>
|
||||
</span><a name="line-155"></a><a name="userIdL"><a href="SwaggerPetstore.Lens.html#userIdL"><span class="hs-identifier">userIdL</span></a></a><span> </span><a name="local-6989586621679079627"><a href="#local-6989586621679079627"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079636"><a href="#local-6989586621679079636"><span class="hs-identifier">userId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079636"><span class="hs-identifier hs-var">userId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079627"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079628"><span class="hs-identifier hs-var">userId</span></a><span>
|
||||
</span><a name="line-156"></a><span class="hs-pragma">{-# INLINE userIdL #-}</span><span>
|
||||
</span><a name="line-157"></a><span>
|
||||
</span><a name="line-158"></a><span class="hs-comment">-- | 'userUsername' Lens</span><span>
|
||||
</span><a name="line-159"></a><span class="hs-identifier">userUsernameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-160"></a><a name="userUsernameL"><a href="SwaggerPetstore.Lens.html#userUsernameL"><span class="hs-identifier">userUsernameL</span></a></a><span> </span><a name="local-6989586621679079506"><a href="#local-6989586621679079506"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079515"><a href="#local-6989586621679079515"><span class="hs-identifier">userUsername</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079515"><span class="hs-identifier hs-var">userUsername</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079506"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079508"><span class="hs-identifier hs-var">userUsername</span></a><span>
|
||||
</span><a name="line-160"></a><a name="userUsernameL"><a href="SwaggerPetstore.Lens.html#userUsernameL"><span class="hs-identifier">userUsernameL</span></a></a><span> </span><a name="local-6989586621679079637"><a href="#local-6989586621679079637"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079646"><a href="#local-6989586621679079646"><span class="hs-identifier">userUsername</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079646"><span class="hs-identifier hs-var">userUsername</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079637"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079639"><span class="hs-identifier hs-var">userUsername</span></a><span>
|
||||
</span><a name="line-161"></a><span class="hs-pragma">{-# INLINE userUsernameL #-}</span><span>
|
||||
</span><a name="line-162"></a><span>
|
||||
</span><a name="line-163"></a><span class="hs-comment">-- | 'userFirstName' Lens</span><span>
|
||||
</span><a name="line-164"></a><span class="hs-identifier">userFirstNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-165"></a><a name="userFirstNameL"><a href="SwaggerPetstore.Lens.html#userFirstNameL"><span class="hs-identifier">userFirstNameL</span></a></a><span> </span><a name="local-6989586621679079516"><a href="#local-6989586621679079516"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079525"><a href="#local-6989586621679079525"><span class="hs-identifier">userFirstName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079525"><span class="hs-identifier hs-var">userFirstName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079516"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079519"><span class="hs-identifier hs-var">userFirstName</span></a><span>
|
||||
</span><a name="line-165"></a><a name="userFirstNameL"><a href="SwaggerPetstore.Lens.html#userFirstNameL"><span class="hs-identifier">userFirstNameL</span></a></a><span> </span><a name="local-6989586621679079647"><a href="#local-6989586621679079647"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079656"><a href="#local-6989586621679079656"><span class="hs-identifier">userFirstName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079656"><span class="hs-identifier hs-var">userFirstName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079647"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079650"><span class="hs-identifier hs-var">userFirstName</span></a><span>
|
||||
</span><a name="line-166"></a><span class="hs-pragma">{-# INLINE userFirstNameL #-}</span><span>
|
||||
</span><a name="line-167"></a><span>
|
||||
</span><a name="line-168"></a><span class="hs-comment">-- | 'userLastName' Lens</span><span>
|
||||
</span><a name="line-169"></a><span class="hs-identifier">userLastNameL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-170"></a><a name="userLastNameL"><a href="SwaggerPetstore.Lens.html#userLastNameL"><span class="hs-identifier">userLastNameL</span></a></a><span> </span><a name="local-6989586621679079526"><a href="#local-6989586621679079526"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079535"><a href="#local-6989586621679079535"><span class="hs-identifier">userLastName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079535"><span class="hs-identifier hs-var">userLastName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079526"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079530"><span class="hs-identifier hs-var">userLastName</span></a><span>
|
||||
</span><a name="line-170"></a><a name="userLastNameL"><a href="SwaggerPetstore.Lens.html#userLastNameL"><span class="hs-identifier">userLastNameL</span></a></a><span> </span><a name="local-6989586621679079657"><a href="#local-6989586621679079657"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079666"><a href="#local-6989586621679079666"><span class="hs-identifier">userLastName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079666"><span class="hs-identifier hs-var">userLastName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079657"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079661"><span class="hs-identifier hs-var">userLastName</span></a><span>
|
||||
</span><a name="line-171"></a><span class="hs-pragma">{-# INLINE userLastNameL #-}</span><span>
|
||||
</span><a name="line-172"></a><span>
|
||||
</span><a name="line-173"></a><span class="hs-comment">-- | 'userEmail' Lens</span><span>
|
||||
</span><a name="line-174"></a><span class="hs-identifier">userEmailL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-175"></a><a name="userEmailL"><a href="SwaggerPetstore.Lens.html#userEmailL"><span class="hs-identifier">userEmailL</span></a></a><span> </span><a name="local-6989586621679079536"><a href="#local-6989586621679079536"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079545"><a href="#local-6989586621679079545"><span class="hs-identifier">userEmail</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079545"><span class="hs-identifier hs-var">userEmail</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079536"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079541"><span class="hs-identifier hs-var">userEmail</span></a><span>
|
||||
</span><a name="line-175"></a><a name="userEmailL"><a href="SwaggerPetstore.Lens.html#userEmailL"><span class="hs-identifier">userEmailL</span></a></a><span> </span><a name="local-6989586621679079667"><a href="#local-6989586621679079667"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079676"><a href="#local-6989586621679079676"><span class="hs-identifier">userEmail</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079676"><span class="hs-identifier hs-var">userEmail</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079667"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079672"><span class="hs-identifier hs-var">userEmail</span></a><span>
|
||||
</span><a name="line-176"></a><span class="hs-pragma">{-# INLINE userEmailL #-}</span><span>
|
||||
</span><a name="line-177"></a><span>
|
||||
</span><a name="line-178"></a><span class="hs-comment">-- | 'userPassword' Lens</span><span>
|
||||
</span><a name="line-179"></a><span class="hs-identifier">userPasswordL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-180"></a><a name="userPasswordL"><a href="SwaggerPetstore.Lens.html#userPasswordL"><span class="hs-identifier">userPasswordL</span></a></a><span> </span><a name="local-6989586621679079546"><a href="#local-6989586621679079546"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079555"><a href="#local-6989586621679079555"><span class="hs-identifier">userPassword</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079555"><span class="hs-identifier hs-var">userPassword</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079546"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079552"><span class="hs-identifier hs-var">userPassword</span></a><span>
|
||||
</span><a name="line-180"></a><a name="userPasswordL"><a href="SwaggerPetstore.Lens.html#userPasswordL"><span class="hs-identifier">userPasswordL</span></a></a><span> </span><a name="local-6989586621679079677"><a href="#local-6989586621679079677"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079686"><a href="#local-6989586621679079686"><span class="hs-identifier">userPassword</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079686"><span class="hs-identifier hs-var">userPassword</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079677"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079683"><span class="hs-identifier hs-var">userPassword</span></a><span>
|
||||
</span><a name="line-181"></a><span class="hs-pragma">{-# INLINE userPasswordL #-}</span><span>
|
||||
</span><a name="line-182"></a><span>
|
||||
</span><a name="line-183"></a><span class="hs-comment">-- | 'userPhone' Lens</span><span>
|
||||
</span><a name="line-184"></a><span class="hs-identifier">userPhoneL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-185"></a><a name="userPhoneL"><a href="SwaggerPetstore.Lens.html#userPhoneL"><span class="hs-identifier">userPhoneL</span></a></a><span> </span><a name="local-6989586621679079556"><a href="#local-6989586621679079556"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079565"><a href="#local-6989586621679079565"><span class="hs-identifier">userPhone</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079565"><span class="hs-identifier hs-var">userPhone</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079556"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079563"><span class="hs-identifier hs-var">userPhone</span></a><span>
|
||||
</span><a name="line-185"></a><a name="userPhoneL"><a href="SwaggerPetstore.Lens.html#userPhoneL"><span class="hs-identifier">userPhoneL</span></a></a><span> </span><a name="local-6989586621679079687"><a href="#local-6989586621679079687"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079696"><a href="#local-6989586621679079696"><span class="hs-identifier">userPhone</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079696"><span class="hs-identifier hs-var">userPhone</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079687"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079694"><span class="hs-identifier hs-var">userPhone</span></a><span>
|
||||
</span><a name="line-186"></a><span class="hs-pragma">{-# INLINE userPhoneL #-}</span><span>
|
||||
</span><a name="line-187"></a><span>
|
||||
</span><a name="line-188"></a><span class="hs-comment">-- | 'userUserStatus' Lens</span><span>
|
||||
</span><a name="line-189"></a><span class="hs-identifier">userUserStatusL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-190"></a><a name="userUserStatusL"><a href="SwaggerPetstore.Lens.html#userUserStatusL"><span class="hs-identifier">userUserStatusL</span></a></a><span> </span><a name="local-6989586621679079566"><a href="#local-6989586621679079566"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079575"><a href="#local-6989586621679079575"><span class="hs-identifier">userUserStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079575"><span class="hs-identifier hs-var">userUserStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079566"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079574"><span class="hs-identifier hs-var">userUserStatus</span></a><span>
|
||||
</span><a name="line-190"></a><a name="userUserStatusL"><a href="SwaggerPetstore.Lens.html#userUserStatusL"><span class="hs-identifier">userUserStatusL</span></a></a><span> </span><a name="local-6989586621679079697"><a href="#local-6989586621679079697"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079706"><a href="#local-6989586621679079706"><span class="hs-identifier">userUserStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679079706"><span class="hs-identifier hs-var">userUserStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679079697"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079705"><span class="hs-identifier hs-var">userUserStatus</span></a><span>
|
||||
</span><a name="line-191"></a><span class="hs-pragma">{-# INLINE userUserStatusL #-}</span><span>
|
||||
</span><a name="line-192"></a><span>
|
||||
</span><a name="line-193"></a><span>
|
||||
|
@ -54,94 +54,94 @@ Module : SwaggerPetstore.MimeTypes
|
||||
</span><a name="line-54"></a><span>
|
||||
</span><a name="line-55"></a><span class="hs-comment">-- ** MimeType Class</span><span>
|
||||
</span><a name="line-56"></a><span>
|
||||
</span><a name="line-57"></a><span class="hs-keyword">class</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span> </span><a href="#local-6989586621679077524"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeType"><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier">MimeType</span></a></a><span> </span><a name="local-6989586621679077524"><a href="#local-6989586621679077524"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-57"></a><span class="hs-keyword">class</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span> </span><a href="#local-6989586621679077655"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeType"><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier">MimeType</span></a></a><span> </span><a name="local-6989586621679077655"><a href="#local-6989586621679077655"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-58"></a><span> </span><span class="hs-pragma">{-# MINIMAL mimeType | mimeTypes #-}</span><span>
|
||||
</span><a name="line-59"></a><span>
|
||||
</span><a name="line-60"></a><span> </span><span class="hs-identifier">mimeTypes</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077524"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-61"></a><span> </span><a name="local-8214565720323852114"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier">mimeTypes</span></a></a><span> </span><a name="local-6989586621679077681"><a href="#local-6989586621679077681"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-62"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a><span> </span><a href="#local-6989586621679077681"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-63"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679077682"><a href="#local-6989586621679077682"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679077682"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-60"></a><span> </span><span class="hs-identifier">mimeTypes</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077655"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-61"></a><span> </span><a name="local-8214565720323852245"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier">mimeTypes</span></a></a><span> </span><a name="local-6989586621679077812"><a href="#local-6989586621679077812"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-62"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a><span> </span><a href="#local-6989586621679077812"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-63"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679077813"><a href="#local-6989586621679077813"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679077813"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-64"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-65"></a><span>
|
||||
</span><a name="line-66"></a><span> </span><span class="hs-identifier">mimeType</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077524"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
|
||||
</span><a name="line-67"></a><span> </span><a name="local-8214565720323852115"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><a name="local-6989586621679077683"><a href="#local-6989586621679077683"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-68"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a><span> </span><a href="#local-6989586621679077683"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-66"></a><span> </span><span class="hs-identifier">mimeType</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077655"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
|
||||
</span><a name="line-67"></a><span> </span><a name="local-8214565720323852246"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><a name="local-6989586621679077814"><a href="#local-6989586621679077814"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-68"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a><span> </span><a href="#local-6989586621679077814"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-69"></a><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-70"></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679077684"><a href="#local-6989586621679077684"><span class="hs-identifier">x</span></a></a><span class="hs-glyph">:</span><span class="hs-identifier">_</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679077684"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-70"></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679077815"><a href="#local-6989586621679077815"><span class="hs-identifier">x</span></a></a><span class="hs-glyph">:</span><span class="hs-identifier">_</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679077815"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-71"></a><span>
|
||||
</span><a name="line-72"></a><span> </span><span class="hs-identifier">mimeType'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679077524"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
|
||||
</span><a name="line-73"></a><span> </span><a name="local-8214565720323852116"><a href="SwaggerPetstore.MimeTypes.html#mimeType%27"><span class="hs-identifier">mimeType'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077524"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-74"></a><span> </span><span class="hs-identifier">mimeTypes'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679077524"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-75"></a><span> </span><a name="local-8214565720323852117"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes%27"><span class="hs-identifier">mimeTypes'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077524"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-72"></a><span> </span><span class="hs-identifier">mimeType'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679077655"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
|
||||
</span><a name="line-73"></a><span> </span><a name="local-8214565720323852247"><a href="SwaggerPetstore.MimeTypes.html#mimeType%27"><span class="hs-identifier">mimeType'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077655"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-74"></a><span> </span><span class="hs-identifier">mimeTypes'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679077655"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-75"></a><span> </span><a name="local-8214565720323852248"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes%27"><span class="hs-identifier">mimeTypes'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077655"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-76"></a><span>
|
||||
</span><a name="line-77"></a><span class="hs-comment">-- ** MimeType Instances</span><span>
|
||||
</span><a name="line-78"></a><span>
|
||||
</span><a name="line-79"></a><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><a name="line-80"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-81"></a><span> </span><a name="local-8214565720323852114"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier">mimeTypes</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-81"></a><span> </span><a name="local-8214565720323852245"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier">mimeTypes</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-82"></a><span> </span><span class="hs-special">[</span><span> </span><span class="hs-string">"application"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">"json"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">./:</span><span> </span><span class="hs-special">(</span><span class="hs-string">"charset"</span><span class="hs-special">,</span><span> </span><span class="hs-string">"utf-8"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-83"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"application"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">"json"</span><span>
|
||||
</span><a name="line-84"></a><span> </span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-85"></a><span>
|
||||
</span><a name="line-86"></a><span class="hs-comment">-- | @application/xml@</span><span>
|
||||
</span><a name="line-87"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-88"></a><span> </span><a name="local-8214565720323852115"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">"application"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">"xml"</span><span>
|
||||
</span><a name="line-88"></a><span> </span><a name="local-8214565720323852246"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">"application"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">"xml"</span><span>
|
||||
</span><a name="line-89"></a><span>
|
||||
</span><a name="line-90"></a><span class="hs-comment">-- | @application/x-www-form-urlencoded@</span><span>
|
||||
</span><a name="line-91"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-92"></a><span> </span><a name="local-8214565720323852115"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">"application"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">"x-www-form-urlencoded"</span><span>
|
||||
</span><a name="line-92"></a><span> </span><a name="local-8214565720323852246"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">"application"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">"x-www-form-urlencoded"</span><span>
|
||||
</span><a name="line-93"></a><span>
|
||||
</span><a name="line-94"></a><span class="hs-comment">-- | @multipart/form-data@</span><span>
|
||||
</span><a name="line-95"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-96"></a><span> </span><a name="local-8214565720323852115"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">"multipart"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">"form-data"</span><span>
|
||||
</span><a name="line-96"></a><span> </span><a name="local-8214565720323852246"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">"multipart"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">"form-data"</span><span>
|
||||
</span><a name="line-97"></a><span>
|
||||
</span><a name="line-98"></a><span class="hs-comment">-- | @text/plain;charset=utf-8@</span><span>
|
||||
</span><a name="line-99"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-100"></a><span> </span><a name="local-8214565720323852115"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">"text"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">"plain"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">./:</span><span> </span><span class="hs-special">(</span><span class="hs-string">"charset"</span><span class="hs-special">,</span><span> </span><span class="hs-string">"utf-8"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-100"></a><span> </span><a name="local-8214565720323852246"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">"text"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">"plain"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">./:</span><span> </span><span class="hs-special">(</span><span class="hs-string">"charset"</span><span class="hs-special">,</span><span> </span><span class="hs-string">"utf-8"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-101"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-102"></a><span> </span><a name="local-8214565720323852115"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">"application"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">"octet-stream"</span><span>
|
||||
</span><a name="line-102"></a><span> </span><a name="local-8214565720323852246"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">"application"</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">"octet-stream"</span><span>
|
||||
</span><a name="line-103"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-104"></a><span> </span><a name="local-8214565720323852115"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-104"></a><span> </span><a name="local-8214565720323852246"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-105"></a><span>
|
||||
</span><a name="line-106"></a><span>
|
||||
</span><a name="line-107"></a><span class="hs-comment">-- ** MimeRender Class</span><span>
|
||||
</span><a name="line-108"></a><span>
|
||||
</span><a name="line-109"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679077521"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeRender"><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier">MimeRender</span></a></a><span> </span><a name="local-6989586621679077521"><a href="#local-6989586621679077521"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679077522"><a href="#local-6989586621679077522"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-110"></a><span> </span><span class="hs-identifier">mimeRender</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077521"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679077522"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-111"></a><span> </span><span class="hs-identifier">mimeRender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679077521"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679077522"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-112"></a><span> </span><a name="local-8214565720323852112"><a href="SwaggerPetstore.MimeTypes.html#mimeRender%27"><span class="hs-identifier">mimeRender'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679077523"><a href="#local-6989586621679077523"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier hs-var">mimeRender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077521"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679077523"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-109"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679077652"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeRender"><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier">MimeRender</span></a></a><span> </span><a name="local-6989586621679077652"><a href="#local-6989586621679077652"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679077653"><a href="#local-6989586621679077653"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-110"></a><span> </span><span class="hs-identifier">mimeRender</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077652"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679077653"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-111"></a><span> </span><span class="hs-identifier">mimeRender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679077652"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679077653"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-112"></a><span> </span><a name="local-8214565720323852243"><a href="SwaggerPetstore.MimeTypes.html#mimeRender%27"><span class="hs-identifier">mimeRender'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679077654"><a href="#local-6989586621679077654"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier hs-var">mimeRender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077652"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679077654"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-113"></a><span>
|
||||
</span><a name="line-114"></a><span>
|
||||
</span><a name="line-115"></a><span class="hs-comment">-- ** MimeRender Instances</span><span>
|
||||
</span><a name="line-116"></a><span>
|
||||
</span><a name="line-117"></a><span class="hs-comment">-- | `A.encode`</span><span>
|
||||
</span><a name="line-118"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="#local-6989586621679077688"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679077688"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852111"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encode</span><span>
|
||||
</span><a name="line-118"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="#local-6989586621679077819"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679077819"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852242"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encode</span><span>
|
||||
</span><a name="line-119"></a><span class="hs-comment">-- | @WH.urlEncodeAsForm@</span><span>
|
||||
</span><a name="line-120"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToForm</span><span> </span><a href="#local-6989586621679077687"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679077687"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852111"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlEncodeAsForm</span><span>
|
||||
</span><a name="line-120"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToForm</span><span> </span><a href="#local-6989586621679077818"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679077818"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852242"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlEncodeAsForm</span><span>
|
||||
</span><a name="line-121"></a><span>
|
||||
</span><a name="line-122"></a><span class="hs-comment">-- | @P.id@</span><span>
|
||||
</span><a name="line-123"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852111"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-123"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852242"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-124"></a><span class="hs-comment">-- | @BL.fromStrict . T.encodeUtf8@</span><span>
|
||||
</span><a name="line-125"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852111"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
|
||||
</span><a name="line-125"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852242"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
|
||||
</span><a name="line-126"></a><span class="hs-comment">-- | @BCL.pack@</span><span>
|
||||
</span><a name="line-127"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852111"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
|
||||
</span><a name="line-127"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852242"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
|
||||
</span><a name="line-128"></a><span>
|
||||
</span><a name="line-129"></a><span class="hs-comment">-- | @P.id@</span><span>
|
||||
</span><a name="line-130"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852111"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-130"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852242"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-131"></a><span class="hs-comment">-- | @BL.fromStrict . T.encodeUtf8@</span><span>
|
||||
</span><a name="line-132"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852111"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
|
||||
</span><a name="line-132"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852242"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
|
||||
</span><a name="line-133"></a><span class="hs-comment">-- | @BCL.pack@</span><span>
|
||||
</span><a name="line-134"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852111"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
|
||||
</span><a name="line-134"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852242"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
|
||||
</span><a name="line-135"></a><span>
|
||||
</span><a name="line-136"></a><span class="hs-comment">-- | @P.id@</span><span>
|
||||
</span><a name="line-137"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852111"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-137"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852242"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-138"></a><span class="hs-comment">-- | @BL.fromStrict . T.encodeUtf8@</span><span>
|
||||
</span><a name="line-139"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852111"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
|
||||
</span><a name="line-139"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852242"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
|
||||
</span><a name="line-140"></a><span class="hs-comment">-- | @BCL.pack@</span><span>
|
||||
</span><a name="line-141"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852111"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
|
||||
</span><a name="line-141"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852242"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
|
||||
</span><a name="line-142"></a><span>
|
||||
</span><a name="line-143"></a><span class="hs-comment">-- | @P.Right . P.const NoContent@</span><span>
|
||||
</span><a name="line-144"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852111"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">const</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">empty</span><span>
|
||||
</span><a name="line-144"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852242"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">const</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">empty</span><span>
|
||||
</span><a name="line-145"></a><span>
|
||||
</span><a name="line-146"></a><span class="hs-comment">-- instance MimeRender MimeOctetStream Double where mimeRender _ = BB.toLazyByteString . BB.doubleDec</span><span>
|
||||
</span><a name="line-147"></a><span class="hs-comment">-- instance MimeRender MimeOctetStream Float where mimeRender _ = BB.toLazyByteString . BB.floatDec</span><span>
|
||||
@ -151,41 +151,41 @@ Module : SwaggerPetstore.MimeTypes
|
||||
</span><a name="line-151"></a><span>
|
||||
</span><a name="line-152"></a><span class="hs-comment">-- ** MimeUnrender Class</span><span>
|
||||
</span><a name="line-153"></a><span>
|
||||
</span><a name="line-154"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679077227"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeUnrender"><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier">MimeUnrender</span></a></a><span> </span><a name="local-6989586621679077227"><a href="#local-6989586621679077227"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679077228"><a href="#local-6989586621679077228"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-155"></a><span> </span><span class="hs-identifier">mimeUnrender</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077227"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679077228"><span class="hs-identifier hs-type">o</span></a><span>
|
||||
</span><a name="line-156"></a><span> </span><span class="hs-identifier">mimeUnrender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679077227"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679077228"><span class="hs-identifier hs-type">o</span></a><span>
|
||||
</span><a name="line-157"></a><span> </span><a name="local-8214565720323852109"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier">mimeUnrender'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679077520"><a href="#local-6989586621679077520"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier hs-var">mimeUnrender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077227"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679077520"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-154"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679077358"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeUnrender"><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier">MimeUnrender</span></a></a><span> </span><a name="local-6989586621679077358"><a href="#local-6989586621679077358"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679077359"><a href="#local-6989586621679077359"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-155"></a><span> </span><span class="hs-identifier">mimeUnrender</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077358"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679077359"><span class="hs-identifier hs-type">o</span></a><span>
|
||||
</span><a name="line-156"></a><span> </span><span class="hs-identifier">mimeUnrender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679077358"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679077359"><span class="hs-identifier hs-type">o</span></a><span>
|
||||
</span><a name="line-157"></a><span> </span><a name="local-8214565720323852240"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier">mimeUnrender'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679077651"><a href="#local-6989586621679077651"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier hs-var">mimeUnrender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679077358"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679077651"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-158"></a><span>
|
||||
</span><a name="line-159"></a><span class="hs-comment">-- ** MimeUnrender Instances</span><span>
|
||||
</span><a name="line-160"></a><span>
|
||||
</span><a name="line-161"></a><span class="hs-comment">-- | @A.eitherDecode@</span><span>
|
||||
</span><a name="line-162"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="#local-6989586621679077686"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679077686"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852108"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">eitherDecode</span><span>
|
||||
</span><a name="line-162"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="#local-6989586621679077817"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679077817"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852239"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">eitherDecode</span><span>
|
||||
</span><a name="line-163"></a><span class="hs-comment">-- | @P.left T.unpack . WH.urlDecodeAsForm@</span><span>
|
||||
</span><a name="line-164"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromForm</span><span> </span><a href="#local-6989586621679077685"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679077685"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852108"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlDecodeAsForm</span><span>
|
||||
</span><a name="line-164"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromForm</span><span> </span><a href="#local-6989586621679077816"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679077816"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852239"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlDecodeAsForm</span><span>
|
||||
</span><a name="line-165"></a><span class="hs-comment">-- | @P.Right . P.id@</span><span>
|
||||
</span><a name="line-166"></a><span>
|
||||
</span><a name="line-167"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852108"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-167"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852239"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-168"></a><span class="hs-comment">-- | @P.left P.show . TL.decodeUtf8'@</span><span>
|
||||
</span><a name="line-169"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852108"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8'</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span>
|
||||
</span><a name="line-169"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852239"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8'</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span>
|
||||
</span><a name="line-170"></a><span class="hs-comment">-- | @P.Right . BCL.unpack@</span><span>
|
||||
</span><a name="line-171"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852108"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
|
||||
</span><a name="line-171"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852239"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
|
||||
</span><a name="line-172"></a><span>
|
||||
</span><a name="line-173"></a><span class="hs-comment">-- | @P.Right . P.id@</span><span>
|
||||
</span><a name="line-174"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852108"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-174"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852239"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-175"></a><span class="hs-comment">-- | @P.left P.show . T.decodeUtf8' . BL.toStrict@</span><span>
|
||||
</span><a name="line-176"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852108"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8'</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span>
|
||||
</span><a name="line-176"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852239"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8'</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span>
|
||||
</span><a name="line-177"></a><span class="hs-comment">-- | @P.Right . BCL.unpack@</span><span>
|
||||
</span><a name="line-178"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852108"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
|
||||
</span><a name="line-178"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852239"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
|
||||
</span><a name="line-179"></a><span>
|
||||
</span><a name="line-180"></a><span class="hs-comment">-- | @P.Right . P.const NoContent@</span><span>
|
||||
</span><a name="line-181"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852108"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">const</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-var">NoContent</span></a><span>
|
||||
</span><a name="line-181"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323852239"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">const</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-var">NoContent</span></a><span>
|
||||
</span><a name="line-182"></a><span>
|
||||
</span><a name="line-183"></a><span>
|
||||
</span><a name="line-184"></a><span class="hs-comment">-- ** Request Consumes</span><span>
|
||||
</span><a name="line-185"></a><span>
|
||||
</span><a name="line-186"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679077226"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Consumes"><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier">Consumes</span></a></a><span> </span><a name="local-6989586621679077225"><a href="#local-6989586621679077225"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679077226"><a href="#local-6989586621679077226"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-186"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679077357"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Consumes"><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier">Consumes</span></a></a><span> </span><a name="local-6989586621679077356"><a href="#local-6989586621679077356"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679077357"><a href="#local-6989586621679077357"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-187"></a><span>
|
||||
</span><a name="line-188"></a><span class="hs-comment">-- ** Request Produces</span><span>
|
||||
</span><a name="line-189"></a><span>
|
||||
</span><a name="line-190"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679077224"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Produces"><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier">Produces</span></a></a><span> </span><a name="local-6989586621679077223"><a href="#local-6989586621679077223"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679077224"><a href="#local-6989586621679077224"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-190"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679077355"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Produces"><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier">Produces</span></a></a><span> </span><a name="local-6989586621679077354"><a href="#local-6989586621679077354"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679077355"><a href="#local-6989586621679077355"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-191"></a></pre></body></html>
|
@ -2,377 +2,376 @@
|
||||
Module : SwaggerPetstore.Model
|
||||
-}</span><span>
|
||||
</span><a name="line-4"></a><span>
|
||||
</span><a name="line-5"></a><span class="hs-pragma">{-# LANGUAGE DeriveAnyClass #-}</span><span>
|
||||
</span><a name="line-6"></a><span class="hs-pragma">{-# LANGUAGE DeriveDataTypeable #-}</span><span>
|
||||
</span><a name="line-7"></a><span class="hs-pragma">{-# LANGUAGE DeriveFoldable #-}</span><span>
|
||||
</span><a name="line-8"></a><span class="hs-pragma">{-# LANGUAGE DeriveGeneric #-}</span><span>
|
||||
</span><a name="line-9"></a><span class="hs-pragma">{-# LANGUAGE DeriveTraversable #-}</span><span>
|
||||
</span><a name="line-10"></a><span class="hs-pragma">{-# LANGUAGE GeneralizedNewtypeDeriving #-}</span><span>
|
||||
</span><a name="line-11"></a><span class="hs-pragma">{-# LANGUAGE NamedFieldPuns #-}</span><span>
|
||||
</span><a name="line-12"></a><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><a name="line-13"></a><span class="hs-pragma">{-# LANGUAGE RecordWildCards #-}</span><span>
|
||||
</span><a name="line-14"></a><span class="hs-pragma">{-# LANGUAGE TupleSections #-}</span><span>
|
||||
</span><a name="line-15"></a><span class="hs-pragma">{-# LANGUAGE TypeFamilies #-}</span><span>
|
||||
</span><a name="line-16"></a><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><a name="line-17"></a><span>
|
||||
</span><a name="line-18"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Model</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-19"></a><span>
|
||||
</span><a name="line-20"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">.:</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">.:!</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">.:?</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">.=</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-21"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-22"></a><span>
|
||||
</span><a name="line-23"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Value</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-24"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-25"></a><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">A</span><span>
|
||||
</span><a name="line-27"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">B</span><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Data</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Data</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">HashMap</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">HM</span><span>
|
||||
</span><a name="line-30"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Map</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Map</span><span>
|
||||
</span><a name="line-31"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Maybe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-32"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Foldable</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">FormUrlEncoded</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-34"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">HttpApiData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-35"></a><span>
|
||||
</span><a name="line-36"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</span><span>
|
||||
</span><a name="line-37"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span class="hs-operator">.</span><span class="hs-identifier">ISO8601</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</span><span>
|
||||
</span><a name="line-38"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">UTCTime</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-39"></a><span>
|
||||
</span><a name="line-40"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Applicative</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var"><|></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-41"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Applicative</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Alternative</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-42"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">>>=</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">,</span><span class="hs-identifier hs-type">FilePath</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Float</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">,</span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span class="hs-identifier hs-var">undefined</span><span class="hs-special">,</span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">,</span><span class="hs-identifier hs-var">maybe</span><span class="hs-special">,</span><span class="hs-identifier hs-var">pure</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Monad</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Applicative</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-43"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-5"></a><span class="hs-pragma">{-# LANGUAGE DeriveDataTypeable #-}</span><span>
|
||||
</span><a name="line-6"></a><span class="hs-pragma">{-# LANGUAGE DeriveFoldable #-}</span><span>
|
||||
</span><a name="line-7"></a><span class="hs-pragma">{-# LANGUAGE DeriveGeneric #-}</span><span>
|
||||
</span><a name="line-8"></a><span class="hs-pragma">{-# LANGUAGE DeriveTraversable #-}</span><span>
|
||||
</span><a name="line-9"></a><span class="hs-pragma">{-# LANGUAGE GeneralizedNewtypeDeriving #-}</span><span>
|
||||
</span><a name="line-10"></a><span class="hs-pragma">{-# LANGUAGE NamedFieldPuns #-}</span><span>
|
||||
</span><a name="line-11"></a><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><a name="line-12"></a><span class="hs-pragma">{-# LANGUAGE RecordWildCards #-}</span><span>
|
||||
</span><a name="line-13"></a><span class="hs-pragma">{-# LANGUAGE TupleSections #-}</span><span>
|
||||
</span><a name="line-14"></a><span class="hs-pragma">{-# LANGUAGE TypeFamilies #-}</span><span>
|
||||
</span><a name="line-15"></a><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><a name="line-16"></a><span>
|
||||
</span><a name="line-17"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">Model</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-18"></a><span>
|
||||
</span><a name="line-19"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">.:</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">.:!</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">.:?</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">.=</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-20"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-21"></a><span>
|
||||
</span><a name="line-22"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Value</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-23"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-24"></a><span>
|
||||
</span><a name="line-25"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">A</span><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">B</span><span>
|
||||
</span><a name="line-27"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Data</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Data</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">HashMap</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">HM</span><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Map</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Map</span><span>
|
||||
</span><a name="line-30"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Maybe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-31"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Foldable</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-32"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">FormUrlEncoded</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">HttpApiData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-34"></a><span>
|
||||
</span><a name="line-35"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</span><span>
|
||||
</span><a name="line-36"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span class="hs-operator">.</span><span class="hs-identifier">ISO8601</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</span><span>
|
||||
</span><a name="line-37"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">UTCTime</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-38"></a><span>
|
||||
</span><a name="line-39"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Applicative</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var"><|></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-40"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Applicative</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Alternative</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-41"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">>>=</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">,</span><span class="hs-identifier hs-type">FilePath</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Float</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">,</span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span class="hs-identifier hs-var">undefined</span><span class="hs-special">,</span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">,</span><span class="hs-identifier hs-var">maybe</span><span class="hs-special">,</span><span class="hs-identifier hs-var">pure</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Monad</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Applicative</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-42"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-43"></a><span>
|
||||
</span><a name="line-44"></a><span>
|
||||
</span><a name="line-45"></a><span>
|
||||
</span><a name="line-46"></a><span>
|
||||
</span><a name="line-47"></a><span class="hs-comment">-- * Models</span><span>
|
||||
</span><a name="line-46"></a><span class="hs-comment">-- * Models</span><span>
|
||||
</span><a name="line-47"></a><span>
|
||||
</span><a name="line-48"></a><span>
|
||||
</span><a name="line-49"></a><span>
|
||||
</span><a name="line-50"></a><span class="hs-comment">-- ** ApiResponse</span><span>
|
||||
</span><a name="line-51"></a><span class="hs-comment">-- |</span><span>
|
||||
</span><a name="line-52"></a><span class="hs-comment">-- An uploaded response</span><span>
|
||||
</span><a name="line-53"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-54"></a><span class="hs-comment">-- Describes the result of uploading an image resource</span><span>
|
||||
</span><a name="line-55"></a><span class="hs-keyword">data</span><span> </span><a name="ApiResponse"><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier">ApiResponse</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="ApiResponse"><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier">ApiResponse</span></a></a><span>
|
||||
</span><a name="line-56"></a><span> </span><span class="hs-special">{</span><span> </span><a name="apiResponseCode"><a href="SwaggerPetstore.Model.html#apiResponseCode"><span class="hs-identifier">apiResponseCode</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span> </span><span class="hs-comment">-- ^ "code"</span><span>
|
||||
</span><a name="line-57"></a><span> </span><span class="hs-special">,</span><span> </span><a name="apiResponseType"><a href="SwaggerPetstore.Model.html#apiResponseType"><span class="hs-identifier">apiResponseType</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "type"</span><span>
|
||||
</span><a name="line-58"></a><span> </span><span class="hs-special">,</span><span> </span><a name="apiResponseMessage"><a href="SwaggerPetstore.Model.html#apiResponseMessage"><span class="hs-identifier">apiResponseMessage</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "message"</span><span>
|
||||
</span><a name="line-59"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-60"></a><span>
|
||||
</span><a name="line-61"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-62"></a><span> </span><a name="local-8214565720323785739"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withObject</span><span> </span><span class="hs-string">"ApiResponse"</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-glyph">\</span><a name="local-6989586621679072660"><a href="#local-6989586621679072660"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><a name="line-63"></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span>
|
||||
</span><a name="line-64"></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072660"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"code"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-65"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072660"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"type"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-66"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072660"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"message"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-67"></a><span>
|
||||
</span><a name="line-68"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-69"></a><span> </span><a name="local-8214565720323785610"><span class="hs-identifier">toJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-70"></a><span> </span><a href="SwaggerPetstore.Model.html#_omitNulls"><span class="hs-identifier hs-var">_omitNulls</span></a><span>
|
||||
</span><a name="line-71"></a><span> </span><span class="hs-special">[</span><span> </span><span class="hs-string">"code"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072657"><span class="hs-identifier hs-var">apiResponseCode</span></a><span>
|
||||
</span><a name="line-72"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"type"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072658"><span class="hs-identifier hs-var">apiResponseType</span></a><span>
|
||||
</span><a name="line-73"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"message"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072659"><span class="hs-identifier hs-var">apiResponseMessage</span></a><span>
|
||||
</span><a name="line-74"></a><span> </span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-49"></a><span class="hs-comment">-- ** ApiResponse</span><span>
|
||||
</span><a name="line-50"></a><span class="hs-comment">-- |</span><span>
|
||||
</span><a name="line-51"></a><span class="hs-comment">-- An uploaded response</span><span>
|
||||
</span><a name="line-52"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-53"></a><span class="hs-comment">-- Describes the result of uploading an image resource</span><span>
|
||||
</span><a name="line-54"></a><span class="hs-keyword">data</span><span> </span><a name="ApiResponse"><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier">ApiResponse</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="ApiResponse"><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier">ApiResponse</span></a></a><span>
|
||||
</span><a name="line-55"></a><span> </span><span class="hs-special">{</span><span> </span><a name="apiResponseCode"><a href="SwaggerPetstore.Model.html#apiResponseCode"><span class="hs-identifier">apiResponseCode</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span> </span><span class="hs-comment">-- ^ "code"</span><span>
|
||||
</span><a name="line-56"></a><span> </span><span class="hs-special">,</span><span> </span><a name="apiResponseType"><a href="SwaggerPetstore.Model.html#apiResponseType"><span class="hs-identifier">apiResponseType</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "type"</span><span>
|
||||
</span><a name="line-57"></a><span> </span><span class="hs-special">,</span><span> </span><a name="apiResponseMessage"><a href="SwaggerPetstore.Model.html#apiResponseMessage"><span class="hs-identifier">apiResponseMessage</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "message"</span><span>
|
||||
</span><a name="line-58"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-59"></a><span>
|
||||
</span><a name="line-60"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-61"></a><span> </span><a name="local-8214565720323785739"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withObject</span><span> </span><span class="hs-string">"ApiResponse"</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-glyph">\</span><a name="local-6989586621679072791"><a href="#local-6989586621679072791"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><a name="line-62"></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span>
|
||||
</span><a name="line-63"></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072791"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"code"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-64"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072791"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"type"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-65"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072791"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"message"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-66"></a><span>
|
||||
</span><a name="line-67"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-68"></a><span> </span><a name="local-8214565720323785610"><span class="hs-identifier">toJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-69"></a><span> </span><a href="SwaggerPetstore.Model.html#_omitNulls"><span class="hs-identifier hs-var">_omitNulls</span></a><span>
|
||||
</span><a name="line-70"></a><span> </span><span class="hs-special">[</span><span> </span><span class="hs-string">"code"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072788"><span class="hs-identifier hs-var">apiResponseCode</span></a><span>
|
||||
</span><a name="line-71"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"type"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072789"><span class="hs-identifier hs-var">apiResponseType</span></a><span>
|
||||
</span><a name="line-72"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"message"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072790"><span class="hs-identifier hs-var">apiResponseMessage</span></a><span>
|
||||
</span><a name="line-73"></a><span> </span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-74"></a><span>
|
||||
</span><a name="line-75"></a><span>
|
||||
</span><a name="line-76"></a><span>
|
||||
</span><a name="line-77"></a><span class="hs-comment">-- | Construct a value of type 'ApiResponse' (by applying it's required fields, if any)</span><span>
|
||||
</span><a name="line-78"></a><span class="hs-identifier">mkApiResponse</span><span>
|
||||
</span><a name="line-79"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span>
|
||||
</span><a name="line-80"></a><a name="mkApiResponse"><a href="SwaggerPetstore.Model.html#mkApiResponse"><span class="hs-identifier">mkApiResponse</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-81"></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span>
|
||||
</span><a name="line-82"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">apiResponseCode</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-83"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">apiResponseType</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-84"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">apiResponseMessage</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-85"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-86"></a><span> </span><span>
|
||||
</span><a name="line-76"></a><span class="hs-comment">-- | Construct a value of type 'ApiResponse' (by applying it's required fields, if any)</span><span>
|
||||
</span><a name="line-77"></a><span class="hs-identifier">mkApiResponse</span><span>
|
||||
</span><a name="line-78"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span>
|
||||
</span><a name="line-79"></a><a name="mkApiResponse"><a href="SwaggerPetstore.Model.html#mkApiResponse"><span class="hs-identifier">mkApiResponse</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-80"></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span>
|
||||
</span><a name="line-81"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">apiResponseCode</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-82"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">apiResponseType</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-83"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">apiResponseMessage</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-84"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-85"></a><span> </span><span>
|
||||
</span><a name="line-86"></a><span>
|
||||
</span><a name="line-87"></a><span>
|
||||
</span><a name="line-88"></a><span>
|
||||
</span><a name="line-89"></a><span class="hs-comment">-- ** Category</span><span>
|
||||
</span><a name="line-90"></a><span class="hs-comment">-- |</span><span>
|
||||
</span><a name="line-91"></a><span class="hs-comment">-- Pet catehgry</span><span>
|
||||
</span><a name="line-92"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-93"></a><span class="hs-comment">-- A category for a pet</span><span>
|
||||
</span><a name="line-94"></a><span class="hs-keyword">data</span><span> </span><a name="Category"><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier">Category</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Category"><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier">Category</span></a></a><span>
|
||||
</span><a name="line-95"></a><span> </span><span class="hs-special">{</span><span> </span><a name="categoryId"><a href="SwaggerPetstore.Model.html#categoryId"><span class="hs-identifier">categoryId</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ "id"</span><span>
|
||||
</span><a name="line-96"></a><span> </span><span class="hs-special">,</span><span> </span><a name="categoryName"><a href="SwaggerPetstore.Model.html#categoryName"><span class="hs-identifier">categoryName</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "name"</span><span>
|
||||
</span><a name="line-97"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-98"></a><span>
|
||||
</span><a name="line-99"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-100"></a><span> </span><a name="local-8214565720323785739"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withObject</span><span> </span><span class="hs-string">"Category"</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-glyph">\</span><a name="local-6989586621679072656"><a href="#local-6989586621679072656"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><a name="line-101"></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span>
|
||||
</span><a name="line-102"></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072656"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"id"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-103"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072656"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"name"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-104"></a><span>
|
||||
</span><a name="line-105"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-106"></a><span> </span><a name="local-8214565720323785610"><span class="hs-identifier">toJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span> </span><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-107"></a><span> </span><a href="SwaggerPetstore.Model.html#_omitNulls"><span class="hs-identifier hs-var">_omitNulls</span></a><span>
|
||||
</span><a name="line-108"></a><span> </span><span class="hs-special">[</span><span> </span><span class="hs-string">"id"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072654"><span class="hs-identifier hs-var">categoryId</span></a><span>
|
||||
</span><a name="line-109"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"name"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072655"><span class="hs-identifier hs-var">categoryName</span></a><span>
|
||||
</span><a name="line-110"></a><span> </span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-88"></a><span class="hs-comment">-- ** Category</span><span>
|
||||
</span><a name="line-89"></a><span class="hs-comment">-- |</span><span>
|
||||
</span><a name="line-90"></a><span class="hs-comment">-- Pet catehgry</span><span>
|
||||
</span><a name="line-91"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-92"></a><span class="hs-comment">-- A category for a pet</span><span>
|
||||
</span><a name="line-93"></a><span class="hs-keyword">data</span><span> </span><a name="Category"><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier">Category</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Category"><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier">Category</span></a></a><span>
|
||||
</span><a name="line-94"></a><span> </span><span class="hs-special">{</span><span> </span><a name="categoryId"><a href="SwaggerPetstore.Model.html#categoryId"><span class="hs-identifier">categoryId</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ "id"</span><span>
|
||||
</span><a name="line-95"></a><span> </span><span class="hs-special">,</span><span> </span><a name="categoryName"><a href="SwaggerPetstore.Model.html#categoryName"><span class="hs-identifier">categoryName</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "name"</span><span>
|
||||
</span><a name="line-96"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-97"></a><span>
|
||||
</span><a name="line-98"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-99"></a><span> </span><a name="local-8214565720323785739"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withObject</span><span> </span><span class="hs-string">"Category"</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-glyph">\</span><a name="local-6989586621679072787"><a href="#local-6989586621679072787"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><a name="line-100"></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span>
|
||||
</span><a name="line-101"></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072787"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"id"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-102"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072787"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"name"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-103"></a><span>
|
||||
</span><a name="line-104"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-105"></a><span> </span><a name="local-8214565720323785610"><span class="hs-identifier">toJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span> </span><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-106"></a><span> </span><a href="SwaggerPetstore.Model.html#_omitNulls"><span class="hs-identifier hs-var">_omitNulls</span></a><span>
|
||||
</span><a name="line-107"></a><span> </span><span class="hs-special">[</span><span> </span><span class="hs-string">"id"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072785"><span class="hs-identifier hs-var">categoryId</span></a><span>
|
||||
</span><a name="line-108"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"name"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072786"><span class="hs-identifier hs-var">categoryName</span></a><span>
|
||||
</span><a name="line-109"></a><span> </span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-110"></a><span>
|
||||
</span><a name="line-111"></a><span>
|
||||
</span><a name="line-112"></a><span>
|
||||
</span><a name="line-113"></a><span class="hs-comment">-- | Construct a value of type 'Category' (by applying it's required fields, if any)</span><span>
|
||||
</span><a name="line-114"></a><span class="hs-identifier">mkCategory</span><span>
|
||||
</span><a name="line-115"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span>
|
||||
</span><a name="line-116"></a><a name="mkCategory"><a href="SwaggerPetstore.Model.html#mkCategory"><span class="hs-identifier">mkCategory</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-117"></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span>
|
||||
</span><a name="line-118"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">categoryId</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-119"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">categoryName</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-120"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-121"></a><span> </span><span>
|
||||
</span><a name="line-112"></a><span class="hs-comment">-- | Construct a value of type 'Category' (by applying it's required fields, if any)</span><span>
|
||||
</span><a name="line-113"></a><span class="hs-identifier">mkCategory</span><span>
|
||||
</span><a name="line-114"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span>
|
||||
</span><a name="line-115"></a><a name="mkCategory"><a href="SwaggerPetstore.Model.html#mkCategory"><span class="hs-identifier">mkCategory</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-116"></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span>
|
||||
</span><a name="line-117"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">categoryId</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-118"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">categoryName</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-119"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-120"></a><span> </span><span>
|
||||
</span><a name="line-121"></a><span>
|
||||
</span><a name="line-122"></a><span>
|
||||
</span><a name="line-123"></a><span>
|
||||
</span><a name="line-124"></a><span class="hs-comment">-- ** Order</span><span>
|
||||
</span><a name="line-125"></a><span class="hs-comment">-- |</span><span>
|
||||
</span><a name="line-126"></a><span class="hs-comment">-- Pet Order</span><span>
|
||||
</span><a name="line-127"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-128"></a><span class="hs-comment">-- An order for a pets from the pet store</span><span>
|
||||
</span><a name="line-129"></a><span class="hs-keyword">data</span><span> </span><a name="Order"><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier">Order</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Order"><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier">Order</span></a></a><span>
|
||||
</span><a name="line-130"></a><span> </span><span class="hs-special">{</span><span> </span><a name="orderId"><a href="SwaggerPetstore.Model.html#orderId"><span class="hs-identifier">orderId</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ "id"</span><span>
|
||||
</span><a name="line-131"></a><span> </span><span class="hs-special">,</span><span> </span><a name="orderPetId"><a href="SwaggerPetstore.Model.html#orderPetId"><span class="hs-identifier">orderPetId</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ "petId"</span><span>
|
||||
</span><a name="line-132"></a><span> </span><span class="hs-special">,</span><span> </span><a name="orderQuantity"><a href="SwaggerPetstore.Model.html#orderQuantity"><span class="hs-identifier">orderQuantity</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span> </span><span class="hs-comment">-- ^ "quantity"</span><span>
|
||||
</span><a name="line-133"></a><span> </span><span class="hs-special">,</span><span> </span><a name="orderShipDate"><a href="SwaggerPetstore.Model.html#orderShipDate"><span class="hs-identifier">orderShipDate</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">UTCTime</span><span> </span><span class="hs-comment">-- ^ "shipDate"</span><span>
|
||||
</span><a name="line-134"></a><span> </span><span class="hs-special">,</span><span> </span><a name="orderStatus"><a href="SwaggerPetstore.Model.html#orderStatus"><span class="hs-identifier">orderStatus</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "status" - Order Status</span><span>
|
||||
</span><a name="line-135"></a><span> </span><span class="hs-special">,</span><span> </span><a name="orderComplete"><a href="SwaggerPetstore.Model.html#orderComplete"><span class="hs-identifier">orderComplete</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Bool</span><span> </span><span class="hs-comment">-- ^ "complete"</span><span>
|
||||
</span><a name="line-136"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-137"></a><span>
|
||||
</span><a name="line-138"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-139"></a><span> </span><a name="local-8214565720323785739"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withObject</span><span> </span><span class="hs-string">"Order"</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-glyph">\</span><a name="local-6989586621679072183"><a href="#local-6989586621679072183"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><a name="line-140"></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span>
|
||||
</span><a name="line-141"></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072183"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"id"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-142"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072183"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"petId"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-143"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072183"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"quantity"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-144"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072183"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"shipDate"</span><span> </span><span class="hs-operator hs-var">>>=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mapM</span><span> </span><a href="SwaggerPetstore.Model.html#_readDateTime"><span class="hs-identifier hs-var">_readDateTime</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-145"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072183"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"status"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-146"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072183"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"complete"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-147"></a><span>
|
||||
</span><a name="line-148"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-149"></a><span> </span><a name="local-8214565720323785610"><span class="hs-identifier">toJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-150"></a><span> </span><a href="SwaggerPetstore.Model.html#_omitNulls"><span class="hs-identifier hs-var">_omitNulls</span></a><span>
|
||||
</span><a name="line-151"></a><span> </span><span class="hs-special">[</span><span> </span><span class="hs-string">"id"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072177"><span class="hs-identifier hs-var">orderId</span></a><span>
|
||||
</span><a name="line-152"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"petId"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072178"><span class="hs-identifier hs-var">orderPetId</span></a><span>
|
||||
</span><a name="line-153"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"quantity"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072179"><span class="hs-identifier hs-var">orderQuantity</span></a><span>
|
||||
</span><a name="line-154"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"shipDate"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fmap</span><span> </span><a href="SwaggerPetstore.Model.html#_showDateTime"><span class="hs-identifier hs-var">_showDateTime</span></a><span> </span><a href="#local-6989586621679072180"><span class="hs-identifier hs-var">orderShipDate</span></a><span>
|
||||
</span><a name="line-155"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"status"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072181"><span class="hs-identifier hs-var">orderStatus</span></a><span>
|
||||
</span><a name="line-156"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"complete"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072182"><span class="hs-identifier hs-var">orderComplete</span></a><span>
|
||||
</span><a name="line-157"></a><span> </span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-123"></a><span class="hs-comment">-- ** Order</span><span>
|
||||
</span><a name="line-124"></a><span class="hs-comment">-- |</span><span>
|
||||
</span><a name="line-125"></a><span class="hs-comment">-- Pet Order</span><span>
|
||||
</span><a name="line-126"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-127"></a><span class="hs-comment">-- An order for a pets from the pet store</span><span>
|
||||
</span><a name="line-128"></a><span class="hs-keyword">data</span><span> </span><a name="Order"><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier">Order</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Order"><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier">Order</span></a></a><span>
|
||||
</span><a name="line-129"></a><span> </span><span class="hs-special">{</span><span> </span><a name="orderId"><a href="SwaggerPetstore.Model.html#orderId"><span class="hs-identifier">orderId</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ "id"</span><span>
|
||||
</span><a name="line-130"></a><span> </span><span class="hs-special">,</span><span> </span><a name="orderPetId"><a href="SwaggerPetstore.Model.html#orderPetId"><span class="hs-identifier">orderPetId</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ "petId"</span><span>
|
||||
</span><a name="line-131"></a><span> </span><span class="hs-special">,</span><span> </span><a name="orderQuantity"><a href="SwaggerPetstore.Model.html#orderQuantity"><span class="hs-identifier">orderQuantity</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span> </span><span class="hs-comment">-- ^ "quantity"</span><span>
|
||||
</span><a name="line-132"></a><span> </span><span class="hs-special">,</span><span> </span><a name="orderShipDate"><a href="SwaggerPetstore.Model.html#orderShipDate"><span class="hs-identifier">orderShipDate</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">UTCTime</span><span> </span><span class="hs-comment">-- ^ "shipDate"</span><span>
|
||||
</span><a name="line-133"></a><span> </span><span class="hs-special">,</span><span> </span><a name="orderStatus"><a href="SwaggerPetstore.Model.html#orderStatus"><span class="hs-identifier">orderStatus</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "status" - Order Status</span><span>
|
||||
</span><a name="line-134"></a><span> </span><span class="hs-special">,</span><span> </span><a name="orderComplete"><a href="SwaggerPetstore.Model.html#orderComplete"><span class="hs-identifier">orderComplete</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Bool</span><span> </span><span class="hs-comment">-- ^ "complete"</span><span>
|
||||
</span><a name="line-135"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-136"></a><span>
|
||||
</span><a name="line-137"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-138"></a><span> </span><a name="local-8214565720323785739"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withObject</span><span> </span><span class="hs-string">"Order"</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-glyph">\</span><a name="local-6989586621679072314"><a href="#local-6989586621679072314"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><a name="line-139"></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span>
|
||||
</span><a name="line-140"></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072314"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"id"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-141"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072314"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"petId"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-142"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072314"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"quantity"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-143"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072314"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"shipDate"</span><span> </span><span class="hs-operator hs-var">>>=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mapM</span><span> </span><a href="SwaggerPetstore.Model.html#_readDateTime"><span class="hs-identifier hs-var">_readDateTime</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-144"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072314"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"status"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-145"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072314"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"complete"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-146"></a><span>
|
||||
</span><a name="line-147"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-148"></a><span> </span><a name="local-8214565720323785610"><span class="hs-identifier">toJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-149"></a><span> </span><a href="SwaggerPetstore.Model.html#_omitNulls"><span class="hs-identifier hs-var">_omitNulls</span></a><span>
|
||||
</span><a name="line-150"></a><span> </span><span class="hs-special">[</span><span> </span><span class="hs-string">"id"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072308"><span class="hs-identifier hs-var">orderId</span></a><span>
|
||||
</span><a name="line-151"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"petId"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072309"><span class="hs-identifier hs-var">orderPetId</span></a><span>
|
||||
</span><a name="line-152"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"quantity"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072310"><span class="hs-identifier hs-var">orderQuantity</span></a><span>
|
||||
</span><a name="line-153"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"shipDate"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fmap</span><span> </span><a href="SwaggerPetstore.Model.html#_showDateTime"><span class="hs-identifier hs-var">_showDateTime</span></a><span> </span><a href="#local-6989586621679072311"><span class="hs-identifier hs-var">orderShipDate</span></a><span>
|
||||
</span><a name="line-154"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"status"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072312"><span class="hs-identifier hs-var">orderStatus</span></a><span>
|
||||
</span><a name="line-155"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"complete"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072313"><span class="hs-identifier hs-var">orderComplete</span></a><span>
|
||||
</span><a name="line-156"></a><span> </span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-157"></a><span>
|
||||
</span><a name="line-158"></a><span>
|
||||
</span><a name="line-159"></a><span>
|
||||
</span><a name="line-160"></a><span class="hs-comment">-- | Construct a value of type 'Order' (by applying it's required fields, if any)</span><span>
|
||||
</span><a name="line-161"></a><span class="hs-identifier">mkOrder</span><span>
|
||||
</span><a name="line-162"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span>
|
||||
</span><a name="line-163"></a><a name="mkOrder"><a href="SwaggerPetstore.Model.html#mkOrder"><span class="hs-identifier">mkOrder</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-164"></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span>
|
||||
</span><a name="line-165"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">orderId</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-166"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">orderPetId</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-167"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">orderQuantity</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-168"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">orderShipDate</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-169"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">orderStatus</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-170"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">orderComplete</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-171"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-172"></a><span> </span><span>
|
||||
</span><a name="line-159"></a><span class="hs-comment">-- | Construct a value of type 'Order' (by applying it's required fields, if any)</span><span>
|
||||
</span><a name="line-160"></a><span class="hs-identifier">mkOrder</span><span>
|
||||
</span><a name="line-161"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span>
|
||||
</span><a name="line-162"></a><a name="mkOrder"><a href="SwaggerPetstore.Model.html#mkOrder"><span class="hs-identifier">mkOrder</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-163"></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span>
|
||||
</span><a name="line-164"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">orderId</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-165"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">orderPetId</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-166"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">orderQuantity</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-167"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">orderShipDate</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-168"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">orderStatus</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-169"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">orderComplete</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-170"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-171"></a><span> </span><span>
|
||||
</span><a name="line-172"></a><span>
|
||||
</span><a name="line-173"></a><span>
|
||||
</span><a name="line-174"></a><span>
|
||||
</span><a name="line-175"></a><span class="hs-comment">-- ** Pet</span><span>
|
||||
</span><a name="line-176"></a><span class="hs-comment">-- |</span><span>
|
||||
</span><a name="line-177"></a><span class="hs-comment">-- a Pet</span><span>
|
||||
</span><a name="line-178"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-179"></a><span class="hs-comment">-- A pet for sale in the pet store</span><span>
|
||||
</span><a name="line-180"></a><span class="hs-keyword">data</span><span> </span><a name="Pet"><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier">Pet</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Pet"><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier">Pet</span></a></a><span>
|
||||
</span><a name="line-181"></a><span> </span><span class="hs-special">{</span><span> </span><a name="petId"><a href="SwaggerPetstore.Model.html#petId"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ "id"</span><span>
|
||||
</span><a name="line-182"></a><span> </span><span class="hs-special">,</span><span> </span><a name="petCategory"><a href="SwaggerPetstore.Model.html#petCategory"><span class="hs-identifier">petCategory</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-comment">-- ^ "category"</span><span>
|
||||
</span><a name="line-183"></a><span> </span><span class="hs-special">,</span><span> </span><a name="petName"><a href="SwaggerPetstore.Model.html#petName"><span class="hs-identifier">petName</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ /Required/ "name"</span><span>
|
||||
</span><a name="line-184"></a><span> </span><span class="hs-special">,</span><span> </span><a name="petPhotoUrls"><a href="SwaggerPetstore.Model.html#petPhotoUrls"><span class="hs-identifier">petPhotoUrls</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ /Required/ "photoUrls"</span><span>
|
||||
</span><a name="line-185"></a><span> </span><span class="hs-special">,</span><span> </span><a name="petTags"><a href="SwaggerPetstore.Model.html#petTags"><span class="hs-identifier">petTags</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ "tags"</span><span>
|
||||
</span><a name="line-186"></a><span> </span><span class="hs-special">,</span><span> </span><a name="petStatus"><a href="SwaggerPetstore.Model.html#petStatus"><span class="hs-identifier">petStatus</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "status" - pet status in the store</span><span>
|
||||
</span><a name="line-187"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-188"></a><span>
|
||||
</span><a name="line-189"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-190"></a><span> </span><a name="local-8214565720323785739"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withObject</span><span> </span><span class="hs-string">"Pet"</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-glyph">\</span><a name="local-6989586621679072176"><a href="#local-6989586621679072176"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><a name="line-191"></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span>
|
||||
</span><a name="line-192"></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072176"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"id"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-193"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072176"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"category"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-194"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072176"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:</span><span> </span><span class="hs-string">"name"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-195"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072176"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:</span><span> </span><span class="hs-string">"photoUrls"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-196"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072176"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"tags"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-197"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072176"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"status"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-198"></a><span>
|
||||
</span><a name="line-199"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-200"></a><span> </span><a name="local-8214565720323785610"><span class="hs-identifier">toJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-201"></a><span> </span><a href="SwaggerPetstore.Model.html#_omitNulls"><span class="hs-identifier hs-var">_omitNulls</span></a><span>
|
||||
</span><a name="line-202"></a><span> </span><span class="hs-special">[</span><span> </span><span class="hs-string">"id"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072170"><span class="hs-identifier hs-var">petId</span></a><span>
|
||||
</span><a name="line-203"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"category"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072171"><span class="hs-identifier hs-var">petCategory</span></a><span>
|
||||
</span><a name="line-204"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"name"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072172"><span class="hs-identifier hs-var">petName</span></a><span>
|
||||
</span><a name="line-205"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"photoUrls"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072173"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span>
|
||||
</span><a name="line-206"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"tags"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072174"><span class="hs-identifier hs-var">petTags</span></a><span>
|
||||
</span><a name="line-207"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"status"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072175"><span class="hs-identifier hs-var">petStatus</span></a><span>
|
||||
</span><a name="line-208"></a><span> </span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-174"></a><span class="hs-comment">-- ** Pet</span><span>
|
||||
</span><a name="line-175"></a><span class="hs-comment">-- |</span><span>
|
||||
</span><a name="line-176"></a><span class="hs-comment">-- a Pet</span><span>
|
||||
</span><a name="line-177"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-178"></a><span class="hs-comment">-- A pet for sale in the pet store</span><span>
|
||||
</span><a name="line-179"></a><span class="hs-keyword">data</span><span> </span><a name="Pet"><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier">Pet</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Pet"><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier">Pet</span></a></a><span>
|
||||
</span><a name="line-180"></a><span> </span><span class="hs-special">{</span><span> </span><a name="petId"><a href="SwaggerPetstore.Model.html#petId"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ "id"</span><span>
|
||||
</span><a name="line-181"></a><span> </span><span class="hs-special">,</span><span> </span><a name="petCategory"><a href="SwaggerPetstore.Model.html#petCategory"><span class="hs-identifier">petCategory</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-comment">-- ^ "category"</span><span>
|
||||
</span><a name="line-182"></a><span> </span><span class="hs-special">,</span><span> </span><a name="petName"><a href="SwaggerPetstore.Model.html#petName"><span class="hs-identifier">petName</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ /Required/ "name"</span><span>
|
||||
</span><a name="line-183"></a><span> </span><span class="hs-special">,</span><span> </span><a name="petPhotoUrls"><a href="SwaggerPetstore.Model.html#petPhotoUrls"><span class="hs-identifier">petPhotoUrls</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ /Required/ "photoUrls"</span><span>
|
||||
</span><a name="line-184"></a><span> </span><span class="hs-special">,</span><span> </span><a name="petTags"><a href="SwaggerPetstore.Model.html#petTags"><span class="hs-identifier">petTags</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ "tags"</span><span>
|
||||
</span><a name="line-185"></a><span> </span><span class="hs-special">,</span><span> </span><a name="petStatus"><a href="SwaggerPetstore.Model.html#petStatus"><span class="hs-identifier">petStatus</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "status" - pet status in the store</span><span>
|
||||
</span><a name="line-186"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-187"></a><span>
|
||||
</span><a name="line-188"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-189"></a><span> </span><a name="local-8214565720323785739"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withObject</span><span> </span><span class="hs-string">"Pet"</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-glyph">\</span><a name="local-6989586621679072307"><a href="#local-6989586621679072307"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><a name="line-190"></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span>
|
||||
</span><a name="line-191"></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072307"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"id"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-192"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072307"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"category"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-193"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072307"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:</span><span> </span><span class="hs-string">"name"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-194"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072307"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:</span><span> </span><span class="hs-string">"photoUrls"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-195"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072307"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"tags"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-196"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072307"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"status"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-197"></a><span>
|
||||
</span><a name="line-198"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-199"></a><span> </span><a name="local-8214565720323785610"><span class="hs-identifier">toJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-200"></a><span> </span><a href="SwaggerPetstore.Model.html#_omitNulls"><span class="hs-identifier hs-var">_omitNulls</span></a><span>
|
||||
</span><a name="line-201"></a><span> </span><span class="hs-special">[</span><span> </span><span class="hs-string">"id"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072301"><span class="hs-identifier hs-var">petId</span></a><span>
|
||||
</span><a name="line-202"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"category"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072302"><span class="hs-identifier hs-var">petCategory</span></a><span>
|
||||
</span><a name="line-203"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"name"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072303"><span class="hs-identifier hs-var">petName</span></a><span>
|
||||
</span><a name="line-204"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"photoUrls"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072304"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span>
|
||||
</span><a name="line-205"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"tags"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072305"><span class="hs-identifier hs-var">petTags</span></a><span>
|
||||
</span><a name="line-206"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"status"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072306"><span class="hs-identifier hs-var">petStatus</span></a><span>
|
||||
</span><a name="line-207"></a><span> </span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-208"></a><span>
|
||||
</span><a name="line-209"></a><span>
|
||||
</span><a name="line-210"></a><span>
|
||||
</span><a name="line-211"></a><span class="hs-comment">-- | Construct a value of type 'Pet' (by applying it's required fields, if any)</span><span>
|
||||
</span><a name="line-212"></a><span class="hs-identifier">mkPet</span><span>
|
||||
</span><a name="line-213"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ 'petName' </span><span>
|
||||
</span><a name="line-214"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ 'petPhotoUrls' </span><span>
|
||||
</span><a name="line-215"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span>
|
||||
</span><a name="line-216"></a><a name="mkPet"><a href="SwaggerPetstore.Model.html#mkPet"><span class="hs-identifier">mkPet</span></a></a><span> </span><a name="local-6989586621679071626"><a href="#local-6989586621679071626"><span class="hs-identifier">petName</span></a></a><span> </span><a name="local-6989586621679071627"><a href="#local-6989586621679071627"><span class="hs-identifier">petPhotoUrls</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-217"></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span>
|
||||
</span><a name="line-218"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">petId</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-219"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">petCategory</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-220"></a><span> </span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679071626"><span class="hs-identifier hs-var">petName</span></a><span>
|
||||
</span><a name="line-221"></a><span> </span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679071627"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span>
|
||||
</span><a name="line-222"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">petTags</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-223"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">petStatus</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-224"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-225"></a><span> </span><span>
|
||||
</span><a name="line-210"></a><span class="hs-comment">-- | Construct a value of type 'Pet' (by applying it's required fields, if any)</span><span>
|
||||
</span><a name="line-211"></a><span class="hs-identifier">mkPet</span><span>
|
||||
</span><a name="line-212"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ 'petName' </span><span>
|
||||
</span><a name="line-213"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ 'petPhotoUrls' </span><span>
|
||||
</span><a name="line-214"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span>
|
||||
</span><a name="line-215"></a><a name="mkPet"><a href="SwaggerPetstore.Model.html#mkPet"><span class="hs-identifier">mkPet</span></a></a><span> </span><a name="local-6989586621679071757"><a href="#local-6989586621679071757"><span class="hs-identifier">petName</span></a></a><span> </span><a name="local-6989586621679071758"><a href="#local-6989586621679071758"><span class="hs-identifier">petPhotoUrls</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-216"></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span>
|
||||
</span><a name="line-217"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">petId</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-218"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">petCategory</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-219"></a><span> </span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679071757"><span class="hs-identifier hs-var">petName</span></a><span>
|
||||
</span><a name="line-220"></a><span> </span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679071758"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span>
|
||||
</span><a name="line-221"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">petTags</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-222"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">petStatus</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-223"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-224"></a><span> </span><span>
|
||||
</span><a name="line-225"></a><span>
|
||||
</span><a name="line-226"></a><span>
|
||||
</span><a name="line-227"></a><span>
|
||||
</span><a name="line-228"></a><span class="hs-comment">-- ** Tag</span><span>
|
||||
</span><a name="line-229"></a><span class="hs-comment">-- |</span><span>
|
||||
</span><a name="line-230"></a><span class="hs-comment">-- Pet Tag</span><span>
|
||||
</span><a name="line-231"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-232"></a><span class="hs-comment">-- A tag for a pet</span><span>
|
||||
</span><a name="line-233"></a><span class="hs-keyword">data</span><span> </span><a name="Tag"><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier">Tag</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Tag"><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier">Tag</span></a></a><span>
|
||||
</span><a name="line-234"></a><span> </span><span class="hs-special">{</span><span> </span><a name="tagId"><a href="SwaggerPetstore.Model.html#tagId"><span class="hs-identifier">tagId</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ "id"</span><span>
|
||||
</span><a name="line-235"></a><span> </span><span class="hs-special">,</span><span> </span><a name="tagName"><a href="SwaggerPetstore.Model.html#tagName"><span class="hs-identifier">tagName</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "name"</span><span>
|
||||
</span><a name="line-236"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-237"></a><span>
|
||||
</span><a name="line-238"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-239"></a><span> </span><a name="local-8214565720323785739"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withObject</span><span> </span><span class="hs-string">"Tag"</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-glyph">\</span><a name="local-6989586621679072169"><a href="#local-6989586621679072169"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><a name="line-240"></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span>
|
||||
</span><a name="line-241"></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072169"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"id"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-242"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072169"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"name"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-243"></a><span>
|
||||
</span><a name="line-244"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-245"></a><span> </span><a name="local-8214565720323785610"><span class="hs-identifier">toJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span> </span><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-246"></a><span> </span><a href="SwaggerPetstore.Model.html#_omitNulls"><span class="hs-identifier hs-var">_omitNulls</span></a><span>
|
||||
</span><a name="line-247"></a><span> </span><span class="hs-special">[</span><span> </span><span class="hs-string">"id"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072167"><span class="hs-identifier hs-var">tagId</span></a><span>
|
||||
</span><a name="line-248"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"name"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072168"><span class="hs-identifier hs-var">tagName</span></a><span>
|
||||
</span><a name="line-249"></a><span> </span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-227"></a><span class="hs-comment">-- ** Tag</span><span>
|
||||
</span><a name="line-228"></a><span class="hs-comment">-- |</span><span>
|
||||
</span><a name="line-229"></a><span class="hs-comment">-- Pet Tag</span><span>
|
||||
</span><a name="line-230"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-231"></a><span class="hs-comment">-- A tag for a pet</span><span>
|
||||
</span><a name="line-232"></a><span class="hs-keyword">data</span><span> </span><a name="Tag"><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier">Tag</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Tag"><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier">Tag</span></a></a><span>
|
||||
</span><a name="line-233"></a><span> </span><span class="hs-special">{</span><span> </span><a name="tagId"><a href="SwaggerPetstore.Model.html#tagId"><span class="hs-identifier">tagId</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ "id"</span><span>
|
||||
</span><a name="line-234"></a><span> </span><span class="hs-special">,</span><span> </span><a name="tagName"><a href="SwaggerPetstore.Model.html#tagName"><span class="hs-identifier">tagName</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "name"</span><span>
|
||||
</span><a name="line-235"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-236"></a><span>
|
||||
</span><a name="line-237"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-238"></a><span> </span><a name="local-8214565720323785739"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withObject</span><span> </span><span class="hs-string">"Tag"</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-glyph">\</span><a name="local-6989586621679072300"><a href="#local-6989586621679072300"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><a name="line-239"></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span>
|
||||
</span><a name="line-240"></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072300"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"id"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-241"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072300"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"name"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-242"></a><span>
|
||||
</span><a name="line-243"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-244"></a><span> </span><a name="local-8214565720323785610"><span class="hs-identifier">toJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span> </span><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-245"></a><span> </span><a href="SwaggerPetstore.Model.html#_omitNulls"><span class="hs-identifier hs-var">_omitNulls</span></a><span>
|
||||
</span><a name="line-246"></a><span> </span><span class="hs-special">[</span><span> </span><span class="hs-string">"id"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072298"><span class="hs-identifier hs-var">tagId</span></a><span>
|
||||
</span><a name="line-247"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"name"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072299"><span class="hs-identifier hs-var">tagName</span></a><span>
|
||||
</span><a name="line-248"></a><span> </span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-249"></a><span>
|
||||
</span><a name="line-250"></a><span>
|
||||
</span><a name="line-251"></a><span>
|
||||
</span><a name="line-252"></a><span class="hs-comment">-- | Construct a value of type 'Tag' (by applying it's required fields, if any)</span><span>
|
||||
</span><a name="line-253"></a><span class="hs-identifier">mkTag</span><span>
|
||||
</span><a name="line-254"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span>
|
||||
</span><a name="line-255"></a><a name="mkTag"><a href="SwaggerPetstore.Model.html#mkTag"><span class="hs-identifier">mkTag</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-256"></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span>
|
||||
</span><a name="line-257"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">tagId</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-258"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">tagName</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-259"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-260"></a><span> </span><span>
|
||||
</span><a name="line-251"></a><span class="hs-comment">-- | Construct a value of type 'Tag' (by applying it's required fields, if any)</span><span>
|
||||
</span><a name="line-252"></a><span class="hs-identifier">mkTag</span><span>
|
||||
</span><a name="line-253"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span>
|
||||
</span><a name="line-254"></a><a name="mkTag"><a href="SwaggerPetstore.Model.html#mkTag"><span class="hs-identifier">mkTag</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-255"></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span>
|
||||
</span><a name="line-256"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">tagId</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-257"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">tagName</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-258"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-259"></a><span> </span><span>
|
||||
</span><a name="line-260"></a><span>
|
||||
</span><a name="line-261"></a><span>
|
||||
</span><a name="line-262"></a><span>
|
||||
</span><a name="line-263"></a><span class="hs-comment">-- ** User</span><span>
|
||||
</span><a name="line-264"></a><span class="hs-comment">-- |</span><span>
|
||||
</span><a name="line-265"></a><span class="hs-comment">-- a User</span><span>
|
||||
</span><a name="line-266"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-267"></a><span class="hs-comment">-- A User who is purchasing from the pet store</span><span>
|
||||
</span><a name="line-268"></a><span class="hs-keyword">data</span><span> </span><a name="User"><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier">User</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="User"><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier">User</span></a></a><span>
|
||||
</span><a name="line-269"></a><span> </span><span class="hs-special">{</span><span> </span><a name="userId"><a href="SwaggerPetstore.Model.html#userId"><span class="hs-identifier">userId</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ "id"</span><span>
|
||||
</span><a name="line-270"></a><span> </span><span class="hs-special">,</span><span> </span><a name="userUsername"><a href="SwaggerPetstore.Model.html#userUsername"><span class="hs-identifier">userUsername</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "username"</span><span>
|
||||
</span><a name="line-271"></a><span> </span><span class="hs-special">,</span><span> </span><a name="userFirstName"><a href="SwaggerPetstore.Model.html#userFirstName"><span class="hs-identifier">userFirstName</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "firstName"</span><span>
|
||||
</span><a name="line-272"></a><span> </span><span class="hs-special">,</span><span> </span><a name="userLastName"><a href="SwaggerPetstore.Model.html#userLastName"><span class="hs-identifier">userLastName</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "lastName"</span><span>
|
||||
</span><a name="line-273"></a><span> </span><span class="hs-special">,</span><span> </span><a name="userEmail"><a href="SwaggerPetstore.Model.html#userEmail"><span class="hs-identifier">userEmail</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "email"</span><span>
|
||||
</span><a name="line-274"></a><span> </span><span class="hs-special">,</span><span> </span><a name="userPassword"><a href="SwaggerPetstore.Model.html#userPassword"><span class="hs-identifier">userPassword</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "password"</span><span>
|
||||
</span><a name="line-275"></a><span> </span><span class="hs-special">,</span><span> </span><a name="userPhone"><a href="SwaggerPetstore.Model.html#userPhone"><span class="hs-identifier">userPhone</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "phone"</span><span>
|
||||
</span><a name="line-276"></a><span> </span><span class="hs-special">,</span><span> </span><a name="userUserStatus"><a href="SwaggerPetstore.Model.html#userUserStatus"><span class="hs-identifier">userUserStatus</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span> </span><span class="hs-comment">-- ^ "userStatus" - User Status</span><span>
|
||||
</span><a name="line-277"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-278"></a><span>
|
||||
</span><a name="line-279"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-280"></a><span> </span><a name="local-8214565720323785739"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withObject</span><span> </span><span class="hs-string">"User"</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-glyph">\</span><a name="local-6989586621679072166"><a href="#local-6989586621679072166"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><a name="line-281"></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span>
|
||||
</span><a name="line-282"></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072166"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"id"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-283"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072166"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"username"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-284"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072166"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"firstName"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-285"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072166"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"lastName"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-286"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072166"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"email"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-287"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072166"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"password"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-288"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072166"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"phone"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-289"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072166"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"userStatus"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-290"></a><span>
|
||||
</span><a name="line-291"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-292"></a><span> </span><a name="local-8214565720323785610"><span class="hs-identifier">toJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-293"></a><span> </span><a href="SwaggerPetstore.Model.html#_omitNulls"><span class="hs-identifier hs-var">_omitNulls</span></a><span>
|
||||
</span><a name="line-294"></a><span> </span><span class="hs-special">[</span><span> </span><span class="hs-string">"id"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072158"><span class="hs-identifier hs-var">userId</span></a><span>
|
||||
</span><a name="line-295"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"username"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072159"><span class="hs-identifier hs-var">userUsername</span></a><span>
|
||||
</span><a name="line-296"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"firstName"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072160"><span class="hs-identifier hs-var">userFirstName</span></a><span>
|
||||
</span><a name="line-297"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"lastName"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072161"><span class="hs-identifier hs-var">userLastName</span></a><span>
|
||||
</span><a name="line-298"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"email"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072162"><span class="hs-identifier hs-var">userEmail</span></a><span>
|
||||
</span><a name="line-299"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"password"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072163"><span class="hs-identifier hs-var">userPassword</span></a><span>
|
||||
</span><a name="line-300"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"phone"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072164"><span class="hs-identifier hs-var">userPhone</span></a><span>
|
||||
</span><a name="line-301"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"userStatus"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072165"><span class="hs-identifier hs-var">userUserStatus</span></a><span>
|
||||
</span><a name="line-302"></a><span> </span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-262"></a><span class="hs-comment">-- ** User</span><span>
|
||||
</span><a name="line-263"></a><span class="hs-comment">-- |</span><span>
|
||||
</span><a name="line-264"></a><span class="hs-comment">-- a User</span><span>
|
||||
</span><a name="line-265"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-266"></a><span class="hs-comment">-- A User who is purchasing from the pet store</span><span>
|
||||
</span><a name="line-267"></a><span class="hs-keyword">data</span><span> </span><a name="User"><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier">User</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="User"><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier">User</span></a></a><span>
|
||||
</span><a name="line-268"></a><span> </span><span class="hs-special">{</span><span> </span><a name="userId"><a href="SwaggerPetstore.Model.html#userId"><span class="hs-identifier">userId</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ "id"</span><span>
|
||||
</span><a name="line-269"></a><span> </span><span class="hs-special">,</span><span> </span><a name="userUsername"><a href="SwaggerPetstore.Model.html#userUsername"><span class="hs-identifier">userUsername</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "username"</span><span>
|
||||
</span><a name="line-270"></a><span> </span><span class="hs-special">,</span><span> </span><a name="userFirstName"><a href="SwaggerPetstore.Model.html#userFirstName"><span class="hs-identifier">userFirstName</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "firstName"</span><span>
|
||||
</span><a name="line-271"></a><span> </span><span class="hs-special">,</span><span> </span><a name="userLastName"><a href="SwaggerPetstore.Model.html#userLastName"><span class="hs-identifier">userLastName</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "lastName"</span><span>
|
||||
</span><a name="line-272"></a><span> </span><span class="hs-special">,</span><span> </span><a name="userEmail"><a href="SwaggerPetstore.Model.html#userEmail"><span class="hs-identifier">userEmail</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "email"</span><span>
|
||||
</span><a name="line-273"></a><span> </span><span class="hs-special">,</span><span> </span><a name="userPassword"><a href="SwaggerPetstore.Model.html#userPassword"><span class="hs-identifier">userPassword</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "password"</span><span>
|
||||
</span><a name="line-274"></a><span> </span><span class="hs-special">,</span><span> </span><a name="userPhone"><a href="SwaggerPetstore.Model.html#userPhone"><span class="hs-identifier">userPhone</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ "phone"</span><span>
|
||||
</span><a name="line-275"></a><span> </span><span class="hs-special">,</span><span> </span><a name="userUserStatus"><a href="SwaggerPetstore.Model.html#userUserStatus"><span class="hs-identifier">userUserStatus</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span> </span><span class="hs-comment">-- ^ "userStatus" - User Status</span><span>
|
||||
</span><a name="line-276"></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-277"></a><span>
|
||||
</span><a name="line-278"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-279"></a><span> </span><a name="local-8214565720323785739"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withObject</span><span> </span><span class="hs-string">"User"</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-glyph">\</span><a name="local-6989586621679072297"><a href="#local-6989586621679072297"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><a name="line-280"></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span>
|
||||
</span><a name="line-281"></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072297"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"id"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-282"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072297"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"username"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-283"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072297"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"firstName"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-284"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072297"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"lastName"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-285"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072297"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"email"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-286"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072297"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"password"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-287"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072297"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"phone"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-288"></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679072297"><span class="hs-identifier hs-var">o</span></a><span> </span><span class="hs-operator hs-var">.:?</span><span> </span><span class="hs-string">"userStatus"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-289"></a><span>
|
||||
</span><a name="line-290"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-291"></a><span> </span><a name="local-8214565720323785610"><span class="hs-identifier">toJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-292"></a><span> </span><a href="SwaggerPetstore.Model.html#_omitNulls"><span class="hs-identifier hs-var">_omitNulls</span></a><span>
|
||||
</span><a name="line-293"></a><span> </span><span class="hs-special">[</span><span> </span><span class="hs-string">"id"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072289"><span class="hs-identifier hs-var">userId</span></a><span>
|
||||
</span><a name="line-294"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"username"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072290"><span class="hs-identifier hs-var">userUsername</span></a><span>
|
||||
</span><a name="line-295"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"firstName"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072291"><span class="hs-identifier hs-var">userFirstName</span></a><span>
|
||||
</span><a name="line-296"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"lastName"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072292"><span class="hs-identifier hs-var">userLastName</span></a><span>
|
||||
</span><a name="line-297"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"email"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072293"><span class="hs-identifier hs-var">userEmail</span></a><span>
|
||||
</span><a name="line-298"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"password"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072294"><span class="hs-identifier hs-var">userPassword</span></a><span>
|
||||
</span><a name="line-299"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"phone"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072295"><span class="hs-identifier hs-var">userPhone</span></a><span>
|
||||
</span><a name="line-300"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-string">"userStatus"</span><span> </span><span class="hs-operator hs-var">.=</span><span> </span><a href="#local-6989586621679072296"><span class="hs-identifier hs-var">userUserStatus</span></a><span>
|
||||
</span><a name="line-301"></a><span> </span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-302"></a><span>
|
||||
</span><a name="line-303"></a><span>
|
||||
</span><a name="line-304"></a><span>
|
||||
</span><a name="line-305"></a><span class="hs-comment">-- | Construct a value of type 'User' (by applying it's required fields, if any)</span><span>
|
||||
</span><a name="line-306"></a><span class="hs-identifier">mkUser</span><span>
|
||||
</span><a name="line-307"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span>
|
||||
</span><a name="line-308"></a><a name="mkUser"><a href="SwaggerPetstore.Model.html#mkUser"><span class="hs-identifier">mkUser</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-309"></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span>
|
||||
</span><a name="line-310"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">userId</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-311"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">userUsername</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-312"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">userFirstName</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-313"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">userLastName</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-314"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">userEmail</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-315"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">userPassword</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-316"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">userPhone</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-317"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">userUserStatus</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-318"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-319"></a><span> </span><span>
|
||||
</span><a name="line-304"></a><span class="hs-comment">-- | Construct a value of type 'User' (by applying it's required fields, if any)</span><span>
|
||||
</span><a name="line-305"></a><span class="hs-identifier">mkUser</span><span>
|
||||
</span><a name="line-306"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span>
|
||||
</span><a name="line-307"></a><a name="mkUser"><a href="SwaggerPetstore.Model.html#mkUser"><span class="hs-identifier">mkUser</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-308"></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span>
|
||||
</span><a name="line-309"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">userId</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-310"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">userUsername</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-311"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">userFirstName</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-312"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">userLastName</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-313"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">userEmail</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-314"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">userPassword</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-315"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">userPhone</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-316"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">userUserStatus</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-317"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-318"></a><span> </span><span>
|
||||
</span><a name="line-319"></a><span>
|
||||
</span><a name="line-320"></a><span>
|
||||
</span><a name="line-321"></a><span>
|
||||
</span><a name="line-322"></a><span class="hs-comment">-- * Utils</span><span>
|
||||
</span><a name="line-323"></a><span>
|
||||
</span><a name="line-324"></a><span class="hs-comment">-- | Removes Null fields. (OpenAPI-Specification 2.0 does not allow Null in JSON)</span><span>
|
||||
</span><a name="line-325"></a><span>
|
||||
</span><a name="line-326"></a><span class="hs-identifier">_omitNulls</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Value</span><span class="hs-special">)</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Value</span><span>
|
||||
</span><a name="line-327"></a><a name="_omitNulls"><a href="SwaggerPetstore.Model.html#_omitNulls"><span class="hs-identifier">_omitNulls</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">object</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">filter</span><span> </span><a href="#local-6989586621679071628"><span class="hs-identifier hs-var">notNull</span></a><span>
|
||||
</span><a name="line-328"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-329"></a><span> </span><a name="local-6989586621679071628"><a href="#local-6989586621679071628"><span class="hs-identifier">notNull</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">_</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Null</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">False</span><span>
|
||||
</span><a name="line-330"></a><span> </span><span class="hs-identifier">notNull</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">True</span><span>
|
||||
</span><a name="line-331"></a><span>
|
||||
</span><a name="line-332"></a><span class="hs-identifier">_toFormItem</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="#local-6989586621679069408"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Functor</span><span> </span><a href="#local-6989586621679069409"><span class="hs-identifier hs-type">f</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679069410"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679069409"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679069408"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679069409"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679069410"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-333"></a><a name="_toFormItem"><a href="SwaggerPetstore.Model.html#_toFormItem"><span class="hs-identifier">_toFormItem</span></a></a><span> </span><a name="local-6989586621679071819"><a href="#local-6989586621679071819"><span class="hs-identifier">name</span></a></a><span> </span><a name="local-6989586621679071820"><a href="#local-6989586621679071820"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679071819"><span class="hs-identifier hs-var">name</span></a><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">:</span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toQueryParam</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679071820"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-334"></a><span>
|
||||
</span><a name="line-335"></a><span class="hs-identifier">_emptyToNothing</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">String</span><span>
|
||||
</span><a name="line-336"></a><a name="_emptyToNothing"><a href="SwaggerPetstore.Model.html#_emptyToNothing"><span class="hs-identifier">_emptyToNothing</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-string">""</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-337"></a><span class="hs-identifier">_emptyToNothing</span><span> </span><a name="local-6989586621679071830"><a href="#local-6989586621679071830"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679071830"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-338"></a><span class="hs-pragma">{-# INLINE _emptyToNothing #-}</span><span>
|
||||
</span><a name="line-339"></a><span>
|
||||
</span><a name="line-340"></a><span class="hs-identifier">_memptyToNothing</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Monoid</span><span> </span><a href="#local-6989586621679069407"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span> </span><a href="#local-6989586621679069407"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679069407"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679069407"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-341"></a><a name="_memptyToNothing"><a href="SwaggerPetstore.Model.html#_memptyToNothing"><span class="hs-identifier">_memptyToNothing</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679071831"><a href="#local-6989586621679071831"><span class="hs-identifier">x</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">|</span><span> </span><a href="#local-6989586621679071831"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.==</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mempty</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-342"></a><span class="hs-identifier">_memptyToNothing</span><span> </span><a name="local-6989586621679071832"><a href="#local-6989586621679071832"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679071832"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-343"></a><span class="hs-pragma">{-# INLINE _memptyToNothing #-}</span><span>
|
||||
</span><a name="line-344"></a><span>
|
||||
</span><a name="line-345"></a><span class="hs-comment">-- * DateTime Formatting</span><span>
|
||||
</span><a name="line-346"></a><span>
|
||||
</span><a name="line-347"></a><span class="hs-comment">-- | @_parseISO8601@</span><span>
|
||||
</span><a name="line-348"></a><span class="hs-identifier">_readDateTime</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span> </span><a href="#local-6989586621679069405"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679069406"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Alternative</span><span> </span><a href="#local-6989586621679069406"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679069406"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679069405"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-349"></a><a name="_readDateTime"><a href="SwaggerPetstore.Model.html#_readDateTime"><span class="hs-identifier">_readDateTime</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-350"></a><span> </span><a href="SwaggerPetstore.Model.html#_parseISO8601"><span class="hs-identifier hs-var">_parseISO8601</span></a><span>
|
||||
</span><a name="line-351"></a><span class="hs-pragma">{-# INLINE _readDateTime #-}</span><span>
|
||||
</span><a name="line-352"></a><span>
|
||||
</span><a name="line-353"></a><span class="hs-comment">-- | @TI.formatISO8601Millis@</span><span>
|
||||
</span><a name="line-354"></a><span class="hs-identifier">_showDateTime</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679069139"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">~</span><span> </span><span class="hs-identifier hs-type">UTCTime</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FormatTime</span><span> </span><a href="#local-6989586621679069139"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679069139"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">String</span><span>
|
||||
</span><a name="line-355"></a><a name="_showDateTime"><a href="SwaggerPetstore.Model.html#_showDateTime"><span class="hs-identifier">_showDateTime</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-356"></a><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formatISO8601Millis</span><span>
|
||||
</span><a name="line-357"></a><span class="hs-pragma">{-# INLINE _showDateTime #-}</span><span>
|
||||
</span><a name="line-358"></a><span>
|
||||
</span><a name="line-359"></a><span class="hs-identifier">_parseISO8601</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span> </span><a href="#local-6989586621679069137"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679069138"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Alternative</span><span> </span><a href="#local-6989586621679069138"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679069138"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679069137"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-360"></a><a name="_parseISO8601"><a href="SwaggerPetstore.Model.html#_parseISO8601"><span class="hs-identifier">_parseISO8601</span></a></a><span> </span><a name="local-6989586621679071833"><a href="#local-6989586621679071833"><span class="hs-identifier">t</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-361"></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">asum</span><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-362"></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">flip</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">parseTimeM</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultTimeLocale</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679071833"><span class="hs-identifier hs-var">t</span></a><span> </span><span class="hs-operator hs-var"><$></span><span>
|
||||
</span><a name="line-363"></a><span> </span><span class="hs-special">[</span><span class="hs-string">"%FT%T%QZ"</span><span class="hs-special">,</span><span> </span><span class="hs-string">"%FT%T%Q%z"</span><span class="hs-special">,</span><span> </span><span class="hs-string">"%FT%T%Q%Z"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-364"></a><span class="hs-pragma">{-# INLINE _parseISO8601 #-}</span><span>
|
||||
</span><a name="line-365"></a><span>
|
||||
</span><a name="line-366"></a><span class="hs-comment">-- * Date Formatting</span><span>
|
||||
</span><a name="line-367"></a><span>
|
||||
</span><a name="line-368"></a><span class="hs-comment">-- | @TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"@</span><span>
|
||||
</span><a name="line-369"></a><span class="hs-identifier">_readDate</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span> </span><a href="#local-6989586621679069135"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679069136"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679069136"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679069135"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-370"></a><a name="_readDate"><a href="SwaggerPetstore.Model.html#_readDate"><span class="hs-identifier">_readDate</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-371"></a><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">parseTimeM</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultTimeLocale</span><span> </span><span class="hs-string">"%Y-%m-%d"</span><span>
|
||||
</span><a name="line-372"></a><span class="hs-pragma">{-# INLINE _readDate #-}</span><span>
|
||||
</span><a name="line-373"></a><span>
|
||||
</span><a name="line-374"></a><span class="hs-comment">-- | @TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"@</span><span>
|
||||
</span><a name="line-375"></a><span class="hs-identifier">_showDate</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FormatTime</span><span> </span><a href="#local-6989586621679068678"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679068678"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">String</span><span>
|
||||
</span><a name="line-376"></a><a name="_showDate"><a href="SwaggerPetstore.Model.html#_showDate"><span class="hs-identifier">_showDate</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-377"></a><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formatTime</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultTimeLocale</span><span> </span><span class="hs-string">"%Y-%m-%d"</span><span>
|
||||
</span><a name="line-378"></a><span class="hs-pragma">{-# INLINE _showDate #-}</span></pre></body></html>
|
||||
</span><a name="line-321"></a><span class="hs-comment">-- * Utils</span><span>
|
||||
</span><a name="line-322"></a><span>
|
||||
</span><a name="line-323"></a><span class="hs-comment">-- | Removes Null fields. (OpenAPI-Specification 2.0 does not allow Null in JSON)</span><span>
|
||||
</span><a name="line-324"></a><span>
|
||||
</span><a name="line-325"></a><span class="hs-identifier">_omitNulls</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Value</span><span class="hs-special">)</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Value</span><span>
|
||||
</span><a name="line-326"></a><a name="_omitNulls"><a href="SwaggerPetstore.Model.html#_omitNulls"><span class="hs-identifier">_omitNulls</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">object</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">filter</span><span> </span><a href="#local-6989586621679071759"><span class="hs-identifier hs-var">notNull</span></a><span>
|
||||
</span><a name="line-327"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-328"></a><span> </span><a name="local-6989586621679071759"><a href="#local-6989586621679071759"><span class="hs-identifier">notNull</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">_</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Null</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">False</span><span>
|
||||
</span><a name="line-329"></a><span> </span><span class="hs-identifier">notNull</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">True</span><span>
|
||||
</span><a name="line-330"></a><span>
|
||||
</span><a name="line-331"></a><span class="hs-identifier">_toFormItem</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="#local-6989586621679069539"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Functor</span><span> </span><a href="#local-6989586621679069540"><span class="hs-identifier hs-type">f</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679069541"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679069540"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679069539"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679069540"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679069541"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-332"></a><a name="_toFormItem"><a href="SwaggerPetstore.Model.html#_toFormItem"><span class="hs-identifier">_toFormItem</span></a></a><span> </span><a name="local-6989586621679071950"><a href="#local-6989586621679071950"><span class="hs-identifier">name</span></a></a><span> </span><a name="local-6989586621679071951"><a href="#local-6989586621679071951"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679071950"><span class="hs-identifier hs-var">name</span></a><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">:</span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toQueryParam</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679071951"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-333"></a><span>
|
||||
</span><a name="line-334"></a><span class="hs-identifier">_emptyToNothing</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">String</span><span>
|
||||
</span><a name="line-335"></a><a name="_emptyToNothing"><a href="SwaggerPetstore.Model.html#_emptyToNothing"><span class="hs-identifier">_emptyToNothing</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-string">""</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-336"></a><span class="hs-identifier">_emptyToNothing</span><span> </span><a name="local-6989586621679071961"><a href="#local-6989586621679071961"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679071961"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-337"></a><span class="hs-pragma">{-# INLINE _emptyToNothing #-}</span><span>
|
||||
</span><a name="line-338"></a><span>
|
||||
</span><a name="line-339"></a><span class="hs-identifier">_memptyToNothing</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Monoid</span><span> </span><a href="#local-6989586621679069538"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span> </span><a href="#local-6989586621679069538"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679069538"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679069538"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-340"></a><a name="_memptyToNothing"><a href="SwaggerPetstore.Model.html#_memptyToNothing"><span class="hs-identifier">_memptyToNothing</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679071962"><a href="#local-6989586621679071962"><span class="hs-identifier">x</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">|</span><span> </span><a href="#local-6989586621679071962"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.==</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mempty</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-341"></a><span class="hs-identifier">_memptyToNothing</span><span> </span><a name="local-6989586621679071963"><a href="#local-6989586621679071963"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679071963"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-342"></a><span class="hs-pragma">{-# INLINE _memptyToNothing #-}</span><span>
|
||||
</span><a name="line-343"></a><span>
|
||||
</span><a name="line-344"></a><span class="hs-comment">-- * DateTime Formatting</span><span>
|
||||
</span><a name="line-345"></a><span>
|
||||
</span><a name="line-346"></a><span class="hs-comment">-- | @_parseISO8601@</span><span>
|
||||
</span><a name="line-347"></a><span class="hs-identifier">_readDateTime</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span> </span><a href="#local-6989586621679069536"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679069537"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Alternative</span><span> </span><a href="#local-6989586621679069537"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679069537"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679069536"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-348"></a><a name="_readDateTime"><a href="SwaggerPetstore.Model.html#_readDateTime"><span class="hs-identifier">_readDateTime</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-349"></a><span> </span><a href="SwaggerPetstore.Model.html#_parseISO8601"><span class="hs-identifier hs-var">_parseISO8601</span></a><span>
|
||||
</span><a name="line-350"></a><span class="hs-pragma">{-# INLINE _readDateTime #-}</span><span>
|
||||
</span><a name="line-351"></a><span>
|
||||
</span><a name="line-352"></a><span class="hs-comment">-- | @TI.formatISO8601Millis@</span><span>
|
||||
</span><a name="line-353"></a><span class="hs-identifier">_showDateTime</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679069270"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">~</span><span> </span><span class="hs-identifier hs-type">UTCTime</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FormatTime</span><span> </span><a href="#local-6989586621679069270"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679069270"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">String</span><span>
|
||||
</span><a name="line-354"></a><a name="_showDateTime"><a href="SwaggerPetstore.Model.html#_showDateTime"><span class="hs-identifier">_showDateTime</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-355"></a><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formatISO8601Millis</span><span>
|
||||
</span><a name="line-356"></a><span class="hs-pragma">{-# INLINE _showDateTime #-}</span><span>
|
||||
</span><a name="line-357"></a><span>
|
||||
</span><a name="line-358"></a><span class="hs-identifier">_parseISO8601</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span> </span><a href="#local-6989586621679069268"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679069269"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Alternative</span><span> </span><a href="#local-6989586621679069269"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679069269"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679069268"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-359"></a><a name="_parseISO8601"><a href="SwaggerPetstore.Model.html#_parseISO8601"><span class="hs-identifier">_parseISO8601</span></a></a><span> </span><a name="local-6989586621679071964"><a href="#local-6989586621679071964"><span class="hs-identifier">t</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-360"></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">asum</span><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-361"></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">flip</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">parseTimeM</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultTimeLocale</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679071964"><span class="hs-identifier hs-var">t</span></a><span> </span><span class="hs-operator hs-var"><$></span><span>
|
||||
</span><a name="line-362"></a><span> </span><span class="hs-special">[</span><span class="hs-string">"%FT%T%QZ"</span><span class="hs-special">,</span><span> </span><span class="hs-string">"%FT%T%Q%z"</span><span class="hs-special">,</span><span> </span><span class="hs-string">"%FT%T%Q%Z"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-363"></a><span class="hs-pragma">{-# INLINE _parseISO8601 #-}</span><span>
|
||||
</span><a name="line-364"></a><span>
|
||||
</span><a name="line-365"></a><span class="hs-comment">-- * Date Formatting</span><span>
|
||||
</span><a name="line-366"></a><span>
|
||||
</span><a name="line-367"></a><span class="hs-comment">-- | @TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"@</span><span>
|
||||
</span><a name="line-368"></a><span class="hs-identifier">_readDate</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span> </span><a href="#local-6989586621679069266"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679069267"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679069267"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679069266"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-369"></a><a name="_readDate"><a href="SwaggerPetstore.Model.html#_readDate"><span class="hs-identifier">_readDate</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-370"></a><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">parseTimeM</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultTimeLocale</span><span> </span><span class="hs-string">"%Y-%m-%d"</span><span>
|
||||
</span><a name="line-371"></a><span class="hs-pragma">{-# INLINE _readDate #-}</span><span>
|
||||
</span><a name="line-372"></a><span>
|
||||
</span><a name="line-373"></a><span class="hs-comment">-- | @TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"@</span><span>
|
||||
</span><a name="line-374"></a><span class="hs-identifier">_showDate</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FormatTime</span><span> </span><a href="#local-6989586621679068809"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679068809"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">String</span><span>
|
||||
</span><a name="line-375"></a><a name="_showDate"><a href="SwaggerPetstore.Model.html#_showDate"><span class="hs-identifier">_showDate</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-376"></a><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formatTime</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultTimeLocale</span><span> </span><span class="hs-string">"%Y-%m-%d"</span><span>
|
||||
</span><a name="line-377"></a><span class="hs-pragma">{-# INLINE _showDate #-}</span></pre></body></html>
|
@ -31,7 +31,7 @@ dependencies:
|
||||
- vector >=0.10.9 && <0.13
|
||||
- case-insensitive
|
||||
- swagger-petstore
|
||||
- microlens
|
||||
- microlens >= 0.4.3 && <0.5
|
||||
executables:
|
||||
swagger-petstore-app:
|
||||
main: Main.hs
|
||||
|
@ -39,5 +39,5 @@ executable swagger-petstore-app
|
||||
, vector >=0.10.9 && <0.13
|
||||
, case-insensitive
|
||||
, swagger-petstore
|
||||
, microlens
|
||||
, microlens >= 0.4.3 && <0.5
|
||||
default-language: Haskell2010
|
||||
|
@ -11,13 +11,15 @@ Module : SwaggerPetstore.API
|
||||
{-# LANGUAGE FlexibleContexts #-}
|
||||
{-# LANGUAGE ConstraintKinds #-}
|
||||
{-# LANGUAGE InstanceSigs #-}
|
||||
{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-}
|
||||
{-# LANGUAGE NamedFieldPuns #-}
|
||||
{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
|
||||
|
||||
module SwaggerPetstore.API where
|
||||
|
||||
|
||||
import SwaggerPetstore.Model as M
|
||||
import SwaggerPetstore.MimeTypes
|
||||
import SwaggerPetstore.Lens
|
||||
|
||||
import qualified Data.Aeson as A
|
||||
import Data.Aeson (Value)
|
||||
@ -52,6 +54,8 @@ import qualified Data.Text.Lazy.Encoding as TL
|
||||
import qualified GHC.Base as P (Alternative)
|
||||
import qualified Control.Arrow as P (left)
|
||||
|
||||
import qualified Lens.Micro as L
|
||||
|
||||
import Data.Monoid ((<>))
|
||||
import Data.Function ((&))
|
||||
import Data.Set (Set)
|
||||
@ -676,11 +680,26 @@ newtype File = File { unFile :: FilePath } deriving (P.Eq, P.Show)
|
||||
-- | Represents a request. The "req" type variable is the request type. The "res" type variable is the response type.
|
||||
data SwaggerPetstoreRequest req contentType res = SwaggerPetstoreRequest
|
||||
{ rMethod :: NH.Method -- ^ Method of SwaggerPetstoreRequest
|
||||
, urlPath :: [BCL.ByteString] -- ^ Endpoint of SwaggerPetstoreRequest
|
||||
, params :: Params -- ^ params of SwaggerPetstoreRequest
|
||||
, rUrlPath :: [BCL.ByteString] -- ^ Endpoint of SwaggerPetstoreRequest
|
||||
, rParams :: Params -- ^ params of SwaggerPetstoreRequest
|
||||
}
|
||||
deriving (P.Show)
|
||||
|
||||
-- | 'rMethod' Lens
|
||||
rMethodL :: Lens_' (SwaggerPetstoreRequest req contentType res) NH.Method
|
||||
rMethodL f SwaggerPetstoreRequest{..} = (\rMethod -> SwaggerPetstoreRequest { rMethod, ..} ) <$> f rMethod
|
||||
{-# INLINE rMethodL #-}
|
||||
|
||||
-- | 'rUrlPath' Lens
|
||||
rUrlPathL :: Lens_' (SwaggerPetstoreRequest req contentType res) [BCL.ByteString]
|
||||
rUrlPathL f SwaggerPetstoreRequest{..} = (\rUrlPath -> SwaggerPetstoreRequest { rUrlPath, ..} ) <$> f rUrlPath
|
||||
{-# INLINE rUrlPathL #-}
|
||||
|
||||
-- | 'rParams' Lens
|
||||
rParamsL :: Lens_' (SwaggerPetstoreRequest req contentType res) Params
|
||||
rParamsL f SwaggerPetstoreRequest{..} = (\rParams -> SwaggerPetstoreRequest { rParams, ..} ) <$> f rParams
|
||||
{-# INLINE rParamsL #-}
|
||||
|
||||
-- | Request Params
|
||||
data Params = Params
|
||||
{ paramsQuery :: NH.Query
|
||||
@ -689,6 +708,21 @@ data Params = Params
|
||||
}
|
||||
deriving (P.Show)
|
||||
|
||||
-- | 'paramsQuery' Lens
|
||||
paramsQueryL :: Lens_' Params NH.Query
|
||||
paramsQueryL f Params{..} = (\paramsQuery -> Params { paramsQuery, ..} ) <$> f paramsQuery
|
||||
{-# INLINE paramsQueryL #-}
|
||||
|
||||
-- | 'paramsHeaders' Lens
|
||||
paramsHeadersL :: Lens_' Params NH.RequestHeaders
|
||||
paramsHeadersL f Params{..} = (\paramsHeaders -> Params { paramsHeaders, ..} ) <$> f paramsHeaders
|
||||
{-# INLINE paramsHeadersL #-}
|
||||
|
||||
-- | 'paramsBody' Lens
|
||||
paramsBodyL :: Lens_' Params ParamBody
|
||||
paramsBodyL f Params{..} = (\paramsBody -> Params { paramsBody, ..} ) <$> f paramsBody
|
||||
{-# INLINE paramsBodyL #-}
|
||||
|
||||
-- | Request Body
|
||||
data ParamBody
|
||||
= ParamBodyNone
|
||||
@ -709,15 +743,18 @@ _mkParams :: Params
|
||||
_mkParams = Params [] [] ParamBodyNone
|
||||
|
||||
setHeader :: SwaggerPetstoreRequest req contentType res -> [NH.Header] -> SwaggerPetstoreRequest req contentType res
|
||||
setHeader req header =
|
||||
let _params = params (req `removeHeader` P.fmap P.fst header)
|
||||
in req { params = _params { paramsHeaders = header P.++ paramsHeaders _params } }
|
||||
setHeader req header =
|
||||
req `removeHeader` P.fmap P.fst header &
|
||||
L.over (rParamsL . paramsHeadersL) (header P.++)
|
||||
|
||||
removeHeader :: SwaggerPetstoreRequest req contentType res -> [NH.HeaderName] -> SwaggerPetstoreRequest req contentType res
|
||||
removeHeader req header =
|
||||
let _params = params req
|
||||
in req { params = _params { paramsHeaders = [h | h <- paramsHeaders _params, cifst h `P.notElem` P.fmap CI.mk header] } }
|
||||
where cifst = CI.mk . P.fst
|
||||
removeHeader req header =
|
||||
req &
|
||||
L.over
|
||||
(rParamsL . paramsHeadersL)
|
||||
(P.filter (\h -> cifst h `P.notElem` P.fmap CI.mk header))
|
||||
where
|
||||
cifst = CI.mk . P.fst
|
||||
|
||||
|
||||
_setContentTypeHeader :: forall req contentType res. MimeType contentType => SwaggerPetstoreRequest req contentType res -> SwaggerPetstoreRequest req contentType res
|
||||
@ -734,35 +771,34 @@ _setAcceptHeader req accept =
|
||||
|
||||
_setQuery :: SwaggerPetstoreRequest req contentType res -> [NH.QueryItem] -> SwaggerPetstoreRequest req contentType res
|
||||
_setQuery req query =
|
||||
let _params = params req
|
||||
in req { params = _params { paramsQuery = query P.++ [q | q <- paramsQuery _params, cifst q `P.notElem` P.fmap cifst query] } }
|
||||
where cifst = CI.mk . P.fst
|
||||
req &
|
||||
L.over
|
||||
(rParamsL . paramsQueryL)
|
||||
((query P.++) . P.filter (\q -> cifst q `P.notElem` P.fmap cifst query))
|
||||
where
|
||||
cifst = CI.mk . P.fst
|
||||
|
||||
_addForm :: SwaggerPetstoreRequest req contentType res -> WH.Form -> SwaggerPetstoreRequest req contentType res
|
||||
_addForm req newform =
|
||||
let _params = params req
|
||||
form = case paramsBody _params of
|
||||
let form = case paramsBody (rParams req) of
|
||||
ParamBodyFormUrlEncoded _form -> _form
|
||||
_ -> mempty
|
||||
in req { params = _params { paramsBody = ParamBodyFormUrlEncoded (newform <> form) } }
|
||||
in req & L.set (rParamsL . paramsBodyL) (ParamBodyFormUrlEncoded (newform <> form))
|
||||
|
||||
_addMultiFormPart :: SwaggerPetstoreRequest req contentType res -> NH.Part -> SwaggerPetstoreRequest req contentType res
|
||||
_addMultiFormPart req newpart =
|
||||
let _params = params req
|
||||
parts = case paramsBody _params of
|
||||
let parts = case paramsBody (rParams req) of
|
||||
ParamBodyMultipartFormData _parts -> _parts
|
||||
_ -> []
|
||||
in req { params = _params { paramsBody = ParamBodyMultipartFormData (newpart : parts) } }
|
||||
in req & L.set (rParamsL . paramsBodyL) (ParamBodyMultipartFormData (newpart : parts))
|
||||
|
||||
_setBodyBS :: SwaggerPetstoreRequest req contentType res -> B.ByteString -> SwaggerPetstoreRequest req contentType res
|
||||
_setBodyBS req body =
|
||||
let _params = params req
|
||||
in req { params = _params { paramsBody = ParamBodyB body } }
|
||||
req & L.set (rParamsL . paramsBodyL) (ParamBodyB body)
|
||||
|
||||
_setBodyLBS :: SwaggerPetstoreRequest req contentType res -> BL.ByteString -> SwaggerPetstoreRequest req contentType res
|
||||
_setBodyLBS req body =
|
||||
let _params = params req
|
||||
in req { params = _params { paramsBody = ParamBodyBL body } }
|
||||
req & L.set (rParamsL . paramsBodyL) (ParamBodyBL body)
|
||||
|
||||
|
||||
-- ** Params Utils
|
||||
|
@ -225,15 +225,15 @@ _toInitRequest
|
||||
-> accept -- ^ "accept" 'MimeType'
|
||||
-> IO (InitRequest req contentType res accept) -- ^ initialized request
|
||||
_toInitRequest config req0 accept = do
|
||||
parsedReq <- NH.parseRequest $ BCL.unpack $ BCL.append (configHost config) (BCL.concat (urlPath req0))
|
||||
parsedReq <- NH.parseRequest $ BCL.unpack $ BCL.append (configHost config) (BCL.concat (rUrlPath req0))
|
||||
let req1 = _setAcceptHeader req0 accept & _setContentTypeHeader
|
||||
reqHeaders = ("User-Agent", WH.toHeader (configUserAgent config)) : paramsHeaders (params req1)
|
||||
reqQuery = NH.renderQuery True (paramsQuery (params req1))
|
||||
reqHeaders = ("User-Agent", WH.toHeader (configUserAgent config)) : paramsHeaders (rParams req1)
|
||||
reqQuery = NH.renderQuery True (paramsQuery (rParams req1))
|
||||
pReq = parsedReq { NH.method = (rMethod req1)
|
||||
, NH.requestHeaders = reqHeaders
|
||||
, NH.queryString = reqQuery
|
||||
}
|
||||
outReq <- case paramsBody (params req1) of
|
||||
outReq <- case paramsBody (rParams req1) of
|
||||
ParamBodyNone -> pure (pReq { NH.requestBody = mempty })
|
||||
ParamBodyB bs -> pure (pReq { NH.requestBody = NH.RequestBodyBS bs })
|
||||
ParamBodyBL bl -> pure (pReq { NH.requestBody = NH.RequestBodyLBS bl })
|
||||
|
@ -2,7 +2,6 @@
|
||||
Module : SwaggerPetstore.Model
|
||||
-}
|
||||
|
||||
{-# LANGUAGE DeriveAnyClass #-}
|
||||
{-# LANGUAGE DeriveDataTypeable #-}
|
||||
{-# LANGUAGE DeriveFoldable #-}
|
||||
{-# LANGUAGE DeriveGeneric #-}
|
||||
|
@ -33,9 +33,11 @@ dependencies:
|
||||
- transformers >=0.4.0.0
|
||||
- mtl >=2.2.1
|
||||
- unordered-containers
|
||||
ghc-options: -Wall
|
||||
library:
|
||||
source-dirs: lib
|
||||
ghc-options: -Wall
|
||||
ghc-options:
|
||||
|
||||
exposed-modules:
|
||||
- SwaggerPetstore
|
||||
- SwaggerPetstore.API
|
||||
@ -62,6 +64,7 @@ library:
|
||||
- monad-logger >=0.3 && <0.4
|
||||
- safe-exceptions <0.2
|
||||
- case-insensitive
|
||||
- microlens >= 0.4.3 && <0.5
|
||||
tests:
|
||||
tests:
|
||||
main: Test.hs
|
||||
|
@ -56,6 +56,7 @@ library
|
||||
, monad-logger >=0.3 && <0.4
|
||||
, safe-exceptions <0.2
|
||||
, case-insensitive
|
||||
, microlens >= 0.4.3 && <0.5
|
||||
exposed-modules:
|
||||
SwaggerPetstore
|
||||
SwaggerPetstore.API
|
||||
@ -72,7 +73,7 @@ test-suite tests
|
||||
main-is: Test.hs
|
||||
hs-source-dirs:
|
||||
tests
|
||||
ghc-options: -fno-warn-orphans
|
||||
ghc-options: -Wall -fno-warn-orphans
|
||||
build-depends:
|
||||
base >=4.7 && <5.0
|
||||
, transformers >=0.4.0.0
|
||||
|
@ -33,7 +33,7 @@ dependencies:
|
||||
- exceptions >= 0.4
|
||||
- case-insensitive
|
||||
- safe-exceptions <0.2
|
||||
- microlens
|
||||
- microlens >= 0.4.3 && <0.5
|
||||
- swagger-petstore
|
||||
tests:
|
||||
tests:
|
||||
|
@ -44,7 +44,7 @@ test-suite tests
|
||||
, exceptions >= 0.4
|
||||
, case-insensitive
|
||||
, safe-exceptions <0.2
|
||||
, microlens
|
||||
, microlens >= 0.4.3 && <0.5
|
||||
, swagger-petstore
|
||||
, swagger-petstore
|
||||
, bytestring >=0.10.0 && <0.11
|
||||
|
@ -1,3 +1,5 @@
|
||||
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
|
||||
|
||||
module Instances where
|
||||
|
||||
import Data.Text (Text, pack)
|
||||
|
@ -1,6 +1,7 @@
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
{-# LANGUAGE FlexibleContexts #-}
|
||||
{-# LANGUAGE ConstraintKinds #-}
|
||||
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
|
||||
|
||||
module PropMime where
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user