loafle/openapi-generator
3
0
Fork 0
forked from loafle/openapi-generator-original
Code Pull Requests Activity

[haskell-http-client] update readme; improve lens generation; fix dateFormat (#6448)

Browse Source 
* point readme links to canonical locations

* use lenses for non-required model fields, instead of traversals

* fix .gitignore generation

* fix dateFormat cli option bug
This commit is contained in:
Jon Schoning 2017-09-07 10:17:49 -05:00 committed by wing328
parent 3cd3b907f6
commit 4310ea326c
29 changed files with 601 additions and 654 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
modules/swagger-codegen/src/main/java/io/swagger/codegen/languages/HaskellHttpClientCodegen.java
View File

@ -128,7 +128,7 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
supportingFiles.add(new SupportingFile("README.mustache", "", "README.md"));
supportingFiles.add(new SupportingFile("stack.mustache", "", "stack.yaml"));
supportingFiles.add(new SupportingFile("Setup.mustache", "", "Setup.hs"));
supportingFiles.add(new SupportingFile(".gitignore", "", ".gitignore"));
supportingFiles.add(new SupportingFile("gitignore.mustache", "", ".gitignore"));
supportingFiles.add(new SupportingFile(".travis.yml", "", ".travis.yml"));
supportingFiles.add(new SupportingFile("git_push.sh.mustache", "", "git_push.sh"));
@ -241,7 +241,7 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
public void setDateFormat(String value) {
if (StringUtils.isBlank(value)) {
additionalProperties.remove(DATE_FORMAT);
additionalProperties.put(DATE_FORMAT, defaultDateFormat);
} else {
additionalProperties.put(DATE_FORMAT, value);
}

19
modules/swagger-codegen/src/main/resources/haskell-http-client/Lens.mustache
View File

@ -29,8 +29,6 @@ import {{title}}.Model
-- * Type Aliases
type Traversal_' s a = Traversal_ s s a a
type Traversal_ s t a b = forall (f :: * -> *). Applicative f => (a -> f b) -> s -> f t
type Lens_' s a = Lens_ s s a a
type Lens_ s t a b = forall (f :: * -> *). Functor f => (a -> f b) -> s -> f t
@ -40,27 +38,12 @@ type Lens_ s t a b = forall (f :: * -> *). Functor f => (a -> f b) -> s -> f t
-- * {{classname}}
{{#vars}}
{{#required}}
-- | '{{name}}' Lens
{{name}}L :: Lens_' {{classname}} {{datatype}}
{{name}}L :: Lens_' {{classname}} ({{^required}}Maybe {{/required}}{{datatype}})
{{name}}L f {{classname}}{..} = (\{{name}} -> {{classname}} { {{name}}, ..} ) <$> f {{name}}
{-# INLINE {{name}}L #-}
{{/required}}
{{^required}}
-- | '{{name}}' Traversal
{{name}}T :: Traversal_' {{classname}} {{datatype}}
{{name}}T f s = _mtraversal {{name}} (\b -> s { {{name}} = Just b}) f s
{-# INLINE {{name}}T #-}
{{/required}}
{{/vars}}
{{/model}}
{{/models}}
-- * Helpers
_mtraversal :: Applicative f => (b -> Maybe t) -> (a -> b) -> (t -> f a) -> b -> f b
_mtraversal x fsb f s = maybe (pure s) (\a -> fsb <$> f a) (x s)
{-# INLINE _mtraversal #-}

35
modules/swagger-codegen/src/main/resources/haskell-http-client/README.mustache
View File

@ -62,16 +62,16 @@ These options allow some customization of the code generation process.
**haskell-http-client specific options:**
| OPTION | DESCRIPTION | DEFAULT | ACTUAL |
| ------------------------------- | ----------------------------------------------------------------------------------------------------------------------------- | -------- | ----------------------------------- |
| allowFromJsonNulls | allow JSON Null during model decoding from JSON | true | {{allowFromJsonNulls}} |
| allowToJsonNulls | allow emitting JSON Null during model encoding to JSON | false | {{allowToJsonNulls}} |
| dateFormat | format string used to parse/render a date | %Y-%m-%d | {{dateFormat}} |
| dateTimeFormat | format string used to parse/render a datetime. (Defaults to [formatISO8601Millis][1] when not provided) | | {{dateTimeFormat}} |
| generateFormUrlEncodedInstances | Generate FromForm/ToForm instances for models used by x-www-form-urlencoded operations (model fields must be primitive types) | true | {{generateFormUrlEncodedInstances}} |
| 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}} |
| OPTION | DESCRIPTION | DEFAULT | ACTUAL |
| ------------------------------- | ----------------------------------------------------------------------------------------------------------------------------- | -------- | ------------------------------------- |
| allowFromJsonNulls | allow JSON Null during model decoding from JSON | true | {{{allowFromJsonNulls}}} |
| allowToJsonNulls | allow emitting JSON Null during model encoding to JSON | false | {{{allowToJsonNulls}}} |
| dateFormat | format string used to parse/render a date | %Y-%m-%d | {{{dateFormat}}} |
| dateTimeFormat | format string used to parse/render a datetime. (Defaults to [formatISO8601Millis][1] when not provided) | | {{{dateTimeFormat}}} |
| generateFormUrlEncodedInstances | Generate FromForm/ToForm instances for models used by x-www-form-urlencoded operations (model fields must be primitive types) | true | {{{generateFormUrlEncodedInstances}}} |
| 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}}} |
[1]: https://www.stackage.org/haddock/lts-9.0/iso8601-time-0.1.4/Data-Time-ISO8601.html#v:formatISO8601Millis
@ -85,13 +85,13 @@ java -jar modules/swagger-codegen-cli/target/swagger-codegen-cli.jar config-help
An example of the generated haddock documentation targeting the server http://petstore.swagger.io/ (SwaggerPetstore) can be found [here][2]
[2]: https://jonschoning.github.io/swaggerpetstore-haskell-http-client/
[2]: https://hackage.haskell.org/package/swagger-petstore
### Example SwaggerPetstore App
An example application using the auto-generated haskell-http-client bindings for the server http://petstore.swagger.io/ can be found [here][3]
[3]: https://github.com/jonschoning/swagger-codegen/tree/haskell-http-client/samples/client/petstore/haskell-http-client/example-app
[3]: https://github.com/swagger-api/swagger-codegen/tree/c7d145a4ba3c0627e04ece9eb97e354ac91be821/samples/client/petstore/haskell-http-client/example-app
### Usage Notes
@ -103,22 +103,23 @@ This library is intended to be imported qualified.
| {{title}}.API | construct requetss |
| {{title}}.Model | describes models |
| {{title}}.MimeTypes | encoding/decoding MIME types (content-types/accept) |
| {{title}}.Lens | lenses & traversals for model fields |
| {{title}}.Lens | lenses for model fields |
This library adds type safety around what swagger specifies as
Produces and Consumes for each Operation (e.g. the list of MIME types an
Operation can Produce (using 'accept' headers) and Consume (using 'content-type' headers).
For example, if there is an Operation named _addFoo_, there will be a
data type generated named _AddFoo_ (note the capitalization) which
describes additional constraints and actions on the _addFoo_
operation, which can be viewed in GHCi or via the Haddocks.
data type generated named _AddFoo_ (note the capitalization), which
describes additional constraints and actions on the _addFoo_ operation
via its typeclass instances. These typeclass instances can be viewed
in GHCi or via the Haddocks.
* requried parameters are included as function arguments to _addFoo_
* optional non-body parameters are included by using `applyOptionalParam`
* optional body parameters are set by using `setBodyParam`
Example for pretend _addFoo_ operation:
Example code generated for pretend _addFoo_ operation:
```haskell
data AddFoo

0
modules/swagger-codegen/src/main/resources/haskell-http-client/.gitignore → modules/swagger-codegen/src/main/resources/haskell-http-client/gitignore.mustache
View File

21
samples/client/petstore/haskell-http-client/README.md
View File

@ -62,11 +62,11 @@ These options allow some customization of the code generation process.
**haskell-http-client specific options:**
| OPTION | DESCRIPTION | DEFAULT | ACTUAL |
| ------------------------------- | ----------------------------------------------------------------------------------------------------------------------------- | -------- | ----------------------------------- |
| OPTION | DESCRIPTION | DEFAULT | ACTUAL |
| ------------------------------- | ----------------------------------------------------------------------------------------------------------------------------- | -------- | ------------------------------------- |
| allowFromJsonNulls | allow JSON Null during model decoding from JSON | true | true |
| allowToJsonNulls | allow emitting JSON Null during model encoding to JSON | false | false |
| dateFormat | format string used to parse/render a date | %Y-%m-%d | |
| dateFormat | format string used to parse/render a date | %Y-%m-%d | %Y-%m-%d |
| dateTimeFormat | format string used to parse/render a datetime. (Defaults to [formatISO8601Millis][1] when not provided) | | |
| generateFormUrlEncodedInstances | Generate FromForm/ToForm instances for models used by x-www-form-urlencoded operations (model fields must be primitive types) | true | true |
| generateLenses | Generate Lens optics for Models | true | true |
@ -85,13 +85,13 @@ java -jar modules/swagger-codegen-cli/target/swagger-codegen-cli.jar config-help
An example of the generated haddock documentation targeting the server http://petstore.swagger.io/ (SwaggerPetstore) can be found [here][2]
[2]: https://jonschoning.github.io/swaggerpetstore-haskell-http-client/
[2]: https://hackage.haskell.org/package/swagger-petstore
### Example SwaggerPetstore App
An example application using the auto-generated haskell-http-client bindings for the server http://petstore.swagger.io/ can be found [here][3]
[3]: https://github.com/jonschoning/swagger-codegen/tree/haskell-http-client/samples/client/petstore/haskell-http-client/example-app
[3]: https://github.com/swagger-api/swagger-codegen/tree/c7d145a4ba3c0627e04ece9eb97e354ac91be821/samples/client/petstore/haskell-http-client/example-app
### Usage Notes
@ -103,22 +103,23 @@ This library is intended to be imported qualified.
| SwaggerPetstore.API | construct requetss |
| SwaggerPetstore.Model | describes models |
| SwaggerPetstore.MimeTypes | encoding/decoding MIME types (content-types/accept) |
| SwaggerPetstore.Lens | lenses & traversals for model fields |
| SwaggerPetstore.Lens | lenses for model fields |
This library adds type safety around what swagger specifies as
Produces and Consumes for each Operation (e.g. the list of MIME types an
Operation can Produce (using 'accept' headers) and Consume (using 'content-type' headers).
For example, if there is an Operation named _addFoo_, there will be a
data type generated named _AddFoo_ (note the capitalization) which
describes additional constraints and actions on the _addFoo_
operation, which can be viewed in GHCi or via the Haddocks.
data type generated named _AddFoo_ (note the capitalization), which
describes additional constraints and actions on the _addFoo_ operation
via its typeclass instances. These typeclass instances can be viewed
in GHCi or via the Haddocks.
* requried parameters are included as function arguments to _addFoo_
* optional non-body parameters are included by using `applyOptionalParam`
* optional body parameters are set by using `setBodyParam`
Example for pretend _addFoo_ operation:
Example code generated for pretend _addFoo_ operation:
```haskell
data AddFoo

31
samples/client/petstore/haskell-http-client/docs.sh
View File

@ -1,31 +0,0 @@
#!/bin/bash
set -e
cabal_file=$(find . -maxdepth 1 -name "*.cabal" -print -quit)
if [ ! -f "$cabal_file" ]; then
echo "Run this script in the top-level package directory"
exit 1
fi
pkg=$(awk -F ":[[:space:]]*" 'tolower($1)=="name" { print $2 }' < "$cabal_file")
ver=$(awk -F ":[[:space:]]*" 'tolower($1)=="version" { print $2 }' < "$cabal_file")
if [ -z "$pkg" ]; then
echo "Unable to determine package name"
exit 1
fi
if [ -z "$ver" ]; then
echo "Unable to determine package version"
exit 1
fi
echo "Detected package: $pkg-$ver"
cabal haddock --hyperlink-source --html-location='https://www.stackage.org/haddock/nightly-2017-08-25/$pkg-$version' --contents-location='https://www.stackage.org/nightly-2017-08-25/package/$pkg-$version'
dir="build-docs"
trap 'rm -r "$dir"' EXIT
mkdir -p $dir
cp -R dist/doc/html/$pkg/ $dir/$pkg-$ver-docs

2
samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-Lens.html
View File

File diff suppressed because one or more lines are too long

2
samples/client/petstore/haskell-http-client/docs/SwaggerPetstore-Model.html
View File

File diff suppressed because one or more lines are too long

2
samples/client/petstore/haskell-http-client/docs/doc-index-95.html
View File

File diff suppressed because one or more lines are too long

2
samples/client/petstore/haskell-http-client/docs/doc-index-A.html
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 - A)</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 - A</p><table><tr><td class="src">AdditionalMetadata</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-API.html#t:AdditionalMetadata">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-API.html#v:AdditionalMetadata">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">AddPet</td><td class="module"><a href="SwaggerPetstore-API.html#t:AddPet">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">addPet</td><td class="module"><a href="SwaggerPetstore-API.html#v:addPet">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">ApiResponse</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:ApiResponse">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:ApiResponse">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">apiResponseCode</td><td class="module"><a href="SwaggerPetstore-Model.html#v:apiResponseCode">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">apiResponseCodeT</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:apiResponseCodeT">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">apiResponseMessage</td><td class="module"><a href="SwaggerPetstore-Model.html#v:apiResponseMessage">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">apiResponseMessageT</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:apiResponseMessageT">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">apiResponseType</td><td class="module"><a href="SwaggerPetstore-Model.html#v:apiResponseType">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">apiResponseTypeT</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:apiResponseTypeT">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">ApiUnderscorekey</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-API.html#t:ApiUnderscorekey">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-API.html#v:ApiUnderscorekey">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">applyOptionalParam</td><td class="module"><a href="SwaggerPetstore-API.html#v:applyOptionalParam">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>
</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 - A</p><table><tr><td class="src">AdditionalMetadata</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-API.html#t:AdditionalMetadata">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-API.html#v:AdditionalMetadata">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">AddPet</td><td class="module"><a href="SwaggerPetstore-API.html#t:AddPet">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">addPet</td><td class="module"><a href="SwaggerPetstore-API.html#v:addPet">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">ApiResponse</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:ApiResponse">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:ApiResponse">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">apiResponseCode</td><td class="module"><a href="SwaggerPetstore-Model.html#v:apiResponseCode">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">apiResponseCodeL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:apiResponseCodeL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">apiResponseMessage</td><td class="module"><a href="SwaggerPetstore-Model.html#v:apiResponseMessage">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">apiResponseMessageL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:apiResponseMessageL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">apiResponseType</td><td class="module"><a href="SwaggerPetstore-Model.html#v:apiResponseType">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">apiResponseTypeL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:apiResponseTypeL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">ApiUnderscorekey</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-API.html#t:ApiUnderscorekey">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-API.html#v:ApiUnderscorekey">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">applyOptionalParam</td><td class="module"><a href="SwaggerPetstore-API.html#v:applyOptionalParam">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>

2
samples/client/petstore/haskell-http-client/docs/doc-index-All.html
View File

File diff suppressed because one or more lines are too long

2
samples/client/petstore/haskell-http-client/docs/doc-index-C.html
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 - C)</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 - C</p><table><tr><td class="src">Category</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Category">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Category">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">categoryId</td><td class="module"><a href="SwaggerPetstore-Model.html#v:categoryId">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">categoryIdT</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:categoryIdT">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">categoryName</td><td class="module"><a href="SwaggerPetstore-Model.html#v:categoryName">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">categoryNameT</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:categoryNameT">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">CollectionFormat</td><td class="module"><a href="SwaggerPetstore-API.html#t:CollectionFormat">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">CommaSeparated</td><td class="module"><a href="SwaggerPetstore-API.html#v:CommaSeparated">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">configExecLoggingT</td><td class="module"><a href="SwaggerPetstore-Client.html#v:configExecLoggingT">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">configHost</td><td class="module"><a href="SwaggerPetstore-Client.html#v:configHost">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">configLoggingFilter</td><td class="module"><a href="SwaggerPetstore-Client.html#v:configLoggingFilter">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">configUserAgent</td><td class="module"><a href="SwaggerPetstore-Client.html#v:configUserAgent">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">Consumes</td><td class="module"><a href="SwaggerPetstore-MimeTypes.html#t:Consumes">SwaggerPetstore.MimeTypes</a>, SwaggerPetstore</td></tr><tr><td class="src">CreateUser</td><td class="module"><a href="SwaggerPetstore-API.html#t:CreateUser">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">createUser</td><td class="module"><a href="SwaggerPetstore-API.html#v:createUser">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">CreateUsersWithArrayInput</td><td class="module"><a href="SwaggerPetstore-API.html#t:CreateUsersWithArrayInput">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">createUsersWithArrayInput</td><td class="module"><a href="SwaggerPetstore-API.html#v:createUsersWithArrayInput">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">CreateUsersWithListInput</td><td class="module"><a href="SwaggerPetstore-API.html#t:CreateUsersWithListInput">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">createUsersWithListInput</td><td class="module"><a href="SwaggerPetstore-API.html#v:createUsersWithListInput">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>
</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 - C</p><table><tr><td class="src">Category</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Category">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Category">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">categoryId</td><td class="module"><a href="SwaggerPetstore-Model.html#v:categoryId">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">categoryIdL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:categoryIdL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">categoryName</td><td class="module"><a href="SwaggerPetstore-Model.html#v:categoryName">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">categoryNameL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:categoryNameL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">CollectionFormat</td><td class="module"><a href="SwaggerPetstore-API.html#t:CollectionFormat">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">CommaSeparated</td><td class="module"><a href="SwaggerPetstore-API.html#v:CommaSeparated">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">configExecLoggingT</td><td class="module"><a href="SwaggerPetstore-Client.html#v:configExecLoggingT">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">configHost</td><td class="module"><a href="SwaggerPetstore-Client.html#v:configHost">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">configLoggingFilter</td><td class="module"><a href="SwaggerPetstore-Client.html#v:configLoggingFilter">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">configUserAgent</td><td class="module"><a href="SwaggerPetstore-Client.html#v:configUserAgent">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">Consumes</td><td class="module"><a href="SwaggerPetstore-MimeTypes.html#t:Consumes">SwaggerPetstore.MimeTypes</a>, SwaggerPetstore</td></tr><tr><td class="src">CreateUser</td><td class="module"><a href="SwaggerPetstore-API.html#t:CreateUser">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">createUser</td><td class="module"><a href="SwaggerPetstore-API.html#v:createUser">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">CreateUsersWithArrayInput</td><td class="module"><a href="SwaggerPetstore-API.html#t:CreateUsersWithArrayInput">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">createUsersWithArrayInput</td><td class="module"><a href="SwaggerPetstore-API.html#v:createUsersWithArrayInput">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">CreateUsersWithListInput</td><td class="module"><a href="SwaggerPetstore-API.html#t:CreateUsersWithListInput">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">createUsersWithListInput</td><td class="module"><a href="SwaggerPetstore-API.html#v:createUsersWithListInput">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>

2
samples/client/petstore/haskell-http-client/docs/doc-index-O.html
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 - O)</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 - O</p><table><tr><td class="src">Order</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Order">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Order">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">orderComplete</td><td class="module"><a href="SwaggerPetstore-Model.html#v:orderComplete">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">orderCompleteT</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:orderCompleteT">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">orderId</td><td class="module"><a href="SwaggerPetstore-Model.html#v:orderId">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">orderIdT</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:orderIdT">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">orderPetId</td><td class="module"><a href="SwaggerPetstore-Model.html#v:orderPetId">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">orderPetIdT</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:orderPetIdT">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">orderQuantity</td><td class="module"><a href="SwaggerPetstore-Model.html#v:orderQuantity">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">orderQuantityT</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:orderQuantityT">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">orderShipDate</td><td class="module"><a href="SwaggerPetstore-Model.html#v:orderShipDate">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">orderShipDateT</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:orderShipDateT">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">orderStatus</td><td class="module"><a href="SwaggerPetstore-Model.html#v:orderStatus">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">orderStatusT</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:orderStatusT">SwaggerPetstore.Lens</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 - O</p><table><tr><td class="src">Order</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Order">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Order">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">orderComplete</td><td class="module"><a href="SwaggerPetstore-Model.html#v:orderComplete">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">orderCompleteL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:orderCompleteL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">orderId</td><td class="module"><a href="SwaggerPetstore-Model.html#v:orderId">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">orderIdL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:orderIdL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">orderPetId</td><td class="module"><a href="SwaggerPetstore-Model.html#v:orderPetId">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">orderPetIdL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:orderPetIdL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">orderQuantity</td><td class="module"><a href="SwaggerPetstore-Model.html#v:orderQuantity">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">orderQuantityL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:orderQuantityL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">orderShipDate</td><td class="module"><a href="SwaggerPetstore-Model.html#v:orderShipDate">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">orderShipDateL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:orderShipDateL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">orderStatus</td><td class="module"><a href="SwaggerPetstore-Model.html#v:orderStatus">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">orderStatusL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:orderStatusL">SwaggerPetstore.Lens</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>

2
samples/client/petstore/haskell-http-client/docs/doc-index-P.html
View File

File diff suppressed because one or more lines are too long

2
samples/client/petstore/haskell-http-client/docs/doc-index-T.html
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 - T)</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 - T</p><table><tr><td class="src">TabSeparated</td><td class="module"><a href="SwaggerPetstore-API.html#v:TabSeparated">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">Tag</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Tag">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Tag">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">tagId</td><td class="module"><a href="SwaggerPetstore-Model.html#v:tagId">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">tagIdT</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:tagIdT">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">tagName</td><td class="module"><a href="SwaggerPetstore-Model.html#v:tagName">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">tagNameT</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:tagNameT">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">toForm</td><td class="module"><a href="SwaggerPetstore-API.html#v:toForm">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">toFormColl</td><td class="module"><a href="SwaggerPetstore-API.html#v:toFormColl">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">toHeader</td><td class="module"><a href="SwaggerPetstore-API.html#v:toHeader">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">toHeaderColl</td><td class="module"><a href="SwaggerPetstore-API.html#v:toHeaderColl">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">toPath</td><td class="module"><a href="SwaggerPetstore-API.html#v:toPath">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">toQuery</td><td class="module"><a href="SwaggerPetstore-API.html#v:toQuery">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">toQueryColl</td><td class="module"><a href="SwaggerPetstore-API.html#v:toQueryColl">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">Traversal_</td><td class="module"><a href="SwaggerPetstore-Lens.html#t:Traversal_">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">Traversal_'</td><td class="module"><a href="SwaggerPetstore-Lens.html#t:Traversal_-39-">SwaggerPetstore.Lens</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 - T</p><table><tr><td class="src">TabSeparated</td><td class="module"><a href="SwaggerPetstore-API.html#v:TabSeparated">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">Tag</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Tag">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Tag">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">tagId</td><td class="module"><a href="SwaggerPetstore-Model.html#v:tagId">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">tagIdL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:tagIdL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">tagName</td><td class="module"><a href="SwaggerPetstore-Model.html#v:tagName">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">tagNameL</td><td class="module"><a href="SwaggerPetstore-Lens.html#v:tagNameL">SwaggerPetstore.Lens</a>, SwaggerPetstore</td></tr><tr><td class="src">toForm</td><td class="module"><a href="SwaggerPetstore-API.html#v:toForm">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">toFormColl</td><td class="module"><a href="SwaggerPetstore-API.html#v:toFormColl">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">toHeader</td><td class="module"><a href="SwaggerPetstore-API.html#v:toHeader">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">toHeaderColl</td><td class="module"><a href="SwaggerPetstore-API.html#v:toHeaderColl">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">toPath</td><td class="module"><a href="SwaggerPetstore-API.html#v:toPath">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">toQuery</td><td class="module"><a href="SwaggerPetstore-API.html#v:toQuery">SwaggerPetstore.API</a>, SwaggerPetstore</td></tr><tr><td class="src">toQueryColl</td><td class="module"><a href="SwaggerPetstore-API.html#v:toQueryColl">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>

2
samples/client/petstore/haskell-http-client/docs/doc-index-U.html
View File

File diff suppressed because one or more lines are too long

2
samples/client/petstore/haskell-http-client/docs/mini_SwaggerPetstore-Lens.html
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>SwaggerPetstore.Lens</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 id="mini"><div id="module-header"><p class="caption">SwaggerPetstore.Lens</p></div><div id="interface"><h1>Type Aliases</h1><div class="top"><p class="src"><span class="keyword">type</span> <a href="SwaggerPetstore-Lens.html#t:Traversal_-39-" target="main">Traversal_'</a> s a</p></div><div class="top"><p class="src"><span class="keyword">type</span> <a href="SwaggerPetstore-Lens.html#t:Traversal_" target="main">Traversal_</a> s t a b</p></div><div class="top"><p class="src"><span class="keyword">type</span> <a href="SwaggerPetstore-Lens.html#t:Lens_-39-" target="main">Lens_'</a> s a</p></div><div class="top"><p class="src"><span class="keyword">type</span> <a href="SwaggerPetstore-Lens.html#t:Lens_" target="main">Lens_</a> s t a b</p></div><h1>ApiResponse</h1><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:apiResponseCodeT" target="main">apiResponseCodeT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:apiResponseTypeT" target="main">apiResponseTypeT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:apiResponseMessageT" target="main">apiResponseMessageT</a></p></div><h1>Category</h1><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:categoryIdT" target="main">categoryIdT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:categoryNameT" target="main">categoryNameT</a></p></div><h1>Order</h1><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:orderIdT" target="main">orderIdT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:orderPetIdT" target="main">orderPetIdT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:orderQuantityT" target="main">orderQuantityT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:orderShipDateT" target="main">orderShipDateT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:orderStatusT" target="main">orderStatusT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:orderCompleteT" target="main">orderCompleteT</a></p></div><h1>Pet</h1><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:petIdT" target="main">petIdT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:petCategoryT" target="main">petCategoryT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:petNameL" target="main">petNameL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:petPhotoUrlsL" target="main">petPhotoUrlsL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:petTagsT" target="main">petTagsT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:petStatusT" target="main">petStatusT</a></p></div><h1>Tag</h1><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:tagIdT" target="main">tagIdT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:tagNameT" target="main">tagNameT</a></p></div><h1>User</h1><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userIdT" target="main">userIdT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userUsernameT" target="main">userUsernameT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userFirstNameT" target="main">userFirstNameT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userLastNameT" target="main">userLastNameT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userEmailT" target="main">userEmailT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userPasswordT" target="main">userPasswordT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userPhoneT" target="main">userPhoneT</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userUserStatusT" target="main">userUserStatusT</a></p></div><h1>Helpers</h1><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:_mtraversal" target="main">_mtraversal</a></p></div></div></body></html>
</script></head><body id="mini"><div id="module-header"><p class="caption">SwaggerPetstore.Lens</p></div><div id="interface"><h1>Type Aliases</h1><div class="top"><p class="src"><span class="keyword">type</span> <a href="SwaggerPetstore-Lens.html#t:Lens_-39-" target="main">Lens_'</a> s a</p></div><div class="top"><p class="src"><span class="keyword">type</span> <a href="SwaggerPetstore-Lens.html#t:Lens_" target="main">Lens_</a> s t a b</p></div><h1>ApiResponse</h1><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:apiResponseCodeL" target="main">apiResponseCodeL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:apiResponseTypeL" target="main">apiResponseTypeL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:apiResponseMessageL" target="main">apiResponseMessageL</a></p></div><h1>Category</h1><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:categoryIdL" target="main">categoryIdL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:categoryNameL" target="main">categoryNameL</a></p></div><h1>Order</h1><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:orderIdL" target="main">orderIdL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:orderPetIdL" target="main">orderPetIdL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:orderQuantityL" target="main">orderQuantityL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:orderShipDateL" target="main">orderShipDateL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:orderStatusL" target="main">orderStatusL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:orderCompleteL" target="main">orderCompleteL</a></p></div><h1>Pet</h1><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:petIdL" target="main">petIdL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:petCategoryL" target="main">petCategoryL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:petNameL" target="main">petNameL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:petPhotoUrlsL" target="main">petPhotoUrlsL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:petTagsL" target="main">petTagsL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:petStatusL" target="main">petStatusL</a></p></div><h1>Tag</h1><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:tagIdL" target="main">tagIdL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:tagNameL" target="main">tagNameL</a></p></div><h1>User</h1><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userIdL" target="main">userIdL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userUsernameL" target="main">userUsernameL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userFirstNameL" target="main">userFirstNameL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userLastNameL" target="main">userLastNameL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userEmailL" target="main">userEmailL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userPasswordL" target="main">userPasswordL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userPhoneL" target="main">userPhoneL</a></p></div><div class="top"><p class="src"><a href="SwaggerPetstore-Lens.html#v:userUserStatusL" target="main">userUserStatusL</a></p></div></div></body></html>

8
samples/client/petstore/haskell-http-client/docs/src/Paths_swagger_petstore.html
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-6989586621679142330"><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-6989586621679142330"><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-6989586621679142330"><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-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-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>
@ -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-6989586621679142656"><a href="#local-6989586621679142656"><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-6989586621679142657"><a href="#local-6989586621679142657"><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-6989586621679142657"><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-6989586621679142656"><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-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-51"></a></pre></body></html>

336
samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.API.html
View File

@ -79,13 +79,13 @@ Module : SwaggerPetstore.API
</span><a name="line-79"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-80"></a><span class="hs-comment">-- </span><span>
</span><a name="line-81"></a><span class="hs-identifier">addPet</span><span> </span><span>
</span><a name="line-82"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="#local-6989586621679096578"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679096578"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span class="hs-special">)</span><span>
</span><a name="line-83"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679096578"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-82"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="#local-6989586621679096448"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679096448"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span class="hs-special">)</span><span>
</span><a name="line-83"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679096448"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-84"></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><span class="hs-comment">-- ^ &quot;body&quot; - Pet object that needs to be added to the store</span><span>
</span><a name="line-85"></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="SwaggerPetstore.API.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="#local-6989586621679096578"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096579"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-86"></a><a name="addPet"><a href="SwaggerPetstore.API.html#addPet"><span class="hs-identifier">addPet</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096580"><a href="#local-6989586621679096580"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-85"></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="SwaggerPetstore.API.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="#local-6989586621679096448"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096449"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-86"></a><a name="addPet"><a href="SwaggerPetstore.API.html#addPet"><span class="hs-identifier">addPet</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096450"><a href="#local-6989586621679096450"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-87"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;POST&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/pet&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-88"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679096580"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-88"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679096450"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-89"></a><span>
</span><a name="line-90"></a><span class="hs-keyword">data</span><span> </span><a name="AddPet"><a href="SwaggerPetstore.API.html#AddPet"><span class="hs-identifier">AddPet</span></a></a><span> </span><span>
</span><a name="line-91"></a><span>
@ -117,15 +117,15 @@ Module : SwaggerPetstore.API
</span><a name="line-117"></a><span class="hs-comment">-- </span><span>
</span><a name="line-118"></a><span class="hs-identifier">deletePet</span><span> </span><span>
</span><a name="line-119"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ &quot;petId&quot; - Pet id to delete</span><span>
</span><a name="line-120"></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="SwaggerPetstore.API.html#DeletePet"><span class="hs-identifier hs-type">DeletePet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="#local-6989586621679096577"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-121"></a><a name="deletePet"><a href="SwaggerPetstore.API.html#deletePet"><span class="hs-identifier">deletePet</span></a></a><span> </span><a name="local-6989586621679096581"><a href="#local-6989586621679096581"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-122"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;DELETE&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/pet/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096581"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">]</span><span>
</span><a name="line-120"></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="SwaggerPetstore.API.html#DeletePet"><span class="hs-identifier hs-type">DeletePet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="#local-6989586621679096447"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-121"></a><a name="deletePet"><a href="SwaggerPetstore.API.html#deletePet"><span class="hs-identifier">deletePet</span></a></a><span> </span><a name="local-6989586621679096451"><a href="#local-6989586621679096451"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-122"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;DELETE&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/pet/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096451"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">]</span><span>
</span><a name="line-123"></a><span> </span><span>
</span><a name="line-124"></a><span>
</span><a name="line-125"></a><span class="hs-keyword">data</span><span> </span><a name="DeletePet"><a href="SwaggerPetstore.API.html#DeletePet"><span class="hs-identifier">DeletePet</span></a></a><span> </span><span>
</span><a name="line-126"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.API.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.html#DeletePet"><span class="hs-identifier hs-type">DeletePet</span></a><span> </span><a href="SwaggerPetstore.API.html#ApiUnderscorekey"><span class="hs-identifier hs-type">ApiUnderscorekey</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-127"></a><span> </span><a name="local-8214565720323870210"><a href="SwaggerPetstore.API.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679096899"><a href="#local-6989586621679096899"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#ApiUnderscorekey"><span class="hs-identifier hs-var">ApiUnderscorekey</span></a><span> </span><a name="local-6989586621679096900"><a href="#local-6989586621679096900"><span class="hs-identifier">xs</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-128"></a><span> </span><a href="#local-6989586621679096899"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setHeader"><span class="hs-identifier hs-var">setHeader</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.API.html#toHeader"><span class="hs-identifier hs-var">toHeader</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;api_key&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096900"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-127"></a><span> </span><a name="local-8214565720323870080"><a href="SwaggerPetstore.API.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679096769"><a href="#local-6989586621679096769"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#ApiUnderscorekey"><span class="hs-identifier hs-var">ApiUnderscorekey</span></a><span> </span><a name="local-6989586621679096770"><a href="#local-6989586621679096770"><span class="hs-identifier">xs</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-128"></a><span> </span><a href="#local-6989586621679096769"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setHeader"><span class="hs-identifier hs-var">setHeader</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.API.html#toHeader"><span class="hs-identifier hs-var">toHeader</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;api_key&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096770"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-129"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-130"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="SwaggerPetstore.API.html#DeletePet"><span class="hs-identifier hs-type">DeletePet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-131"></a><span class="hs-comment">-- | @application/json@</span><span>
@ -145,9 +145,9 @@ Module : SwaggerPetstore.API
</span><a name="line-145"></a><span class="hs-identifier">findPetsByStatus</span><span> </span><span>
</span><a name="line-146"></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">-- ^ &quot;status&quot; - Status values that need to be considered for filter</span><span>
</span><a name="line-147"></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="SwaggerPetstore.API.html#FindPetsByStatus"><span class="hs-identifier hs-type">FindPetsByStatus</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span class="hs-special">]</span><span>
</span><a name="line-148"></a><a name="findPetsByStatus"><a href="SwaggerPetstore.API.html#findPetsByStatus"><span class="hs-identifier">findPetsByStatus</span></a></a><span> </span><a name="local-6989586621679096582"><a href="#local-6989586621679096582"><span class="hs-identifier">status</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-148"></a><a name="findPetsByStatus"><a href="SwaggerPetstore.API.html#findPetsByStatus"><span class="hs-identifier">findPetsByStatus</span></a></a><span> </span><a name="local-6989586621679096452"><a href="#local-6989586621679096452"><span class="hs-identifier">status</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-149"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;GET&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/pet/findByStatus&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-150"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_setQuery"><span class="hs-identifier hs-var">_setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.API.html#toQueryColl"><span class="hs-identifier hs-var">toQueryColl</span></a><span> </span><a href="SwaggerPetstore.API.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;status&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679096582"><span class="hs-identifier hs-var">status</span></a><span class="hs-special">)</span><span>
</span><a name="line-150"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_setQuery"><span class="hs-identifier hs-var">_setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.API.html#toQueryColl"><span class="hs-identifier hs-var">toQueryColl</span></a><span> </span><a href="SwaggerPetstore.API.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;status&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679096452"><span class="hs-identifier hs-var">status</span></a><span class="hs-special">)</span><span>
</span><a name="line-151"></a><span>
</span><a name="line-152"></a><span class="hs-keyword">data</span><span> </span><a name="FindPetsByStatus"><a href="SwaggerPetstore.API.html#FindPetsByStatus"><span class="hs-identifier">FindPetsByStatus</span></a></a><span> </span><span>
</span><a name="line-153"></a><span class="hs-comment">-- | @application/xml@</span><span>
@ -169,9 +169,9 @@ Module : SwaggerPetstore.API
</span><a name="line-169"></a><span class="hs-identifier">findPetsByTags</span><span> </span><span>
</span><a name="line-170"></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">-- ^ &quot;tags&quot; - Tags to filter by</span><span>
</span><a name="line-171"></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="SwaggerPetstore.API.html#FindPetsByTags"><span class="hs-identifier hs-type">FindPetsByTags</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span class="hs-special">]</span><span>
</span><a name="line-172"></a><a name="findPetsByTags"><a href="SwaggerPetstore.API.html#findPetsByTags"><span class="hs-identifier">findPetsByTags</span></a></a><span> </span><a name="local-6989586621679096583"><a href="#local-6989586621679096583"><span class="hs-identifier">tags</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-172"></a><a name="findPetsByTags"><a href="SwaggerPetstore.API.html#findPetsByTags"><span class="hs-identifier">findPetsByTags</span></a></a><span> </span><a name="local-6989586621679096453"><a href="#local-6989586621679096453"><span class="hs-identifier">tags</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-173"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;GET&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/pet/findByTags&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-174"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_setQuery"><span class="hs-identifier hs-var">_setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.API.html#toQueryColl"><span class="hs-identifier hs-var">toQueryColl</span></a><span> </span><a href="SwaggerPetstore.API.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;tags&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679096583"><span class="hs-identifier hs-var">tags</span></a><span class="hs-special">)</span><span>
</span><a name="line-174"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_setQuery"><span class="hs-identifier hs-var">_setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.API.html#toQueryColl"><span class="hs-identifier hs-var">toQueryColl</span></a><span> </span><a href="SwaggerPetstore.API.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;tags&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679096453"><span class="hs-identifier hs-var">tags</span></a><span class="hs-special">)</span><span>
</span><a name="line-175"></a><span>
</span><a name="line-176"></a><span class="hs-pragma">{-# DEPRECATED findPetsByTags &quot;&quot; #-}</span><span>
</span><a name="line-177"></a><span>
@ -195,8 +195,8 @@ Module : SwaggerPetstore.API
</span><a name="line-195"></a><span class="hs-identifier">getPetById</span><span> </span><span>
</span><a name="line-196"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ &quot;petId&quot; - ID of pet to return</span><span>
</span><a name="line-197"></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="SwaggerPetstore.API.html#GetPetById"><span class="hs-identifier hs-type">GetPetById</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span>
</span><a name="line-198"></a><a name="getPetById"><a href="SwaggerPetstore.API.html#getPetById"><span class="hs-identifier">getPetById</span></a></a><span> </span><a name="local-6989586621679096584"><a href="#local-6989586621679096584"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-199"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;GET&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/pet/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096584"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">]</span><span>
</span><a name="line-198"></a><a name="getPetById"><a href="SwaggerPetstore.API.html#getPetById"><span class="hs-identifier">getPetById</span></a></a><span> </span><a name="local-6989586621679096454"><a href="#local-6989586621679096454"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-199"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;GET&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/pet/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096454"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">]</span><span>
</span><a name="line-200"></a><span> </span><span>
</span><a name="line-201"></a><span>
</span><a name="line-202"></a><span class="hs-keyword">data</span><span> </span><a name="GetPetById"><a href="SwaggerPetstore.API.html#GetPetById"><span class="hs-identifier">GetPetById</span></a></a><span> </span><span>
@ -219,13 +219,13 @@ Module : SwaggerPetstore.API
</span><a name="line-219"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-220"></a><span class="hs-comment">-- </span><span>
</span><a name="line-221"></a><span class="hs-identifier">updatePet</span><span> </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#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="#local-6989586621679096575"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679096575"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</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="#local-6989586621679096575"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</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#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="#local-6989586621679096445"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679096445"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</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="#local-6989586621679096445"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-224"></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><span class="hs-comment">-- ^ &quot;body&quot; - Pet object that needs to be added to the store</span><span>
</span><a name="line-225"></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="SwaggerPetstore.API.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="#local-6989586621679096575"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096576"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-226"></a><a name="updatePet"><a href="SwaggerPetstore.API.html#updatePet"><span class="hs-identifier">updatePet</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096585"><a href="#local-6989586621679096585"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-225"></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="SwaggerPetstore.API.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="#local-6989586621679096445"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096446"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-226"></a><a name="updatePet"><a href="SwaggerPetstore.API.html#updatePet"><span class="hs-identifier">updatePet</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096455"><a href="#local-6989586621679096455"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-227"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;PUT&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/pet&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-228"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679096585"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-228"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679096455"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-229"></a><span>
</span><a name="line-230"></a><span class="hs-keyword">data</span><span> </span><a name="UpdatePet"><a href="SwaggerPetstore.API.html#UpdatePet"><span class="hs-identifier">UpdatePet</span></a></a><span> </span><span>
</span><a name="line-231"></a><span>
@ -256,25 +256,25 @@ Module : SwaggerPetstore.API
</span><a name="line-256"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-257"></a><span class="hs-comment">-- </span><span>
</span><a name="line-258"></a><span class="hs-identifier">updatePetWithForm</span><span> </span><span>
</span><a name="line-259"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#UpdatePetWithForm"><span class="hs-identifier hs-type">UpdatePetWithForm</span></a><span> </span><a href="#local-6989586621679096573"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-260"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679096573"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-259"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#UpdatePetWithForm"><span class="hs-identifier hs-type">UpdatePetWithForm</span></a><span> </span><a href="#local-6989586621679096443"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-260"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679096443"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-261"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ &quot;petId&quot; - ID of pet that needs to be updated</span><span>
</span><a name="line-262"></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="SwaggerPetstore.API.html#UpdatePetWithForm"><span class="hs-identifier hs-type">UpdatePetWithForm</span></a><span> </span><a href="#local-6989586621679096573"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096574"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-263"></a><a name="updatePetWithForm"><a href="SwaggerPetstore.API.html#updatePetWithForm"><span class="hs-identifier">updatePetWithForm</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096586"><a href="#local-6989586621679096586"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-264"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;POST&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/pet/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096586"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">]</span><span>
</span><a name="line-262"></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="SwaggerPetstore.API.html#UpdatePetWithForm"><span class="hs-identifier hs-type">UpdatePetWithForm</span></a><span> </span><a href="#local-6989586621679096443"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096444"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-263"></a><a name="updatePetWithForm"><a href="SwaggerPetstore.API.html#updatePetWithForm"><span class="hs-identifier">updatePetWithForm</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096456"><a href="#local-6989586621679096456"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-264"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;POST&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/pet/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096456"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">]</span><span>
</span><a name="line-265"></a><span> </span><span>
</span><a name="line-266"></a><span>
</span><a name="line-267"></a><span class="hs-keyword">data</span><span> </span><a name="UpdatePetWithForm"><a href="SwaggerPetstore.API.html#UpdatePetWithForm"><span class="hs-identifier">UpdatePetWithForm</span></a></a><span> </span><span>
</span><a name="line-268"></a><span>
</span><a name="line-269"></a><span class="hs-comment">-- | /Optional Param/ &quot;name&quot; - Updated name of the pet</span><span>
</span><a name="line-270"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.API.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.html#UpdatePetWithForm"><span class="hs-identifier hs-type">UpdatePetWithForm</span></a><span> </span><a href="SwaggerPetstore.API.html#Name"><span class="hs-identifier hs-type">Name</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-271"></a><span> </span><a name="local-8214565720323870210"><a href="SwaggerPetstore.API.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679096897"><a href="#local-6989586621679096897"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><a name="local-6989586621679096898"><a href="#local-6989586621679096898"><span class="hs-identifier">xs</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-272"></a><span> </span><a href="#local-6989586621679096897"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_addForm"><span class="hs-identifier hs-var">_addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.API.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;name&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096898"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-271"></a><span> </span><a name="local-8214565720323870080"><a href="SwaggerPetstore.API.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679096767"><a href="#local-6989586621679096767"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><a name="local-6989586621679096768"><a href="#local-6989586621679096768"><span class="hs-identifier">xs</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-272"></a><span> </span><a href="#local-6989586621679096767"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_addForm"><span class="hs-identifier hs-var">_addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.API.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;name&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096768"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-273"></a><span>
</span><a name="line-274"></a><span class="hs-comment">-- | /Optional Param/ &quot;status&quot; - Updated status of the pet</span><span>
</span><a name="line-275"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.API.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.html#UpdatePetWithForm"><span class="hs-identifier hs-type">UpdatePetWithForm</span></a><span> </span><a href="SwaggerPetstore.API.html#Status"><span class="hs-identifier hs-type">Status</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-276"></a><span> </span><a name="local-8214565720323870210"><a href="SwaggerPetstore.API.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679096895"><a href="#local-6989586621679096895"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#Status"><span class="hs-identifier hs-var">Status</span></a><span> </span><a name="local-6989586621679096896"><a href="#local-6989586621679096896"><span class="hs-identifier">xs</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-277"></a><span> </span><a href="#local-6989586621679096895"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_addForm"><span class="hs-identifier hs-var">_addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.API.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;status&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096896"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-276"></a><span> </span><a name="local-8214565720323870080"><a href="SwaggerPetstore.API.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679096765"><a href="#local-6989586621679096765"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#Status"><span class="hs-identifier hs-var">Status</span></a><span> </span><a name="local-6989586621679096766"><a href="#local-6989586621679096766"><span class="hs-identifier">xs</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-277"></a><span> </span><a href="#local-6989586621679096765"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_addForm"><span class="hs-identifier hs-var">_addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.API.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;status&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096766"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-278"></a><span>
</span><a name="line-279"></a><span class="hs-comment">-- | @application/x-www-form-urlencoded@</span><span>
</span><a name="line-280"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#UpdatePetWithForm"><span class="hs-identifier hs-type">UpdatePetWithForm</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span>
@ -296,25 +296,25 @@ Module : SwaggerPetstore.API
</span><a name="line-296"></a><span class="hs-comment">-- AuthMethod: petstore_auth</span><span>
</span><a name="line-297"></a><span class="hs-comment">-- </span><span>
</span><a name="line-298"></a><span class="hs-identifier">uploadFile</span><span> </span><span>
</span><a name="line-299"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#UploadFile"><span class="hs-identifier hs-type">UploadFile</span></a><span> </span><a href="#local-6989586621679096572"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-300"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679096572"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-299"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#UploadFile"><span class="hs-identifier hs-type">UploadFile</span></a><span> </span><a href="#local-6989586621679096442"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-300"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679096442"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-301"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ &quot;petId&quot; - ID of pet to update</span><span>
</span><a name="line-302"></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="SwaggerPetstore.API.html#UploadFile"><span class="hs-identifier hs-type">UploadFile</span></a><span> </span><a href="#local-6989586621679096572"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span>
</span><a name="line-303"></a><a name="uploadFile"><a href="SwaggerPetstore.API.html#uploadFile"><span class="hs-identifier">uploadFile</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096587"><a href="#local-6989586621679096587"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-304"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;POST&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/pet/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096587"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">,</span><span class="hs-string">&quot;/uploadImage&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-302"></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="SwaggerPetstore.API.html#UploadFile"><span class="hs-identifier hs-type">UploadFile</span></a><span> </span><a href="#local-6989586621679096442"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span>
</span><a name="line-303"></a><a name="uploadFile"><a href="SwaggerPetstore.API.html#uploadFile"><span class="hs-identifier">uploadFile</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096457"><a href="#local-6989586621679096457"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-304"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;POST&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/pet/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096457"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">,</span><span class="hs-string">&quot;/uploadImage&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-305"></a><span> </span><span>
</span><a name="line-306"></a><span>
</span><a name="line-307"></a><span class="hs-keyword">data</span><span> </span><a name="UploadFile"><a href="SwaggerPetstore.API.html#UploadFile"><span class="hs-identifier">UploadFile</span></a></a><span> </span><span>
</span><a name="line-308"></a><span>
</span><a name="line-309"></a><span class="hs-comment">-- | /Optional Param/ &quot;additionalMetadata&quot; - Additional data to pass to server</span><span>
</span><a name="line-310"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.API.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.html#UploadFile"><span class="hs-identifier hs-type">UploadFile</span></a><span> </span><a href="SwaggerPetstore.API.html#AdditionalMetadata"><span class="hs-identifier hs-type">AdditionalMetadata</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-311"></a><span> </span><a name="local-8214565720323870210"><a href="SwaggerPetstore.API.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679096893"><a href="#local-6989586621679096893"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#AdditionalMetadata"><span class="hs-identifier hs-var">AdditionalMetadata</span></a><span> </span><a name="local-6989586621679096894"><a href="#local-6989586621679096894"><span class="hs-identifier">xs</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-312"></a><span> </span><a href="#local-6989586621679096893"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_addMultiFormPart"><span class="hs-identifier hs-var">_addMultiFormPart</span></a><span class="hs-special">`</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">partLBS</span><span> </span><span class="hs-string">&quot;additionalMetadata&quot;</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#mimeRender%27"><span class="hs-identifier hs-var">mimeRender'</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-var">MimeMultipartFormData</span></a><span> </span><a href="#local-6989586621679096894"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-311"></a><span> </span><a name="local-8214565720323870080"><a href="SwaggerPetstore.API.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679096763"><a href="#local-6989586621679096763"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#AdditionalMetadata"><span class="hs-identifier hs-var">AdditionalMetadata</span></a><span> </span><a name="local-6989586621679096764"><a href="#local-6989586621679096764"><span class="hs-identifier">xs</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-312"></a><span> </span><a href="#local-6989586621679096763"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_addMultiFormPart"><span class="hs-identifier hs-var">_addMultiFormPart</span></a><span class="hs-special">`</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">partLBS</span><span> </span><span class="hs-string">&quot;additionalMetadata&quot;</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#mimeRender%27"><span class="hs-identifier hs-var">mimeRender'</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-var">MimeMultipartFormData</span></a><span> </span><a href="#local-6989586621679096764"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-313"></a><span>
</span><a name="line-314"></a><span class="hs-comment">-- | /Optional Param/ &quot;file&quot; - file to upload</span><span>
</span><a name="line-315"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.API.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.html#UploadFile"><span class="hs-identifier hs-type">UploadFile</span></a><span> </span><a href="SwaggerPetstore.API.html#File"><span class="hs-identifier hs-type">File</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-316"></a><span> </span><a name="local-8214565720323870210"><a href="SwaggerPetstore.API.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679096891"><a href="#local-6989586621679096891"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#File"><span class="hs-identifier hs-var">File</span></a><span> </span><a name="local-6989586621679096892"><a href="#local-6989586621679096892"><span class="hs-identifier">xs</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-317"></a><span> </span><a href="#local-6989586621679096891"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_addMultiFormPart"><span class="hs-identifier hs-var">_addMultiFormPart</span></a><span class="hs-special">`</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">partFileSource</span><span> </span><span class="hs-string">&quot;file&quot;</span><span> </span><a href="#local-6989586621679096892"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-316"></a><span> </span><a name="local-8214565720323870080"><a href="SwaggerPetstore.API.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679096761"><a href="#local-6989586621679096761"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#File"><span class="hs-identifier hs-var">File</span></a><span> </span><a name="local-6989586621679096762"><a href="#local-6989586621679096762"><span class="hs-identifier">xs</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-317"></a><span> </span><a href="#local-6989586621679096761"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_addMultiFormPart"><span class="hs-identifier hs-var">_addMultiFormPart</span></a><span class="hs-special">`</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">partFileSource</span><span> </span><span class="hs-string">&quot;file&quot;</span><span> </span><a href="#local-6989586621679096762"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-318"></a><span>
</span><a name="line-319"></a><span class="hs-comment">-- | @multipart/form-data@</span><span>
</span><a name="line-320"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#UploadFile"><span class="hs-identifier hs-type">UploadFile</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span>
@ -337,9 +337,9 @@ Module : SwaggerPetstore.API
</span><a name="line-337"></a><span class="hs-comment">-- </span><span>
</span><a name="line-338"></a><span class="hs-identifier">deleteOrder</span><span> </span><span>
</span><a name="line-339"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ &quot;orderId&quot; - ID of the order that needs to be deleted</span><span>
</span><a name="line-340"></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="SwaggerPetstore.API.html#DeleteOrder"><span class="hs-identifier hs-type">DeleteOrder</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="#local-6989586621679096571"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-341"></a><a name="deleteOrder"><a href="SwaggerPetstore.API.html#deleteOrder"><span class="hs-identifier">deleteOrder</span></a></a><span> </span><a name="local-6989586621679096588"><a href="#local-6989586621679096588"><span class="hs-identifier">orderId</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-342"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;DELETE&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/store/order/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096588"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">]</span><span>
</span><a name="line-340"></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="SwaggerPetstore.API.html#DeleteOrder"><span class="hs-identifier hs-type">DeleteOrder</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="#local-6989586621679096441"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-341"></a><a name="deleteOrder"><a href="SwaggerPetstore.API.html#deleteOrder"><span class="hs-identifier">deleteOrder</span></a></a><span> </span><a name="local-6989586621679096458"><a href="#local-6989586621679096458"><span class="hs-identifier">orderId</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-342"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;DELETE&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/store/order/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096458"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">]</span><span>
</span><a name="line-343"></a><span> </span><span>
</span><a name="line-344"></a><span>
</span><a name="line-345"></a><span class="hs-keyword">data</span><span> </span><a name="DeleteOrder"><a href="SwaggerPetstore.API.html#DeleteOrder"><span class="hs-identifier">DeleteOrder</span></a></a><span> </span><span>
@ -380,8 +380,8 @@ Module : SwaggerPetstore.API
</span><a name="line-380"></a><span class="hs-identifier">getOrderById</span><span> </span><span>
</span><a name="line-381"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-comment">-- ^ &quot;orderId&quot; - ID of pet that needs to be fetched</span><span>
</span><a name="line-382"></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="SwaggerPetstore.API.html#GetOrderById"><span class="hs-identifier hs-type">GetOrderById</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span>
</span><a name="line-383"></a><a name="getOrderById"><a href="SwaggerPetstore.API.html#getOrderById"><span class="hs-identifier">getOrderById</span></a></a><span> </span><a name="local-6989586621679096589"><a href="#local-6989586621679096589"><span class="hs-identifier">orderId</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-384"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;GET&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/store/order/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096589"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">]</span><span>
</span><a name="line-383"></a><a name="getOrderById"><a href="SwaggerPetstore.API.html#getOrderById"><span class="hs-identifier">getOrderById</span></a></a><span> </span><a name="local-6989586621679096459"><a href="#local-6989586621679096459"><span class="hs-identifier">orderId</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-384"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;GET&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/store/order/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096459"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">]</span><span>
</span><a name="line-385"></a><span> </span><span>
</span><a name="line-386"></a><span>
</span><a name="line-387"></a><span class="hs-keyword">data</span><span> </span><a name="GetOrderById"><a href="SwaggerPetstore.API.html#GetOrderById"><span class="hs-identifier">GetOrderById</span></a></a><span> </span><span>
@ -400,13 +400,13 @@ Module : SwaggerPetstore.API
</span><a name="line-400"></a><span class="hs-comment">-- </span><span>
</span><a name="line-401"></a><span class="hs-comment">-- </span><span>
</span><a name="line-402"></a><span class="hs-identifier">placeOrder</span><span> </span><span>
</span><a name="line-403"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="#local-6989586621679096090"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679096090"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span class="hs-special">)</span><span>
</span><a name="line-404"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679096090"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-403"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="#local-6989586621679095960"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679095960"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span class="hs-special">)</span><span>
</span><a name="line-404"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679095960"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-405"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-comment">-- ^ &quot;body&quot; - order placed for purchasing the pet</span><span>
</span><a name="line-406"></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="SwaggerPetstore.API.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="#local-6989586621679096090"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span>
</span><a name="line-407"></a><a name="placeOrder"><a href="SwaggerPetstore.API.html#placeOrder"><span class="hs-identifier">placeOrder</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096590"><a href="#local-6989586621679096590"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-406"></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="SwaggerPetstore.API.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="#local-6989586621679095960"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span>
</span><a name="line-407"></a><a name="placeOrder"><a href="SwaggerPetstore.API.html#placeOrder"><span class="hs-identifier">placeOrder</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096460"><a href="#local-6989586621679096460"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-408"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;POST&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/store/order&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-409"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679096590"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-409"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679096460"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-410"></a><span>
</span><a name="line-411"></a><span class="hs-keyword">data</span><span> </span><a name="PlaceOrder"><a href="SwaggerPetstore.API.html#PlaceOrder"><span class="hs-identifier">PlaceOrder</span></a></a><span> </span><span>
</span><a name="line-412"></a><span>
@ -431,13 +431,13 @@ Module : SwaggerPetstore.API
</span><a name="line-431"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-432"></a><span class="hs-comment">-- </span><span>
</span><a name="line-433"></a><span class="hs-identifier">createUser</span><span> </span><span>
</span><a name="line-434"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="#local-6989586621679096088"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679096088"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span class="hs-special">)</span><span>
</span><a name="line-435"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679096088"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-434"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="#local-6989586621679095958"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679095958"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span class="hs-special">)</span><span>
</span><a name="line-435"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679095958"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-436"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-comment">-- ^ &quot;body&quot; - Created user object</span><span>
</span><a name="line-437"></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="SwaggerPetstore.API.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="#local-6989586621679096088"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096089"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-438"></a><a name="createUser"><a href="SwaggerPetstore.API.html#createUser"><span class="hs-identifier">createUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096591"><a href="#local-6989586621679096591"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-437"></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="SwaggerPetstore.API.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="#local-6989586621679095958"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095959"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-438"></a><a name="createUser"><a href="SwaggerPetstore.API.html#createUser"><span class="hs-identifier">createUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096461"><a href="#local-6989586621679096461"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-439"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;POST&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/user&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-440"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679096591"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-440"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679096461"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-441"></a><span>
</span><a name="line-442"></a><span class="hs-keyword">data</span><span> </span><a name="CreateUser"><a href="SwaggerPetstore.API.html#CreateUser"><span class="hs-identifier">CreateUser</span></a></a><span> </span><span>
</span><a name="line-443"></a><span>
@ -460,13 +460,13 @@ Module : SwaggerPetstore.API
</span><a name="line-460"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-461"></a><span class="hs-comment">-- </span><span>
</span><a name="line-462"></a><span class="hs-identifier">createUsersWithArrayInput</span><span> </span><span>
</span><a name="line-463"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="#local-6989586621679096086"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679096086"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><a name="line-464"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679096086"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-463"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="#local-6989586621679095956"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679095956"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><a name="line-464"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679095956"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-465"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ &quot;body&quot; - List of user object</span><span>
</span><a name="line-466"></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="SwaggerPetstore.API.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="#local-6989586621679096086"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096087"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-467"></a><a name="createUsersWithArrayInput"><a href="SwaggerPetstore.API.html#createUsersWithArrayInput"><span class="hs-identifier">createUsersWithArrayInput</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096592"><a href="#local-6989586621679096592"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-466"></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="SwaggerPetstore.API.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="#local-6989586621679095956"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095957"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-467"></a><a name="createUsersWithArrayInput"><a href="SwaggerPetstore.API.html#createUsersWithArrayInput"><span class="hs-identifier">createUsersWithArrayInput</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096462"><a href="#local-6989586621679096462"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-468"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;POST&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/user/createWithArray&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-469"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679096592"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-469"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679096462"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-470"></a><span>
</span><a name="line-471"></a><span class="hs-keyword">data</span><span> </span><a name="CreateUsersWithArrayInput"><a href="SwaggerPetstore.API.html#CreateUsersWithArrayInput"><span class="hs-identifier">CreateUsersWithArrayInput</span></a></a><span> </span><span>
</span><a name="line-472"></a><span>
@ -489,13 +489,13 @@ Module : SwaggerPetstore.API
</span><a name="line-489"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-490"></a><span class="hs-comment">-- </span><span>
</span><a name="line-491"></a><span class="hs-identifier">createUsersWithListInput</span><span> </span><span>
</span><a name="line-492"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="#local-6989586621679096084"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679096084"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><a name="line-493"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679096084"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-492"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="#local-6989586621679095954"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679095954"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><a name="line-493"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679095954"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-494"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ &quot;body&quot; - List of user object</span><span>
</span><a name="line-495"></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="SwaggerPetstore.API.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="#local-6989586621679096084"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096085"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-496"></a><a name="createUsersWithListInput"><a href="SwaggerPetstore.API.html#createUsersWithListInput"><span class="hs-identifier">createUsersWithListInput</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096593"><a href="#local-6989586621679096593"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-495"></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="SwaggerPetstore.API.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="#local-6989586621679095954"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095955"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-496"></a><a name="createUsersWithListInput"><a href="SwaggerPetstore.API.html#createUsersWithListInput"><span class="hs-identifier">createUsersWithListInput</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096463"><a href="#local-6989586621679096463"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-497"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;POST&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/user/createWithList&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-498"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679096593"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-498"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679096463"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-499"></a><span>
</span><a name="line-500"></a><span class="hs-keyword">data</span><span> </span><a name="CreateUsersWithListInput"><a href="SwaggerPetstore.API.html#CreateUsersWithListInput"><span class="hs-identifier">CreateUsersWithListInput</span></a></a><span> </span><span>
</span><a name="line-501"></a><span>
@ -519,9 +519,9 @@ Module : SwaggerPetstore.API
</span><a name="line-519"></a><span class="hs-comment">-- </span><span>
</span><a name="line-520"></a><span class="hs-identifier">deleteUser</span><span> </span><span>
</span><a name="line-521"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ &quot;username&quot; - The name that needs to be deleted</span><span>
</span><a name="line-522"></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="SwaggerPetstore.API.html#DeleteUser"><span class="hs-identifier hs-type">DeleteUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="#local-6989586621679096083"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-523"></a><a name="deleteUser"><a href="SwaggerPetstore.API.html#deleteUser"><span class="hs-identifier">deleteUser</span></a></a><span> </span><a name="local-6989586621679096594"><a href="#local-6989586621679096594"><span class="hs-identifier">username</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-524"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;DELETE&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/user/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096594"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
</span><a name="line-522"></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="SwaggerPetstore.API.html#DeleteUser"><span class="hs-identifier hs-type">DeleteUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="#local-6989586621679095953"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-523"></a><a name="deleteUser"><a href="SwaggerPetstore.API.html#deleteUser"><span class="hs-identifier">deleteUser</span></a></a><span> </span><a name="local-6989586621679096464"><a href="#local-6989586621679096464"><span class="hs-identifier">username</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-524"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;DELETE&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/user/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096464"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
</span><a name="line-525"></a><span> </span><span>
</span><a name="line-526"></a><span>
</span><a name="line-527"></a><span class="hs-keyword">data</span><span> </span><a name="DeleteUser"><a href="SwaggerPetstore.API.html#DeleteUser"><span class="hs-identifier">DeleteUser</span></a></a><span> </span><span>
@ -542,8 +542,8 @@ Module : SwaggerPetstore.API
</span><a name="line-542"></a><span class="hs-identifier">getUserByName</span><span> </span><span>
</span><a name="line-543"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ &quot;username&quot; - The name that needs to be fetched. Use user1 for testing. </span><span>
</span><a name="line-544"></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="SwaggerPetstore.API.html#GetUserByName"><span class="hs-identifier hs-type">GetUserByName</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span>
</span><a name="line-545"></a><a name="getUserByName"><a href="SwaggerPetstore.API.html#getUserByName"><span class="hs-identifier">getUserByName</span></a></a><span> </span><a name="local-6989586621679096595"><a href="#local-6989586621679096595"><span class="hs-identifier">username</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-546"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;GET&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/user/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096595"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
</span><a name="line-545"></a><a name="getUserByName"><a href="SwaggerPetstore.API.html#getUserByName"><span class="hs-identifier">getUserByName</span></a></a><span> </span><a name="local-6989586621679096465"><a href="#local-6989586621679096465"><span class="hs-identifier">username</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-546"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;GET&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/user/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096465"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
</span><a name="line-547"></a><span> </span><span>
</span><a name="line-548"></a><span>
</span><a name="line-549"></a><span class="hs-keyword">data</span><span> </span><a name="GetUserByName"><a href="SwaggerPetstore.API.html#GetUserByName"><span class="hs-identifier">GetUserByName</span></a></a><span> </span><span>
@ -565,10 +565,10 @@ Module : SwaggerPetstore.API
</span><a name="line-565"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ &quot;username&quot; - The user name for login</span><span>
</span><a name="line-566"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ &quot;password&quot; - The password for login in clear text</span><span>
</span><a name="line-567"></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="SwaggerPetstore.API.html#LoginUser"><span class="hs-identifier hs-type">LoginUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><span class="hs-identifier hs-type">Text</span><span>
</span><a name="line-568"></a><a name="loginUser"><a href="SwaggerPetstore.API.html#loginUser"><span class="hs-identifier">loginUser</span></a></a><span> </span><a name="local-6989586621679096596"><a href="#local-6989586621679096596"><span class="hs-identifier">username</span></a></a><span> </span><a name="local-6989586621679096597"><a href="#local-6989586621679096597"><span class="hs-identifier">password</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-568"></a><a name="loginUser"><a href="SwaggerPetstore.API.html#loginUser"><span class="hs-identifier">loginUser</span></a></a><span> </span><a name="local-6989586621679096466"><a href="#local-6989586621679096466"><span class="hs-identifier">username</span></a></a><span> </span><a name="local-6989586621679096467"><a href="#local-6989586621679096467"><span class="hs-identifier">password</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-569"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;GET&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/user/login&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-570"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_setQuery"><span class="hs-identifier hs-var">_setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.API.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;username&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679096596"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">)</span><span>
</span><a name="line-571"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_setQuery"><span class="hs-identifier hs-var">_setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.API.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;password&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679096597"><span class="hs-identifier hs-var">password</span></a><span class="hs-special">)</span><span>
</span><a name="line-570"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_setQuery"><span class="hs-identifier hs-var">_setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.API.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;username&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679096466"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">)</span><span>
</span><a name="line-571"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_setQuery"><span class="hs-identifier hs-var">_setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.API.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;password&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679096467"><span class="hs-identifier hs-var">password</span></a><span class="hs-special">)</span><span>
</span><a name="line-572"></a><span>
</span><a name="line-573"></a><span class="hs-keyword">data</span><span> </span><a name="LoginUser"><a href="SwaggerPetstore.API.html#LoginUser"><span class="hs-identifier">LoginUser</span></a></a><span> </span><span>
</span><a name="line-574"></a><span class="hs-comment">-- | @application/xml@</span><span>
@ -588,7 +588,7 @@ Module : SwaggerPetstore.API
</span><a name="line-588"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-589"></a><span class="hs-comment">-- </span><span>
</span><a name="line-590"></a><span class="hs-identifier">logoutUser</span><span> </span><span>
</span><a name="line-591"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.html#LogoutUser"><span class="hs-identifier hs-type">LogoutUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="#local-6989586621679096082"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-591"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.html#LogoutUser"><span class="hs-identifier hs-type">LogoutUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="#local-6989586621679095952"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-592"></a><a name="logoutUser"><a href="SwaggerPetstore.API.html#logoutUser"><span class="hs-identifier">logoutUser</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-593"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;GET&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/user/logout&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-594"></a><span>
@ -610,15 +610,15 @@ Module : SwaggerPetstore.API
</span><a name="line-610"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-611"></a><span class="hs-comment">-- </span><span>
</span><a name="line-612"></a><span class="hs-identifier">updateUser</span><span> </span><span>
</span><a name="line-613"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="#local-6989586621679096080"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679096080"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span class="hs-special">)</span><span>
</span><a name="line-614"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679096080"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-613"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="#local-6989586621679095950"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679095950"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span class="hs-special">)</span><span>
</span><a name="line-614"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679095950"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
</span><a name="line-615"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ &quot;username&quot; - name that need to be deleted</span><span>
</span><a name="line-616"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-comment">-- ^ &quot;body&quot; - Updated user object</span><span>
</span><a name="line-617"></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="SwaggerPetstore.API.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="#local-6989586621679096080"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096081"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-618"></a><a name="updateUser"><a href="SwaggerPetstore.API.html#updateUser"><span class="hs-identifier">updateUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096598"><a href="#local-6989586621679096598"><span class="hs-identifier">username</span></a></a><span> </span><a name="local-6989586621679096599"><a href="#local-6989586621679096599"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-619"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;PUT&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/user/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096598"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
</span><a name="line-617"></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="SwaggerPetstore.API.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="#local-6989586621679095950"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095951"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-618"></a><a name="updateUser"><a href="SwaggerPetstore.API.html#updateUser"><span class="hs-identifier">updateUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679096468"><a href="#local-6989586621679096468"><span class="hs-identifier">username</span></a></a><span> </span><a name="local-6989586621679096469"><a href="#local-6989586621679096469"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-619"></a><span> </span><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;PUT&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/user/&quot;</span><span class="hs-special">,</span><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679096468"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
</span><a name="line-620"></a><span> </span><span>
</span><a name="line-621"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679096599"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-621"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679096469"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-622"></a><span>
</span><a name="line-623"></a><span class="hs-keyword">data</span><span> </span><a name="UpdateUser"><a href="SwaggerPetstore.API.html#UpdateUser"><span class="hs-identifier">UpdateUser</span></a></a><span> </span><span>
</span><a name="line-624"></a><span>
@ -634,25 +634,25 @@ Module : SwaggerPetstore.API
</span><a name="line-634"></a><span class="hs-comment">-- * HasBodyParam</span><span>
</span><a name="line-635"></a><span>
</span><a name="line-636"></a><span class="hs-comment">-- | Designates the body parameter of a request</span><span>
</span><a name="line-637"></a><span class="hs-keyword">class</span><span> </span><a name="HasBodyParam"><a href="SwaggerPetstore.API.html#HasBodyParam"><span class="hs-identifier">HasBodyParam</span></a></a><span> </span><a name="local-6989586621679096024"><a href="#local-6989586621679096024"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096025"><a href="#local-6989586621679096025"><span class="hs-identifier">param</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-638"></a><span> </span><span class="hs-identifier">setBodyParam</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679096026"><a href="#local-6989586621679096026"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679096027"><a href="#local-6989586621679096027"><span class="hs-identifier">res</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="#local-6989586621679096024"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096026"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679096026"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096025"><span class="hs-identifier hs-type">param</span></a><span class="hs-special">)</span><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-6989586621679096024"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096026"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096027"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096025"><span class="hs-identifier hs-type">param</span></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-6989586621679096024"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096026"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096027"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-639"></a><span> </span><a name="local-8214565720323870213"><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier">setBodyParam</span></a></a><span> </span><a name="local-6989586621679096028"><a href="#local-6989586621679096028"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096029"><a href="#local-6989586621679096029"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-640"></a><span> </span><a href="#local-6989586621679096028"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_setBodyLBS"><span class="hs-identifier hs-var">_setBodyLBS</span></a><span class="hs-special">`</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-6989586621679096026"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679096029"><span class="hs-identifier hs-var">xs</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-637"></a><span class="hs-keyword">class</span><span> </span><a name="HasBodyParam"><a href="SwaggerPetstore.API.html#HasBodyParam"><span class="hs-identifier">HasBodyParam</span></a></a><span> </span><a name="local-6989586621679095894"><a href="#local-6989586621679095894"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679095895"><a href="#local-6989586621679095895"><span class="hs-identifier">param</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-638"></a><span> </span><span class="hs-identifier">setBodyParam</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679095896"><a href="#local-6989586621679095896"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679095897"><a href="#local-6989586621679095897"><span class="hs-identifier">res</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="#local-6989586621679095894"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095896"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679095896"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095895"><span class="hs-identifier hs-type">param</span></a><span class="hs-special">)</span><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-6989586621679095894"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095896"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095897"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679095895"><span class="hs-identifier hs-type">param</span></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-6989586621679095894"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095896"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095897"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-639"></a><span> </span><a name="local-8214565720323870083"><a href="SwaggerPetstore.API.html#setBodyParam"><span class="hs-identifier">setBodyParam</span></a></a><span> </span><a name="local-6989586621679095898"><a href="#local-6989586621679095898"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679095899"><a href="#local-6989586621679095899"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-640"></a><span> </span><a href="#local-6989586621679095898"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#_setBodyLBS"><span class="hs-identifier hs-var">_setBodyLBS</span></a><span class="hs-special">`</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-6989586621679095896"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679095899"><span class="hs-identifier hs-var">xs</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-641"></a><span>
</span><a name="line-642"></a><span class="hs-comment">-- * HasOptionalParam</span><span>
</span><a name="line-643"></a><span>
</span><a name="line-644"></a><span class="hs-comment">-- | Designates the optional parameters of a request</span><span>
</span><a name="line-645"></a><span class="hs-keyword">class</span><span> </span><a name="HasOptionalParam"><a href="SwaggerPetstore.API.html#HasOptionalParam"><span class="hs-identifier">HasOptionalParam</span></a></a><span> </span><a name="local-6989586621679096018"><a href="#local-6989586621679096018"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096019"><a href="#local-6989586621679096019"><span class="hs-identifier">param</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-645"></a><span class="hs-keyword">class</span><span> </span><a name="HasOptionalParam"><a href="SwaggerPetstore.API.html#HasOptionalParam"><span class="hs-identifier">HasOptionalParam</span></a></a><span> </span><a name="local-6989586621679095888"><a href="#local-6989586621679095888"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679095889"><a href="#local-6989586621679095889"><span class="hs-identifier">param</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-646"></a><span> </span><span class="hs-pragma">{-# MINIMAL applyOptionalParam | (-&amp;-) #-}</span><span>
</span><a name="line-647"></a><span>
</span><a name="line-648"></a><span> </span><span class="hs-comment">-- | Apply an optional parameter to a request</span><span>
</span><a name="line-649"></a><span> </span><span class="hs-identifier">applyOptionalParam</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679096018"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096020"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096021"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096019"><span class="hs-identifier hs-type">param</span></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-6989586621679096018"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096020"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096021"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-650"></a><span> </span><a name="local-8214565720323870210"><a href="SwaggerPetstore.API.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#-%26-"><span class="hs-operator hs-var">-&amp;-</span></a><span class="hs-special">)</span><span>
</span><a name="line-649"></a><span> </span><span class="hs-identifier">applyOptionalParam</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679095888"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095890"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095891"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679095889"><span class="hs-identifier hs-type">param</span></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-6989586621679095888"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095890"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095891"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-650"></a><span> </span><a name="local-8214565720323870080"><a href="SwaggerPetstore.API.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#-%26-"><span class="hs-operator hs-var">-&amp;-</span></a><span class="hs-special">)</span><span>
</span><a name="line-651"></a><span> </span><span class="hs-pragma">{-# INLINE applyOptionalParam #-}</span><span>
</span><a name="line-652"></a><span>
</span><a name="line-653"></a><span> </span><span class="hs-comment">-- | infix operator \/ alias for 'addOptionalParam'</span><span>
</span><a name="line-654"></a><span> </span><span class="hs-special">(</span><span class="hs-operator">-&amp;-</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679096018"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096022"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096023"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096019"><span class="hs-identifier hs-type">param</span></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-6989586621679096018"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096022"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096023"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-655"></a><span> </span><span class="hs-special">(</span><a name="local-8214565720323870211"><a href="SwaggerPetstore.API.html#-%26-"><span class="hs-operator">-&amp;-</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#applyOptionalParam"><span class="hs-identifier hs-var">applyOptionalParam</span></a><span>
</span><a name="line-654"></a><span> </span><span class="hs-special">(</span><span class="hs-operator">-&amp;-</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679095888"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095892"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095893"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679095889"><span class="hs-identifier hs-type">param</span></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-6989586621679095888"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095892"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095893"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-655"></a><span> </span><span class="hs-special">(</span><a name="local-8214565720323870081"><a href="SwaggerPetstore.API.html#-%26-"><span class="hs-operator">-&amp;-</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#applyOptionalParam"><span class="hs-identifier hs-var">applyOptionalParam</span></a><span>
</span><a name="line-656"></a><span> </span><span class="hs-pragma">{-# INLINE (-&amp;-) #-}</span><span>
</span><a name="line-657"></a><span>
</span><a name="line-658"></a><span class="hs-keyword">infixl</span><span> </span><span class="hs-number">2</span><span> </span><span class="hs-operator">-&amp;-</span><span>
@ -674,7 +674,7 @@ Module : SwaggerPetstore.API
</span><a name="line-674"></a><span class="hs-comment">-- * SwaggerPetstoreRequest</span><span>
</span><a name="line-675"></a><span>
</span><a name="line-676"></a><span class="hs-comment">-- | Represents a request. The &quot;req&quot; type variable is the request type. The &quot;res&quot; type variable is the response type.</span><span>
</span><a name="line-677"></a><span class="hs-keyword">data</span><span> </span><a name="SwaggerPetstoreRequest"><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier">SwaggerPetstoreRequest</span></a></a><span> </span><a name="local-6989586621679095659"><a href="#local-6989586621679095659"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679095660"><a href="#local-6989586621679095660"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679095661"><a href="#local-6989586621679095661"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="SwaggerPetstoreRequest"><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier">SwaggerPetstoreRequest</span></a></a><span>
</span><a name="line-677"></a><span class="hs-keyword">data</span><span> </span><a name="SwaggerPetstoreRequest"><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier">SwaggerPetstoreRequest</span></a></a><span> </span><a name="local-6989586621679095529"><a href="#local-6989586621679095529"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679095530"><a href="#local-6989586621679095530"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679095531"><a href="#local-6989586621679095531"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="SwaggerPetstoreRequest"><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier">SwaggerPetstoreRequest</span></a></a><span>
</span><a name="line-678"></a><span> </span><span class="hs-special">{</span><span> </span><a name="rMethod"><a href="SwaggerPetstore.API.html#rMethod"><span class="hs-identifier">rMethod</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">Method</span><span> </span><span class="hs-comment">-- ^ Method of SwaggerPetstoreRequest</span><span>
</span><a name="line-679"></a><span> </span><span class="hs-special">,</span><span> </span><a name="urlPath"><a href="SwaggerPetstore.API.html#urlPath"><span class="hs-identifier">urlPath</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</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">-- ^ Endpoint of SwaggerPetstoreRequest</span><span>
</span><a name="line-680"></a><span> </span><span class="hs-special">,</span><span> </span><a name="params"><a href="SwaggerPetstore.API.html#params"><span class="hs-identifier">params</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#Params"><span class="hs-identifier hs-type">Params</span></a><span> </span><span class="hs-comment">-- ^ params of SwaggerPetstoreRequest</span><span>
@ -702,85 +702,85 @@ Module : SwaggerPetstore.API
</span><a name="line-702"></a><span>
</span><a name="line-703"></a><span class="hs-identifier">_mkRequest</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Method</span><span> </span><span class="hs-comment">-- ^ Method </span><span>
</span><a name="line-704"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</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">-- ^ Endpoint</span><span>
</span><a name="line-705"></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-6989586621679096077"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096078"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096079"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ req: Request Type, res: Response Type</span><span>
</span><a name="line-706"></a><a name="_mkRequest"><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier">_mkRequest</span></a></a><span> </span><a name="local-6989586621679096600"><a href="#local-6989586621679096600"><span class="hs-identifier">m</span></a></a><span> </span><a name="local-6989586621679096601"><a href="#local-6989586621679096601"><span class="hs-identifier">u</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679096600"><span class="hs-identifier hs-var">m</span></a><span> </span><a href="#local-6989586621679096601"><span class="hs-identifier hs-var">u</span></a><span> </span><a href="SwaggerPetstore.API.html#_mkParams"><span class="hs-identifier hs-var">_mkParams</span></a><span>
</span><a name="line-705"></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-6989586621679095947"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095948"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095949"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ req: Request Type, res: Response Type</span><span>
</span><a name="line-706"></a><a name="_mkRequest"><a href="SwaggerPetstore.API.html#_mkRequest"><span class="hs-identifier">_mkRequest</span></a></a><span> </span><a name="local-6989586621679096470"><a href="#local-6989586621679096470"><span class="hs-identifier">m</span></a></a><span> </span><a name="local-6989586621679096471"><a href="#local-6989586621679096471"><span class="hs-identifier">u</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679096470"><span class="hs-identifier hs-var">m</span></a><span> </span><a href="#local-6989586621679096471"><span class="hs-identifier hs-var">u</span></a><span> </span><a href="SwaggerPetstore.API.html#_mkParams"><span class="hs-identifier hs-var">_mkParams</span></a><span>
</span><a name="line-707"></a><span>
</span><a name="line-708"></a><span class="hs-identifier">_mkParams</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#Params"><span class="hs-identifier hs-type">Params</span></a><span>
</span><a name="line-709"></a><a name="_mkParams"><a href="SwaggerPetstore.API.html#_mkParams"><span class="hs-identifier">_mkParams</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#Params"><span class="hs-identifier hs-var">Params</span></a><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><a href="SwaggerPetstore.API.html#ParamBodyNone"><span class="hs-identifier hs-var">ParamBodyNone</span></a><span>
</span><a name="line-710"></a><span>
</span><a name="line-711"></a><span class="hs-identifier">setHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679096074"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096075"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096076"><span class="hs-identifier hs-type">res</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">Header</span><span class="hs-special">]</span><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-6989586621679096074"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096075"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096076"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-712"></a><a name="setHeader"><a href="SwaggerPetstore.API.html#setHeader"><span class="hs-identifier">setHeader</span></a></a><span> </span><a name="local-6989586621679096602"><a href="#local-6989586621679096602"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096603"><a href="#local-6989586621679096603"><span class="hs-identifier">header</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-713"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679096604"><a href="#local-6989586621679096604"><span class="hs-identifier">_params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096602"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#removeHeader"><span class="hs-identifier hs-var">removeHeader</span></a><span class="hs-special">`</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><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fst</span><span> </span><a href="#local-6989586621679096603"><span class="hs-identifier hs-var">header</span></a><span class="hs-special">)</span><span>
</span><a name="line-714"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679096602"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096604"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">paramsHeaders</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096603"><span class="hs-identifier hs-var">header</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">paramsHeaders</span><span> </span><a href="#local-6989586621679096604"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-special">}</span><span>
</span><a name="line-711"></a><span class="hs-identifier">setHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679095944"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095945"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095946"><span class="hs-identifier hs-type">res</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">Header</span><span class="hs-special">]</span><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-6989586621679095944"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095945"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095946"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-712"></a><a name="setHeader"><a href="SwaggerPetstore.API.html#setHeader"><span class="hs-identifier">setHeader</span></a></a><span> </span><a name="local-6989586621679096472"><a href="#local-6989586621679096472"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096473"><a href="#local-6989586621679096473"><span class="hs-identifier">header</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-713"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679096474"><a href="#local-6989586621679096474"><span class="hs-identifier">_params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096472"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#removeHeader"><span class="hs-identifier hs-var">removeHeader</span></a><span class="hs-special">`</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><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fst</span><span> </span><a href="#local-6989586621679096473"><span class="hs-identifier hs-var">header</span></a><span class="hs-special">)</span><span>
</span><a name="line-714"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679096472"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096474"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">paramsHeaders</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096473"><span class="hs-identifier hs-var">header</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">paramsHeaders</span><span> </span><a href="#local-6989586621679096474"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-special">}</span><span>
</span><a name="line-715"></a><span>
</span><a name="line-716"></a><span class="hs-identifier">removeHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679096071"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096072"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096073"><span class="hs-identifier hs-type">res</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">HeaderName</span><span class="hs-special">]</span><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-6989586621679096071"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096072"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096073"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-717"></a><a name="removeHeader"><a href="SwaggerPetstore.API.html#removeHeader"><span class="hs-identifier">removeHeader</span></a></a><span> </span><a name="local-6989586621679096616"><a href="#local-6989586621679096616"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096617"><a href="#local-6989586621679096617"><span class="hs-identifier">header</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-718"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679096825"><a href="#local-6989586621679096825"><span class="hs-identifier">_params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679096616"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-719"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679096616"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096825"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">paramsHeaders</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679096826"><span class="hs-identifier hs-var">h</span></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="local-6989586621679096826"><a href="#local-6989586621679096826"><span class="hs-identifier">h</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-identifier">paramsHeaders</span><span> </span><a href="#local-6989586621679096825"><span class="hs-identifier hs-var">_params</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096618"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679096826"><span class="hs-identifier hs-var">h</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">notElem</span><span class="hs-special">`</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><span class="hs-identifier hs-var">CI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mk</span><span> </span><a href="#local-6989586621679096617"><span class="hs-identifier hs-var">header</span></a><span class="hs-special">]</span><span> </span><span class="hs-special">}</span><span> </span><span class="hs-special">}</span><span>
</span><a name="line-720"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679096618"><a href="#local-6989586621679096618"><span class="hs-identifier">cifst</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">CI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mk</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">fst</span><span>
</span><a name="line-716"></a><span class="hs-identifier">removeHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679095941"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095942"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095943"><span class="hs-identifier hs-type">res</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">HeaderName</span><span class="hs-special">]</span><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-6989586621679095941"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095942"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095943"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-717"></a><a name="removeHeader"><a href="SwaggerPetstore.API.html#removeHeader"><span class="hs-identifier">removeHeader</span></a></a><span> </span><a name="local-6989586621679096486"><a href="#local-6989586621679096486"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096487"><a href="#local-6989586621679096487"><span class="hs-identifier">header</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-718"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679096695"><a href="#local-6989586621679096695"><span class="hs-identifier">_params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679096486"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-719"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679096486"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096695"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">paramsHeaders</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679096696"><span class="hs-identifier hs-var">h</span></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="local-6989586621679096696"><a href="#local-6989586621679096696"><span class="hs-identifier">h</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-identifier">paramsHeaders</span><span> </span><a href="#local-6989586621679096695"><span class="hs-identifier hs-var">_params</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096488"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679096696"><span class="hs-identifier hs-var">h</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">notElem</span><span class="hs-special">`</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><span class="hs-identifier hs-var">CI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mk</span><span> </span><a href="#local-6989586621679096487"><span class="hs-identifier hs-var">header</span></a><span class="hs-special">]</span><span> </span><span class="hs-special">}</span><span> </span><span class="hs-special">}</span><span>
</span><a name="line-720"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679096488"><a href="#local-6989586621679096488"><span class="hs-identifier">cifst</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">CI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mk</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">fst</span><span>
</span><a name="line-721"></a><span>
</span><a name="line-722"></a><span>
</span><a name="line-723"></a><span class="hs-identifier">_setContentTypeHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679096068"><a href="#local-6989586621679096068"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096069"><a href="#local-6989586621679096069"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679096070"><a href="#local-6989586621679096070"><span class="hs-identifier">res</span></a></a><span class="hs-operator">.</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679096069"><span class="hs-identifier hs-type">contentType</span></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-6989586621679096068"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096069"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096070"><span class="hs-identifier hs-type">res</span></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-6989586621679096068"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096069"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096070"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-724"></a><a name="_setContentTypeHeader"><a href="SwaggerPetstore.API.html#_setContentTypeHeader"><span class="hs-identifier">_setContentTypeHeader</span></a></a><span> </span><a name="local-6989586621679096827"><a href="#local-6989586621679096827"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-725"></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><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-6989586621679096069"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span> </span><span>
</span><a name="line-726"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679096828"><a href="#local-6989586621679096828"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096827"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setHeader"><span class="hs-identifier hs-var">setHeader</span></a><span class="hs-special">`</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="hs-string">&quot;content-type&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">BC</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">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><a href="#local-6989586621679096828"><span class="hs-identifier hs-var">m</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-727"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096827"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#removeHeader"><span class="hs-identifier hs-var">removeHeader</span></a><span class="hs-special">`</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;content-type&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-723"></a><span class="hs-identifier">_setContentTypeHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679095938"><a href="#local-6989586621679095938"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679095939"><a href="#local-6989586621679095939"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679095940"><a href="#local-6989586621679095940"><span class="hs-identifier">res</span></a></a><span class="hs-operator">.</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679095939"><span class="hs-identifier hs-type">contentType</span></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-6989586621679095938"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095939"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095940"><span class="hs-identifier hs-type">res</span></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-6989586621679095938"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095939"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095940"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-724"></a><a name="_setContentTypeHeader"><a href="SwaggerPetstore.API.html#_setContentTypeHeader"><span class="hs-identifier">_setContentTypeHeader</span></a></a><span> </span><a name="local-6989586621679096697"><a href="#local-6989586621679096697"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-725"></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><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-6989586621679095939"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span> </span><span>
</span><a name="line-726"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679096698"><a href="#local-6989586621679096698"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096697"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setHeader"><span class="hs-identifier hs-var">setHeader</span></a><span class="hs-special">`</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="hs-string">&quot;content-type&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">BC</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">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><a href="#local-6989586621679096698"><span class="hs-identifier hs-var">m</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-727"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096697"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#removeHeader"><span class="hs-identifier hs-var">removeHeader</span></a><span class="hs-special">`</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;content-type&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-728"></a><span>
</span><a name="line-729"></a><span class="hs-identifier">_setAcceptHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679096064"><a href="#local-6989586621679096064"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096065"><a href="#local-6989586621679096065"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679096066"><a href="#local-6989586621679096066"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679096067"><a href="#local-6989586621679096067"><span class="hs-identifier">accept</span></a></a><span class="hs-operator">.</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679096067"><span class="hs-identifier hs-type">accept</span></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-6989586621679096064"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096065"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096066"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096067"><span class="hs-identifier hs-type">accept</span></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-6989586621679096064"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096065"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096066"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-730"></a><a name="_setAcceptHeader"><a href="SwaggerPetstore.API.html#_setAcceptHeader"><span class="hs-identifier">_setAcceptHeader</span></a></a><span> </span><a name="local-6989586621679096829"><a href="#local-6989586621679096829"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096830"><a href="#local-6989586621679096830"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-731"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType%27"><span class="hs-identifier hs-var">mimeType'</span></a><span> </span><a href="#local-6989586621679096830"><span class="hs-identifier hs-var">accept</span></a><span> </span><span class="hs-keyword">of</span><span> </span><span>
</span><a name="line-732"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679096831"><a href="#local-6989586621679096831"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096829"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setHeader"><span class="hs-identifier hs-var">setHeader</span></a><span class="hs-special">`</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="hs-string">&quot;accept&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">BC</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">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><a href="#local-6989586621679096831"><span class="hs-identifier hs-var">m</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-733"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096829"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#removeHeader"><span class="hs-identifier hs-var">removeHeader</span></a><span class="hs-special">`</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;accept&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-729"></a><span class="hs-identifier">_setAcceptHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679095934"><a href="#local-6989586621679095934"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679095935"><a href="#local-6989586621679095935"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679095936"><a href="#local-6989586621679095936"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679095937"><a href="#local-6989586621679095937"><span class="hs-identifier">accept</span></a></a><span class="hs-operator">.</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679095937"><span class="hs-identifier hs-type">accept</span></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-6989586621679095934"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095935"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095936"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679095937"><span class="hs-identifier hs-type">accept</span></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-6989586621679095934"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095935"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095936"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-730"></a><a name="_setAcceptHeader"><a href="SwaggerPetstore.API.html#_setAcceptHeader"><span class="hs-identifier">_setAcceptHeader</span></a></a><span> </span><a name="local-6989586621679096699"><a href="#local-6989586621679096699"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096700"><a href="#local-6989586621679096700"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-731"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType%27"><span class="hs-identifier hs-var">mimeType'</span></a><span> </span><a href="#local-6989586621679096700"><span class="hs-identifier hs-var">accept</span></a><span> </span><span class="hs-keyword">of</span><span> </span><span>
</span><a name="line-732"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679096701"><a href="#local-6989586621679096701"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096699"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#setHeader"><span class="hs-identifier hs-var">setHeader</span></a><span class="hs-special">`</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="hs-string">&quot;accept&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">BC</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">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><a href="#local-6989586621679096701"><span class="hs-identifier hs-var">m</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-733"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096699"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.API.html#removeHeader"><span class="hs-identifier hs-var">removeHeader</span></a><span class="hs-special">`</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;accept&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-734"></a><span>
</span><a name="line-735"></a><span class="hs-identifier">_setQuery</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679096061"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096062"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096063"><span class="hs-identifier hs-type">res</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">QueryItem</span><span class="hs-special">]</span><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-6989586621679096061"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096062"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096063"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-736"></a><a name="_setQuery"><a href="SwaggerPetstore.API.html#_setQuery"><span class="hs-identifier">_setQuery</span></a></a><span> </span><a name="local-6989586621679096832"><a href="#local-6989586621679096832"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096833"><a href="#local-6989586621679096833"><span class="hs-identifier">query</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-737"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679096835"><a href="#local-6989586621679096835"><span class="hs-identifier">_params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679096832"><span class="hs-identifier hs-var">req</span></a><span> </span><span>
</span><a name="line-738"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679096832"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096835"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">paramsQuery</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096833"><span class="hs-identifier hs-var">query</span></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.++</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679096836"><span class="hs-identifier hs-var">q</span></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="local-6989586621679096836"><a href="#local-6989586621679096836"><span class="hs-identifier">q</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-identifier">paramsQuery</span><span> </span><a href="#local-6989586621679096835"><span class="hs-identifier hs-var">_params</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096834"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679096836"><span class="hs-identifier hs-var">q</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">notElem</span><span class="hs-special">`</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="#local-6989586621679096834"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679096833"><span class="hs-identifier hs-var">query</span></a><span class="hs-special">]</span><span> </span><span class="hs-special">}</span><span> </span><span class="hs-special">}</span><span>
</span><a name="line-739"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679096834"><a href="#local-6989586621679096834"><span class="hs-identifier">cifst</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">CI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mk</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">fst</span><span>
</span><a name="line-735"></a><span class="hs-identifier">_setQuery</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679095931"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095932"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095933"><span class="hs-identifier hs-type">res</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">QueryItem</span><span class="hs-special">]</span><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-6989586621679095931"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095932"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095933"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-736"></a><a name="_setQuery"><a href="SwaggerPetstore.API.html#_setQuery"><span class="hs-identifier">_setQuery</span></a></a><span> </span><a name="local-6989586621679096702"><a href="#local-6989586621679096702"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096703"><a href="#local-6989586621679096703"><span class="hs-identifier">query</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-737"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679096705"><a href="#local-6989586621679096705"><span class="hs-identifier">_params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679096702"><span class="hs-identifier hs-var">req</span></a><span> </span><span>
</span><a name="line-738"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679096702"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096705"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">paramsQuery</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096703"><span class="hs-identifier hs-var">query</span></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.++</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679096706"><span class="hs-identifier hs-var">q</span></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="local-6989586621679096706"><a href="#local-6989586621679096706"><span class="hs-identifier">q</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-identifier">paramsQuery</span><span> </span><a href="#local-6989586621679096705"><span class="hs-identifier hs-var">_params</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096704"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679096706"><span class="hs-identifier hs-var">q</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">notElem</span><span class="hs-special">`</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="#local-6989586621679096704"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679096703"><span class="hs-identifier hs-var">query</span></a><span class="hs-special">]</span><span> </span><span class="hs-special">}</span><span> </span><span class="hs-special">}</span><span>
</span><a name="line-739"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679096704"><a href="#local-6989586621679096704"><span class="hs-identifier">cifst</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">CI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mk</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">fst</span><span>
</span><a name="line-740"></a><span>
</span><a name="line-741"></a><span class="hs-identifier">_addForm</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679096058"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096059"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096060"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Form</span><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-6989586621679096058"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096059"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096060"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-742"></a><a name="_addForm"><a href="SwaggerPetstore.API.html#_addForm"><span class="hs-identifier">_addForm</span></a></a><span> </span><a name="local-6989586621679096837"><a href="#local-6989586621679096837"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096838"><a href="#local-6989586621679096838"><span class="hs-identifier">newform</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-743"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679096839"><a href="#local-6989586621679096839"><span class="hs-identifier">_params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679096837"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-744"></a><span> </span><a name="local-6989586621679096840"><a href="#local-6989586621679096840"><span class="hs-identifier">form</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><a href="#local-6989586621679096839"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-745"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><a name="local-6989586621679096841"><a href="#local-6989586621679096841"><span class="hs-identifier">_form</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096841"><span class="hs-identifier hs-var">_form</span></a><span>
</span><a name="line-741"></a><span class="hs-identifier">_addForm</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679095928"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095929"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095930"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Form</span><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-6989586621679095928"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095929"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095930"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-742"></a><a name="_addForm"><a href="SwaggerPetstore.API.html#_addForm"><span class="hs-identifier">_addForm</span></a></a><span> </span><a name="local-6989586621679096707"><a href="#local-6989586621679096707"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096708"><a href="#local-6989586621679096708"><span class="hs-identifier">newform</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-743"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679096709"><a href="#local-6989586621679096709"><span class="hs-identifier">_params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679096707"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-744"></a><span> </span><a name="local-6989586621679096710"><a href="#local-6989586621679096710"><span class="hs-identifier">form</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><a href="#local-6989586621679096709"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-745"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><a name="local-6989586621679096711"><a href="#local-6989586621679096711"><span class="hs-identifier">_form</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096711"><span class="hs-identifier hs-var">_form</span></a><span>
</span><a name="line-746"></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-var">mempty</span><span>
</span><a name="line-747"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679096837"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096839"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096838"><span class="hs-identifier hs-var">newform</span></a><span> </span><span class="hs-operator hs-var">&lt;&gt;</span><span> </span><a href="#local-6989586621679096840"><span class="hs-identifier hs-var">form</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">}</span><span> </span><span class="hs-special">}</span><span>
</span><a name="line-747"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679096707"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096709"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096708"><span class="hs-identifier hs-var">newform</span></a><span> </span><span class="hs-operator hs-var">&lt;&gt;</span><span> </span><a href="#local-6989586621679096710"><span class="hs-identifier hs-var">form</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">}</span><span> </span><span class="hs-special">}</span><span>
</span><a name="line-748"></a><span>
</span><a name="line-749"></a><span class="hs-identifier">_addMultiFormPart</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679096055"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096056"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096057"><span class="hs-identifier hs-type">res</span></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">Part</span><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-6989586621679096055"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096056"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096057"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-750"></a><a name="_addMultiFormPart"><a href="SwaggerPetstore.API.html#_addMultiFormPart"><span class="hs-identifier">_addMultiFormPart</span></a></a><span> </span><a name="local-6989586621679096842"><a href="#local-6989586621679096842"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096843"><a href="#local-6989586621679096843"><span class="hs-identifier">newpart</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-751"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679096844"><a href="#local-6989586621679096844"><span class="hs-identifier">_params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679096842"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-752"></a><span> </span><a name="local-6989586621679096845"><a href="#local-6989586621679096845"><span class="hs-identifier">parts</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><a href="#local-6989586621679096844"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-753"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><a name="local-6989586621679096846"><a href="#local-6989586621679096846"><span class="hs-identifier">_parts</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096846"><span class="hs-identifier hs-var">_parts</span></a><span>
</span><a name="line-749"></a><span class="hs-identifier">_addMultiFormPart</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679095925"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095926"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095927"><span class="hs-identifier hs-type">res</span></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">Part</span><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-6989586621679095925"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095926"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095927"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-750"></a><a name="_addMultiFormPart"><a href="SwaggerPetstore.API.html#_addMultiFormPart"><span class="hs-identifier">_addMultiFormPart</span></a></a><span> </span><a name="local-6989586621679096712"><a href="#local-6989586621679096712"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096713"><a href="#local-6989586621679096713"><span class="hs-identifier">newpart</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-751"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679096714"><a href="#local-6989586621679096714"><span class="hs-identifier">_params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679096712"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-752"></a><span> </span><a name="local-6989586621679096715"><a href="#local-6989586621679096715"><span class="hs-identifier">parts</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><a href="#local-6989586621679096714"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-753"></a><span> </span><a href="SwaggerPetstore.API.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><a name="local-6989586621679096716"><a href="#local-6989586621679096716"><span class="hs-identifier">_parts</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096716"><span class="hs-identifier hs-var">_parts</span></a><span>
</span><a name="line-754"></a><span> </span><span class="hs-identifier">_</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-755"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679096842"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096844"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096843"><span class="hs-identifier hs-var">newpart</span></a><span> </span><span class="hs-glyph">:</span><span> </span><a href="#local-6989586621679096845"><span class="hs-identifier hs-var">parts</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">}</span><span> </span><span class="hs-special">}</span><span>
</span><a name="line-755"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679096712"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096714"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096713"><span class="hs-identifier hs-var">newpart</span></a><span> </span><span class="hs-glyph">:</span><span> </span><a href="#local-6989586621679096715"><span class="hs-identifier hs-var">parts</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">}</span><span> </span><span class="hs-special">}</span><span>
</span><a name="line-756"></a><span>
</span><a name="line-757"></a><span class="hs-identifier">_setBodyBS</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679096052"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096053"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096054"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">B</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><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679096052"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096053"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096054"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-758"></a><a name="_setBodyBS"><a href="SwaggerPetstore.API.html#_setBodyBS"><span class="hs-identifier">_setBodyBS</span></a></a><span> </span><a name="local-6989586621679096847"><a href="#local-6989586621679096847"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096848"><a href="#local-6989586621679096848"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-759"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679096849"><a href="#local-6989586621679096849"><span class="hs-identifier">_params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679096847"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-760"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679096847"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096849"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#ParamBodyB"><span class="hs-identifier hs-var">ParamBodyB</span></a><span> </span><a href="#local-6989586621679096848"><span class="hs-identifier hs-var">body</span></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-special">}</span><span>
</span><a name="line-757"></a><span class="hs-identifier">_setBodyBS</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679095922"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095923"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095924"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">B</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><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679095922"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095923"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095924"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-758"></a><a name="_setBodyBS"><a href="SwaggerPetstore.API.html#_setBodyBS"><span class="hs-identifier">_setBodyBS</span></a></a><span> </span><a name="local-6989586621679096717"><a href="#local-6989586621679096717"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096718"><a href="#local-6989586621679096718"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-759"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679096719"><a href="#local-6989586621679096719"><span class="hs-identifier">_params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679096717"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-760"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679096717"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096719"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#ParamBodyB"><span class="hs-identifier hs-var">ParamBodyB</span></a><span> </span><a href="#local-6989586621679096718"><span class="hs-identifier hs-var">body</span></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-special">}</span><span>
</span><a name="line-761"></a><span>
</span><a name="line-762"></a><span class="hs-identifier">_setBodyLBS</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679096049"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096050"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096051"><span class="hs-identifier hs-type">res</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><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679096049"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679096050"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679096051"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-763"></a><a name="_setBodyLBS"><a href="SwaggerPetstore.API.html#_setBodyLBS"><span class="hs-identifier">_setBodyLBS</span></a></a><span> </span><a name="local-6989586621679096850"><a href="#local-6989586621679096850"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096851"><a href="#local-6989586621679096851"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-764"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679096852"><a href="#local-6989586621679096852"><span class="hs-identifier">_params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679096850"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-765"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679096850"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096852"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#ParamBodyBL"><span class="hs-identifier hs-var">ParamBodyBL</span></a><span> </span><a href="#local-6989586621679096851"><span class="hs-identifier hs-var">body</span></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-special">}</span><span>
</span><a name="line-762"></a><span class="hs-identifier">_setBodyLBS</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679095919"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095920"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095921"><span class="hs-identifier hs-type">res</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><a href="SwaggerPetstore.API.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679095919"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679095920"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679095921"><span class="hs-identifier hs-type">res</span></a><span>
</span><a name="line-763"></a><a name="_setBodyLBS"><a href="SwaggerPetstore.API.html#_setBodyLBS"><span class="hs-identifier">_setBodyLBS</span></a></a><span> </span><a name="local-6989586621679096720"><a href="#local-6989586621679096720"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679096721"><a href="#local-6989586621679096721"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-764"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679096722"><a href="#local-6989586621679096722"><span class="hs-identifier">_params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">params</span><span> </span><a href="#local-6989586621679096720"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-765"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679096720"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">params</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096722"><span class="hs-identifier hs-var">_params</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#ParamBodyBL"><span class="hs-identifier hs-var">ParamBodyBL</span></a><span> </span><a href="#local-6989586621679096721"><span class="hs-identifier hs-var">body</span></a><span> </span><span class="hs-special">}</span><span> </span><span class="hs-special">}</span><span>
</span><a name="line-766"></a><span>
</span><a name="line-767"></a><span>
</span><a name="line-768"></a><span class="hs-comment">-- ** Params Utils</span><span>
</span><a name="line-769"></a><span>
</span><a name="line-770"></a><span class="hs-identifier">toPath</span><span>
</span><a name="line-771"></a><span> </span><span class="hs-glyph">::</span><span> </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-6989586621679096048"><span class="hs-identifier hs-type">a</span></a><span>
</span><a name="line-772"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679096048"><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">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
</span><a name="line-771"></a><span> </span><span class="hs-glyph">::</span><span> </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-6989586621679095918"><span class="hs-identifier hs-type">a</span></a><span>
</span><a name="line-772"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679095918"><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">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
</span><a name="line-773"></a><a name="toPath"><a href="SwaggerPetstore.API.html#toPath"><span class="hs-identifier">toPath</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BB</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toLazyByteString</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">toEncodedUrlPiece</span><span>
</span><a name="line-774"></a><span>
</span><a name="line-775"></a><span class="hs-identifier">toHeader</span><span> </span><span class="hs-glyph">::</span><span> </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-6989586621679096047"><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">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">HeaderName</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096047"><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-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Header</span><span class="hs-special">]</span><span>
</span><a name="line-776"></a><a name="toHeader"><a href="SwaggerPetstore.API.html#toHeader"><span class="hs-identifier">toHeader</span></a></a><span> </span><a name="local-6989586621679096853"><a href="#local-6989586621679096853"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-var">fmap</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><a href="#local-6989586621679096853"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
</span><a name="line-775"></a><span class="hs-identifier">toHeader</span><span> </span><span class="hs-glyph">::</span><span> </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-6989586621679095917"><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">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">HeaderName</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679095917"><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-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Header</span><span class="hs-special">]</span><span>
</span><a name="line-776"></a><a name="toHeader"><a href="SwaggerPetstore.API.html#toHeader"><span class="hs-identifier">toHeader</span></a></a><span> </span><a name="local-6989586621679096723"><a href="#local-6989586621679096723"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-var">fmap</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><a href="#local-6989586621679096723"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
</span><a name="line-777"></a><span>
</span><a name="line-778"></a><span class="hs-identifier">toForm</span><span> </span><span class="hs-glyph">::</span><span> </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-6989586621679096046"><span class="hs-identifier hs-type">v</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096046"><span class="hs-identifier hs-type">v</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Form</span><span>
</span><a name="line-779"></a><a name="toForm"><a href="SwaggerPetstore.API.html#toForm"><span class="hs-identifier">toForm</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679096854"><a href="#local-6989586621679096854"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679096855"><a href="#local-6989586621679096855"><span class="hs-identifier">v</span></a></a><span class="hs-special">)</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">toForm</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</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><a href="#local-6989586621679096854"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">,</span><a href="#local-6989586621679096855"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-778"></a><span class="hs-identifier">toForm</span><span> </span><span class="hs-glyph">::</span><span> </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-6989586621679095916"><span class="hs-identifier hs-type">v</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679095916"><span class="hs-identifier hs-type">v</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Form</span><span>
</span><a name="line-779"></a><a name="toForm"><a href="SwaggerPetstore.API.html#toForm"><span class="hs-identifier">toForm</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679096724"><a href="#local-6989586621679096724"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679096725"><a href="#local-6989586621679096725"><span class="hs-identifier">v</span></a></a><span class="hs-special">)</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">toForm</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</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><a href="#local-6989586621679096724"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">,</span><a href="#local-6989586621679096725"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-780"></a><span>
</span><a name="line-781"></a><span class="hs-identifier">toQuery</span><span> </span><span class="hs-glyph">::</span><span> </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-6989586621679096045"><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">BC</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-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679096045"><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-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">QueryItem</span><span class="hs-special">]</span><span>
</span><a name="line-782"></a><a name="toQuery"><a href="SwaggerPetstore.API.html#toQuery"><span class="hs-identifier">toQuery</span></a></a><span> </span><a name="local-6989586621679096856"><a href="#local-6989586621679096856"><span class="hs-identifier">x</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 hs-var">fmap</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679096857"><span class="hs-identifier hs-var">toQueryParam</span></a><span> </span><a href="#local-6989586621679096856"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
</span><a name="line-783"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679096857"><a href="#local-6989586621679096857"><span class="hs-identifier">toQueryParam</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</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><a name="line-781"></a><span class="hs-identifier">toQuery</span><span> </span><span class="hs-glyph">::</span><span> </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-6989586621679095915"><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">BC</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-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679095915"><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-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">QueryItem</span><span class="hs-special">]</span><span>
</span><a name="line-782"></a><a name="toQuery"><a href="SwaggerPetstore.API.html#toQuery"><span class="hs-identifier">toQuery</span></a></a><span> </span><a name="local-6989586621679096726"><a href="#local-6989586621679096726"><span class="hs-identifier">x</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 hs-var">fmap</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679096727"><span class="hs-identifier hs-var">toQueryParam</span></a><span> </span><a href="#local-6989586621679096726"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
</span><a name="line-783"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679096727"><a href="#local-6989586621679096727"><span class="hs-identifier">toQueryParam</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</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><a name="line-784"></a><span>
</span><a name="line-785"></a><span class="hs-comment">-- *** Swagger `CollectionFormat` Utils</span><span>
</span><a name="line-786"></a><span>
@ -792,38 +792,38 @@ Module : SwaggerPetstore.API
</span><a name="line-792"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="PipeSeparated"><a href="SwaggerPetstore.API.html#PipeSeparated"><span class="hs-identifier">PipeSeparated</span></a></a><span> </span><span class="hs-comment">-- ^ `value1|value2|value2`</span><span>
</span><a name="line-793"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="MultiParamArray"><a href="SwaggerPetstore.API.html#MultiParamArray"><span class="hs-identifier">MultiParamArray</span></a></a><span> </span><span class="hs-comment">-- ^ Using multiple GET parameters, e.g. `foo=bar&amp;foo=baz`. This is valid only for parameters in &quot;query&quot; ('NH.Query') or &quot;formData&quot; ('WH.Form')</span><span>
</span><a name="line-794"></a><span>
</span><a name="line-795"></a><span class="hs-identifier">toHeaderColl</span><span> </span><span class="hs-glyph">::</span><span> </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-6989586621679096044"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.API.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</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">HeaderName</span><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679096044"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">]</span><span class="hs-special">)</span><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">Header</span><span class="hs-special">]</span><span>
</span><a name="line-796"></a><a name="toHeaderColl"><a href="SwaggerPetstore.API.html#toHeaderColl"><span class="hs-identifier">toHeaderColl</span></a></a><span> </span><a name="local-6989586621679096858"><a href="#local-6989586621679096858"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679096859"><a href="#local-6989586621679096859"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#_toColl"><span class="hs-identifier hs-var">_toColl</span></a><span> </span><a href="#local-6989586621679096858"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.API.html#toHeader"><span class="hs-identifier hs-var">toHeader</span></a><span> </span><a href="#local-6989586621679096859"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-795"></a><span class="hs-identifier">toHeaderColl</span><span> </span><span class="hs-glyph">::</span><span> </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-6989586621679095914"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.API.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</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">HeaderName</span><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679095914"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">]</span><span class="hs-special">)</span><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">Header</span><span class="hs-special">]</span><span>
</span><a name="line-796"></a><a name="toHeaderColl"><a href="SwaggerPetstore.API.html#toHeaderColl"><span class="hs-identifier">toHeaderColl</span></a></a><span> </span><a name="local-6989586621679096728"><a href="#local-6989586621679096728"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679096729"><a href="#local-6989586621679096729"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#_toColl"><span class="hs-identifier hs-var">_toColl</span></a><span> </span><a href="#local-6989586621679096728"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.API.html#toHeader"><span class="hs-identifier hs-var">toHeader</span></a><span> </span><a href="#local-6989586621679096729"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-797"></a><span>
</span><a name="line-798"></a><span class="hs-identifier">toFormColl</span><span> </span><span class="hs-glyph">::</span><span> </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-6989586621679096043"><span class="hs-identifier hs-type">v</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.API.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">BC</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-special">[</span><a href="#local-6989586621679096043"><span class="hs-identifier hs-type">v</span></a><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">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Form</span><span>
</span><a name="line-799"></a><a name="toFormColl"><a href="SwaggerPetstore.API.html#toFormColl"><span class="hs-identifier">toFormColl</span></a></a><span> </span><a name="local-6989586621679096860"><a href="#local-6989586621679096860"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679096861"><a href="#local-6989586621679096861"><span class="hs-identifier">xs</span></a></a><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">toForm</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><a href="#local-6989586621679096863"><span class="hs-identifier hs-var">unpack</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="SwaggerPetstore.API.html#_toColl"><span class="hs-identifier hs-var">_toColl</span></a><span> </span><a href="#local-6989586621679096860"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.API.html#toHeader"><span class="hs-identifier hs-var">toHeader</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679096862"><span class="hs-identifier hs-var">pack</span></a><span> </span><a href="#local-6989586621679096861"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-798"></a><span class="hs-identifier">toFormColl</span><span> </span><span class="hs-glyph">::</span><span> </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-6989586621679095913"><span class="hs-identifier hs-type">v</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.API.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">BC</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-special">[</span><a href="#local-6989586621679095913"><span class="hs-identifier hs-type">v</span></a><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">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Form</span><span>
</span><a name="line-799"></a><a name="toFormColl"><a href="SwaggerPetstore.API.html#toFormColl"><span class="hs-identifier">toFormColl</span></a></a><span> </span><a name="local-6989586621679096730"><a href="#local-6989586621679096730"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679096731"><a href="#local-6989586621679096731"><span class="hs-identifier">xs</span></a></a><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">toForm</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><a href="#local-6989586621679096733"><span class="hs-identifier hs-var">unpack</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="SwaggerPetstore.API.html#_toColl"><span class="hs-identifier hs-var">_toColl</span></a><span> </span><a href="#local-6989586621679096730"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.API.html#toHeader"><span class="hs-identifier hs-var">toHeader</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679096732"><span class="hs-identifier hs-var">pack</span></a><span> </span><a href="#local-6989586621679096731"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-800"></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-801"></a><span> </span><a name="local-6989586621679096862"><a href="#local-6989586621679096862"><span class="hs-identifier">pack</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679096864"><a href="#local-6989586621679096864"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679096865"><a href="#local-6989586621679096865"><span class="hs-identifier">v</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">CI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mk</span><span> </span><a href="#local-6989586621679096864"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096865"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span>
</span><a name="line-802"></a><span> </span><a name="local-6989586621679096863"><a href="#local-6989586621679096863"><span class="hs-identifier">unpack</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679096866"><a href="#local-6989586621679096866"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679096867"><a href="#local-6989586621679096867"><span class="hs-identifier">v</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</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-special">(</span><span class="hs-identifier">CI</span><span class="hs-operator">.</span><span class="hs-identifier">original</span><span> </span><a href="#local-6989586621679096866"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">)</span><span class="hs-special">,</span><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><a href="#local-6989586621679096867"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span>
</span><a name="line-801"></a><span> </span><a name="local-6989586621679096732"><a href="#local-6989586621679096732"><span class="hs-identifier">pack</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679096734"><a href="#local-6989586621679096734"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679096735"><a href="#local-6989586621679096735"><span class="hs-identifier">v</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">CI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mk</span><span> </span><a href="#local-6989586621679096734"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096735"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span>
</span><a name="line-802"></a><span> </span><a name="local-6989586621679096733"><a href="#local-6989586621679096733"><span class="hs-identifier">unpack</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679096736"><a href="#local-6989586621679096736"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679096737"><a href="#local-6989586621679096737"><span class="hs-identifier">v</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</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-special">(</span><span class="hs-identifier">CI</span><span class="hs-operator">.</span><span class="hs-identifier">original</span><span> </span><a href="#local-6989586621679096736"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">)</span><span class="hs-special">,</span><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><a href="#local-6989586621679096737"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span>
</span><a name="line-803"></a><span>
</span><a name="line-804"></a><span class="hs-identifier">toQueryColl</span><span> </span><span class="hs-glyph">::</span><span> </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-6989586621679096042"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.API.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">BC</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-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679096042"><span class="hs-identifier hs-type">a</span></a><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">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Query</span><span>
</span><a name="line-805"></a><a name="toQueryColl"><a href="SwaggerPetstore.API.html#toQueryColl"><span class="hs-identifier">toQueryColl</span></a></a><span> </span><a name="local-6989586621679096868"><a href="#local-6989586621679096868"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679096869"><a href="#local-6989586621679096869"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#_toCollA"><span class="hs-identifier hs-var">_toCollA</span></a><span> </span><a href="#local-6989586621679096868"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.API.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><a href="#local-6989586621679096869"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-804"></a><span class="hs-identifier">toQueryColl</span><span> </span><span class="hs-glyph">::</span><span> </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-6989586621679095912"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.API.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">BC</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-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679095912"><span class="hs-identifier hs-type">a</span></a><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">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Query</span><span>
</span><a name="line-805"></a><a name="toQueryColl"><a href="SwaggerPetstore.API.html#toQueryColl"><span class="hs-identifier">toQueryColl</span></a></a><span> </span><a name="local-6989586621679096738"><a href="#local-6989586621679096738"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679096739"><a href="#local-6989586621679096739"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#_toCollA"><span class="hs-identifier hs-var">_toCollA</span></a><span> </span><a href="#local-6989586621679096738"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.API.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><a href="#local-6989586621679096739"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-806"></a><span>
</span><a name="line-807"></a><span class="hs-identifier">_toColl</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">Traversable</span><span> </span><a href="#local-6989586621679096039"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.API.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096039"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679096040"><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-special">(</span><a href="#local-6989586621679096041"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096039"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679096040"><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-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679096041"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-808"></a><a name="_toColl"><a href="SwaggerPetstore.API.html#_toColl"><span class="hs-identifier">_toColl</span></a></a><span> </span><a name="local-6989586621679096870"><a href="#local-6989586621679096870"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679096871"><a href="#local-6989586621679096871"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679096872"><a href="#local-6989586621679096872"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromJust</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#_toCollA%27"><span class="hs-identifier hs-var">_toCollA'</span></a><span> </span><a href="#local-6989586621679096870"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="#local-6989586621679096873"><span class="hs-identifier hs-var">fencode</span></a><span> </span><span class="hs-identifier hs-var">BC</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">singleton</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679096872"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-809"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679096873"><a href="#local-6989586621679096873"><span class="hs-identifier">fencode</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">Just</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="#local-6989586621679096871"><span class="hs-identifier hs-var">encode</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromJust</span><span>
</span><a name="line-807"></a><span class="hs-identifier">_toColl</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">Traversable</span><span> </span><a href="#local-6989586621679095909"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.API.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679095909"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679095910"><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-special">(</span><a href="#local-6989586621679095911"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679095909"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679095910"><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-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679095911"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-808"></a><a name="_toColl"><a href="SwaggerPetstore.API.html#_toColl"><span class="hs-identifier">_toColl</span></a></a><span> </span><a name="local-6989586621679096740"><a href="#local-6989586621679096740"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679096741"><a href="#local-6989586621679096741"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679096742"><a href="#local-6989586621679096742"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromJust</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.API.html#_toCollA%27"><span class="hs-identifier hs-var">_toCollA'</span></a><span> </span><a href="#local-6989586621679096740"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="#local-6989586621679096743"><span class="hs-identifier hs-var">fencode</span></a><span> </span><span class="hs-identifier hs-var">BC</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">singleton</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679096742"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-809"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679096743"><a href="#local-6989586621679096743"><span class="hs-identifier">fencode</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">Just</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="#local-6989586621679096741"><span class="hs-identifier hs-var">encode</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">fmap</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromJust</span><span>
</span><a name="line-810"></a><span> </span><span class="hs-pragma">{-# INLINE fencode #-}</span><span>
</span><a name="line-811"></a><span>
</span><a name="line-812"></a><span class="hs-identifier">_toCollA</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">Traversable</span><span> </span><a href="#local-6989586621679096035"><span class="hs-identifier hs-type">f</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">Traversable</span><span> </span><a href="#local-6989586621679096036"><span class="hs-identifier hs-type">t</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">Alternative</span><span> </span><a href="#local-6989586621679096036"><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="SwaggerPetstore.API.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096035"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096036"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679096037"><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-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679096038"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096036"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096035"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096036"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679096037"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679096038"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096036"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-813"></a><a name="_toCollA"><a href="SwaggerPetstore.API.html#_toCollA"><span class="hs-identifier">_toCollA</span></a></a><span> </span><a name="local-6989586621679096874"><a href="#local-6989586621679096874"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679096875"><a href="#local-6989586621679096875"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679096876"><a href="#local-6989586621679096876"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#_toCollA%27"><span class="hs-identifier hs-var">_toCollA'</span></a><span> </span><a href="#local-6989586621679096874"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="#local-6989586621679096875"><span class="hs-identifier hs-var">encode</span></a><span> </span><span class="hs-identifier hs-var">BC</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">singleton</span><span> </span><a href="#local-6989586621679096876"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-812"></a><span class="hs-identifier">_toCollA</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">Traversable</span><span> </span><a href="#local-6989586621679095905"><span class="hs-identifier hs-type">f</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">Traversable</span><span> </span><a href="#local-6989586621679095906"><span class="hs-identifier hs-type">t</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">Alternative</span><span> </span><a href="#local-6989586621679095906"><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="SwaggerPetstore.API.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679095905"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679095906"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679095907"><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-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679095908"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679095906"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679095905"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679095906"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679095907"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679095908"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679095906"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-identifier hs-type">BC</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-813"></a><a name="_toCollA"><a href="SwaggerPetstore.API.html#_toCollA"><span class="hs-identifier">_toCollA</span></a></a><span> </span><a name="local-6989586621679096744"><a href="#local-6989586621679096744"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679096745"><a href="#local-6989586621679096745"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679096746"><a href="#local-6989586621679096746"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.API.html#_toCollA%27"><span class="hs-identifier hs-var">_toCollA'</span></a><span> </span><a href="#local-6989586621679096744"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="#local-6989586621679096745"><span class="hs-identifier hs-var">encode</span></a><span> </span><span class="hs-identifier hs-var">BC</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">singleton</span><span> </span><a href="#local-6989586621679096746"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-814"></a><span>
</span><a name="line-815"></a><span class="hs-identifier">_toCollA'</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-6989586621679096030"><span class="hs-identifier hs-type">c</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">Traversable</span><span> </span><a href="#local-6989586621679096031"><span class="hs-identifier hs-type">f</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">Traversable</span><span> </span><a href="#local-6989586621679096032"><span class="hs-identifier hs-type">t</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">Alternative</span><span> </span><a href="#local-6989586621679096032"><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="SwaggerPetstore.API.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096031"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096032"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679096033"><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-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679096034"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096032"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679096030"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Char</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096030"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096031"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096032"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679096033"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679096034"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679096032"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679096030"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-816"></a><a name="_toCollA%27"><a href="SwaggerPetstore.API.html#_toCollA%27"><span class="hs-identifier">_toCollA'</span></a></a><span> </span><a name="local-6989586621679096877"><a href="#local-6989586621679096877"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679096878"><a href="#local-6989586621679096878"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679096879"><a href="#local-6989586621679096879"><span class="hs-identifier">one</span></a></a><span> </span><a name="local-6989586621679096880"><a href="#local-6989586621679096880"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><a href="#local-6989586621679096877"><span class="hs-identifier hs-var">c</span></a><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-817"></a><span> </span><a href="SwaggerPetstore.API.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096881"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096879"><span class="hs-identifier hs-var">one</span></a><span> </span><span class="hs-char">','</span><span class="hs-special">)</span><span>
</span><a name="line-818"></a><span> </span><a href="SwaggerPetstore.API.html#SpaceSeparated"><span class="hs-identifier hs-var">SpaceSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096881"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096879"><span class="hs-identifier hs-var">one</span></a><span> </span><span class="hs-char">' '</span><span class="hs-special">)</span><span>
</span><a name="line-819"></a><span> </span><a href="SwaggerPetstore.API.html#TabSeparated"><span class="hs-identifier hs-var">TabSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096881"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096879"><span class="hs-identifier hs-var">one</span></a><span> </span><span class="hs-char">'\t'</span><span class="hs-special">)</span><span>
</span><a name="line-820"></a><span> </span><a href="SwaggerPetstore.API.html#PipeSeparated"><span class="hs-identifier hs-var">PipeSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096881"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096879"><span class="hs-identifier hs-var">one</span></a><span> </span><span class="hs-char">'|'</span><span class="hs-special">)</span><span>
</span><a name="line-821"></a><span> </span><a href="SwaggerPetstore.API.html#MultiParamArray"><span class="hs-identifier hs-var">MultiParamArray</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096883"><span class="hs-identifier hs-var">expandList</span></a><span>
</span><a name="line-815"></a><span class="hs-identifier">_toCollA'</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-6989586621679095900"><span class="hs-identifier hs-type">c</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">Traversable</span><span> </span><a href="#local-6989586621679095901"><span class="hs-identifier hs-type">f</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">Traversable</span><span> </span><a href="#local-6989586621679095902"><span class="hs-identifier hs-type">t</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">Alternative</span><span> </span><a href="#local-6989586621679095902"><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="SwaggerPetstore.API.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679095901"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679095902"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679095903"><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-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679095904"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679095902"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679095900"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Char</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679095900"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679095901"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679095902"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679095903"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679095904"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679095902"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679095900"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-816"></a><a name="_toCollA%27"><a href="SwaggerPetstore.API.html#_toCollA%27"><span class="hs-identifier">_toCollA'</span></a></a><span> </span><a name="local-6989586621679096747"><a href="#local-6989586621679096747"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679096748"><a href="#local-6989586621679096748"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679096749"><a href="#local-6989586621679096749"><span class="hs-identifier">one</span></a></a><span> </span><a name="local-6989586621679096750"><a href="#local-6989586621679096750"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><a href="#local-6989586621679096747"><span class="hs-identifier hs-var">c</span></a><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-817"></a><span> </span><a href="SwaggerPetstore.API.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096751"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096749"><span class="hs-identifier hs-var">one</span></a><span> </span><span class="hs-char">','</span><span class="hs-special">)</span><span>
</span><a name="line-818"></a><span> </span><a href="SwaggerPetstore.API.html#SpaceSeparated"><span class="hs-identifier hs-var">SpaceSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096751"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096749"><span class="hs-identifier hs-var">one</span></a><span> </span><span class="hs-char">' '</span><span class="hs-special">)</span><span>
</span><a name="line-819"></a><span> </span><a href="SwaggerPetstore.API.html#TabSeparated"><span class="hs-identifier hs-var">TabSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096751"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096749"><span class="hs-identifier hs-var">one</span></a><span> </span><span class="hs-char">'\t'</span><span class="hs-special">)</span><span>
</span><a name="line-820"></a><span> </span><a href="SwaggerPetstore.API.html#PipeSeparated"><span class="hs-identifier hs-var">PipeSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096751"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096749"><span class="hs-identifier hs-var">one</span></a><span> </span><span class="hs-char">'|'</span><span class="hs-special">)</span><span>
</span><a name="line-821"></a><span> </span><a href="SwaggerPetstore.API.html#MultiParamArray"><span class="hs-identifier hs-var">MultiParamArray</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679096753"><span class="hs-identifier hs-var">expandList</span></a><span>
</span><a name="line-822"></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-823"></a><span> </span><a name="local-6989586621679096881"><a href="#local-6989586621679096881"><span class="hs-identifier">go</span></a></a><span> </span><a name="local-6989586621679096884"><a href="#local-6989586621679096884"><span class="hs-identifier">sep</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-824"></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">foldl1</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><a name="local-6989586621679096885"><a href="#local-6989586621679096885"><span class="hs-identifier">sk</span></a></a><span class="hs-special">,</span><span> </span><a name="local-6989586621679096886"><a href="#local-6989586621679096886"><span class="hs-identifier">sv</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">_</span><span class="hs-special">,</span><span> </span><a name="local-6989586621679096887"><a href="#local-6989586621679096887"><span class="hs-identifier">v</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096885"><span class="hs-identifier hs-var">sk</span></a><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096882"><span class="hs-identifier hs-var">combine</span></a><span> </span><a href="#local-6989586621679096884"><span class="hs-identifier hs-var">sep</span></a><span> </span><span class="hs-operator hs-var">&lt;$&gt;</span><span> </span><a href="#local-6989586621679096886"><span class="hs-identifier hs-var">sv</span></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</span><span> </span><a href="#local-6989586621679096887"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">&lt;|&gt;</span><span> </span><a href="#local-6989586621679096886"><span class="hs-identifier hs-var">sv</span></a><span> </span><span class="hs-operator hs-var">&lt;|&gt;</span><span> </span><a href="#local-6989586621679096887"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679096883"><span class="hs-identifier hs-var">expandList</span></a><span class="hs-special">]</span><span>
</span><a name="line-825"></a><span> </span><a name="local-6989586621679096882"><a href="#local-6989586621679096882"><span class="hs-identifier">combine</span></a></a><span> </span><a name="local-6989586621679096888"><a href="#local-6989586621679096888"><span class="hs-identifier">sep</span></a></a><span> </span><a name="local-6989586621679096889"><a href="#local-6989586621679096889"><span class="hs-identifier">x</span></a></a><span> </span><a name="local-6989586621679096890"><a href="#local-6989586621679096890"><span class="hs-identifier">y</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096889"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-operator hs-var">&lt;&gt;</span><span> </span><a href="#local-6989586621679096888"><span class="hs-identifier hs-var">sep</span></a><span> </span><span class="hs-operator hs-var">&lt;&gt;</span><span> </span><a href="#local-6989586621679096890"><span class="hs-identifier hs-var">y</span></a><span>
</span><a name="line-826"></a><span> </span><a name="local-6989586621679096883"><a href="#local-6989586621679096883"><span class="hs-identifier">expandList</span></a></a><span> </span><span class="hs-glyph">=</span><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">concatMap</span><span> </span><a href="#local-6989586621679096878"><span class="hs-identifier hs-var">encode</span></a><span> </span><span class="hs-operator hs-var">.</span><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">traverse</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">traverse</span><span class="hs-special">)</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toList</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679096880"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-823"></a><span> </span><a name="local-6989586621679096751"><a href="#local-6989586621679096751"><span class="hs-identifier">go</span></a></a><span> </span><a name="local-6989586621679096754"><a href="#local-6989586621679096754"><span class="hs-identifier">sep</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-824"></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">foldl1</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><a name="local-6989586621679096755"><a href="#local-6989586621679096755"><span class="hs-identifier">sk</span></a></a><span class="hs-special">,</span><span> </span><a name="local-6989586621679096756"><a href="#local-6989586621679096756"><span class="hs-identifier">sv</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">_</span><span class="hs-special">,</span><span> </span><a name="local-6989586621679096757"><a href="#local-6989586621679096757"><span class="hs-identifier">v</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096755"><span class="hs-identifier hs-var">sk</span></a><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679096752"><span class="hs-identifier hs-var">combine</span></a><span> </span><a href="#local-6989586621679096754"><span class="hs-identifier hs-var">sep</span></a><span> </span><span class="hs-operator hs-var">&lt;$&gt;</span><span> </span><a href="#local-6989586621679096756"><span class="hs-identifier hs-var">sv</span></a><span> </span><span class="hs-operator hs-var">&lt;*&gt;</span><span> </span><a href="#local-6989586621679096757"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">&lt;|&gt;</span><span> </span><a href="#local-6989586621679096756"><span class="hs-identifier hs-var">sv</span></a><span> </span><span class="hs-operator hs-var">&lt;|&gt;</span><span> </span><a href="#local-6989586621679096757"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679096753"><span class="hs-identifier hs-var">expandList</span></a><span class="hs-special">]</span><span>
</span><a name="line-825"></a><span> </span><a name="local-6989586621679096752"><a href="#local-6989586621679096752"><span class="hs-identifier">combine</span></a></a><span> </span><a name="local-6989586621679096758"><a href="#local-6989586621679096758"><span class="hs-identifier">sep</span></a></a><span> </span><a name="local-6989586621679096759"><a href="#local-6989586621679096759"><span class="hs-identifier">x</span></a></a><span> </span><a name="local-6989586621679096760"><a href="#local-6989586621679096760"><span class="hs-identifier">y</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679096759"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-operator hs-var">&lt;&gt;</span><span> </span><a href="#local-6989586621679096758"><span class="hs-identifier hs-var">sep</span></a><span> </span><span class="hs-operator hs-var">&lt;&gt;</span><span> </span><a href="#local-6989586621679096760"><span class="hs-identifier hs-var">y</span></a><span>
</span><a name="line-826"></a><span> </span><a name="local-6989586621679096753"><a href="#local-6989586621679096753"><span class="hs-identifier">expandList</span></a></a><span> </span><span class="hs-glyph">=</span><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">concatMap</span><span> </span><a href="#local-6989586621679096748"><span class="hs-identifier hs-var">encode</span></a><span> </span><span class="hs-operator hs-var">.</span><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">traverse</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">traverse</span><span class="hs-special">)</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toList</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679096750"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-827"></a><span> </span><span class="hs-pragma">{-# INLINE go #-}</span><span>
</span><a name="line-828"></a><span> </span><span class="hs-pragma">{-# INLINE expandList #-}</span><span>
</span><a name="line-829"></a><span> </span><span class="hs-pragma">{-# INLINE combine #-}</span><span>

212
samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Client.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-6989586621679133870"><a href="#local-6989586621679133870"><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-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-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-6989586621679133870"><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-6989586621679133870"><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-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-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-6989586621679133090"><a href="#local-6989586621679133090"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679133090"><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-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-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-6989586621679133091"><a href="#local-6989586621679133091"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679133091"><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-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-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-6989586621679133092"><a href="#local-6989586621679133092"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679133092"><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-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-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-6989586621679133086"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679133087"><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-6989586621679133088"><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-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-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-6989586621679133086"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679133088"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679133089"><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-6989586621679133087"><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-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-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-6989586621679133093"><a href="#local-6989586621679133093"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679133094"><a href="#local-6989586621679133094"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679133095"><a href="#local-6989586621679133095"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679133096"><a href="#local-6989586621679133096"><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-6989586621679133097"><a href="#local-6989586621679133097"><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-6989586621679133094"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679133095"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679133096"><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-6989586621679133093"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679133094"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679133097"><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-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-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-6989586621679132958"><a href="#local-6989586621679132958"><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-6989586621679132958"><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-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-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-6989586621679133082"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679133083"><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-6989586621679133083"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679133084"><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-6989586621679133085"><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-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-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-6989586621679133082"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679133085"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679133084"><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-6989586621679133083"><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-6989586621679133084"><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-6989586621679133098"><a href="#local-6989586621679133098"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679133099"><a href="#local-6989586621679133099"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679133100"><a href="#local-6989586621679133100"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679133101"><a href="#local-6989586621679133101"><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-6989586621679133102"><a href="#local-6989586621679133102"><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-6989586621679133098"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679133099"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679133100"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679133101"><span class="hs-identifier hs-var">accept</span></a><span>
</span><a name="line-148"></a><span> </span><a name="local-6989586621679133105"><a href="#local-6989586621679133105"><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-6989586621679133099"><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-6989586621679133101"><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-6989586621679133102"><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-6989586621679133103"><a href="#local-6989586621679133103"><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-6989586621679133103"><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-6989586621679133103"><span class="hs-identifier hs-var">s</span></a><span> </span><a href="#local-6989586621679133102"><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-6989586621679133104"><a href="#local-6989586621679133104"><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-6989586621679133104"><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-6989586621679133105"><span class="hs-identifier hs-var">parsedResult</span></a><span> </span><a href="#local-6989586621679133102"><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-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-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-6989586621679133078"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679133079"><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-6989586621679133079"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679133080"><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-6989586621679133081"><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-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-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-6989586621679133078"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679133081"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679133080"><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-6989586621679133079"><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-6989586621679133080"><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-6989586621679133106"><a href="#local-6989586621679133106"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679133107"><a href="#local-6989586621679133107"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679133108"><a href="#local-6989586621679133108"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679133109"><a href="#local-6989586621679133109"><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-6989586621679133110"><a href="#local-6989586621679133110"><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-6989586621679133106"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679133107"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679133108"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679133109"><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-6989586621679133110"><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-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-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-6989586621679133074"><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-6989586621679133075"><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-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-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-6989586621679133076"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679133075"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679133077"><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-6989586621679133074"><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-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-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-6989586621679133111"><a href="#local-6989586621679133111"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679133112"><a href="#local-6989586621679133112"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679133113"><a href="#local-6989586621679133113"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679133114"><a href="#local-6989586621679133114"><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-6989586621679133115"><a href="#local-6989586621679133115"><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-6989586621679133112"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679133113"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679133114"><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-6989586621679133111"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679133112"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679133115"><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-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-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-6989586621679133070"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679133071"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679133072"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679133073"><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-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-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-6989586621679133116"><a href="#local-6989586621679133116"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679133117"><a href="#local-6989586621679133117"><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-6989586621679133118"><a href="#local-6989586621679133118"><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-6989586621679133119"><span class="hs-identifier hs-var">logSrc</span></a><span> </span><a href="#local-6989586621679133117"><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-6989586621679133119"><span class="hs-identifier hs-var">logSrc</span></a><span> </span><a href="#local-6989586621679133121"><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-6989586621679133119"><span class="hs-identifier hs-var">logSrc</span></a><span> </span><a href="#local-6989586621679133122"><span class="hs-identifier hs-var">requestDbgLogMsg</span></a><span>
</span><a name="line-193"></a><span> </span><a name="local-6989586621679133554"><a href="#local-6989586621679133554"><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-6989586621679133118"><span class="hs-identifier hs-var">req</span></a><span> </span><a href="#local-6989586621679133116"><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-6989586621679133119"><span class="hs-identifier hs-var">logSrc</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679133124"><span class="hs-identifier hs-var">responseLogMsg</span></a><span> </span><a href="#local-6989586621679133554"><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-6989586621679133119"><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-6989586621679133554"><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-6989586621679133554"><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-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-197"></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-198"></a><span> </span><a name="local-6989586621679133119"><a href="#local-6989586621679133119"><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-6989586621679133120"><a href="#local-6989586621679133120"><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-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-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-6989586621679133118"><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-6989586621679133118"><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-6989586621679133118"><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-6989586621679133118"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-203"></a><span> </span><a name="local-6989586621679133121"><a href="#local-6989586621679133121"><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-6989586621679133120"><span class="hs-identifier hs-var">endpoint</span></a><span>
</span><a name="line-204"></a><span> </span><a name="local-6989586621679133122"><a href="#local-6989586621679133122"><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-6989586621679133118"><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-6989586621679133118"><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-6989586621679133125"><a href="#local-6989586621679133125"><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-6989586621679133125"><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-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-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-6989586621679133123"><a href="#local-6989586621679133123"><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-6989586621679133124"><a href="#local-6989586621679133124"><span class="hs-identifier">responseLogMsg</span></a></a><span> </span><a name="local-6989586621679133500"><a href="#local-6989586621679133500"><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-6989586621679133123"><span class="hs-identifier hs-var">responseStatusCode</span></a><span> </span><a href="#local-6989586621679133500"><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-6989586621679133120"><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-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-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-6989586621679132954"><a href="#local-6989586621679132954"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679132955"><a href="#local-6989586621679132955"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679132956"><a href="#local-6989586621679132956"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679132957"><a href="#local-6989586621679132957"><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-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-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-6989586621679133066"><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-6989586621679133067"><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-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-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-6989586621679133068"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679133067"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679133069"><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-6989586621679133066"><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-6989586621679133068"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679133067"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679133069"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679133066"><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-6989586621679133555"><a href="#local-6989586621679133555"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679133556"><a href="#local-6989586621679133556"><span class="hs-identifier">req0</span></a></a><span> </span><a name="local-6989586621679133557"><a href="#local-6989586621679133557"><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-6989586621679133558"><a href="#local-6989586621679133558"><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-6989586621679133555"><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-6989586621679133556"><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-6989586621679133559"><a href="#local-6989586621679133559"><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-6989586621679133556"><span class="hs-identifier hs-var">req0</span></a><span> </span><a href="#local-6989586621679133557"><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-6989586621679133560"><a href="#local-6989586621679133560"><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-6989586621679133555"><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-6989586621679133559"><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-6989586621679133561"><a href="#local-6989586621679133561"><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-6989586621679133559"><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-6989586621679133562"><a href="#local-6989586621679133562"><span class="hs-identifier">pReq</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679133558"><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-6989586621679133559"><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-6989586621679133560"><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-6989586621679133561"><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-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-235"></a><span> </span><span class="hs-special">}</span><span>
</span><a name="line-236"></a><span> </span><a name="local-6989586621679133567"><a href="#local-6989586621679133567"><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-6989586621679133559"><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-6989586621679133562"><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-6989586621679133563"><a href="#local-6989586621679133563"><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-6989586621679133562"><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-6989586621679133563"><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-6989586621679133564"><a href="#local-6989586621679133564"><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-6989586621679133562"><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-6989586621679133564"><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-6989586621679133565"><a href="#local-6989586621679133565"><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-6989586621679133562"><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-6989586621679133565"><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-6989586621679133566"><a href="#local-6989586621679133566"><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-6989586621679133566"><span class="hs-identifier hs-var">parts</span></a><span> </span><a href="#local-6989586621679133562"><span class="hs-identifier hs-var">pReq</span></a><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-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-6989586621679133567"><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-6989586621679133437"><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-6989586621679133062"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679133063"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679133064"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679133065"><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-6989586621679133062"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679133063"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679133064"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679133065"><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-6989586621679133568"><a href="#local-6989586621679133568"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679133569"><a href="#local-6989586621679133569"><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-6989586621679133569"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679133568"><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-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-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-6989586621679133057"><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-6989586621679133058"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679133059"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679133060"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679133061"><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-6989586621679133057"><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-6989586621679133057"><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-6989586621679133058"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679133059"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679133060"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679133061"><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-6989586621679133570"><a href="#local-6989586621679133570"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679133571"><a href="#local-6989586621679133571"><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-6989586621679133571"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679133570"><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-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-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-6989586621679132952"><a href="#local-6989586621679132952"><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-6989586621679132952"><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-6989586621679132953"><a href="#local-6989586621679132953"><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-6989586621679132952"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132953"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679132952"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132953"><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-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-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-6989586621679132964"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132965"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679132964"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132965"><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-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-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-6989586621679133572"><a href="#local-6989586621679133572"><span class="hs-identifier">l</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679133573"><a href="#local-6989586621679133573"><span class="hs-identifier">l'</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679133573"><span class="hs-identifier hs-var">l'</span></a><span> </span><span class="hs-operator hs-var">&gt;=</span><span> </span><a href="#local-6989586621679133572"><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-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-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-6989586621679132963"><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-6989586621679132963"><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-6989586621679132963"><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-6989586621679133574"><a href="#local-6989586621679133574"><span class="hs-identifier">level</span></a></a><span> </span><a name="local-6989586621679133575"><a href="#local-6989586621679133575"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679133576"><a href="#local-6989586621679133576"><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-6989586621679133608"><a href="#local-6989586621679133608"><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-6989586621679133578"><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-6989586621679133577"><span class="hs-identifier hs-var">sourceLog</span></a><span> </span><a href="#local-6989586621679133574"><span class="hs-identifier hs-var">level</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679133608"><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-6989586621679133576"><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-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-293"></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-294"></a><span> </span><a name="local-6989586621679133577"><a href="#local-6989586621679133577"><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-6989586621679133575"><span class="hs-identifier hs-var">src</span></a><span>
</span><a name="line-295"></a><span> </span><a name="local-6989586621679133578"><a href="#local-6989586621679133578"><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-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-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-6989586621679132961"><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-6989586621679132961"><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-6989586621679132961"><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-6989586621679132961"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132962"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679132961"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132962"><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-6989586621679133609"><a href="#local-6989586621679133609"><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-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-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-6989586621679133866"><a href="#local-6989586621679133866"><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-6989586621679133609"><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-6989586621679133866"><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-6989586621679133866"><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-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-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-6989586621679133867"><a href="#local-6989586621679133867"><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-6989586621679133867"><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-6989586621679133867"><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-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-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-6989586621679132959"><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-6989586621679132959"><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-6989586621679132959"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132960"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679132959"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679132960"><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-6989586621679133868"><a href="#local-6989586621679133868"><span class="hs-identifier">logSrc</span></a></a><span> </span><a name="local-6989586621679133869"><a href="#local-6989586621679133869"><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-6989586621679133869"><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-6989586621679133868"><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-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-318"></a></pre></body></html>

313
samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Lens.html
View File

@ -29,175 +29,166 @@ 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="Traversal_%27"><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier">Traversal_'</span></a></a><span> </span><a name="local-6989586621679079377"><a href="#local-6989586621679079377"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679079378"><a href="#local-6989586621679079378"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_"><span class="hs-identifier hs-type">Traversal_</span></a><span> </span><a href="#local-6989586621679079377"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679079377"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679079378"><span class="hs-identifier hs-type">a</span></a><span> </span><a href="#local-6989586621679079378"><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="Traversal_"><a href="SwaggerPetstore.Lens.html#Traversal_"><span class="hs-identifier">Traversal_</span></a></a><span> </span><a name="local-6989586621679079372"><a href="#local-6989586621679079372"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679079373"><a href="#local-6989586621679079373"><span class="hs-identifier">t</span></a></a><span> </span><a name="local-6989586621679079374"><a href="#local-6989586621679079374"><span class="hs-identifier">a</span></a></a><span> </span><a name="local-6989586621679079375"><a href="#local-6989586621679079375"><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-6989586621679079376"><a href="#local-6989586621679079376"><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">Applicative</span><span> </span><a href="#local-6989586621679079376"><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-6989586621679079374"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079376"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679079375"><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-6989586621679079372"><span class="hs-identifier hs-type">s</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079376"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679079373"><span class="hs-identifier hs-type">t</span></a><span>
</span><a name="line-34"></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-6989586621679079370"><a href="#local-6989586621679079370"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679079371"><a href="#local-6989586621679079371"><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-6989586621679079370"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679079370"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679079371"><span class="hs-identifier hs-type">a</span></a><span> </span><a href="#local-6989586621679079371"><span class="hs-identifier hs-type">a</span></a><span>
</span><a name="line-35"></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-6989586621679079365"><a href="#local-6989586621679079365"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679079366"><a href="#local-6989586621679079366"><span class="hs-identifier">t</span></a></a><span> </span><a name="local-6989586621679079367"><a href="#local-6989586621679079367"><span class="hs-identifier">a</span></a></a><span> </span><a name="local-6989586621679079368"><a href="#local-6989586621679079368"><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-6989586621679079369"><a href="#local-6989586621679079369"><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-6989586621679079369"><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-6989586621679079367"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079369"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679079368"><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-6989586621679079365"><span class="hs-identifier hs-type">s</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079369"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679079366"><span class="hs-identifier hs-type">t</span></a><span>
</span><a name="line-36"></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-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">-- * ApiResponse</span><span>
</span><a name="line-39"></a><span>
</span><a name="line-40"></a><span class="hs-comment">-- | 'apiResponseCode' Traversal</span><span>
</span><a name="line-41"></a><span class="hs-identifier">apiResponseCodeT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-identifier hs-type">Int</span><span>
</span><a name="line-42"></a><a name="apiResponseCodeT"><a href="SwaggerPetstore.Lens.html#apiResponseCodeT"><span class="hs-identifier">apiResponseCodeT</span></a></a><span> </span><a name="local-6989586621679079383"><a href="#local-6989586621679079383"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079384"><a href="#local-6989586621679079384"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">apiResponseCode</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079385"><a href="#local-6989586621679079385"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079384"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079385"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079383"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079384"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-43"></a><span class="hs-pragma">{-# INLINE apiResponseCodeT #-}</span><span>
</span><a name="line-44"></a><span>
</span><a name="line-45"></a><span class="hs-comment">-- | 'apiResponseType' Traversal</span><span>
</span><a name="line-46"></a><span class="hs-identifier">apiResponseTypeT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-identifier hs-type">Text</span><span>
</span><a name="line-47"></a><a name="apiResponseTypeT"><a href="SwaggerPetstore.Lens.html#apiResponseTypeT"><span class="hs-identifier">apiResponseTypeT</span></a></a><span> </span><a name="local-6989586621679079386"><a href="#local-6989586621679079386"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079387"><a href="#local-6989586621679079387"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">apiResponseType</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079388"><a href="#local-6989586621679079388"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079387"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079388"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079386"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079387"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-48"></a><span class="hs-pragma">{-# INLINE apiResponseTypeT #-}</span><span>
</span><a name="line-49"></a><span>
</span><a name="line-50"></a><span class="hs-comment">-- | 'apiResponseMessage' Traversal</span><span>
</span><a name="line-51"></a><span class="hs-identifier">apiResponseMessageT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-identifier hs-type">Text</span><span>
</span><a name="line-52"></a><a name="apiResponseMessageT"><a href="SwaggerPetstore.Lens.html#apiResponseMessageT"><span class="hs-identifier">apiResponseMessageT</span></a></a><span> </span><a name="local-6989586621679079389"><a href="#local-6989586621679079389"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079390"><a href="#local-6989586621679079390"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">apiResponseMessage</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">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079390"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079391"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079389"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079390"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-53"></a><span class="hs-pragma">{-# INLINE apiResponseMessageT #-}</span><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-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-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-51"></a><span class="hs-pragma">{-# INLINE apiResponseMessageL #-}</span><span>
</span><a name="line-52"></a><span>
</span><a name="line-53"></a><span>
</span><a name="line-54"></a><span>
</span><a name="line-55"></a><span>
</span><a name="line-55"></a><span class="hs-comment">-- * Category</span><span>
</span><a name="line-56"></a><span>
</span><a name="line-57"></a><span class="hs-comment">-- * Category</span><span>
</span><a name="line-58"></a><span>
</span><a name="line-59"></a><span class="hs-comment">-- | 'categoryId' Traversal</span><span>
</span><a name="line-60"></a><span class="hs-identifier">categoryIdT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-identifier hs-type">Integer</span><span>
</span><a name="line-61"></a><a name="categoryIdT"><a href="SwaggerPetstore.Lens.html#categoryIdT"><span class="hs-identifier">categoryIdT</span></a></a><span> </span><a name="local-6989586621679079392"><a href="#local-6989586621679079392"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079393"><a href="#local-6989586621679079393"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">categoryId</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079394"><a href="#local-6989586621679079394"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079393"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079394"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</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">s</span></a><span>
</span><a name="line-62"></a><span class="hs-pragma">{-# INLINE categoryIdT #-}</span><span>
</span><a name="line-63"></a><span>
</span><a name="line-64"></a><span class="hs-comment">-- | 'categoryName' Traversal</span><span>
</span><a name="line-65"></a><span class="hs-identifier">categoryNameT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-identifier hs-type">Text</span><span>
</span><a name="line-66"></a><a name="categoryNameT"><a href="SwaggerPetstore.Lens.html#categoryNameT"><span class="hs-identifier">categoryNameT</span></a></a><span> </span><a name="local-6989586621679079395"><a href="#local-6989586621679079395"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079396"><a href="#local-6989586621679079396"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">categoryName</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079397"><a href="#local-6989586621679079397"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079396"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079397"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079395"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079396"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-67"></a><span class="hs-pragma">{-# INLINE categoryNameT #-}</span><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-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-65"></a><span class="hs-pragma">{-# INLINE categoryNameL #-}</span><span>
</span><a name="line-66"></a><span>
</span><a name="line-67"></a><span>
</span><a name="line-68"></a><span>
</span><a name="line-69"></a><span>
</span><a name="line-69"></a><span class="hs-comment">-- * Order</span><span>
</span><a name="line-70"></a><span>
</span><a name="line-71"></a><span class="hs-comment">-- * Order</span><span>
</span><a name="line-72"></a><span>
</span><a name="line-73"></a><span class="hs-comment">-- | 'orderId' Traversal</span><span>
</span><a name="line-74"></a><span class="hs-identifier">orderIdT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-identifier hs-type">Integer</span><span>
</span><a name="line-75"></a><a name="orderIdT"><a href="SwaggerPetstore.Lens.html#orderIdT"><span class="hs-identifier">orderIdT</span></a></a><span> </span><a name="local-6989586621679079398"><a href="#local-6989586621679079398"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079399"><a href="#local-6989586621679079399"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">orderId</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079400"><a href="#local-6989586621679079400"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079399"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079400"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079398"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079399"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-76"></a><span class="hs-pragma">{-# INLINE orderIdT #-}</span><span>
</span><a name="line-77"></a><span>
</span><a name="line-78"></a><span class="hs-comment">-- | 'orderPetId' Traversal</span><span>
</span><a name="line-79"></a><span class="hs-identifier">orderPetIdT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-identifier hs-type">Integer</span><span>
</span><a name="line-80"></a><a name="orderPetIdT"><a href="SwaggerPetstore.Lens.html#orderPetIdT"><span class="hs-identifier">orderPetIdT</span></a></a><span> </span><a name="local-6989586621679079401"><a href="#local-6989586621679079401"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079402"><a href="#local-6989586621679079402"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">orderPetId</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079403"><a href="#local-6989586621679079403"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079402"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079403"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079401"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079402"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-81"></a><span class="hs-pragma">{-# INLINE orderPetIdT #-}</span><span>
</span><a name="line-82"></a><span>
</span><a name="line-83"></a><span class="hs-comment">-- | 'orderQuantity' Traversal</span><span>
</span><a name="line-84"></a><span class="hs-identifier">orderQuantityT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-identifier hs-type">Int</span><span>
</span><a name="line-85"></a><a name="orderQuantityT"><a href="SwaggerPetstore.Lens.html#orderQuantityT"><span class="hs-identifier">orderQuantityT</span></a></a><span> </span><a name="local-6989586621679079404"><a href="#local-6989586621679079404"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079405"><a href="#local-6989586621679079405"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">orderQuantity</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079406"><a href="#local-6989586621679079406"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079405"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079406"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079404"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079405"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-86"></a><span class="hs-pragma">{-# INLINE orderQuantityT #-}</span><span>
</span><a name="line-87"></a><span>
</span><a name="line-88"></a><span class="hs-comment">-- | 'orderShipDate' Traversal</span><span>
</span><a name="line-89"></a><span class="hs-identifier">orderShipDateT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-identifier hs-type">UTCTime</span><span>
</span><a name="line-90"></a><a name="orderShipDateT"><a href="SwaggerPetstore.Lens.html#orderShipDateT"><span class="hs-identifier">orderShipDateT</span></a></a><span> </span><a name="local-6989586621679079407"><a href="#local-6989586621679079407"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079408"><a href="#local-6989586621679079408"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">orderShipDate</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079409"><a href="#local-6989586621679079409"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079408"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079409"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079407"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079408"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-91"></a><span class="hs-pragma">{-# INLINE orderShipDateT #-}</span><span>
</span><a name="line-92"></a><span>
</span><a name="line-93"></a><span class="hs-comment">-- | 'orderStatus' Traversal</span><span>
</span><a name="line-94"></a><span class="hs-identifier">orderStatusT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-identifier hs-type">Text</span><span>
</span><a name="line-95"></a><a name="orderStatusT"><a href="SwaggerPetstore.Lens.html#orderStatusT"><span class="hs-identifier">orderStatusT</span></a></a><span> </span><a name="local-6989586621679079410"><a href="#local-6989586621679079410"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079411"><a href="#local-6989586621679079411"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">orderStatus</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079412"><a href="#local-6989586621679079412"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079411"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079412"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079410"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079411"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-96"></a><span class="hs-pragma">{-# INLINE orderStatusT #-}</span><span>
</span><a name="line-97"></a><span>
</span><a name="line-98"></a><span class="hs-comment">-- | 'orderComplete' Traversal</span><span>
</span><a name="line-99"></a><span class="hs-identifier">orderCompleteT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-identifier hs-type">Bool</span><span>
</span><a name="line-100"></a><a name="orderCompleteT"><a href="SwaggerPetstore.Lens.html#orderCompleteT"><span class="hs-identifier">orderCompleteT</span></a></a><span> </span><a name="local-6989586621679079413"><a href="#local-6989586621679079413"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079414"><a href="#local-6989586621679079414"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">orderComplete</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">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079414"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079415"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079413"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079414"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-101"></a><span class="hs-pragma">{-# INLINE orderCompleteT #-}</span><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-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-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-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-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-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-99"></a><span class="hs-pragma">{-# INLINE orderCompleteL #-}</span><span>
</span><a name="line-100"></a><span>
</span><a name="line-101"></a><span>
</span><a name="line-102"></a><span>
</span><a name="line-103"></a><span>
</span><a name="line-103"></a><span class="hs-comment">-- * Pet</span><span>
</span><a name="line-104"></a><span>
</span><a name="line-105"></a><span class="hs-comment">-- * Pet</span><span>
</span><a name="line-106"></a><span>
</span><a name="line-107"></a><span class="hs-comment">-- | 'petId' Traversal</span><span>
</span><a name="line-108"></a><span class="hs-identifier">petIdT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-identifier hs-type">Integer</span><span>
</span><a name="line-109"></a><a name="petIdT"><a href="SwaggerPetstore.Lens.html#petIdT"><span class="hs-identifier">petIdT</span></a></a><span> </span><a name="local-6989586621679079416"><a href="#local-6989586621679079416"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079417"><a href="#local-6989586621679079417"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">petId</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079418"><a href="#local-6989586621679079418"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079417"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079418"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079416"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079417"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-110"></a><span class="hs-pragma">{-# INLINE petIdT #-}</span><span>
</span><a name="line-111"></a><span>
</span><a name="line-112"></a><span class="hs-comment">-- | 'petCategory' Traversal</span><span>
</span><a name="line-113"></a><span class="hs-identifier">petCategoryT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span>
</span><a name="line-114"></a><a name="petCategoryT"><a href="SwaggerPetstore.Lens.html#petCategoryT"><span class="hs-identifier">petCategoryT</span></a></a><span> </span><a name="local-6989586621679079419"><a href="#local-6989586621679079419"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079420"><a href="#local-6989586621679079420"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">petCategory</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079421"><a href="#local-6989586621679079421"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079420"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079421"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079419"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079420"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-115"></a><span class="hs-pragma">{-# INLINE petCategoryT #-}</span><span>
</span><a name="line-116"></a><span>
</span><a name="line-117"></a><span class="hs-comment">-- | 'petName' Lens</span><span>
</span><a name="line-118"></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-identifier hs-type">Text</span><span>
</span><a name="line-119"></a><a name="petNameL"><a href="SwaggerPetstore.Lens.html#petNameL"><span class="hs-identifier">petNameL</span></a></a><span> </span><a name="local-6989586621679079422"><a href="#local-6989586621679079422"><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-6989586621679079429"><a href="#local-6989586621679079429"><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-6989586621679079429"><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-6989586621679079422"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079425"><span class="hs-identifier hs-var">petName</span></a><span>
</span><a name="line-120"></a><span class="hs-pragma">{-# INLINE petNameL #-}</span><span>
</span><a name="line-121"></a><span>
</span><a name="line-122"></a><span class="hs-comment">-- | 'petPhotoUrls' Lens</span><span>
</span><a name="line-123"></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-identifier hs-type">Text</span><span class="hs-special">]</span><span>
</span><a name="line-124"></a><a name="petPhotoUrlsL"><a href="SwaggerPetstore.Lens.html#petPhotoUrlsL"><span class="hs-identifier">petPhotoUrlsL</span></a></a><span> </span><a name="local-6989586621679079430"><a href="#local-6989586621679079430"><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-6989586621679079437"><a href="#local-6989586621679079437"><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-6989586621679079437"><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-6989586621679079430"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079434"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span>
</span><a name="line-125"></a><span class="hs-pragma">{-# INLINE petPhotoUrlsL #-}</span><span>
</span><a name="line-126"></a><span>
</span><a name="line-127"></a><span class="hs-comment">-- | 'petTags' Traversal</span><span>
</span><a name="line-128"></a><span class="hs-identifier">petTagsT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</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><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span class="hs-special">]</span><span>
</span><a name="line-129"></a><a name="petTagsT"><a href="SwaggerPetstore.Lens.html#petTagsT"><span class="hs-identifier">petTagsT</span></a></a><span> </span><a name="local-6989586621679079438"><a href="#local-6989586621679079438"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079439"><a href="#local-6989586621679079439"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">petTags</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079440"><a href="#local-6989586621679079440"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079439"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079440"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079438"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079439"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-130"></a><span class="hs-pragma">{-# INLINE petTagsT #-}</span><span>
</span><a name="line-131"></a><span>
</span><a name="line-132"></a><span class="hs-comment">-- | 'petStatus' Traversal</span><span>
</span><a name="line-133"></a><span class="hs-identifier">petStatusT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-identifier hs-type">Text</span><span>
</span><a name="line-134"></a><a name="petStatusT"><a href="SwaggerPetstore.Lens.html#petStatusT"><span class="hs-identifier">petStatusT</span></a></a><span> </span><a name="local-6989586621679079441"><a href="#local-6989586621679079441"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079442"><a href="#local-6989586621679079442"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">petStatus</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079443"><a href="#local-6989586621679079443"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079442"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079443"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079441"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079442"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-135"></a><span class="hs-pragma">{-# INLINE petStatusT #-}</span><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-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-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-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-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-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-133"></a><span class="hs-pragma">{-# INLINE petStatusL #-}</span><span>
</span><a name="line-134"></a><span>
</span><a name="line-135"></a><span>
</span><a name="line-136"></a><span>
</span><a name="line-137"></a><span>
</span><a name="line-137"></a><span class="hs-comment">-- * Tag</span><span>
</span><a name="line-138"></a><span>
</span><a name="line-139"></a><span class="hs-comment">-- * Tag</span><span>
</span><a name="line-140"></a><span>
</span><a name="line-141"></a><span class="hs-comment">-- | 'tagId' Traversal</span><span>
</span><a name="line-142"></a><span class="hs-identifier">tagIdT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span> </span><span class="hs-identifier hs-type">Integer</span><span>
</span><a name="line-143"></a><a name="tagIdT"><a href="SwaggerPetstore.Lens.html#tagIdT"><span class="hs-identifier">tagIdT</span></a></a><span> </span><a name="local-6989586621679079444"><a href="#local-6989586621679079444"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079445"><a href="#local-6989586621679079445"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">tagId</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079446"><a href="#local-6989586621679079446"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079445"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079446"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079444"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079445"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-144"></a><span class="hs-pragma">{-# INLINE tagIdT #-}</span><span>
</span><a name="line-145"></a><span>
</span><a name="line-146"></a><span class="hs-comment">-- | 'tagName' Traversal</span><span>
</span><a name="line-147"></a><span class="hs-identifier">tagNameT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span> </span><span class="hs-identifier hs-type">Text</span><span>
</span><a name="line-148"></a><a name="tagNameT"><a href="SwaggerPetstore.Lens.html#tagNameT"><span class="hs-identifier">tagNameT</span></a></a><span> </span><a name="local-6989586621679079447"><a href="#local-6989586621679079447"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079448"><a href="#local-6989586621679079448"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">tagName</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079449"><a href="#local-6989586621679079449"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079448"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079449"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079447"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079448"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-149"></a><span class="hs-pragma">{-# INLINE tagNameT #-}</span><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-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-147"></a><span class="hs-pragma">{-# INLINE tagNameL #-}</span><span>
</span><a name="line-148"></a><span>
</span><a name="line-149"></a><span>
</span><a name="line-150"></a><span>
</span><a name="line-151"></a><span>
</span><a name="line-151"></a><span class="hs-comment">-- * User</span><span>
</span><a name="line-152"></a><span>
</span><a name="line-153"></a><span class="hs-comment">-- * User</span><span>
</span><a name="line-154"></a><span>
</span><a name="line-155"></a><span class="hs-comment">-- | 'userId' Traversal</span><span>
</span><a name="line-156"></a><span class="hs-identifier">userIdT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-identifier hs-type">Integer</span><span>
</span><a name="line-157"></a><a name="userIdT"><a href="SwaggerPetstore.Lens.html#userIdT"><span class="hs-identifier">userIdT</span></a></a><span> </span><a name="local-6989586621679079450"><a href="#local-6989586621679079450"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079451"><a href="#local-6989586621679079451"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">userId</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079452"><a href="#local-6989586621679079452"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079451"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079452"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079450"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079451"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-158"></a><span class="hs-pragma">{-# INLINE userIdT #-}</span><span>
</span><a name="line-159"></a><span>
</span><a name="line-160"></a><span class="hs-comment">-- | 'userUsername' Traversal</span><span>
</span><a name="line-161"></a><span class="hs-identifier">userUsernameT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-identifier hs-type">Text</span><span>
</span><a name="line-162"></a><a name="userUsernameT"><a href="SwaggerPetstore.Lens.html#userUsernameT"><span class="hs-identifier">userUsernameT</span></a></a><span> </span><a name="local-6989586621679079453"><a href="#local-6989586621679079453"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079454"><a href="#local-6989586621679079454"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">userUsername</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">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079454"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079455"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079453"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079454"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-163"></a><span class="hs-pragma">{-# INLINE userUsernameT #-}</span><span>
</span><a name="line-164"></a><span>
</span><a name="line-165"></a><span class="hs-comment">-- | 'userFirstName' Traversal</span><span>
</span><a name="line-166"></a><span class="hs-identifier">userFirstNameT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-identifier hs-type">Text</span><span>
</span><a name="line-167"></a><a name="userFirstNameT"><a href="SwaggerPetstore.Lens.html#userFirstNameT"><span class="hs-identifier">userFirstNameT</span></a></a><span> </span><a name="local-6989586621679079456"><a href="#local-6989586621679079456"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079457"><a href="#local-6989586621679079457"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">userFirstName</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079458"><a href="#local-6989586621679079458"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079457"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079458"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079456"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079457"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-168"></a><span class="hs-pragma">{-# INLINE userFirstNameT #-}</span><span>
</span><a name="line-169"></a><span>
</span><a name="line-170"></a><span class="hs-comment">-- | 'userLastName' Traversal</span><span>
</span><a name="line-171"></a><span class="hs-identifier">userLastNameT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-identifier hs-type">Text</span><span>
</span><a name="line-172"></a><a name="userLastNameT"><a href="SwaggerPetstore.Lens.html#userLastNameT"><span class="hs-identifier">userLastNameT</span></a></a><span> </span><a name="local-6989586621679079459"><a href="#local-6989586621679079459"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079460"><a href="#local-6989586621679079460"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">userLastName</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079461"><a href="#local-6989586621679079461"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079460"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079461"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079459"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079460"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-173"></a><span class="hs-pragma">{-# INLINE userLastNameT #-}</span><span>
</span><a name="line-174"></a><span>
</span><a name="line-175"></a><span class="hs-comment">-- | 'userEmail' Traversal</span><span>
</span><a name="line-176"></a><span class="hs-identifier">userEmailT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-identifier hs-type">Text</span><span>
</span><a name="line-177"></a><a name="userEmailT"><a href="SwaggerPetstore.Lens.html#userEmailT"><span class="hs-identifier">userEmailT</span></a></a><span> </span><a name="local-6989586621679079462"><a href="#local-6989586621679079462"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079463"><a href="#local-6989586621679079463"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">userEmail</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079464"><a href="#local-6989586621679079464"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079463"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079464"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079462"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079463"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-178"></a><span class="hs-pragma">{-# INLINE userEmailT #-}</span><span>
</span><a name="line-179"></a><span>
</span><a name="line-180"></a><span class="hs-comment">-- | 'userPassword' Traversal</span><span>
</span><a name="line-181"></a><span class="hs-identifier">userPasswordT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-identifier hs-type">Text</span><span>
</span><a name="line-182"></a><a name="userPasswordT"><a href="SwaggerPetstore.Lens.html#userPasswordT"><span class="hs-identifier">userPasswordT</span></a></a><span> </span><a name="local-6989586621679079465"><a href="#local-6989586621679079465"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079466"><a href="#local-6989586621679079466"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">userPassword</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079467"><a href="#local-6989586621679079467"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079466"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079467"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079465"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079466"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-183"></a><span class="hs-pragma">{-# INLINE userPasswordT #-}</span><span>
</span><a name="line-184"></a><span>
</span><a name="line-185"></a><span class="hs-comment">-- | 'userPhone' Traversal</span><span>
</span><a name="line-186"></a><span class="hs-identifier">userPhoneT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-identifier hs-type">Text</span><span>
</span><a name="line-187"></a><a name="userPhoneT"><a href="SwaggerPetstore.Lens.html#userPhoneT"><span class="hs-identifier">userPhoneT</span></a></a><span> </span><a name="local-6989586621679079468"><a href="#local-6989586621679079468"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079469"><a href="#local-6989586621679079469"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">userPhone</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079470"><a href="#local-6989586621679079470"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079469"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079470"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079468"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079469"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-188"></a><span class="hs-pragma">{-# INLINE userPhoneT #-}</span><span>
</span><a name="line-189"></a><span>
</span><a name="line-190"></a><span class="hs-comment">-- | 'userUserStatus' Traversal</span><span>
</span><a name="line-191"></a><span class="hs-identifier">userUserStatusT</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Lens.html#Traversal_%27"><span class="hs-identifier hs-type">Traversal_'</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-identifier hs-type">Int</span><span>
</span><a name="line-192"></a><a name="userUserStatusT"><a href="SwaggerPetstore.Lens.html#userUserStatusT"><span class="hs-identifier">userUserStatusT</span></a></a><span> </span><a name="local-6989586621679079471"><a href="#local-6989586621679079471"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079472"><a href="#local-6989586621679079472"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier hs-var">_mtraversal</span></a><span> </span><span class="hs-identifier">userUserStatus</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079473"><a href="#local-6989586621679079473"><span class="hs-identifier">b</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079472"><span class="hs-identifier hs-var">s</span></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">Just</span><span> </span><a href="#local-6989586621679079473"><span class="hs-identifier hs-var">b</span></a><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679079471"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079472"><span class="hs-identifier hs-var">s</span></a><span>
</span><a name="line-193"></a><span class="hs-pragma">{-# INLINE userUserStatusT #-}</span><span>
</span><a name="line-194"></a><span>
</span><a name="line-195"></a><span>
</span><a name="line-196"></a><span>
</span><a name="line-197"></a><span>
</span><a name="line-198"></a><span class="hs-comment">-- * Helpers</span><span>
</span><a name="line-199"></a><span>
</span><a name="line-200"></a><span class="hs-identifier">_mtraversal</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Applicative</span><span> </span><a href="#local-6989586621679079379"><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-6989586621679079380"><span class="hs-identifier hs-type">b</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-6989586621679079381"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679079382"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079380"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679079381"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079379"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679079382"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079380"><span class="hs-identifier hs-type">b</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079379"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679079380"><span class="hs-identifier hs-type">b</span></a><span>
</span><a name="line-201"></a><a name="_mtraversal"><a href="SwaggerPetstore.Lens.html#_mtraversal"><span class="hs-identifier">_mtraversal</span></a></a><span> </span><a name="local-6989586621679079474"><a href="#local-6989586621679079474"><span class="hs-identifier">x</span></a></a><span> </span><a name="local-6989586621679079475"><a href="#local-6989586621679079475"><span class="hs-identifier">fsb</span></a></a><span> </span><a name="local-6989586621679079476"><a href="#local-6989586621679079476"><span class="hs-identifier">f</span></a></a><span> </span><a name="local-6989586621679079477"><a href="#local-6989586621679079477"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">maybe</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">pure</span><span> </span><a href="#local-6989586621679079477"><span class="hs-identifier hs-var">s</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679079478"><a href="#local-6989586621679079478"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679079475"><span class="hs-identifier hs-var">fsb</span></a><span> </span><span class="hs-operator hs-var">&lt;$&gt;</span><span> </span><a href="#local-6989586621679079476"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679079478"><span class="hs-identifier hs-var">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679079474"><span class="hs-identifier hs-var">x</span></a><span> </span><a href="#local-6989586621679079477"><span class="hs-identifier hs-var">s</span></a><span class="hs-special">)</span><span>
</span><a name="line-202"></a><span class="hs-pragma">{-# INLINE _mtraversal #-}</span><span>
</span><a name="line-203"></a></pre></body></html>
</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-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-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-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-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-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-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-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-191"></a><span class="hs-pragma">{-# INLINE userUserStatusL #-}</span><span>
</span><a name="line-192"></a><span>
</span><a name="line-193"></a><span>
</span><a name="line-194"></a></pre></body></html>

8
samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Model.html
View File

@ -365,14 +365,14 @@ Module : SwaggerPetstore.Model
</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;&quot;@</span><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;&quot;</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;&quot;@</span><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;&quot;</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>

4
samples/client/petstore/haskell-http-client/example-app/Main.hs
View File

@ -200,8 +200,8 @@ runUser mgr config = do
let createUserRequest = S.createUser S.MimeJSON user
_ <- S.dispatchLbs mgr config createUserRequest S.MimeJSON
-- can use traversals or lenses (model record names are appended with T or L) to view or modify records
let users = take 8 $ drop 1 $ iterate (L.over S.userUsernameT (<> "*") . L.over S.userIdT (+1)) user
-- can use lenses (model record names are appended L) to view or modify records
let users = take 8 $ drop 1 $ iterate (L.over S.userUsernameL (fmap (<> "*")) . L.over S.userIdL (fmap (+ 1))) user
let createUsersWithArrayInputRequest = S.createUsersWithArrayInput S.MimeJSON users
_ <- S.dispatchLbs mgr config createUsersWithArrayInputRequest S.MimeNoContent

213
samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Lens.hs
View File

@ -29,174 +29,165 @@ import SwaggerPetstore.Model
-- * Type Aliases
type Traversal_' s a = Traversal_ s s a a
type Traversal_ s t a b = forall (f :: * -> *). Applicative f => (a -> f b) -> s -> f t
type Lens_' s a = Lens_ s s a a
type Lens_ s t a b = forall (f :: * -> *). Functor f => (a -> f b) -> s -> f t
-- * ApiResponse
-- | 'apiResponseCode' Traversal
apiResponseCodeT :: Traversal_' ApiResponse Int
apiResponseCodeT f s = _mtraversal apiResponseCode (\b -> s { apiResponseCode = Just b}) f s
{-# INLINE apiResponseCodeT #-}
-- | 'apiResponseCode' Lens
apiResponseCodeL :: Lens_' ApiResponse (Maybe Int)
apiResponseCodeL f ApiResponse{..} = (\apiResponseCode -> ApiResponse { apiResponseCode, ..} ) <$> f apiResponseCode
{-# INLINE apiResponseCodeL #-}
-- | 'apiResponseType' Traversal
apiResponseTypeT :: Traversal_' ApiResponse Text
apiResponseTypeT f s = _mtraversal apiResponseType (\b -> s { apiResponseType = Just b}) f s
{-# INLINE apiResponseTypeT #-}
-- | 'apiResponseType' Lens
apiResponseTypeL :: Lens_' ApiResponse (Maybe Text)
apiResponseTypeL f ApiResponse{..} = (\apiResponseType -> ApiResponse { apiResponseType, ..} ) <$> f apiResponseType
{-# INLINE apiResponseTypeL #-}
-- | 'apiResponseMessage' Traversal
apiResponseMessageT :: Traversal_' ApiResponse Text
apiResponseMessageT f s = _mtraversal apiResponseMessage (\b -> s { apiResponseMessage = Just b}) f s
{-# INLINE apiResponseMessageT #-}
-- | 'apiResponseMessage' Lens
apiResponseMessageL :: Lens_' ApiResponse (Maybe Text)
apiResponseMessageL f ApiResponse{..} = (\apiResponseMessage -> ApiResponse { apiResponseMessage, ..} ) <$> f apiResponseMessage
{-# INLINE apiResponseMessageL #-}
-- * Category
-- | 'categoryId' Traversal
categoryIdT :: Traversal_' Category Integer
categoryIdT f s = _mtraversal categoryId (\b -> s { categoryId = Just b}) f s
{-# INLINE categoryIdT #-}
-- | 'categoryId' Lens
categoryIdL :: Lens_' Category (Maybe Integer)
categoryIdL f Category{..} = (\categoryId -> Category { categoryId, ..} ) <$> f categoryId
{-# INLINE categoryIdL #-}
-- | 'categoryName' Traversal
categoryNameT :: Traversal_' Category Text
categoryNameT f s = _mtraversal categoryName (\b -> s { categoryName = Just b}) f s
{-# INLINE categoryNameT #-}
-- | 'categoryName' Lens
categoryNameL :: Lens_' Category (Maybe Text)
categoryNameL f Category{..} = (\categoryName -> Category { categoryName, ..} ) <$> f categoryName
{-# INLINE categoryNameL #-}
-- * Order
-- | 'orderId' Traversal
orderIdT :: Traversal_' Order Integer
orderIdT f s = _mtraversal orderId (\b -> s { orderId = Just b}) f s
{-# INLINE orderIdT #-}
-- | 'orderId' Lens
orderIdL :: Lens_' Order (Maybe Integer)
orderIdL f Order{..} = (\orderId -> Order { orderId, ..} ) <$> f orderId
{-# INLINE orderIdL #-}
-- | 'orderPetId' Traversal
orderPetIdT :: Traversal_' Order Integer
orderPetIdT f s = _mtraversal orderPetId (\b -> s { orderPetId = Just b}) f s
{-# INLINE orderPetIdT #-}
-- | 'orderPetId' Lens
orderPetIdL :: Lens_' Order (Maybe Integer)
orderPetIdL f Order{..} = (\orderPetId -> Order { orderPetId, ..} ) <$> f orderPetId
{-# INLINE orderPetIdL #-}
-- | 'orderQuantity' Traversal
orderQuantityT :: Traversal_' Order Int
orderQuantityT f s = _mtraversal orderQuantity (\b -> s { orderQuantity = Just b}) f s
{-# INLINE orderQuantityT #-}
-- | 'orderQuantity' Lens
orderQuantityL :: Lens_' Order (Maybe Int)
orderQuantityL f Order{..} = (\orderQuantity -> Order { orderQuantity, ..} ) <$> f orderQuantity
{-# INLINE orderQuantityL #-}
-- | 'orderShipDate' Traversal
orderShipDateT :: Traversal_' Order UTCTime
orderShipDateT f s = _mtraversal orderShipDate (\b -> s { orderShipDate = Just b}) f s
{-# INLINE orderShipDateT #-}
-- | 'orderShipDate' Lens
orderShipDateL :: Lens_' Order (Maybe UTCTime)
orderShipDateL f Order{..} = (\orderShipDate -> Order { orderShipDate, ..} ) <$> f orderShipDate
{-# INLINE orderShipDateL #-}
-- | 'orderStatus' Traversal
orderStatusT :: Traversal_' Order Text
orderStatusT f s = _mtraversal orderStatus (\b -> s { orderStatus = Just b}) f s
{-# INLINE orderStatusT #-}
-- | 'orderStatus' Lens
orderStatusL :: Lens_' Order (Maybe Text)
orderStatusL f Order{..} = (\orderStatus -> Order { orderStatus, ..} ) <$> f orderStatus
{-# INLINE orderStatusL #-}
-- | 'orderComplete' Traversal
orderCompleteT :: Traversal_' Order Bool
orderCompleteT f s = _mtraversal orderComplete (\b -> s { orderComplete = Just b}) f s
{-# INLINE orderCompleteT #-}
-- | 'orderComplete' Lens
orderCompleteL :: Lens_' Order (Maybe Bool)
orderCompleteL f Order{..} = (\orderComplete -> Order { orderComplete, ..} ) <$> f orderComplete
{-# INLINE orderCompleteL #-}
-- * Pet
-- | 'petId' Traversal
petIdT :: Traversal_' Pet Integer
petIdT f s = _mtraversal petId (\b -> s { petId = Just b}) f s
{-# INLINE petIdT #-}
-- | 'petId' Lens
petIdL :: Lens_' Pet (Maybe Integer)
petIdL f Pet{..} = (\petId -> Pet { petId, ..} ) <$> f petId
{-# INLINE petIdL #-}
-- | 'petCategory' Traversal
petCategoryT :: Traversal_' Pet Category
petCategoryT f s = _mtraversal petCategory (\b -> s { petCategory = Just b}) f s
{-# INLINE petCategoryT #-}
-- | 'petCategory' Lens
petCategoryL :: Lens_' Pet (Maybe Category)
petCategoryL f Pet{..} = (\petCategory -> Pet { petCategory, ..} ) <$> f petCategory
{-# INLINE petCategoryL #-}
-- | 'petName' Lens
petNameL :: Lens_' Pet Text
petNameL :: Lens_' Pet (Text)
petNameL f Pet{..} = (\petName -> Pet { petName, ..} ) <$> f petName
{-# INLINE petNameL #-}
-- | 'petPhotoUrls' Lens
petPhotoUrlsL :: Lens_' Pet [Text]
petPhotoUrlsL :: Lens_' Pet ([Text])
petPhotoUrlsL f Pet{..} = (\petPhotoUrls -> Pet { petPhotoUrls, ..} ) <$> f petPhotoUrls
{-# INLINE petPhotoUrlsL #-}
-- | 'petTags' Traversal
petTagsT :: Traversal_' Pet [Tag]
petTagsT f s = _mtraversal petTags (\b -> s { petTags = Just b}) f s
{-# INLINE petTagsT #-}
-- | 'petTags' Lens
petTagsL :: Lens_' Pet (Maybe [Tag])
petTagsL f Pet{..} = (\petTags -> Pet { petTags, ..} ) <$> f petTags
{-# INLINE petTagsL #-}
-- | 'petStatus' Traversal
petStatusT :: Traversal_' Pet Text
petStatusT f s = _mtraversal petStatus (\b -> s { petStatus = Just b}) f s
{-# INLINE petStatusT #-}
-- | 'petStatus' Lens
petStatusL :: Lens_' Pet (Maybe Text)
petStatusL f Pet{..} = (\petStatus -> Pet { petStatus, ..} ) <$> f petStatus
{-# INLINE petStatusL #-}
-- * Tag
-- | 'tagId' Traversal
tagIdT :: Traversal_' Tag Integer
tagIdT f s = _mtraversal tagId (\b -> s { tagId = Just b}) f s
{-# INLINE tagIdT #-}
-- | 'tagId' Lens
tagIdL :: Lens_' Tag (Maybe Integer)
tagIdL f Tag{..} = (\tagId -> Tag { tagId, ..} ) <$> f tagId
{-# INLINE tagIdL #-}
-- | 'tagName' Traversal
tagNameT :: Traversal_' Tag Text
tagNameT f s = _mtraversal tagName (\b -> s { tagName = Just b}) f s
{-# INLINE tagNameT #-}
-- | 'tagName' Lens
tagNameL :: Lens_' Tag (Maybe Text)
tagNameL f Tag{..} = (\tagName -> Tag { tagName, ..} ) <$> f tagName
{-# INLINE tagNameL #-}
-- * User
-- | 'userId' Traversal
userIdT :: Traversal_' User Integer
userIdT f s = _mtraversal userId (\b -> s { userId = Just b}) f s
{-# INLINE userIdT #-}
-- | 'userId' Lens
userIdL :: Lens_' User (Maybe Integer)
userIdL f User{..} = (\userId -> User { userId, ..} ) <$> f userId
{-# INLINE userIdL #-}
-- | 'userUsername' Traversal
userUsernameT :: Traversal_' User Text
userUsernameT f s = _mtraversal userUsername (\b -> s { userUsername = Just b}) f s
{-# INLINE userUsernameT #-}
-- | 'userUsername' Lens
userUsernameL :: Lens_' User (Maybe Text)
userUsernameL f User{..} = (\userUsername -> User { userUsername, ..} ) <$> f userUsername
{-# INLINE userUsernameL #-}
-- | 'userFirstName' Traversal
userFirstNameT :: Traversal_' User Text
userFirstNameT f s = _mtraversal userFirstName (\b -> s { userFirstName = Just b}) f s
{-# INLINE userFirstNameT #-}
-- | 'userFirstName' Lens
userFirstNameL :: Lens_' User (Maybe Text)
userFirstNameL f User{..} = (\userFirstName -> User { userFirstName, ..} ) <$> f userFirstName
{-# INLINE userFirstNameL #-}
-- | 'userLastName' Traversal
userLastNameT :: Traversal_' User Text
userLastNameT f s = _mtraversal userLastName (\b -> s { userLastName = Just b}) f s
{-# INLINE userLastNameT #-}
-- | 'userLastName' Lens
userLastNameL :: Lens_' User (Maybe Text)
userLastNameL f User{..} = (\userLastName -> User { userLastName, ..} ) <$> f userLastName
{-# INLINE userLastNameL #-}
-- | 'userEmail' Traversal
userEmailT :: Traversal_' User Text
userEmailT f s = _mtraversal userEmail (\b -> s { userEmail = Just b}) f s
{-# INLINE userEmailT #-}
-- | 'userEmail' Lens
userEmailL :: Lens_' User (Maybe Text)
userEmailL f User{..} = (\userEmail -> User { userEmail, ..} ) <$> f userEmail
{-# INLINE userEmailL #-}
-- | 'userPassword' Traversal
userPasswordT :: Traversal_' User Text
userPasswordT f s = _mtraversal userPassword (\b -> s { userPassword = Just b}) f s
{-# INLINE userPasswordT #-}
-- | 'userPassword' Lens
userPasswordL :: Lens_' User (Maybe Text)
userPasswordL f User{..} = (\userPassword -> User { userPassword, ..} ) <$> f userPassword
{-# INLINE userPasswordL #-}
-- | 'userPhone' Traversal
userPhoneT :: Traversal_' User Text
userPhoneT f s = _mtraversal userPhone (\b -> s { userPhone = Just b}) f s
{-# INLINE userPhoneT #-}
-- | 'userPhone' Lens
userPhoneL :: Lens_' User (Maybe Text)
userPhoneL f User{..} = (\userPhone -> User { userPhone, ..} ) <$> f userPhone
{-# INLINE userPhoneL #-}
-- | 'userUserStatus' Traversal
userUserStatusT :: Traversal_' User Int
userUserStatusT f s = _mtraversal userUserStatus (\b -> s { userUserStatus = Just b}) f s
{-# INLINE userUserStatusT #-}
-- | 'userUserStatus' Lens
userUserStatusL :: Lens_' User (Maybe Int)
userUserStatusL f User{..} = (\userUserStatus -> User { userUserStatus, ..} ) <$> f userUserStatus
{-# INLINE userUserStatusL #-}
-- * Helpers
_mtraversal :: Applicative f => (b -> Maybe t) -> (a -> b) -> (t -> f a) -> b -> f b
_mtraversal x fsb f s = maybe (pure s) (\a -> fsb <$> f a) (x s)
{-# INLINE _mtraversal #-}

8
samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Model.hs
View File

@ -365,14 +365,14 @@ _parseISO8601 t =
-- * Date Formatting
-- | @TI.parseTimeM True TI.defaultTimeLocale ""@
-- | @TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"@
_readDate :: (TI.ParseTime t, Monad m) => String -> m t
_readDate =
TI.parseTimeM True TI.defaultTimeLocale ""
TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"
{-# INLINE _readDate #-}
-- | @TI.formatTime TI.defaultTimeLocale ""@
-- | @TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"@
_showDate :: TI.FormatTime t => t -> String
_showDate =
TI.formatTime TI.defaultTimeLocale ""
TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"
{-# INLINE _showDate #-}

1
samples/client/petstore/haskell-http-client/swagger-petstore.cabal
View File

@ -7,6 +7,7 @@ version: 0.1.0.0
synopsis: Auto-generated swagger-petstore API Client
description: .
Client library for calling the swagger-petstore API based on http-client.
host: petstore.swagger.io
.
base path: http://petstore.swagger.io/v2
.

5
samples/client/petstore/haskell-http-client/tests-integration/package.yaml
View File

@ -29,9 +29,12 @@ dependencies:
- text >=0.11 && <1.3
- time >=1.5 && <1.9
- vector >=0.10.9 && <0.13
- monad-logger >=0.3 && <0.4
- exceptions >= 0.4
- case-insensitive
- swagger-petstore
- safe-exceptions <0.2
- microlens
- swagger-petstore
tests:
tests:
main: Test.hs

5
samples/client/petstore/haskell-http-client/tests-integration/swagger-petstore-tests-integration.cabal
View File

@ -40,10 +40,13 @@ test-suite tests
, text >=0.11 && <1.3
, time >=1.5 && <1.9
, vector >=0.10.9 && <0.13
, monad-logger >=0.3 && <0.4
, exceptions >= 0.4
, case-insensitive
, swagger-petstore
, safe-exceptions <0.2
, microlens
, swagger-petstore
, swagger-petstore
, bytestring >=0.10.0 && <0.11
, containers
, hspec >=1.8

6
samples/client/petstore/haskell-http-client/tests-integration/tests/Test.hs
View File

@ -237,7 +237,11 @@ testUserOps mgr config = do
}
_users =
take 8 $
drop 1 $ iterate (L.over S.userUsernameT (<> "*") . L.over S.userIdT (+ 1)) _user
drop 1 $
iterate
(L.over (S.userUsernameL . L._Just) (<> "*") .
L.over (S.userIdL . L._Just) (+ 1))
_user
before (pure _user) $
it "createUser" $ \user -> do