This commit is contained in:
wing328 2017-09-09 17:18:16 +08:00
commit a2cb35b1e9
40 changed files with 1590 additions and 1405 deletions

View File

@ -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

View File

@ -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);
}
}

View File

@ -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

View File

@ -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 })

View File

@ -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}})

View File

@ -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]

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -1,3 +1,5 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Instances where
import Data.Text (Text, pack)

View File

@ -1,6 +1,7 @@
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE ConstraintKinds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module PropMime where

View File

@ -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;
}};
}

View File

@ -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();
}

View 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`

View File

@ -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

View File

@ -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

View File

@ -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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">&quot;/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&quot;</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">&quot;/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&quot;</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">&quot;/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&quot;</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">&quot;/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&quot;</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">&quot;/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&quot;</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">&quot;/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&quot;</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">&quot;swagger_petstore_sysconfdir&quot;</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">-&gt;</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">-&gt;</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">&lt;-</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">&quot;/&quot;</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">&lt;-</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">&quot;/&quot;</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>

View File

@ -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">&quot;{ configHost = %v, configUserAgent = %v, ..}&quot;</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">-&gt;</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">-&gt;</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">-&gt;</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">=&gt;</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">-&gt;</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">-&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679132957"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ &quot;accept&quot; 'MimeType'</span><span>
</span><a name="line-115"></a><span> </span><span class="hs-glyph">-&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679134060"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ &quot;accept&quot; 'MimeType'</span><span>
</span><a name="line-117"></a><span> </span><span class="hs-glyph">-&gt;</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">&lt;-</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">&lt;-</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">=&gt;</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">-&gt;</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">-&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679132953"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ &quot;accept&quot; 'MimeType'</span><span>
</span><a name="line-145"></a><span> </span><span class="hs-glyph">-&gt;</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">&lt;-</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">&lt;-</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">&quot;Client&quot;</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">-&gt;</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">&quot;Client&quot;</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">-&gt;</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">-&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679134056"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ &quot;accept&quot; 'MimeType'</span><span>
</span><a name="line-145"></a><span> </span><span class="hs-glyph">-&gt;</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">&lt;-</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">&lt;-</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">&quot;Client&quot;</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">-&gt;</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">&quot;Client&quot;</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">-&gt;</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">=&gt;</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">-&gt;</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">-&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679132949"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ &quot;accept&quot; 'MimeType'</span><span>
</span><a name="line-164"></a><span> </span><span class="hs-glyph">-&gt;</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">&lt;-</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">-&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679134052"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ &quot;accept&quot; 'MimeType'</span><span>
</span><a name="line-164"></a><span> </span><span class="hs-glyph">-&gt;</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">&lt;-</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 &quot;accept&quot; '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">=&gt;</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">-&gt;</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">-&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679132944"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ &quot;accept&quot; 'MimeType'</span><span>
</span><a name="line-176"></a><span> </span><span class="hs-glyph">-&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679134047"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ &quot;accept&quot; 'MimeType'</span><span>
</span><a name="line-178"></a><span> </span><span class="hs-glyph">-&gt;</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">&lt;-</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">&lt;-</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">&lt;-</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">&lt;-</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">&quot;Client&quot;</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">&quot;Client&quot;</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">&lt;&gt;</span><span> </span><span class="hs-string">&quot; &quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</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">&lt;&gt;</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">&lt;&gt;</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">&quot;REQ:&quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</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">&quot;Headers=&quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</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">&lt;&gt;</span><span> </span><span class="hs-string">&quot; Body=&quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</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">-&gt;</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">&lt;&gt;</span><span> </span><span class="hs-string">&quot; &quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</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">&lt;&gt;</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">&lt;&gt;</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">&quot;REQ:&quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</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">&quot;Headers=&quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</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">&lt;&gt;</span><span> </span><span class="hs-string">&quot; Body=&quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</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">-&gt;</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">-&gt;</span><span> </span><span class="hs-string">&quot;&lt;RequestBody&gt;&quot;</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">&quot;RES:statusCode=&quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</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">&lt;&gt;</span><span> </span><span class="hs-string">&quot; (&quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</span><span> </span><a href="#local-6989586621679132990"><span class="hs-identifier hs-var">endpoint</span></a><span> </span><span class="hs-operator hs-var">&lt;&gt;</span><span> </span><span class="hs-string">&quot;)&quot;</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">&quot;RES:statusCode=&quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</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">&lt;&gt;</span><span> </span><span class="hs-string">&quot; (&quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</span><span> </span><a href="#local-6989586621679134093"><span class="hs-identifier hs-var">endpoint</span></a><span> </span><span class="hs-operator hs-var">&lt;&gt;</span><span> </span><span class="hs-string">&quot;)&quot;</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">=&gt;</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">-&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679132936"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ &quot;accept&quot; 'MimeType'</span><span>
</span><a name="line-226"></a><span> </span><span class="hs-glyph">-&gt;</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">&lt;-</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">&amp;</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">&quot;User-Agent&quot;</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">-&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679134039"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ &quot;accept&quot; 'MimeType'</span><span>
</span><a name="line-226"></a><span> </span><span class="hs-glyph">-&gt;</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">&lt;-</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">&amp;</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">&quot;User-Agent&quot;</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">&lt;-</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">&lt;-</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">=&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">=&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">=&gt;</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">-&gt;</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">=&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">&gt;=</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">&gt;=</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">=&gt;</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">-&gt;</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-&gt;</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">&lt;-</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">&lt;$&gt;</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">&lt;&gt;</span><span> </span><span class="hs-string">&quot; &quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</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">=&gt;</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">-&gt;</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-&gt;</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">&lt;-</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">&lt;$&gt;</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">&lt;&gt;</span><span> </span><span class="hs-string">&quot; &quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</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">&quot;SwaggerPetstore/&quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</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">&quot;SwaggerPetstore/&quot;</span><span> </span><span class="hs-operator hs-var">&lt;&gt;</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">&quot;%Y-%m-%dT%H:%M:%S%Z&quot;</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">=&gt;</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-&gt;</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">-&gt;</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">=&gt;</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">=&gt;</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">-&gt;</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-&gt;</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">-&gt;</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">=&gt;</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">-&gt;</span><span> </span><a href="SwaggerPetstore.Client.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-&gt;</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">-&gt;</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>

View File

@ -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">-&gt;</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">=&gt;</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">-&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679079362"><span class="hs-identifier hs-type">s</span></a><span> </span><span class="hs-glyph">-&gt;</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">-&gt;</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">=&gt;</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">-&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679079493"><span class="hs-identifier hs-type">s</span></a><span> </span><span class="hs-glyph">-&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&lt;$&gt;</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>

View File

@ -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">=&gt;</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">=&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">&quot;application&quot;</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">&quot;json&quot;</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">&quot;charset&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-string">&quot;utf-8&quot;</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">&quot;application&quot;</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">&quot;json&quot;</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">&quot;application&quot;</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">&quot;xml&quot;</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">&quot;application&quot;</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">&quot;xml&quot;</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">&quot;application&quot;</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">&quot;x-www-form-urlencoded&quot;</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">&quot;application&quot;</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">&quot;x-www-form-urlencoded&quot;</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">&quot;multipart&quot;</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">&quot;form-data&quot;</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">&quot;multipart&quot;</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">&quot;form-data&quot;</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">&quot;text&quot;</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">&quot;plain&quot;</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">&quot;charset&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-string">&quot;utf-8&quot;</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">&quot;text&quot;</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">&quot;plain&quot;</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">&quot;charset&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-string">&quot;utf-8&quot;</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">&quot;application&quot;</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">&quot;octet-stream&quot;</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">&quot;application&quot;</span><span> </span><span class="hs-identifier hs-var">ME</span><span class="hs-operator hs-var">.//</span><span> </span><span class="hs-string">&quot;octet-stream&quot;</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">=&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679077522"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679077522"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-&gt;</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">=&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679077653"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-&gt;</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">-&gt;</span><span> </span><a href="#local-6989586621679077653"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-&gt;</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">=&gt;</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">=&gt;</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">=&gt;</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">=&gt;</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">=&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">=&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">=&gt;</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">=&gt;</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">=&gt;</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">=&gt;</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">=&gt;</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">=&gt;</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">=&gt;</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">=&gt;</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>

View File

@ -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">&lt;|&gt;</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">&lt;$&gt;</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">&lt;*&gt;</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">&gt;&gt;=</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">&lt;|&gt;</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">&lt;$&gt;</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">&lt;*&gt;</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">&gt;&gt;=</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">-- ^ &quot;code&quot;</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">-- ^ &quot;type&quot;</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">-- ^ &quot;message&quot;</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">&quot;ApiResponse&quot;</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">-&gt;</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">&lt;$&gt;</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">&quot;code&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-65"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;type&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-66"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;message&quot;</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">&quot;code&quot;</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">&quot;type&quot;</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">&quot;message&quot;</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">-- ^ &quot;code&quot;</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">-- ^ &quot;type&quot;</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">-- ^ &quot;message&quot;</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">&quot;ApiResponse&quot;</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">-&gt;</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">&lt;$&gt;</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">&quot;code&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-64"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;type&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-65"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;message&quot;</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">&quot;code&quot;</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">&quot;type&quot;</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">&quot;message&quot;</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">-- ^ &quot;id&quot;</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">-- ^ &quot;name&quot;</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">&quot;Category&quot;</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">-&gt;</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">&lt;$&gt;</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">&quot;id&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-103"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;name&quot;</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">&quot;id&quot;</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">&quot;name&quot;</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">-- ^ &quot;id&quot;</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">-- ^ &quot;name&quot;</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">&quot;Category&quot;</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">-&gt;</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">&lt;$&gt;</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">&quot;id&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-102"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;name&quot;</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">&quot;id&quot;</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">&quot;name&quot;</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">-- ^ &quot;id&quot;</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">-- ^ &quot;petId&quot;</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">-- ^ &quot;quantity&quot;</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">-- ^ &quot;shipDate&quot;</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">-- ^ &quot;status&quot; - 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">-- ^ &quot;complete&quot;</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">&quot;Order&quot;</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">-&gt;</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">&lt;$&gt;</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">&quot;id&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-142"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;petId&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-143"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;quantity&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-144"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;shipDate&quot;</span><span> </span><span class="hs-operator hs-var">&gt;&gt;=</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">&lt;*&gt;</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">&quot;status&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-146"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;complete&quot;</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">&quot;id&quot;</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">&quot;petId&quot;</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">&quot;quantity&quot;</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">&quot;shipDate&quot;</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">&quot;status&quot;</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">&quot;complete&quot;</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">-- ^ &quot;id&quot;</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">-- ^ &quot;petId&quot;</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">-- ^ &quot;quantity&quot;</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">-- ^ &quot;shipDate&quot;</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">-- ^ &quot;status&quot; - 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">-- ^ &quot;complete&quot;</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">&quot;Order&quot;</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">-&gt;</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">&lt;$&gt;</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">&quot;id&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-141"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;petId&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-142"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;quantity&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-143"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;shipDate&quot;</span><span> </span><span class="hs-operator hs-var">&gt;&gt;=</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">&lt;*&gt;</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">&quot;status&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-145"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;complete&quot;</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">&quot;id&quot;</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">&quot;petId&quot;</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">&quot;quantity&quot;</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">&quot;shipDate&quot;</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">&quot;status&quot;</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">&quot;complete&quot;</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">-- ^ &quot;id&quot;</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">-- ^ &quot;category&quot;</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/ &quot;name&quot;</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/ &quot;photoUrls&quot;</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">-- ^ &quot;tags&quot;</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">-- ^ &quot;status&quot; - 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">&quot;Pet&quot;</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">-&gt;</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">&lt;$&gt;</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">&quot;id&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-193"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;category&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-194"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;name&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-195"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;photoUrls&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-196"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;tags&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-197"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;status&quot;</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">&quot;id&quot;</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">&quot;category&quot;</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">&quot;name&quot;</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">&quot;photoUrls&quot;</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">&quot;tags&quot;</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">&quot;status&quot;</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">-- ^ &quot;id&quot;</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">-- ^ &quot;category&quot;</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/ &quot;name&quot;</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/ &quot;photoUrls&quot;</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">-- ^ &quot;tags&quot;</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">-- ^ &quot;status&quot; - 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">&quot;Pet&quot;</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">-&gt;</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">&lt;$&gt;</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">&quot;id&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-192"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;category&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-193"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;name&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-194"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;photoUrls&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-195"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;tags&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-196"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;status&quot;</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">&quot;id&quot;</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">&quot;category&quot;</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">&quot;name&quot;</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">&quot;photoUrls&quot;</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">&quot;tags&quot;</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">&quot;status&quot;</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">-&gt;</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">-&gt;</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">-&gt;</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">-&gt;</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">-- ^ &quot;id&quot;</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">-- ^ &quot;name&quot;</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">&quot;Tag&quot;</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">-&gt;</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">&lt;$&gt;</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">&quot;id&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-242"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;name&quot;</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">&quot;id&quot;</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">&quot;name&quot;</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">-- ^ &quot;id&quot;</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">-- ^ &quot;name&quot;</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">&quot;Tag&quot;</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">-&gt;</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">&lt;$&gt;</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">&quot;id&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-241"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;name&quot;</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">&quot;id&quot;</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">&quot;name&quot;</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">-- ^ &quot;id&quot;</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">-- ^ &quot;username&quot;</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">-- ^ &quot;firstName&quot;</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">-- ^ &quot;lastName&quot;</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">-- ^ &quot;email&quot;</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">-- ^ &quot;password&quot;</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">-- ^ &quot;phone&quot;</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">-- ^ &quot;userStatus&quot; - 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">&quot;User&quot;</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">-&gt;</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">&lt;$&gt;</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">&quot;id&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-283"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;username&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-284"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;firstName&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-285"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;lastName&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-286"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;email&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-287"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;password&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-288"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;phone&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-289"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;userStatus&quot;</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">&quot;id&quot;</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">&quot;username&quot;</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">&quot;firstName&quot;</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">&quot;lastName&quot;</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">&quot;email&quot;</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">&quot;password&quot;</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">&quot;phone&quot;</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">&quot;userStatus&quot;</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">-- ^ &quot;id&quot;</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">-- ^ &quot;username&quot;</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">-- ^ &quot;firstName&quot;</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">-- ^ &quot;lastName&quot;</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">-- ^ &quot;email&quot;</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">-- ^ &quot;password&quot;</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">-- ^ &quot;phone&quot;</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">-- ^ &quot;userStatus&quot; - 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">&quot;User&quot;</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">-&gt;</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">&lt;$&gt;</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">&quot;id&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-282"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;username&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-283"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;firstName&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-284"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;lastName&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-285"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;email&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-286"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;password&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-287"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;phone&quot;</span><span class="hs-special">)</span><span>
</span><a name="line-288"></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</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">&quot;userStatus&quot;</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">&quot;id&quot;</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">&quot;username&quot;</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">&quot;firstName&quot;</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">&quot;lastName&quot;</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">&quot;email&quot;</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">&quot;password&quot;</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">&quot;phone&quot;</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">&quot;userStatus&quot;</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">-&gt;</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">=&gt;</span><span> </span><a href="#local-6989586621679069410"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&quot;&quot;</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">=&gt;</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">-&gt;</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">=&gt;</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-&gt;</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">=&gt;</span><span> </span><a href="#local-6989586621679069139"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-&gt;</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">=&gt;</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-&gt;</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">&lt;$&gt;</span><span>
</span><a name="line-363"></a><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;%FT%T%QZ&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-string">&quot;%FT%T%Q%z&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-string">&quot;%FT%T%Q%Z&quot;</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 &quot;%Y-%m-%d&quot;@</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">=&gt;</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-&gt;</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">&quot;%Y-%m-%d&quot;</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 &quot;%Y-%m-%d&quot;@</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">=&gt;</span><span> </span><a href="#local-6989586621679068678"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-&gt;</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">&quot;%Y-%m-%d&quot;</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">-&gt;</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">=&gt;</span><span> </span><a href="#local-6989586621679069541"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-&gt;</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">-&gt;</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">&lt;$&gt;</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">-&gt;</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">&quot;&quot;</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">=&gt;</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">-&gt;</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">=&gt;</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-&gt;</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">=&gt;</span><span> </span><a href="#local-6989586621679069270"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-&gt;</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">=&gt;</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-&gt;</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">&lt;$&gt;</span><span>
</span><a name="line-362"></a><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;%FT%T%QZ&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-string">&quot;%FT%T%Q%z&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-string">&quot;%FT%T%Q%Z&quot;</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 &quot;%Y-%m-%d&quot;@</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">=&gt;</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-&gt;</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">&quot;%Y-%m-%d&quot;</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 &quot;%Y-%m-%d&quot;@</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">=&gt;</span><span> </span><a href="#local-6989586621679068809"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-&gt;</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">&quot;%Y-%m-%d&quot;</span><span>
</span><a name="line-377"></a><span class="hs-pragma">{-# INLINE _showDate #-}</span></pre></body></html>

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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 })

View File

@ -2,7 +2,6 @@
Module : SwaggerPetstore.Model
-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveFoldable #-}
{-# LANGUAGE DeriveGeneric #-}

View File

@ -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

View File

@ -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

View File

@ -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:

View File

@ -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

View File

@ -1,3 +1,5 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Instances where
import Data.Text (Text, pack)

View File

@ -1,6 +1,7 @@
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE ConstraintKinds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module PropMime where