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

[haskell-http-client] resolve oas 2.0 regressions (#198)

Browse Source 
* [haskell-http-client] fix codegen issues

* ensure datatypeWithEnum is set on codegenParameter when is enum

* [haskell-http-client] fix isAlias + arrayModelType missing "datatype"

* [haskell-http-client] param.isListContainer is sometimes false for list types

* [haskell-http-client] gen MimeNoContent instances automatically

* [haskell-http-client] fix example-app and integration tests

* [haskell-http-client] update docs
This commit is contained in:
Jon Schoning 2018-04-23 03:10:50 -05:00 committed by William Cheng
parent 019b0dca1c
commit db02cc2ac9
81 changed files with 5231 additions and 5524 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
modules/openapi-generator/src/main/java/org/openapitools/codegen/DefaultCodegen.java
View File

@ -4115,9 +4115,12 @@ public class DefaultCodegen implements CodegenConfig {
codegenParameter._enum = codegenProperty._enum;
codegenParameter.allowableValues = codegenProperty.allowableValues;
if (codegenProperty.items != null && codegenProperty.items.isEnum) {
if (codegenProperty.isEnum) {
codegenParameter.datatypeWithEnum = codegenProperty.datatypeWithEnum;
codegenParameter.enumName = codegenProperty.enumName;
}
if (codegenProperty.items != null && codegenProperty.items.isEnum) {
codegenParameter.items = codegenProperty.items;
}

18
modules/openapi-generator/src/main/java/org/openapitools/codegen/languages/HaskellHttpClientCodegen.java
View File

@ -118,6 +118,8 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
public HaskellHttpClientCodegen() {
super();
this.prependFormOrBodyParameters = true;
// override the mapping to keep the original mapping in Haskell
specialCharReplacements.put("-", "Dash");
specialCharReplacements.put(">", "GreaterThan");
@ -620,6 +622,10 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
param.vendorExtensions.put(X_IS_BODY_OR_FORM_PARAM, param.isBodyParam || param.isFormParam);
if (!StringUtils.isBlank(param.collectionFormat)) {
param.vendorExtensions.put(X_COLLECTION_FORMAT, mapCollectionFormat(param.collectionFormat));
} else if (!param.isBodyParam && (param.isListContainer || param.dataType.startsWith("["))) { // param.isListContainer is sometimes false for list types
// defaulting due to https://github.com/wing328/openapi-generator/issues/72
param.collectionFormat = "csv";
param.vendorExtensions.put(X_COLLECTION_FORMAT, mapCollectionFormat(param.collectionFormat));
}
if (!param.required) {
op.vendorExtensions.put(X_HAS_OPTIONAL_PARAMS, true);
@ -734,9 +740,9 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
public CodegenModel fromModel(String name, Schema mod, Map<String, Schema> allDefinitions) {
CodegenModel model = super.fromModel(name, mod, allDefinitions);
while (typeNames.contains(model.classname)) {
model.classname = generateNextName(model.classname);
}
// while (typeNames.contains(model.classname)) {
// model.classname = generateNextName(model.classname);
// }
typeNames.add(model.classname);
modelTypeNames.add(model.classname);
@ -1154,7 +1160,11 @@ public class HaskellHttpClientCodegen extends DefaultCodegen implements CodegenC
CodegenModel cm = (CodegenModel) mo.get("model");
cm.isEnum = genEnums && cm.isEnum;
if (cm.isAlias) {
cm.vendorExtensions.put(X_DATA_TYPE, cm.dataType);
String dataType = cm.dataType;
if(dataType == null && cm.isArrayModel) { // isAlias + arrayModelType missing "datatype"
dataType = "[" + cm.arrayModelType +"]" ;
}
cm.vendorExtensions.put(X_DATA_TYPE, dataType);
}
for (CodegenProperty var : cm.vars) {
String datatype = genEnums && !StringUtils.isBlank(var.datatypeWithEnum)

7
modules/openapi-generator/src/main/resources/haskell-http-client/API.mustache
View File

@ -91,8 +91,11 @@ instance HasOptionalParam {{{vendorExtensions.x-operationType}}} {{{vendorExtens
{{#consumes}}-- | @{{{mediaType}}}@{{^x-mediaIsWildcard}}
instance Consumes {{{vendorExtensions.x-operationType}}} {{{x-mediaDataType}}}{{/x-mediaIsWildcard}}{{#x-mediaIsWildcard}}
instance MimeType mtype => Consumes {{{vendorExtensions.x-operationType}}} mtype{{/x-mediaIsWildcard}}
{{/consumes}}{{/hasConsumes}}{{#hasProduces}}
{{/consumes}}{{/hasConsumes}}{{^hasConsumes}}
{{/hasConsumes}}{{#hasProduces}}
{{#produces}}-- | @{{{mediaType}}}@{{^x-mediaIsWildcard}}
instance Produces {{{vendorExtensions.x-operationType}}} {{{x-mediaDataType}}}{{/x-mediaIsWildcard}}{{#x-mediaIsWildcard}}
instance MimeType mtype => Produces {{{vendorExtensions.x-operationType}}} mtype{{/x-mediaIsWildcard}}
{{/produces}}{{/hasProduces}}{{/operation}}{{/operations}}
{{/produces}}{{/hasProduces}}{{^hasProduces}}
instance Produces {{{vendorExtensions.x-operationType}}} MimeNoContent
{{/hasProduces}}{{/operation}}{{/operations}}

2
modules/openapi-generator/src/main/resources/haskell-http-client/Model.mustache
View File

@ -73,7 +73,7 @@ newtype {{{x-paramNameType}}} = {{{x-paramNameType}}} { un{{{x-paramNameType}}}
-- {{{.}}}{{/description}}{{#isAlias}}
newtype {{classname}} = {{classname}}
{ un{{classname}} :: {{{vendorExtensions.x-dataType}}}
} deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON, WH.ToHttpApiData, WH.FromHttpApiData{{#modelDeriving}}, {{modelDeriving}}{{/modelDeriving}}){{/isAlias}}{{^isAlias}}
} deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON{{#modelDeriving}}, {{modelDeriving}}{{/modelDeriving}}){{/isAlias}}{{^isAlias}}
data {{classname}} = {{classname}}
{ {{#vars}}{{name}} :: {{#x-strictFields}}!({{/x-strictFields}}{{^required}}Maybe {{/required}}{{{vendorExtensions.x-dataType}}}{{#x-strictFields}}){{/x-strictFields}} -- ^ {{#required}}/Required/ {{/required}}{{#readOnly}}/ReadOnly/ {{/readOnly}}"{{baseName}}"{{#description}} - {{description}}{{/description}}{{#hasMore}}
, {{/hasMore}}{{/vars}}

4
modules/openapi-generator/src/main/resources/haskell-http-client/README.mustache
View File

@ -2,9 +2,7 @@
The library in `lib` provides auto-generated-from-Swagger [http-client](https://www.stackage.org/lts-10.0/package/http-client-0.5.7.1) bindings to the {{appName}} API.
Targeted swagger version: {{swaggerVersion}}
OpenAPI-Specification: https://github.com/OAI/OpenAPI-Specification/blob/master/versions/{{swaggerVersion}}.md
OpenApi Version: {{openApiVersion}}
## Installation

5
modules/openapi-generator/src/main/resources/haskell-http-client/haskell-http-client.cabal.mustache
View File

@ -12,12 +12,11 @@ description: .
{{appName}} API version: {{{.}}}
{{/version}}
.
OpenAPI spec version: {{swaggerVersion}}
OpenAPI version: {{openApiVersion}}
.
{{^hideGenerationTimestamp}}Generated on: {{generatedDate}}
.
{{/hideGenerationTimestamp}}OpenAPI-Specification: https://github.com/OAI/OpenAPI-Specification/blob/master/versions/{{swaggerVersion}}.md
.
{{/hideGenerationTimestamp}}
category: Web
homepage: https://github.com/swagger-api/swagger-codegen#readme
author: Author Name Here

6
modules/openapi-generator/src/main/resources/haskell-http-client/partial_header.mustache
View File

@ -7,9 +7,9 @@
{{{.}}}
{{/appDescription}}
{{#swaggerVersion}}
OpenAPI spec version: {{{.}}}
{{/swaggerVersion}}
{{#openApiVersion}}
OpenAPI Version: {{{.}}}
{{/openApiVersion}}
{{#version}}
{{appName}} API version: {{{.}}}
{{/version}}

2
samples/client/petstore/haskell-http-client/.openapi-generator/VERSION
View File

@ -1 +1 @@
2.4.0-SNAPSHOT
3.0.0-SNAPSHOT

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

@ -2,9 +2,7 @@
The library in `lib` provides auto-generated-from-Swagger [http-client](https://www.stackage.org/lts-10.0/package/http-client-0.5.7.1) bindings to the Swagger Petstore API.
Targeted swagger version: 2.0
OpenAPI-Specification: https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md
OpenApi Version: 3.0.1
## Installation

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

15
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/SwaggerPetstore-ModelLens.html
View File

File diff suppressed because one or more lines are too long

2
samples/client/petstore/haskell-http-client/docs/doc-index-45.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 - -)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.0/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-B.html">B</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 - -</p><table><tr><td class="src">-&amp;-</td><td class="module"><a href="SwaggerPetstore-Core.html#v:-45--38--45-">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</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-B.html">B</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-Q.html">Q</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 - -</p><table><tr><td class="src">-&amp;-</td><td class="module"><a href="SwaggerPetstore-Core.html#v:-45--38--45-">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</p></div></body></html>

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

File diff suppressed because one or more lines are too long

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-B.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 - B)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.0/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-B.html">B</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 - B</p><table><tr><td class="src">Binary</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Core.html#t:Binary">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Core.html#v:Binary">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">Body</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Body">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Body">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">Byte</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Byte">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Byte">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">ByteArray</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Core.html#t:ByteArray">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Core.html#v:ByteArray">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</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-B.html">B</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-Q.html">Q</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 - B</p><table><tr><td class="src">Binary</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Core.html#t:Binary">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Core.html#v:Binary">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">Body</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Body">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Body">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">BodyText</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:BodyText">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:BodyText">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">BooleanPostBody</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:BooleanPostBody">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:BooleanPostBody">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">Byte</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Byte">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Byte">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">ByteArray</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Core.html#t:ByteArray">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Core.html#v:ByteArray">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</p></div></body></html>

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

2
samples/client/petstore/haskell-http-client/docs/doc-index-G.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 - G)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.0/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-B.html">B</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 - G</p><table><tr><td class="src">GetInventory</td><td class="module"><a href="SwaggerPetstore-API-Store.html#t:GetInventory">SwaggerPetstore.API.Store</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">getInventory</td><td class="module"><a href="SwaggerPetstore-API-Store.html#v:getInventory">SwaggerPetstore.API.Store</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">GetOrderById</td><td class="module"><a href="SwaggerPetstore-API-Store.html#t:GetOrderById">SwaggerPetstore.API.Store</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">getOrderById</td><td class="module"><a href="SwaggerPetstore-API-Store.html#v:getOrderById">SwaggerPetstore.API.Store</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">GetPetById</td><td class="module"><a href="SwaggerPetstore-API-Pet.html#t:GetPetById">SwaggerPetstore.API.Pet</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">getPetById</td><td class="module"><a href="SwaggerPetstore-API-Pet.html#v:getPetById">SwaggerPetstore.API.Pet</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">GetUserByName</td><td class="module"><a href="SwaggerPetstore-API-User.html#t:GetUserByName">SwaggerPetstore.API.User</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">getUserByName</td><td class="module"><a href="SwaggerPetstore-API-User.html#v:getUserByName">SwaggerPetstore.API.User</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</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-B.html">B</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-Q.html">Q</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 - G</p><table><tr><td class="src">GetInventory</td><td class="module"><a href="SwaggerPetstore-API-Store.html#t:GetInventory">SwaggerPetstore.API.Store</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">getInventory</td><td class="module"><a href="SwaggerPetstore-API-Store.html#v:getInventory">SwaggerPetstore.API.Store</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">GetOrderById</td><td class="module"><a href="SwaggerPetstore-API-Store.html#t:GetOrderById">SwaggerPetstore.API.Store</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">getOrderById</td><td class="module"><a href="SwaggerPetstore-API-Store.html#v:getOrderById">SwaggerPetstore.API.Store</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">GetPetById</td><td class="module"><a href="SwaggerPetstore-API-Pet.html#t:GetPetById">SwaggerPetstore.API.Pet</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">getPetById</td><td class="module"><a href="SwaggerPetstore-API-Pet.html#v:getPetById">SwaggerPetstore.API.Pet</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">GetUserByName</td><td class="module"><a href="SwaggerPetstore-API-User.html#t:GetUserByName">SwaggerPetstore.API.User</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">getUserByName</td><td class="module"><a href="SwaggerPetstore-API-User.html#v:getUserByName">SwaggerPetstore.API.User</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</p></div></body></html>

2
samples/client/petstore/haskell-http-client/docs/doc-index-H.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 - H)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.0/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-B.html">B</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 - H</p><table><tr><td class="src">HasBodyParam</td><td class="module"><a href="SwaggerPetstore-Core.html#t:HasBodyParam">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">HasOnlyReadOnly</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:HasOnlyReadOnly">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:HasOnlyReadOnly">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyBar</td><td class="module"><a href="SwaggerPetstore-Model.html#v:hasOnlyReadOnlyBar">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyBarL</td><td class="module"><a href="SwaggerPetstore-ModelLens.html#v:hasOnlyReadOnlyBarL">SwaggerPetstore.ModelLens</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyFoo</td><td class="module"><a href="SwaggerPetstore-Model.html#v:hasOnlyReadOnlyFoo">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyFooL</td><td class="module"><a href="SwaggerPetstore-ModelLens.html#v:hasOnlyReadOnlyFooL">SwaggerPetstore.ModelLens</a>, SwaggerPetstore</td></tr><tr><td class="src">HasOptionalParam</td><td class="module"><a href="SwaggerPetstore-Core.html#t:HasOptionalParam">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</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-B.html">B</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-Q.html">Q</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 - H</p><table><tr><td class="src">HasBodyParam</td><td class="module"><a href="SwaggerPetstore-Core.html#t:HasBodyParam">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">HasOnlyReadOnly</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:HasOnlyReadOnly">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:HasOnlyReadOnly">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyBar</td><td class="module"><a href="SwaggerPetstore-Model.html#v:hasOnlyReadOnlyBar">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyBarL</td><td class="module"><a href="SwaggerPetstore-ModelLens.html#v:hasOnlyReadOnlyBarL">SwaggerPetstore.ModelLens</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyFoo</td><td class="module"><a href="SwaggerPetstore-Model.html#v:hasOnlyReadOnlyFoo">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">hasOnlyReadOnlyFooL</td><td class="module"><a href="SwaggerPetstore-ModelLens.html#v:hasOnlyReadOnlyFooL">SwaggerPetstore.ModelLens</a>, SwaggerPetstore</td></tr><tr><td class="src">HasOptionalParam</td><td class="module"><a href="SwaggerPetstore-Core.html#t:HasOptionalParam">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</p></div></body></html>

2
samples/client/petstore/haskell-http-client/docs/doc-index-I.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 - I)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.0/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-B.html">B</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 - I</p><table><tr><td class="src">initLogContext</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:initLogContext">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">InitRequest</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Client.html#t:InitRequest">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Client.html#v:InitRequest">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">Int32</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Int32">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Int32">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">Int64</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Int64">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Int64">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</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-B.html">B</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-Q.html">Q</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 - I</p><table><tr><td class="src">initLogContext</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:initLogContext">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">InitRequest</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Client.html#t:InitRequest">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Client.html#v:InitRequest">SwaggerPetstore.Client</a>, SwaggerPetstore</td></tr><tr><td class="src">Int32</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Int32">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Int32">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="src">Int64</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Int64">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Int64">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</p></div></body></html>

2
samples/client/petstore/haskell-http-client/docs/doc-index-L.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 - L)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.0/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-B.html">B</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 - L</p><table><tr><td class="src">Lens_</td><td class="module"><a href="SwaggerPetstore-Core.html#t:Lens_">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">Lens_'</td><td class="module"><a href="SwaggerPetstore-Core.html#t:Lens_-39-">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">levelDebug</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:levelDebug">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">levelError</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:levelError">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">levelInfo</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:levelInfo">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogContext</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogContext">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">logExceptions</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:logExceptions">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogExec</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogExec">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogExecWithContext</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogExecWithContext">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LoginUser</td><td class="module"><a href="SwaggerPetstore-API-User.html#t:LoginUser">SwaggerPetstore.API.User</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">loginUser</td><td class="module"><a href="SwaggerPetstore-API-User.html#v:loginUser">SwaggerPetstore.API.User</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">LogLevel</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogLevel">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogoutUser</td><td class="module"><a href="SwaggerPetstore-API-User.html#t:LogoutUser">SwaggerPetstore.API.User</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">logoutUser</td><td class="module"><a href="SwaggerPetstore-API-User.html#v:logoutUser">SwaggerPetstore.API.User</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</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-B.html">B</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-Q.html">Q</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 - L</p><table><tr><td class="src">Lens_</td><td class="module"><a href="SwaggerPetstore-Core.html#t:Lens_">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">Lens_'</td><td class="module"><a href="SwaggerPetstore-Core.html#t:Lens_-39-">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">levelDebug</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:levelDebug">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">levelError</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:levelError">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">levelInfo</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:levelInfo">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogContext</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogContext">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">logExceptions</td><td class="module"><a href="SwaggerPetstore-Logging.html#v:logExceptions">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogExec</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogExec">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogExecWithContext</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogExecWithContext">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LoginUser</td><td class="module"><a href="SwaggerPetstore-API-User.html#t:LoginUser">SwaggerPetstore.API.User</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">loginUser</td><td class="module"><a href="SwaggerPetstore-API-User.html#v:loginUser">SwaggerPetstore.API.User</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">LogLevel</td><td class="module"><a href="SwaggerPetstore-Logging.html#t:LogLevel">SwaggerPetstore.Logging</a>, SwaggerPetstore</td></tr><tr><td class="src">LogoutUser</td><td class="module"><a href="SwaggerPetstore-API-User.html#t:LogoutUser">SwaggerPetstore.API.User</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr><tr><td class="src">logoutUser</td><td class="module"><a href="SwaggerPetstore-API-User.html#v:logoutUser">SwaggerPetstore.API.User</a>, SwaggerPetstore.API, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</p></div></body></html>

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

File diff suppressed because one or more lines are too long

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

4
samples/client/petstore/haskell-http-client/docs/doc-index-Q.html Normal file
View File

@ -0,0 +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 - Q)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.0/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-B.html">B</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-Q.html">Q</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 - Q</p><table><tr><td class="src">Query</td><td>&nbsp;</td></tr><tr><td class="alt">1 (Type/Class)</td><td class="module"><a href="SwaggerPetstore-Model.html#t:Query">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr><tr><td class="alt">2 (Data Constructor)</td><td class="module"><a href="SwaggerPetstore-Model.html#v:Query">SwaggerPetstore.Model</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</p></div></body></html>

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

File diff suppressed because one or more lines are too long

2
samples/client/petstore/haskell-http-client/docs/doc-index-S.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

File diff suppressed because one or more lines are too long

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/doc-index-W.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 - W)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.0/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-B.html">B</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 - W</p><table><tr><td class="src">withNoLogging</td><td class="module"><a href="SwaggerPetstore-Core.html#v:withNoLogging">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">withStderrLogging</td><td class="module"><a href="SwaggerPetstore-Core.html#v:withStderrLogging">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">withStdoutLogging</td><td class="module"><a href="SwaggerPetstore-Core.html#v:withStdoutLogging">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</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-B.html">B</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-Q.html">Q</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 - W</p><table><tr><td class="src">withNoLogging</td><td class="module"><a href="SwaggerPetstore-Core.html#v:withNoLogging">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">withStderrLogging</td><td class="module"><a href="SwaggerPetstore-Core.html#v:withStderrLogging">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr><tr><td class="src">withStdoutLogging</td><td class="module"><a href="SwaggerPetstore-Core.html#v:withStdoutLogging">SwaggerPetstore.Core</a>, SwaggerPetstore</td></tr></table></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</p></div></body></html>

2
samples/client/petstore/haskell-http-client/docs/doc-index.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)</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.0/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-B.html">B</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><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</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-B.html">B</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-Q.html">Q</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><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</p></div></body></html>

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

@ -2,4 +2,4 @@
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="description"><h1>swagger-petstore-0.1.0.0: Auto-generated swagger-petstore API Client</h1><div class="doc"><p>.
Client library for calling the Swagger Petstore API based on http-client.</p><p>host: petstore.swagger.io:80</p><p>base path: <a href="http://petstore.swagger.io:80/v2">http://petstore.swagger.io:80/v2</a></p><p>Swagger Petstore API version: 1.0.0</p><p>OpenAPI spec version: 2.0</p><p>OpenAPI-Specification: <a href="https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md">https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md</a></p></div></div><div id="module-list"><p class="caption">Signatures</p></div><div id="module-list"><p class="caption">Modules</p><ul><li><span class="module"><span id="control.n.1" class="collapser" onclick="toggleSection('n.1')">&nbsp;</span><a href="SwaggerPetstore.html">SwaggerPetstore</a></span><ul id="section.n.1" class="show"><li><span class="module"><span id="control.n.1.1" class="collapser" onclick="toggleSection('n.1.1')">&nbsp;</span><a href="SwaggerPetstore-API.html">SwaggerPetstore.API</a></span><ul id="section.n.1.1" class="show"><li><span class="module"><a href="SwaggerPetstore-API-AnotherFake.html">SwaggerPetstore.API.AnotherFake</a></span></li><li><span class="module"><a href="SwaggerPetstore-API-Fake.html">SwaggerPetstore.API.Fake</a></span></li><li><span class="module"><a href="SwaggerPetstore-API-FakeClassnameTags123.html">SwaggerPetstore.API.FakeClassnameTags123</a></span></li><li><span class="module"><a href="SwaggerPetstore-API-Pet.html">SwaggerPetstore.API.Pet</a></span></li><li><span class="module"><a href="SwaggerPetstore-API-Store.html">SwaggerPetstore.API.Store</a></span></li><li><span class="module"><a href="SwaggerPetstore-API-User.html">SwaggerPetstore.API.User</a></span></li></ul></li><li><span class="module"><a href="SwaggerPetstore-Client.html">SwaggerPetstore.Client</a></span></li><li><span class="module"><a href="SwaggerPetstore-Core.html">SwaggerPetstore.Core</a></span></li><li><span class="module"><a href="SwaggerPetstore-Logging.html">SwaggerPetstore.Logging</a></span></li><li><span class="module"><a href="SwaggerPetstore-MimeTypes.html">SwaggerPetstore.MimeTypes</a></span></li><li><span class="module"><a href="SwaggerPetstore-Model.html">SwaggerPetstore.Model</a></span></li><li><span class="module"><a href="SwaggerPetstore-ModelLens.html">SwaggerPetstore.ModelLens</a></span></li></ul></li></ul></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</p></div></body></html>
Client library for calling the Swagger Petstore API based on http-client.</p><p>host: petstore.swagger.io</p><p>base path: <a href="http://petstore.swagger.io:80/v2">http://petstore.swagger.io:80/v2</a></p><p>Swagger Petstore API version: 1.0.0</p><p>OpenAPI version: 3.0.1</p><p>category: Web</p></div></div><div id="module-list"><p class="caption">Signatures</p></div><div id="module-list"><p class="caption">Modules</p><ul><li><span class="module"><span id="control.n.1" class="collapser" onclick="toggleSection('n.1')">&nbsp;</span><a href="SwaggerPetstore.html">SwaggerPetstore</a></span><ul id="section.n.1" class="show"><li><span class="module"><span id="control.n.1.1" class="collapser" onclick="toggleSection('n.1.1')">&nbsp;</span><a href="SwaggerPetstore-API.html">SwaggerPetstore.API</a></span><ul id="section.n.1.1" class="show"><li><span class="module"><a href="SwaggerPetstore-API-AnotherFake.html">SwaggerPetstore.API.AnotherFake</a></span></li><li><span class="module"><a href="SwaggerPetstore-API-Fake.html">SwaggerPetstore.API.Fake</a></span></li><li><span class="module"><a href="SwaggerPetstore-API-FakeClassnameTags123.html">SwaggerPetstore.API.FakeClassnameTags123</a></span></li><li><span class="module"><a href="SwaggerPetstore-API-Pet.html">SwaggerPetstore.API.Pet</a></span></li><li><span class="module"><a href="SwaggerPetstore-API-Store.html">SwaggerPetstore.API.Store</a></span></li><li><span class="module"><a href="SwaggerPetstore-API-User.html">SwaggerPetstore.API.User</a></span></li></ul></li><li><span class="module"><a href="SwaggerPetstore-Client.html">SwaggerPetstore.Client</a></span></li><li><span class="module"><a href="SwaggerPetstore-Core.html">SwaggerPetstore.Core</a></span></li><li><span class="module"><a href="SwaggerPetstore-Logging.html">SwaggerPetstore.Logging</a></span></li><li><span class="module"><a href="SwaggerPetstore-MimeTypes.html">SwaggerPetstore.MimeTypes</a></span></li><li><span class="module"><a href="SwaggerPetstore-Model.html">SwaggerPetstore.Model</a></span></li><li><span class="module"><a href="SwaggerPetstore-ModelLens.html">SwaggerPetstore.ModelLens</a></span></li></ul></li></ul></div></div><div id="footer"><p>Produced by <a href="http://www.haskell.org/haddock/">Haddock</a> version 2.18.1</p></div></body></html>

12
samples/client/petstore/haskell-http-client/docs/src/Paths_swagger_petstore.html
View File

@ -29,12 +29,12 @@
</span><a name="line-29"></a><a name="version"><a href="Paths_swagger_petstore.html#version"><span class="hs-identifier">version</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Version</span><span> </span><span class="hs-special">[</span><span class="hs-number">0</span><span class="hs-special">,</span><span class="hs-number">1</span><span class="hs-special">,</span><span class="hs-number">0</span><span class="hs-special">,</span><span class="hs-number">0</span><span class="hs-special">]</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><a name="line-30"></a><span class="hs-identifier">bindir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">libdir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">dynlibdir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">datadir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">libexecdir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">sysconfdir</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">FilePath</span><span>
</span><a name="line-31"></a><span>
</span><a name="line-32"></a><a name="bindir"><a href="Paths_swagger_petstore.html#bindir"><span class="hs-identifier">bindir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;/home/jon/fs/git/swagger-codegen/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/bin&quot;</span><span>
</span><a name="line-33"></a><a name="libdir"><a href="Paths_swagger_petstore.html#libdir"><span class="hs-identifier">libdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;/home/jon/fs/git/swagger-codegen/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/lib/x86_64-linux-ghc-8.2.2/swagger-petstore-0.1.0.0-9Pk0KlchkM5tXgZZX1kZB&quot;</span><span>
</span><a name="line-34"></a><a name="dynlibdir"><a href="Paths_swagger_petstore.html#dynlibdir"><span class="hs-identifier">dynlibdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;/home/jon/fs/git/swagger-codegen/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/lib/x86_64-linux-ghc-8.2.2&quot;</span><span>
</span><a name="line-35"></a><a name="datadir"><a href="Paths_swagger_petstore.html#datadir"><span class="hs-identifier">datadir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;/home/jon/fs/git/swagger-codegen/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/share/x86_64-linux-ghc-8.2.2/swagger-petstore-0.1.0.0&quot;</span><span>
</span><a name="line-36"></a><a name="libexecdir"><a href="Paths_swagger_petstore.html#libexecdir"><span class="hs-identifier">libexecdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;/home/jon/fs/git/swagger-codegen/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/libexec/x86_64-linux-ghc-8.2.2/swagger-petstore-0.1.0.0&quot;</span><span>
</span><a name="line-37"></a><a name="sysconfdir"><a href="Paths_swagger_petstore.html#sysconfdir"><span class="hs-identifier">sysconfdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;/home/jon/fs/git/swagger-codegen/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/etc&quot;</span><span>
</span><a name="line-32"></a><a name="bindir"><a href="Paths_swagger_petstore.html#bindir"><span class="hs-identifier">bindir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/bin&quot;</span><span>
</span><a name="line-33"></a><a name="libdir"><a href="Paths_swagger_petstore.html#libdir"><span class="hs-identifier">libdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/lib/x86_64-linux-ghc-8.2.2/swagger-petstore-0.1.0.0-9Pk0KlchkM5tXgZZX1kZB&quot;</span><span>
</span><a name="line-34"></a><a name="dynlibdir"><a href="Paths_swagger_petstore.html#dynlibdir"><span class="hs-identifier">dynlibdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/lib/x86_64-linux-ghc-8.2.2&quot;</span><span>
</span><a name="line-35"></a><a name="datadir"><a href="Paths_swagger_petstore.html#datadir"><span class="hs-identifier">datadir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/share/x86_64-linux-ghc-8.2.2/swagger-petstore-0.1.0.0&quot;</span><span>
</span><a name="line-36"></a><a name="libexecdir"><a href="Paths_swagger_petstore.html#libexecdir"><span class="hs-identifier">libexecdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/libexec/x86_64-linux-ghc-8.2.2/swagger-petstore-0.1.0.0&quot;</span><span>
</span><a name="line-37"></a><a name="sysconfdir"><a href="Paths_swagger_petstore.html#sysconfdir"><span class="hs-identifier">sysconfdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-nopie/lts-10.0/8.2.2/etc&quot;</span><span>
</span><a name="line-38"></a><span>
</span><a name="line-39"></a><span class="hs-identifier">getBinDir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">getLibDir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">getDynLibDir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">getDataDir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">getLibexecDir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">getSysconfDir</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-identifier hs-type">FilePath</span><span>
</span><a name="line-40"></a><a name="getBinDir"><a href="Paths_swagger_petstore.html#getBinDir"><span class="hs-identifier">getBinDir</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_bindir&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#bindir"><span class="hs-identifier hs-var">bindir</span></a><span class="hs-special">)</span><span>

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

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \&quot; \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -68,15 +68,15 @@ Module : SwaggerPetstore.API.AnotherFake
</span><a name="line-68"></a><span class="hs-comment">-- </span><span>
</span><a name="line-69"></a><span class="hs-identifier">testSpecialTags</span><span> </span><span>
</span><a name="line-70"></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.AnotherFake.html#TestSpecialTags"><span class="hs-identifier hs-type">TestSpecialTags</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</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="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span class="hs-special">)</span><span>
</span><a name="line-71"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span class="hs-comment">-- ^ &quot;body&quot; - client model</span><span>
</span><a name="line-71"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span class="hs-comment">-- ^ &quot;client&quot; - client model</span><span>
</span><a name="line-72"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.AnotherFake.html#TestSpecialTags"><span class="hs-identifier hs-type">TestSpecialTags</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-73"></a><a name="testSpecialTags"><a href="SwaggerPetstore.API.AnotherFake.html#testSpecialTags"><span class="hs-identifier">testSpecialTags</span></a></a><span> </span><a name="local-6989586621679157258"><a href="#local-6989586621679157258"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-73"></a><a name="testSpecialTags"><a href="SwaggerPetstore.API.AnotherFake.html#testSpecialTags"><span class="hs-identifier">testSpecialTags</span></a></a><span> </span><a name="local-6989586621679157729"><a href="#local-6989586621679157729"><span class="hs-identifier">client</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-74"></a><span> </span><a href="SwaggerPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;PATCH&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/another-fake/dummy&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-75"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679157258"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-75"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679157729"><span class="hs-identifier hs-var">client</span></a><span>
</span><a name="line-76"></a><span>
</span><a name="line-77"></a><span class="hs-keyword">data</span><span> </span><a name="TestSpecialTags"><a href="SwaggerPetstore.API.AnotherFake.html#TestSpecialTags"><span class="hs-identifier">TestSpecialTags</span></a></a><span> </span><span>
</span><a name="line-78"></a><span>
</span><a name="line-79"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - client model</span><span>
</span><a name="line-79"></a><span class="hs-comment">-- | /Body Param/ &quot;Client&quot; - client model</span><span>
</span><a name="line-80"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.AnotherFake.html#TestSpecialTags"><span class="hs-identifier hs-type">TestSpecialTags</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span>
</span><a name="line-81"></a><span>
</span><a name="line-82"></a><span class="hs-comment">-- | @application/json@</span><span>

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

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \&quot; \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -65,308 +65,333 @@ Module : SwaggerPetstore.API.Fake
</span><a name="line-65"></a><span class="hs-comment">-- Test serialization of outer boolean types</span><span>
</span><a name="line-66"></a><span class="hs-comment">-- </span><span>
</span><a name="line-67"></a><span class="hs-identifier">fakeOuterBooleanSerialize</span><span> </span><span>
</span><a name="line-68"></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.Fake.html#FakeOuterBooleanSerialize"><span class="hs-identifier hs-type">FakeOuterBooleanSerialize</span></a><span> </span><a href="#local-6989586621679155811"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-69"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679155811"><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-70"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679155812"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-71"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterBooleanSerialize"><span class="hs-identifier hs-type">FakeOuterBooleanSerialize</span></a><span> </span><a href="#local-6989586621679155811"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterBoolean"><span class="hs-identifier hs-type">OuterBoolean</span></a><span> </span><a href="#local-6989586621679155812"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-68"></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.Fake.html#FakeOuterBooleanSerialize"><span class="hs-identifier hs-type">FakeOuterBooleanSerialize</span></a><span> </span><a href="#local-6989586621679156159"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-69"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679156159"><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-70"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679156160"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-71"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterBooleanSerialize"><span class="hs-identifier hs-type">FakeOuterBooleanSerialize</span></a><span> </span><a href="#local-6989586621679156159"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterBoolean"><span class="hs-identifier hs-type">OuterBoolean</span></a><span> </span><a href="#local-6989586621679156160"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-72"></a><a name="fakeOuterBooleanSerialize"><a href="SwaggerPetstore.API.Fake.html#fakeOuterBooleanSerialize"><span class="hs-identifier">fakeOuterBooleanSerialize</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-73"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake/outer/boolean&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-74"></a><span>
</span><a name="line-75"></a><span class="hs-keyword">data</span><span> </span><a name="FakeOuterBooleanSerialize"><a href="SwaggerPetstore.API.Fake.html#FakeOuterBooleanSerialize"><span class="hs-identifier">FakeOuterBooleanSerialize</span></a></a><span> </span><span>
</span><a name="line-76"></a><span>
</span><a name="line-77"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - Input boolean as post body</span><span>
</span><a name="line-78"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterBooleanSerialize"><span class="hs-identifier hs-type">FakeOuterBooleanSerialize</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterBoolean"><span class="hs-identifier hs-type">OuterBoolean</span></a><span> </span><span>
</span><a name="line-77"></a><span class="hs-comment">-- | /Body Param/ &quot;boolean_post_body&quot; - Input boolean as post body</span><span>
</span><a name="line-78"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterBooleanSerialize"><span class="hs-identifier hs-type">FakeOuterBooleanSerialize</span></a><span> </span><a href="SwaggerPetstore.Model.html#BooleanPostBody"><span class="hs-identifier hs-type">BooleanPostBody</span></a><span> </span><span>
</span><a name="line-79"></a><span>
</span><a name="line-80"></a><span class="hs-comment">-- *** fakeOuterCompositeSerialize</span><span>
</span><a name="line-81"></a><span>
</span><a name="line-82"></a><span class="hs-comment">-- | @POST \/fake\/outer\/composite@</span><span>
</span><a name="line-83"></a><span class="hs-comment">-- </span><span>
</span><a name="line-84"></a><span class="hs-comment">-- Test serialization of object with outer number type</span><span>
</span><a name="line-85"></a><span class="hs-comment">-- </span><span>
</span><a name="line-86"></a><span class="hs-identifier">fakeOuterCompositeSerialize</span><span> </span><span>
</span><a name="line-87"></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.Fake.html#FakeOuterCompositeSerialize"><span class="hs-identifier hs-type">FakeOuterCompositeSerialize</span></a><span> </span><a href="#local-6989586621679155809"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-88"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679155809"><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-89"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679155810"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-90"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterCompositeSerialize"><span class="hs-identifier hs-type">FakeOuterCompositeSerialize</span></a><span> </span><a href="#local-6989586621679155809"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-type">OuterComposite</span></a><span> </span><a href="#local-6989586621679155810"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-91"></a><a name="fakeOuterCompositeSerialize"><a href="SwaggerPetstore.API.Fake.html#fakeOuterCompositeSerialize"><span class="hs-identifier">fakeOuterCompositeSerialize</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-92"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake/outer/composite&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-93"></a><span>
</span><a name="line-94"></a><span class="hs-keyword">data</span><span> </span><a name="FakeOuterCompositeSerialize"><a href="SwaggerPetstore.API.Fake.html#FakeOuterCompositeSerialize"><span class="hs-identifier">FakeOuterCompositeSerialize</span></a></a><span> </span><span>
</span><a name="line-95"></a><span>
</span><a name="line-96"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - Input composite as post body</span><span>
</span><a name="line-97"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterCompositeSerialize"><span class="hs-identifier hs-type">FakeOuterCompositeSerialize</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-type">OuterComposite</span></a><span> </span><span>
</span><a name="line-98"></a><span>
</span><a name="line-99"></a><span class="hs-comment">-- *** fakeOuterNumberSerialize</span><span>
</span><a name="line-100"></a><span>
</span><a name="line-101"></a><span class="hs-comment">-- | @POST \/fake\/outer\/number@</span><span>
</span><a name="line-102"></a><span class="hs-comment">-- </span><span>
</span><a name="line-103"></a><span class="hs-comment">-- Test serialization of outer number types</span><span>
</span><a name="line-104"></a><span class="hs-comment">-- </span><span>
</span><a name="line-105"></a><span class="hs-identifier">fakeOuterNumberSerialize</span><span> </span><span>
</span><a name="line-106"></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.Fake.html#FakeOuterNumberSerialize"><span class="hs-identifier hs-type">FakeOuterNumberSerialize</span></a><span> </span><a href="#local-6989586621679155807"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-107"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679155807"><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-108"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679155808"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-109"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterNumberSerialize"><span class="hs-identifier hs-type">FakeOuterNumberSerialize</span></a><span> </span><a href="#local-6989586621679155807"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterNumber"><span class="hs-identifier hs-type">OuterNumber</span></a><span> </span><a href="#local-6989586621679155808"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-110"></a><a name="fakeOuterNumberSerialize"><a href="SwaggerPetstore.API.Fake.html#fakeOuterNumberSerialize"><span class="hs-identifier">fakeOuterNumberSerialize</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-111"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake/outer/number&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-112"></a><span>
</span><a name="line-113"></a><span class="hs-keyword">data</span><span> </span><a name="FakeOuterNumberSerialize"><a href="SwaggerPetstore.API.Fake.html#FakeOuterNumberSerialize"><span class="hs-identifier">FakeOuterNumberSerialize</span></a></a><span> </span><span>
</span><a name="line-114"></a><span>
</span><a name="line-115"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - Input number as post body</span><span>
</span><a name="line-116"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterNumberSerialize"><span class="hs-identifier hs-type">FakeOuterNumberSerialize</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterNumber"><span class="hs-identifier hs-type">OuterNumber</span></a><span> </span><span>
</span><a name="line-117"></a><span>
</span><a name="line-118"></a><span class="hs-comment">-- *** fakeOuterStringSerialize</span><span>
</span><a name="line-119"></a><span>
</span><a name="line-120"></a><span class="hs-comment">-- | @POST \/fake\/outer\/string@</span><span>
</span><a name="line-121"></a><span class="hs-comment">-- </span><span>
</span><a name="line-122"></a><span class="hs-comment">-- Test serialization of outer string types</span><span>
</span><a name="line-123"></a><span class="hs-comment">-- </span><span>
</span><a name="line-124"></a><span class="hs-identifier">fakeOuterStringSerialize</span><span> </span><span>
</span><a name="line-125"></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.Fake.html#FakeOuterStringSerialize"><span class="hs-identifier hs-type">FakeOuterStringSerialize</span></a><span> </span><a href="#local-6989586621679155805"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-126"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679155805"><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-127"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679155806"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-128"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterStringSerialize"><span class="hs-identifier hs-type">FakeOuterStringSerialize</span></a><span> </span><a href="#local-6989586621679155805"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterString"><span class="hs-identifier hs-type">OuterString</span></a><span> </span><a href="#local-6989586621679155806"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-129"></a><a name="fakeOuterStringSerialize"><a href="SwaggerPetstore.API.Fake.html#fakeOuterStringSerialize"><span class="hs-identifier">fakeOuterStringSerialize</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-130"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake/outer/string&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-80"></a><span class="hs-comment">-- | @*/*@</span><span>
</span><a name="line-81"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679156152"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterBooleanSerialize"><span class="hs-identifier hs-type">FakeOuterBooleanSerialize</span></a><span> </span><a href="#local-6989586621679156152"><span class="hs-identifier hs-type">mtype</span></a><span>
</span><a name="line-82"></a><span>
</span><a name="line-83"></a><span>
</span><a name="line-84"></a><span class="hs-comment">-- *** fakeOuterCompositeSerialize</span><span>
</span><a name="line-85"></a><span>
</span><a name="line-86"></a><span class="hs-comment">-- | @POST \/fake\/outer\/composite@</span><span>
</span><a name="line-87"></a><span class="hs-comment">-- </span><span>
</span><a name="line-88"></a><span class="hs-comment">-- Test serialization of object with outer number type</span><span>
</span><a name="line-89"></a><span class="hs-comment">-- </span><span>
</span><a name="line-90"></a><span class="hs-identifier">fakeOuterCompositeSerialize</span><span> </span><span>
</span><a name="line-91"></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.Fake.html#FakeOuterCompositeSerialize"><span class="hs-identifier hs-type">FakeOuterCompositeSerialize</span></a><span> </span><a href="#local-6989586621679156157"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-92"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679156157"><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-93"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679156158"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-94"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterCompositeSerialize"><span class="hs-identifier hs-type">FakeOuterCompositeSerialize</span></a><span> </span><a href="#local-6989586621679156157"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-type">OuterComposite</span></a><span> </span><a href="#local-6989586621679156158"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-95"></a><a name="fakeOuterCompositeSerialize"><a href="SwaggerPetstore.API.Fake.html#fakeOuterCompositeSerialize"><span class="hs-identifier">fakeOuterCompositeSerialize</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-96"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake/outer/composite&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-97"></a><span>
</span><a name="line-98"></a><span class="hs-keyword">data</span><span> </span><a name="FakeOuterCompositeSerialize"><a href="SwaggerPetstore.API.Fake.html#FakeOuterCompositeSerialize"><span class="hs-identifier">FakeOuterCompositeSerialize</span></a></a><span> </span><span>
</span><a name="line-99"></a><span>
</span><a name="line-100"></a><span class="hs-comment">-- | /Body Param/ &quot;OuterComposite&quot; - Input composite as post body</span><span>
</span><a name="line-101"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterCompositeSerialize"><span class="hs-identifier hs-type">FakeOuterCompositeSerialize</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-type">OuterComposite</span></a><span> </span><span>
</span><a name="line-102"></a><span>
</span><a name="line-103"></a><span class="hs-comment">-- | @*/*@</span><span>
</span><a name="line-104"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679156151"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterCompositeSerialize"><span class="hs-identifier hs-type">FakeOuterCompositeSerialize</span></a><span> </span><a href="#local-6989586621679156151"><span class="hs-identifier hs-type">mtype</span></a><span>
</span><a name="line-105"></a><span>
</span><a name="line-106"></a><span>
</span><a name="line-107"></a><span class="hs-comment">-- *** fakeOuterNumberSerialize</span><span>
</span><a name="line-108"></a><span>
</span><a name="line-109"></a><span class="hs-comment">-- | @POST \/fake\/outer\/number@</span><span>
</span><a name="line-110"></a><span class="hs-comment">-- </span><span>
</span><a name="line-111"></a><span class="hs-comment">-- Test serialization of outer number types</span><span>
</span><a name="line-112"></a><span class="hs-comment">-- </span><span>
</span><a name="line-113"></a><span class="hs-identifier">fakeOuterNumberSerialize</span><span> </span><span>
</span><a name="line-114"></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.Fake.html#FakeOuterNumberSerialize"><span class="hs-identifier hs-type">FakeOuterNumberSerialize</span></a><span> </span><a href="#local-6989586621679156155"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-115"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679156155"><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-116"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679156156"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-117"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterNumberSerialize"><span class="hs-identifier hs-type">FakeOuterNumberSerialize</span></a><span> </span><a href="#local-6989586621679156155"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterNumber"><span class="hs-identifier hs-type">OuterNumber</span></a><span> </span><a href="#local-6989586621679156156"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-118"></a><a name="fakeOuterNumberSerialize"><a href="SwaggerPetstore.API.Fake.html#fakeOuterNumberSerialize"><span class="hs-identifier">fakeOuterNumberSerialize</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-119"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake/outer/number&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-120"></a><span>
</span><a name="line-121"></a><span class="hs-keyword">data</span><span> </span><a name="FakeOuterNumberSerialize"><a href="SwaggerPetstore.API.Fake.html#FakeOuterNumberSerialize"><span class="hs-identifier">FakeOuterNumberSerialize</span></a></a><span> </span><span>
</span><a name="line-122"></a><span>
</span><a name="line-123"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - Input number as post body</span><span>
</span><a name="line-124"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterNumberSerialize"><span class="hs-identifier hs-type">FakeOuterNumberSerialize</span></a><span> </span><a href="SwaggerPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a><span> </span><span>
</span><a name="line-125"></a><span>
</span><a name="line-126"></a><span class="hs-comment">-- | @*/*@</span><span>
</span><a name="line-127"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679156150"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterNumberSerialize"><span class="hs-identifier hs-type">FakeOuterNumberSerialize</span></a><span> </span><a href="#local-6989586621679156150"><span class="hs-identifier hs-type">mtype</span></a><span>
</span><a name="line-128"></a><span>
</span><a name="line-129"></a><span>
</span><a name="line-130"></a><span class="hs-comment">-- *** fakeOuterStringSerialize</span><span>
</span><a name="line-131"></a><span>
</span><a name="line-132"></a><span class="hs-keyword">data</span><span> </span><a name="FakeOuterStringSerialize"><a href="SwaggerPetstore.API.Fake.html#FakeOuterStringSerialize"><span class="hs-identifier">FakeOuterStringSerialize</span></a></a><span> </span><span>
</span><a name="line-133"></a><span>
</span><a name="line-134"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - Input string as post body</span><span>
</span><a name="line-135"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterStringSerialize"><span class="hs-identifier hs-type">FakeOuterStringSerialize</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterString"><span class="hs-identifier hs-type">OuterString</span></a><span> </span><span>
</span><a name="line-136"></a><span>
</span><a name="line-137"></a><span class="hs-comment">-- *** testClientModel</span><span>
</span><a name="line-138"></a><span>
</span><a name="line-139"></a><span class="hs-comment">-- | @PATCH \/fake@</span><span>
</span><a name="line-140"></a><span class="hs-comment">-- </span><span>
</span><a name="line-141"></a><span class="hs-comment">-- To test \&quot;client\&quot; model</span><span>
</span><a name="line-142"></a><span class="hs-comment">-- </span><span>
</span><a name="line-143"></a><span class="hs-comment">-- To test \&quot;client\&quot; model</span><span>
</span><a name="line-144"></a><span class="hs-comment">-- </span><span>
</span><a name="line-145"></a><span class="hs-identifier">testClientModel</span><span> </span><span>
</span><a name="line-146"></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.Fake.html#TestClientModel"><span class="hs-identifier hs-type">TestClientModel</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</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="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span class="hs-special">)</span><span>
</span><a name="line-147"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span class="hs-comment">-- ^ &quot;body&quot; - client model</span><span>
</span><a name="line-148"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestClientModel"><span class="hs-identifier hs-type">TestClientModel</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-149"></a><a name="testClientModel"><a href="SwaggerPetstore.API.Fake.html#testClientModel"><span class="hs-identifier">testClientModel</span></a></a><span> </span><a name="local-6989586621679155813"><a href="#local-6989586621679155813"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-150"></a><span> </span><a href="SwaggerPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;PATCH&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/fake&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-151"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679155813"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-132"></a><span class="hs-comment">-- | @POST \/fake\/outer\/string@</span><span>
</span><a name="line-133"></a><span class="hs-comment">-- </span><span>
</span><a name="line-134"></a><span class="hs-comment">-- Test serialization of outer string types</span><span>
</span><a name="line-135"></a><span class="hs-comment">-- </span><span>
</span><a name="line-136"></a><span class="hs-identifier">fakeOuterStringSerialize</span><span> </span><span>
</span><a name="line-137"></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.Fake.html#FakeOuterStringSerialize"><span class="hs-identifier hs-type">FakeOuterStringSerialize</span></a><span> </span><a href="#local-6989586621679156153"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-138"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679156153"><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-139"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679156154"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-140"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterStringSerialize"><span class="hs-identifier hs-type">FakeOuterStringSerialize</span></a><span> </span><a href="#local-6989586621679156153"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#OuterString"><span class="hs-identifier hs-type">OuterString</span></a><span> </span><a href="#local-6989586621679156154"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-141"></a><a name="fakeOuterStringSerialize"><a href="SwaggerPetstore.API.Fake.html#fakeOuterStringSerialize"><span class="hs-identifier">fakeOuterStringSerialize</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-142"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake/outer/string&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-143"></a><span>
</span><a name="line-144"></a><span class="hs-keyword">data</span><span> </span><a name="FakeOuterStringSerialize"><a href="SwaggerPetstore.API.Fake.html#FakeOuterStringSerialize"><span class="hs-identifier">FakeOuterStringSerialize</span></a></a><span> </span><span>
</span><a name="line-145"></a><span>
</span><a name="line-146"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - Input string as post body</span><span>
</span><a name="line-147"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterStringSerialize"><span class="hs-identifier hs-type">FakeOuterStringSerialize</span></a><span> </span><a href="SwaggerPetstore.Model.html#BodyText"><span class="hs-identifier hs-type">BodyText</span></a><span> </span><span>
</span><a name="line-148"></a><span>
</span><a name="line-149"></a><span class="hs-comment">-- | @*/*@</span><span>
</span><a name="line-150"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679156149"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#FakeOuterStringSerialize"><span class="hs-identifier hs-type">FakeOuterStringSerialize</span></a><span> </span><a href="#local-6989586621679156149"><span class="hs-identifier hs-type">mtype</span></a><span>
</span><a name="line-151"></a><span>
</span><a name="line-152"></a><span>
</span><a name="line-153"></a><span class="hs-keyword">data</span><span> </span><a name="TestClientModel"><a href="SwaggerPetstore.API.Fake.html#TestClientModel"><span class="hs-identifier">TestClientModel</span></a></a><span> </span><span>
</span><a name="line-153"></a><span class="hs-comment">-- *** testBodyWithQueryParams</span><span>
</span><a name="line-154"></a><span>
</span><a name="line-155"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - client model</span><span>
</span><a name="line-156"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestClientModel"><span class="hs-identifier hs-type">TestClientModel</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span>
</span><a name="line-157"></a><span>
</span><a name="line-158"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-159"></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.Fake.html#TestClientModel"><span class="hs-identifier hs-type">TestClientModel</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-160"></a><span>
</span><a name="line-161"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-162"></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.Fake.html#TestClientModel"><span class="hs-identifier hs-type">TestClientModel</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-163"></a><span>
</span><a name="line-164"></a><span>
</span><a name="line-165"></a><span class="hs-comment">-- *** testEndpointParameters</span><span>
</span><a name="line-155"></a><span class="hs-comment">-- | @PUT \/fake\/body-with-query-params@</span><span>
</span><a name="line-156"></a><span class="hs-comment">-- </span><span>
</span><a name="line-157"></a><span class="hs-identifier">testBodyWithQueryParams</span><span> </span><span>
</span><a name="line-158"></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.Fake.html#TestBodyWithQueryParams"><span class="hs-identifier hs-type">TestBodyWithQueryParams</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</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="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</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-159"></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;user&quot;</span><span>
</span><a name="line-160"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Query"><span class="hs-identifier hs-type">Query</span></a><span> </span><span class="hs-comment">-- ^ &quot;query&quot;</span><span>
</span><a name="line-161"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestBodyWithQueryParams"><span class="hs-identifier hs-type">TestBodyWithQueryParams</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-162"></a><a name="testBodyWithQueryParams"><a href="SwaggerPetstore.API.Fake.html#testBodyWithQueryParams"><span class="hs-identifier">testBodyWithQueryParams</span></a></a><span> </span><a name="local-6989586621679156161"><a href="#local-6989586621679156161"><span class="hs-identifier">user</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Query"><span class="hs-identifier hs-var">Query</span></a><span> </span><a name="local-6989586621679156162"><a href="#local-6989586621679156162"><span class="hs-identifier">query</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-163"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake/body-with-query-params&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-164"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679156161"><span class="hs-identifier hs-var">user</span></a><span>
</span><a name="line-165"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;query&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679156162"><span class="hs-identifier hs-var">query</span></a><span class="hs-special">)</span><span>
</span><a name="line-166"></a><span>
</span><a name="line-167"></a><span class="hs-comment">-- | @POST \/fake@</span><span>
</span><a name="line-168"></a><span class="hs-comment">-- </span><span>
</span><a name="line-169"></a><span class="hs-comment">-- Fake endpoint for testing various parameters &#20551;&#31471;&#40670; &#20605;&#12398;&#12456;&#12531;&#12489;&#12509;&#12452;&#12531;&#12488; &#44032;&#51676; &#50644;&#46300; &#54252;&#51064;&#53944; </span><span>
</span><a name="line-170"></a><span class="hs-comment">-- </span><span>
</span><a name="line-171"></a><span class="hs-comment">-- Fake endpoint for testing various parameters &#20551;&#31471;&#40670; &#20605;&#12398;&#12456;&#12531;&#12489;&#12509;&#12452;&#12531;&#12488; &#44032;&#51676; &#50644;&#46300; &#54252;&#51064;&#53944; </span><span>
</span><a name="line-172"></a><span class="hs-comment">-- </span><span>
</span><a name="line-173"></a><span class="hs-comment">-- AuthMethod: 'AuthBasicHttpBasicTest'</span><span>
</span><a name="line-174"></a><span class="hs-comment">-- </span><span>
</span><a name="line-175"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-176"></a><span class="hs-comment">-- </span><span>
</span><a name="line-177"></a><span class="hs-identifier">testEndpointParameters</span><span> </span><span>
</span><a name="line-178"></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.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="#local-6989586621679155802"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-179"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679155802"><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-180"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679155803"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-181"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Number"><span class="hs-identifier hs-type">Number</span></a><span> </span><span class="hs-comment">-- ^ &quot;number&quot; - None</span><span>
</span><a name="line-182"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#ParamDouble"><span class="hs-identifier hs-type">ParamDouble</span></a><span> </span><span class="hs-comment">-- ^ &quot;double&quot; - None</span><span>
</span><a name="line-183"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#PatternWithoutDelimiter"><span class="hs-identifier hs-type">PatternWithoutDelimiter</span></a><span> </span><span class="hs-comment">-- ^ &quot;patternWithoutDelimiter&quot; - None</span><span>
</span><a name="line-184"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Byte"><span class="hs-identifier hs-type">Byte</span></a><span> </span><span class="hs-comment">-- ^ &quot;byte&quot; - None</span><span>
</span><a name="line-185"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="#local-6989586621679155802"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679155804"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679155803"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-186"></a><a name="testEndpointParameters"><a href="SwaggerPetstore.API.Fake.html#testEndpointParameters"><span class="hs-identifier">testEndpointParameters</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Number"><span class="hs-identifier hs-var">Number</span></a><span> </span><a name="local-6989586621679155814"><a href="#local-6989586621679155814"><span class="hs-identifier">number</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ParamDouble"><span class="hs-identifier hs-var">ParamDouble</span></a><span> </span><a name="local-6989586621679155815"><a href="#local-6989586621679155815"><span class="hs-identifier">double</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#PatternWithoutDelimiter"><span class="hs-identifier hs-var">PatternWithoutDelimiter</span></a><span> </span><a name="local-6989586621679155816"><a href="#local-6989586621679155816"><span class="hs-identifier">patternWithoutDelimiter</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Byte"><span class="hs-identifier hs-var">Byte</span></a><span> </span><a name="local-6989586621679155817"><a href="#local-6989586621679155817"><span class="hs-identifier">byte</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-187"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-188"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthBasicHttpBasicTest"><span class="hs-identifier hs-type">AuthBasicHttpBasicTest</span></a><span class="hs-special">)</span><span>
</span><a name="line-189"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;number&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155814"><span class="hs-identifier hs-var">number</span></a><span class="hs-special">)</span><span>
</span><a name="line-190"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;double&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155815"><span class="hs-identifier hs-var">double</span></a><span class="hs-special">)</span><span>
</span><a name="line-191"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;pattern_without_delimiter&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155816"><span class="hs-identifier hs-var">patternWithoutDelimiter</span></a><span class="hs-special">)</span><span>
</span><a name="line-192"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;byte&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155817"><span class="hs-identifier hs-var">byte</span></a><span class="hs-special">)</span><span>
</span><a name="line-167"></a><span class="hs-keyword">data</span><span> </span><a name="TestBodyWithQueryParams"><a href="SwaggerPetstore.API.Fake.html#TestBodyWithQueryParams"><span class="hs-identifier">TestBodyWithQueryParams</span></a></a><span> </span><span>
</span><a name="line-168"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestBodyWithQueryParams"><span class="hs-identifier hs-type">TestBodyWithQueryParams</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span>
</span><a name="line-169"></a><span>
</span><a name="line-170"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-171"></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.Fake.html#TestBodyWithQueryParams"><span class="hs-identifier hs-type">TestBodyWithQueryParams</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-172"></a><span>
</span><a name="line-173"></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.Fake.html#TestBodyWithQueryParams"><span class="hs-identifier hs-type">TestBodyWithQueryParams</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-174"></a><span>
</span><a name="line-175"></a><span>
</span><a name="line-176"></a><span class="hs-comment">-- *** testClientModel</span><span>
</span><a name="line-177"></a><span>
</span><a name="line-178"></a><span class="hs-comment">-- | @PATCH \/fake@</span><span>
</span><a name="line-179"></a><span class="hs-comment">-- </span><span>
</span><a name="line-180"></a><span class="hs-comment">-- To test \&quot;client\&quot; model</span><span>
</span><a name="line-181"></a><span class="hs-comment">-- </span><span>
</span><a name="line-182"></a><span class="hs-comment">-- To test \&quot;client\&quot; model</span><span>
</span><a name="line-183"></a><span class="hs-comment">-- </span><span>
</span><a name="line-184"></a><span class="hs-identifier">testClientModel</span><span> </span><span>
</span><a name="line-185"></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.Fake.html#TestClientModel"><span class="hs-identifier hs-type">TestClientModel</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</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="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span class="hs-special">)</span><span>
</span><a name="line-186"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span class="hs-comment">-- ^ &quot;client&quot; - client model</span><span>
</span><a name="line-187"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestClientModel"><span class="hs-identifier hs-type">TestClientModel</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-188"></a><a name="testClientModel"><a href="SwaggerPetstore.API.Fake.html#testClientModel"><span class="hs-identifier">testClientModel</span></a></a><span> </span><a name="local-6989586621679156163"><a href="#local-6989586621679156163"><span class="hs-identifier">client</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-189"></a><span> </span><a href="SwaggerPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;PATCH&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/fake&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-190"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679156163"><span class="hs-identifier hs-var">client</span></a><span>
</span><a name="line-191"></a><span>
</span><a name="line-192"></a><span class="hs-keyword">data</span><span> </span><a name="TestClientModel"><a href="SwaggerPetstore.API.Fake.html#TestClientModel"><span class="hs-identifier">TestClientModel</span></a></a><span> </span><span>
</span><a name="line-193"></a><span>
</span><a name="line-194"></a><span class="hs-keyword">data</span><span> </span><a name="TestEndpointParameters"><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier">TestEndpointParameters</span></a></a><span> </span><span>
</span><a name="line-195"></a><span>
</span><a name="line-196"></a><span class="hs-comment">-- | /Optional Param/ &quot;integer&quot; - None</span><span>
</span><a name="line-197"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#ParamInteger"><span class="hs-identifier hs-type">ParamInteger</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-198"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155797"><a href="#local-6989586621679155797"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ParamInteger"><span class="hs-identifier hs-var">ParamInteger</span></a><span> </span><a name="local-6989586621679155798"><a href="#local-6989586621679155798"><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-199"></a><span> </span><a href="#local-6989586621679155797"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;integer&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155798"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-200"></a><span>
</span><a name="line-201"></a><span class="hs-comment">-- | /Optional Param/ &quot;int32&quot; - None</span><span>
</span><a name="line-202"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#Int32"><span class="hs-identifier hs-type">Int32</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-203"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155795"><a href="#local-6989586621679155795"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Int32"><span class="hs-identifier hs-var">Int32</span></a><span> </span><a name="local-6989586621679155796"><a href="#local-6989586621679155796"><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-204"></a><span> </span><a href="#local-6989586621679155795"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;int32&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155796"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-194"></a><span class="hs-comment">-- | /Body Param/ &quot;Client&quot; - client model</span><span>
</span><a name="line-195"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestClientModel"><span class="hs-identifier hs-type">TestClientModel</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span>
</span><a name="line-196"></a><span>
</span><a name="line-197"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-198"></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.Fake.html#TestClientModel"><span class="hs-identifier hs-type">TestClientModel</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-199"></a><span>
</span><a name="line-200"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-201"></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.Fake.html#TestClientModel"><span class="hs-identifier hs-type">TestClientModel</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-202"></a><span>
</span><a name="line-203"></a><span>
</span><a name="line-204"></a><span class="hs-comment">-- *** testEndpointParameters</span><span>
</span><a name="line-205"></a><span>
</span><a name="line-206"></a><span class="hs-comment">-- | /Optional Param/ &quot;int64&quot; - None</span><span>
</span><a name="line-207"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#Int64"><span class="hs-identifier hs-type">Int64</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-208"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155793"><a href="#local-6989586621679155793"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Int64"><span class="hs-identifier hs-var">Int64</span></a><span> </span><a name="local-6989586621679155794"><a href="#local-6989586621679155794"><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-209"></a><span> </span><a href="#local-6989586621679155793"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;int64&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155794"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-210"></a><span>
</span><a name="line-211"></a><span class="hs-comment">-- | /Optional Param/ &quot;float&quot; - None</span><span>
</span><a name="line-212"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#ParamFloat"><span class="hs-identifier hs-type">ParamFloat</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-213"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155791"><a href="#local-6989586621679155791"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ParamFloat"><span class="hs-identifier hs-var">ParamFloat</span></a><span> </span><a name="local-6989586621679155792"><a href="#local-6989586621679155792"><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-214"></a><span> </span><a href="#local-6989586621679155791"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;float&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155792"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-215"></a><span>
</span><a name="line-216"></a><span class="hs-comment">-- | /Optional Param/ &quot;string&quot; - None</span><span>
</span><a name="line-217"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#ParamString"><span class="hs-identifier hs-type">ParamString</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-218"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155789"><a href="#local-6989586621679155789"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ParamString"><span class="hs-identifier hs-var">ParamString</span></a><span> </span><a name="local-6989586621679155790"><a href="#local-6989586621679155790"><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-219"></a><span> </span><a href="#local-6989586621679155789"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;string&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155790"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-220"></a><span>
</span><a name="line-221"></a><span class="hs-comment">-- | /Optional Param/ &quot;binary&quot; - None</span><span>
</span><a name="line-222"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#ParamBinary"><span class="hs-identifier hs-type">ParamBinary</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-223"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155787"><a href="#local-6989586621679155787"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ParamBinary"><span class="hs-identifier hs-var">ParamBinary</span></a><span> </span><a name="local-6989586621679155788"><a href="#local-6989586621679155788"><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-224"></a><span> </span><a href="#local-6989586621679155787"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;binary&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155788"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-225"></a><span>
</span><a name="line-226"></a><span class="hs-comment">-- | /Optional Param/ &quot;date&quot; - None</span><span>
</span><a name="line-227"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#ParamDate"><span class="hs-identifier hs-type">ParamDate</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-228"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155785"><a href="#local-6989586621679155785"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ParamDate"><span class="hs-identifier hs-var">ParamDate</span></a><span> </span><a name="local-6989586621679155786"><a href="#local-6989586621679155786"><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-229"></a><span> </span><a href="#local-6989586621679155785"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;date&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155786"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-206"></a><span class="hs-comment">-- | @POST \/fake@</span><span>
</span><a name="line-207"></a><span class="hs-comment">-- </span><span>
</span><a name="line-208"></a><span class="hs-comment">-- Fake endpoint for testing various parameters &#20551;&#31471;&#40670; &#20605;&#12398;&#12456;&#12531;&#12489;&#12509;&#12452;&#12531;&#12488; &#44032;&#51676; &#50644;&#46300; &#54252;&#51064;&#53944; </span><span>
</span><a name="line-209"></a><span class="hs-comment">-- </span><span>
</span><a name="line-210"></a><span class="hs-comment">-- Fake endpoint for testing various parameters &#20551;&#31471;&#40670; &#20605;&#12398;&#12456;&#12531;&#12489;&#12509;&#12452;&#12531;&#12488; &#44032;&#51676; &#50644;&#46300; &#54252;&#51064;&#53944; </span><span>
</span><a name="line-211"></a><span class="hs-comment">-- </span><span>
</span><a name="line-212"></a><span class="hs-comment">-- AuthMethod: 'AuthBasicHttpBasicTest'</span><span>
</span><a name="line-213"></a><span class="hs-comment">-- </span><span>
</span><a name="line-214"></a><span class="hs-identifier">testEndpointParameters</span><span> </span><span>
</span><a name="line-215"></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.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span class="hs-special">)</span><span>
</span><a name="line-216"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Number"><span class="hs-identifier hs-type">Number</span></a><span> </span><span class="hs-comment">-- ^ &quot;number&quot; - None</span><span>
</span><a name="line-217"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#ParamDouble"><span class="hs-identifier hs-type">ParamDouble</span></a><span> </span><span class="hs-comment">-- ^ &quot;double&quot; - None</span><span>
</span><a name="line-218"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#PatternWithoutDelimiter"><span class="hs-identifier hs-type">PatternWithoutDelimiter</span></a><span> </span><span class="hs-comment">-- ^ &quot;patternWithoutDelimiter&quot; - None</span><span>
</span><a name="line-219"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Byte"><span class="hs-identifier hs-type">Byte</span></a><span> </span><span class="hs-comment">-- ^ &quot;byte&quot; - None</span><span>
</span><a name="line-220"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-221"></a><a name="testEndpointParameters"><a href="SwaggerPetstore.API.Fake.html#testEndpointParameters"><span class="hs-identifier">testEndpointParameters</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Number"><span class="hs-identifier hs-var">Number</span></a><span> </span><a name="local-6989586621679156164"><a href="#local-6989586621679156164"><span class="hs-identifier">number</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ParamDouble"><span class="hs-identifier hs-var">ParamDouble</span></a><span> </span><a name="local-6989586621679156165"><a href="#local-6989586621679156165"><span class="hs-identifier">double</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#PatternWithoutDelimiter"><span class="hs-identifier hs-var">PatternWithoutDelimiter</span></a><span> </span><a name="local-6989586621679156166"><a href="#local-6989586621679156166"><span class="hs-identifier">patternWithoutDelimiter</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Byte"><span class="hs-identifier hs-var">Byte</span></a><span> </span><a name="local-6989586621679156167"><a href="#local-6989586621679156167"><span class="hs-identifier">byte</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-222"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-223"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthBasicHttpBasicTest"><span class="hs-identifier hs-type">AuthBasicHttpBasicTest</span></a><span class="hs-special">)</span><span>
</span><a name="line-224"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;number&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156164"><span class="hs-identifier hs-var">number</span></a><span class="hs-special">)</span><span>
</span><a name="line-225"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;double&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156165"><span class="hs-identifier hs-var">double</span></a><span class="hs-special">)</span><span>
</span><a name="line-226"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;pattern_without_delimiter&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156166"><span class="hs-identifier hs-var">patternWithoutDelimiter</span></a><span class="hs-special">)</span><span>
</span><a name="line-227"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;byte&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156167"><span class="hs-identifier hs-var">byte</span></a><span class="hs-special">)</span><span>
</span><a name="line-228"></a><span>
</span><a name="line-229"></a><span class="hs-keyword">data</span><span> </span><a name="TestEndpointParameters"><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier">TestEndpointParameters</span></a></a><span> </span><span>
</span><a name="line-230"></a><span>
</span><a name="line-231"></a><span class="hs-comment">-- | /Optional Param/ &quot;dateTime&quot; - None</span><span>
</span><a name="line-232"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#ParamDateTime"><span class="hs-identifier hs-type">ParamDateTime</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-233"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155783"><a href="#local-6989586621679155783"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ParamDateTime"><span class="hs-identifier hs-var">ParamDateTime</span></a><span> </span><a name="local-6989586621679155784"><a href="#local-6989586621679155784"><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-234"></a><span> </span><a href="#local-6989586621679155783"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;dateTime&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155784"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-231"></a><span class="hs-comment">-- | /Optional Param/ &quot;integer&quot; - None</span><span>
</span><a name="line-232"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#ParamInteger"><span class="hs-identifier hs-type">ParamInteger</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-233"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156147"><a href="#local-6989586621679156147"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ParamInteger"><span class="hs-identifier hs-var">ParamInteger</span></a><span> </span><a name="local-6989586621679156148"><a href="#local-6989586621679156148"><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-234"></a><span> </span><a href="#local-6989586621679156147"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;integer&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156148"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-235"></a><span>
</span><a name="line-236"></a><span class="hs-comment">-- | /Optional Param/ &quot;password&quot; - None</span><span>
</span><a name="line-237"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#Password"><span class="hs-identifier hs-type">Password</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-238"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155781"><a href="#local-6989586621679155781"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Password"><span class="hs-identifier hs-var">Password</span></a><span> </span><a name="local-6989586621679155782"><a href="#local-6989586621679155782"><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-239"></a><span> </span><a href="#local-6989586621679155781"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;password&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155782"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-236"></a><span class="hs-comment">-- | /Optional Param/ &quot;int32&quot; - None</span><span>
</span><a name="line-237"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#Int32"><span class="hs-identifier hs-type">Int32</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-238"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156145"><a href="#local-6989586621679156145"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Int32"><span class="hs-identifier hs-var">Int32</span></a><span> </span><a name="local-6989586621679156146"><a href="#local-6989586621679156146"><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-239"></a><span> </span><a href="#local-6989586621679156145"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;int32&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156146"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-240"></a><span>
</span><a name="line-241"></a><span class="hs-comment">-- | /Optional Param/ &quot;callback&quot; - None</span><span>
</span><a name="line-242"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#Callback"><span class="hs-identifier hs-type">Callback</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-243"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155779"><a href="#local-6989586621679155779"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Callback"><span class="hs-identifier hs-var">Callback</span></a><span> </span><a name="local-6989586621679155780"><a href="#local-6989586621679155780"><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-244"></a><span> </span><a href="#local-6989586621679155779"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;callback&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155780"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-241"></a><span class="hs-comment">-- | /Optional Param/ &quot;int64&quot; - None</span><span>
</span><a name="line-242"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#Int64"><span class="hs-identifier hs-type">Int64</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-243"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156143"><a href="#local-6989586621679156143"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Int64"><span class="hs-identifier hs-var">Int64</span></a><span> </span><a name="local-6989586621679156144"><a href="#local-6989586621679156144"><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-244"></a><span> </span><a href="#local-6989586621679156143"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;int64&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156144"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-245"></a><span>
</span><a name="line-246"></a><span class="hs-comment">-- | @application/xml; charset=utf-8@</span><span>
</span><a name="line-247"></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.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXmlCharsetutf8"><span class="hs-identifier hs-type">MimeXmlCharsetutf8</span></a><span>
</span><a name="line-248"></a><span class="hs-comment">-- | @application/json; charset=utf-8@</span><span>
</span><a name="line-249"></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.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJsonCharsetutf8"><span class="hs-identifier hs-type">MimeJsonCharsetutf8</span></a><span>
</span><a name="line-246"></a><span class="hs-comment">-- | /Optional Param/ &quot;float&quot; - None</span><span>
</span><a name="line-247"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#ParamFloat"><span class="hs-identifier hs-type">ParamFloat</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-248"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156141"><a href="#local-6989586621679156141"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ParamFloat"><span class="hs-identifier hs-var">ParamFloat</span></a><span> </span><a name="local-6989586621679156142"><a href="#local-6989586621679156142"><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-249"></a><span> </span><a href="#local-6989586621679156141"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;float&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156142"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-250"></a><span>
</span><a name="line-251"></a><span class="hs-comment">-- | @application/xml; charset=utf-8@</span><span>
</span><a name="line-252"></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.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXmlCharsetutf8"><span class="hs-identifier hs-type">MimeXmlCharsetutf8</span></a><span>
</span><a name="line-253"></a><span class="hs-comment">-- | @application/json; charset=utf-8@</span><span>
</span><a name="line-254"></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.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJsonCharsetutf8"><span class="hs-identifier hs-type">MimeJsonCharsetutf8</span></a><span>
</span><a name="line-251"></a><span class="hs-comment">-- | /Optional Param/ &quot;string&quot; - None</span><span>
</span><a name="line-252"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#ParamString"><span class="hs-identifier hs-type">ParamString</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-253"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156139"><a href="#local-6989586621679156139"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ParamString"><span class="hs-identifier hs-var">ParamString</span></a><span> </span><a name="local-6989586621679156140"><a href="#local-6989586621679156140"><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-254"></a><span> </span><a href="#local-6989586621679156139"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;string&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156140"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-255"></a><span>
</span><a name="line-256"></a><span>
</span><a name="line-257"></a><span class="hs-comment">-- *** testEnumParameters</span><span>
</span><a name="line-258"></a><span>
</span><a name="line-259"></a><span class="hs-comment">-- | @GET \/fake@</span><span>
</span><a name="line-260"></a><span class="hs-comment">-- </span><span>
</span><a name="line-261"></a><span class="hs-comment">-- To test enum parameters</span><span>
</span><a name="line-262"></a><span class="hs-comment">-- </span><span>
</span><a name="line-263"></a><span class="hs-comment">-- To test enum parameters</span><span>
</span><a name="line-264"></a><span class="hs-comment">-- </span><span>
</span><a name="line-265"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-266"></a><span class="hs-comment">-- </span><span>
</span><a name="line-267"></a><span class="hs-identifier">testEnumParameters</span><span> </span><span>
</span><a name="line-268"></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.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="#local-6989586621679155799"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-269"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679155799"><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-270"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679155800"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-271"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="#local-6989586621679155799"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679155801"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679155800"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-272"></a><a name="testEnumParameters"><a href="SwaggerPetstore.API.Fake.html#testEnumParameters"><span class="hs-identifier">testEnumParameters</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-273"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-274"></a><span>
</span><a name="line-275"></a><span class="hs-keyword">data</span><span> </span><a name="TestEnumParameters"><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier">TestEnumParameters</span></a></a><span> </span><span>
</span><a name="line-276"></a><span>
</span><a name="line-277"></a><span class="hs-comment">-- | /Optional Param/ &quot;enum_form_string_array&quot; - Form parameter enum test (string array)</span><span>
</span><a name="line-278"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumFormStringArray"><span class="hs-identifier hs-type">EnumFormStringArray</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-279"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155777"><a href="#local-6989586621679155777"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumFormStringArray"><span class="hs-identifier hs-var">EnumFormStringArray</span></a><span> </span><a name="local-6989586621679155778"><a href="#local-6989586621679155778"><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-280"></a><span> </span><a href="#local-6989586621679155777"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toFormColl"><span class="hs-identifier hs-var">toFormColl</span></a><span> </span><a href="SwaggerPetstore.Core.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_form_string_array&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155778"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-281"></a><span>
</span><a name="line-282"></a><span class="hs-comment">-- | /Optional Param/ &quot;enum_form_string&quot; - Form parameter enum test (string)</span><span>
</span><a name="line-283"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumFormString"><span class="hs-identifier hs-type">EnumFormString</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-284"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155775"><a href="#local-6989586621679155775"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumFormString"><span class="hs-identifier hs-var">EnumFormString</span></a><span> </span><a name="local-6989586621679155776"><a href="#local-6989586621679155776"><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-285"></a><span> </span><a href="#local-6989586621679155775"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_form_string&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155776"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-256"></a><span class="hs-comment">-- | /Optional Param/ &quot;binary&quot; - None</span><span>
</span><a name="line-257"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#ParamBinary"><span class="hs-identifier hs-type">ParamBinary</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-258"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156137"><a href="#local-6989586621679156137"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ParamBinary"><span class="hs-identifier hs-var">ParamBinary</span></a><span> </span><a name="local-6989586621679156138"><a href="#local-6989586621679156138"><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-259"></a><span> </span><a href="#local-6989586621679156137"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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;binary&quot;</span><span> </span><a href="#local-6989586621679156138"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-260"></a><span>
</span><a name="line-261"></a><span class="hs-comment">-- | /Optional Param/ &quot;date&quot; - None</span><span>
</span><a name="line-262"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#ParamDate"><span class="hs-identifier hs-type">ParamDate</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-263"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156135"><a href="#local-6989586621679156135"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ParamDate"><span class="hs-identifier hs-var">ParamDate</span></a><span> </span><a name="local-6989586621679156136"><a href="#local-6989586621679156136"><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-264"></a><span> </span><a href="#local-6989586621679156135"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;date&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156136"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-265"></a><span>
</span><a name="line-266"></a><span class="hs-comment">-- | /Optional Param/ &quot;dateTime&quot; - None</span><span>
</span><a name="line-267"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#ParamDateTime"><span class="hs-identifier hs-type">ParamDateTime</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-268"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156133"><a href="#local-6989586621679156133"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ParamDateTime"><span class="hs-identifier hs-var">ParamDateTime</span></a><span> </span><a name="local-6989586621679156134"><a href="#local-6989586621679156134"><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-269"></a><span> </span><a href="#local-6989586621679156133"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;dateTime&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156134"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-270"></a><span>
</span><a name="line-271"></a><span class="hs-comment">-- | /Optional Param/ &quot;password&quot; - None</span><span>
</span><a name="line-272"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#Password"><span class="hs-identifier hs-type">Password</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-273"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156131"><a href="#local-6989586621679156131"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Password"><span class="hs-identifier hs-var">Password</span></a><span> </span><a name="local-6989586621679156132"><a href="#local-6989586621679156132"><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-274"></a><span> </span><a href="#local-6989586621679156131"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;password&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156132"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-275"></a><span>
</span><a name="line-276"></a><span class="hs-comment">-- | /Optional Param/ &quot;callback&quot; - None</span><span>
</span><a name="line-277"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#Callback"><span class="hs-identifier hs-type">Callback</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-278"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156129"><a href="#local-6989586621679156129"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Callback"><span class="hs-identifier hs-var">Callback</span></a><span> </span><a name="local-6989586621679156130"><a href="#local-6989586621679156130"><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-279"></a><span> </span><a href="#local-6989586621679156129"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;callback&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156130"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-280"></a><span>
</span><a name="line-281"></a><span class="hs-comment">-- | @application/x-www-form-urlencoded@</span><span>
</span><a name="line-282"></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.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span>
</span><a name="line-283"></a><span>
</span><a name="line-284"></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.Fake.html#TestEndpointParameters"><span class="hs-identifier hs-type">TestEndpointParameters</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-285"></a><span>
</span><a name="line-286"></a><span>
</span><a name="line-287"></a><span class="hs-comment">-- | /Optional Param/ &quot;enum_header_string_array&quot; - Header parameter enum test (string array)</span><span>
</span><a name="line-288"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumHeaderStringArray"><span class="hs-identifier hs-type">EnumHeaderStringArray</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-289"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155773"><a href="#local-6989586621679155773"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumHeaderStringArray"><span class="hs-identifier hs-var">EnumHeaderStringArray</span></a><span> </span><a name="local-6989586621679155774"><a href="#local-6989586621679155774"><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-290"></a><span> </span><a href="#local-6989586621679155773"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setHeader"><span class="hs-identifier hs-var">setHeader</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toHeaderColl"><span class="hs-identifier hs-var">toHeaderColl</span></a><span> </span><a href="SwaggerPetstore.Core.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_header_string_array&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155774"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-291"></a><span>
</span><a name="line-292"></a><span class="hs-comment">-- | /Optional Param/ &quot;enum_header_string&quot; - Header parameter enum test (string)</span><span>
</span><a name="line-293"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumHeaderString"><span class="hs-identifier hs-type">EnumHeaderString</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-294"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155771"><a href="#local-6989586621679155771"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumHeaderString"><span class="hs-identifier hs-var">EnumHeaderString</span></a><span> </span><a name="local-6989586621679155772"><a href="#local-6989586621679155772"><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-295"></a><span> </span><a href="#local-6989586621679155771"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setHeader"><span class="hs-identifier hs-var">setHeader</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toHeader"><span class="hs-identifier hs-var">toHeader</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_header_string&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155772"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-296"></a><span>
</span><a name="line-297"></a><span class="hs-comment">-- | /Optional Param/ &quot;enum_query_string_array&quot; - Query parameter enum test (string array)</span><span>
</span><a name="line-298"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumQueryStringArray"><span class="hs-identifier hs-type">EnumQueryStringArray</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-299"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155769"><a href="#local-6989586621679155769"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumQueryStringArray"><span class="hs-identifier hs-var">EnumQueryStringArray</span></a><span> </span><a name="local-6989586621679155770"><a href="#local-6989586621679155770"><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-300"></a><span> </span><a href="#local-6989586621679155769"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toQueryColl"><span class="hs-identifier hs-var">toQueryColl</span></a><span> </span><a href="SwaggerPetstore.Core.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_query_string_array&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679155770"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-301"></a><span>
</span><a name="line-302"></a><span class="hs-comment">-- | /Optional Param/ &quot;enum_query_string&quot; - Query parameter enum test (string)</span><span>
</span><a name="line-303"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumQueryString"><span class="hs-identifier hs-type">EnumQueryString</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-304"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155767"><a href="#local-6989586621679155767"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumQueryString"><span class="hs-identifier hs-var">EnumQueryString</span></a><span> </span><a name="local-6989586621679155768"><a href="#local-6989586621679155768"><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-305"></a><span> </span><a href="#local-6989586621679155767"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_query_string&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679155768"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-306"></a><span>
</span><a name="line-307"></a><span class="hs-comment">-- | /Optional Param/ &quot;enum_query_integer&quot; - Query parameter enum test (double)</span><span>
</span><a name="line-308"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumQueryInteger"><span class="hs-identifier hs-type">EnumQueryInteger</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-309"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155765"><a href="#local-6989586621679155765"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumQueryInteger"><span class="hs-identifier hs-var">EnumQueryInteger</span></a><span> </span><a name="local-6989586621679155766"><a href="#local-6989586621679155766"><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-310"></a><span> </span><a href="#local-6989586621679155765"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_query_integer&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679155766"><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="line-312"></a><span class="hs-comment">-- | /Optional Param/ &quot;enum_query_double&quot; - Query parameter enum test (double)</span><span>
</span><a name="line-313"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumQueryDouble"><span class="hs-identifier hs-type">EnumQueryDouble</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-314"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155763"><a href="#local-6989586621679155763"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumQueryDouble"><span class="hs-identifier hs-var">EnumQueryDouble</span></a><span> </span><a name="local-6989586621679155764"><a href="#local-6989586621679155764"><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-315"></a><span> </span><a href="#local-6989586621679155763"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_query_double&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155764"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-316"></a><span>
</span><a name="line-317"></a><span class="hs-comment">-- | @*/*@</span><span>
</span><a name="line-318"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679155762"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="#local-6989586621679155762"><span class="hs-identifier hs-type">mtype</span></a><span>
</span><a name="line-319"></a><span>
</span><a name="line-320"></a><span class="hs-comment">-- | @*/*@</span><span>
</span><a name="line-321"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679155761"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="#local-6989586621679155761"><span class="hs-identifier hs-type">mtype</span></a><span>
</span><a name="line-287"></a><span class="hs-comment">-- *** testEnumParameters</span><span>
</span><a name="line-288"></a><span>
</span><a name="line-289"></a><span class="hs-comment">-- | @GET \/fake@</span><span>
</span><a name="line-290"></a><span class="hs-comment">-- </span><span>
</span><a name="line-291"></a><span class="hs-comment">-- To test enum parameters</span><span>
</span><a name="line-292"></a><span class="hs-comment">-- </span><span>
</span><a name="line-293"></a><span class="hs-comment">-- To test enum parameters</span><span>
</span><a name="line-294"></a><span class="hs-comment">-- </span><span>
</span><a name="line-295"></a><span class="hs-identifier">testEnumParameters</span><span> </span><span>
</span><a name="line-296"></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.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span class="hs-special">)</span><span>
</span><a name="line-297"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-298"></a><a name="testEnumParameters"><a href="SwaggerPetstore.API.Fake.html#testEnumParameters"><span class="hs-identifier">testEnumParameters</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-299"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-300"></a><span>
</span><a name="line-301"></a><span class="hs-keyword">data</span><span> </span><a name="TestEnumParameters"><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier">TestEnumParameters</span></a></a><span> </span><span>
</span><a name="line-302"></a><span>
</span><a name="line-303"></a><span class="hs-comment">-- | /Optional Param/ &quot;enum_form_string_array&quot; - Form parameter enum test (string array)</span><span>
</span><a name="line-304"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumFormStringArray"><span class="hs-identifier hs-type">EnumFormStringArray</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-305"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156127"><a href="#local-6989586621679156127"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumFormStringArray"><span class="hs-identifier hs-var">EnumFormStringArray</span></a><span> </span><a name="local-6989586621679156128"><a href="#local-6989586621679156128"><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-306"></a><span> </span><a href="#local-6989586621679156127"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toFormColl"><span class="hs-identifier hs-var">toFormColl</span></a><span> </span><a href="SwaggerPetstore.Core.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_form_string_array&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156128"><span class="hs-identifier hs-var">xs</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">-- | /Optional Param/ &quot;enum_form_string&quot; - Form parameter enum test (string)</span><span>
</span><a name="line-309"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumFormString"><span class="hs-identifier hs-type">EnumFormString</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-310"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156125"><a href="#local-6989586621679156125"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumFormString"><span class="hs-identifier hs-var">EnumFormString</span></a><span> </span><a name="local-6989586621679156126"><a href="#local-6989586621679156126"><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-311"></a><span> </span><a href="#local-6989586621679156125"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_form_string&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156126"><span class="hs-identifier hs-var">xs</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">-- | /Optional Param/ &quot;enum_header_string_array&quot; - Header parameter enum test (string array)</span><span>
</span><a name="line-314"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumHeaderStringArray"><span class="hs-identifier hs-type">EnumHeaderStringArray</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-315"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156123"><a href="#local-6989586621679156123"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumHeaderStringArray"><span class="hs-identifier hs-var">EnumHeaderStringArray</span></a><span> </span><a name="local-6989586621679156124"><a href="#local-6989586621679156124"><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-316"></a><span> </span><a href="#local-6989586621679156123"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setHeader"><span class="hs-identifier hs-var">setHeader</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toHeaderColl"><span class="hs-identifier hs-var">toHeaderColl</span></a><span> </span><a href="SwaggerPetstore.Core.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_header_string_array&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156124"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-317"></a><span>
</span><a name="line-318"></a><span class="hs-comment">-- | /Optional Param/ &quot;enum_header_string&quot; - Header parameter enum test (string)</span><span>
</span><a name="line-319"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumHeaderString"><span class="hs-identifier hs-type">EnumHeaderString</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-320"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156121"><a href="#local-6989586621679156121"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumHeaderString"><span class="hs-identifier hs-var">EnumHeaderString</span></a><span> </span><a name="local-6989586621679156122"><a href="#local-6989586621679156122"><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-321"></a><span> </span><a href="#local-6989586621679156121"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setHeader"><span class="hs-identifier hs-var">setHeader</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toHeader"><span class="hs-identifier hs-var">toHeader</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_header_string&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156122"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-322"></a><span>
</span><a name="line-323"></a><span>
</span><a name="line-324"></a><span class="hs-comment">-- *** testInlineAdditionalProperties</span><span>
</span><a name="line-325"></a><span>
</span><a name="line-326"></a><span class="hs-comment">-- | @POST \/fake\/inline-additionalProperties@</span><span>
</span><a name="line-327"></a><span class="hs-comment">-- </span><span>
</span><a name="line-328"></a><span class="hs-comment">-- test inline additionalProperties</span><span>
</span><a name="line-329"></a><span class="hs-comment">-- </span><span>
</span><a name="line-330"></a><span class="hs-comment">-- </span><span>
</span><a name="line-331"></a><span class="hs-comment">-- </span><span>
</span><a name="line-332"></a><span class="hs-identifier">testInlineAdditionalProperties</span><span> </span><span>
</span><a name="line-333"></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.Fake.html#TestInlineAdditionalProperties"><span class="hs-identifier hs-type">TestInlineAdditionalProperties</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</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="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Value</span><span class="hs-special">)</span><span>
</span><a name="line-334"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Value</span><span> </span><span class="hs-comment">-- ^ &quot;param&quot; - request body</span><span>
</span><a name="line-335"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestInlineAdditionalProperties"><span class="hs-identifier hs-type">TestInlineAdditionalProperties</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-336"></a><a name="testInlineAdditionalProperties"><a href="SwaggerPetstore.API.Fake.html#testInlineAdditionalProperties"><span class="hs-identifier">testInlineAdditionalProperties</span></a></a><span> </span><a name="local-6989586621679155818"><a href="#local-6989586621679155818"><span class="hs-identifier">param</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-337"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake/inline-additionalProperties&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-338"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679155818"><span class="hs-identifier hs-var">param</span></a><span>
</span><a name="line-339"></a><span>
</span><a name="line-340"></a><span class="hs-keyword">data</span><span> </span><a name="TestInlineAdditionalProperties"><a href="SwaggerPetstore.API.Fake.html#TestInlineAdditionalProperties"><span class="hs-identifier">TestInlineAdditionalProperties</span></a></a><span> </span><span>
</span><a name="line-341"></a><span>
</span><a name="line-342"></a><span class="hs-comment">-- | /Body Param/ &quot;param&quot; - request body</span><span>
</span><a name="line-343"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestInlineAdditionalProperties"><span class="hs-identifier hs-type">TestInlineAdditionalProperties</span></a><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Value</span><span> </span><span>
</span><a name="line-344"></a><span>
</span><a name="line-345"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-346"></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.Fake.html#TestInlineAdditionalProperties"><span class="hs-identifier hs-type">TestInlineAdditionalProperties</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-323"></a><span class="hs-comment">-- | /Optional Param/ &quot;enum_query_string_array&quot; - Query parameter enum test (string array)</span><span>
</span><a name="line-324"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumQueryStringArray"><span class="hs-identifier hs-type">EnumQueryStringArray</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-325"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156119"><a href="#local-6989586621679156119"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumQueryStringArray"><span class="hs-identifier hs-var">EnumQueryStringArray</span></a><span> </span><a name="local-6989586621679156120"><a href="#local-6989586621679156120"><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-326"></a><span> </span><a href="#local-6989586621679156119"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toQueryColl"><span class="hs-identifier hs-var">toQueryColl</span></a><span> </span><a href="SwaggerPetstore.Core.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_query_string_array&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679156120"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-327"></a><span>
</span><a name="line-328"></a><span class="hs-comment">-- | /Optional Param/ &quot;enum_query_string&quot; - Query parameter enum test (string)</span><span>
</span><a name="line-329"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumQueryString"><span class="hs-identifier hs-type">EnumQueryString</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-330"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156117"><a href="#local-6989586621679156117"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumQueryString"><span class="hs-identifier hs-var">EnumQueryString</span></a><span> </span><a name="local-6989586621679156118"><a href="#local-6989586621679156118"><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-331"></a><span> </span><a href="#local-6989586621679156117"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_query_string&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679156118"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-332"></a><span>
</span><a name="line-333"></a><span class="hs-comment">-- | /Optional Param/ &quot;enum_query_integer&quot; - Query parameter enum test (double)</span><span>
</span><a name="line-334"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumQueryInteger"><span class="hs-identifier hs-type">EnumQueryInteger</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-335"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156115"><a href="#local-6989586621679156115"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumQueryInteger"><span class="hs-identifier hs-var">EnumQueryInteger</span></a><span> </span><a name="local-6989586621679156116"><a href="#local-6989586621679156116"><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-336"></a><span> </span><a href="#local-6989586621679156115"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_query_integer&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679156116"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-337"></a><span>
</span><a name="line-338"></a><span class="hs-comment">-- | /Optional Param/ &quot;enum_query_double&quot; - Query parameter enum test (double)</span><span>
</span><a name="line-339"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.Model.html#EnumQueryDouble"><span class="hs-identifier hs-type">EnumQueryDouble</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-340"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679156113"><a href="#local-6989586621679156113"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#EnumQueryDouble"><span class="hs-identifier hs-var">EnumQueryDouble</span></a><span> </span><a name="local-6989586621679156114"><a href="#local-6989586621679156114"><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-341"></a><span> </span><a href="#local-6989586621679156113"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;enum_query_double&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679156114"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-342"></a><span>
</span><a name="line-343"></a><span class="hs-comment">-- | @application/x-www-form-urlencoded@</span><span>
</span><a name="line-344"></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.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span>
</span><a name="line-345"></a><span>
</span><a name="line-346"></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.Fake.html#TestEnumParameters"><span class="hs-identifier hs-type">TestEnumParameters</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-347"></a><span>
</span><a name="line-348"></a><span>
</span><a name="line-349"></a><span class="hs-comment">-- *** testJsonFormData</span><span>
</span><a name="line-349"></a><span class="hs-comment">-- *** testInlineAdditionalProperties</span><span>
</span><a name="line-350"></a><span>
</span><a name="line-351"></a><span class="hs-comment">-- | @GET \/fake\/jsonFormData@</span><span>
</span><a name="line-351"></a><span class="hs-comment">-- | @POST \/fake\/inline-additionalProperties@</span><span>
</span><a name="line-352"></a><span class="hs-comment">-- </span><span>
</span><a name="line-353"></a><span class="hs-comment">-- test json serialization of form data</span><span>
</span><a name="line-353"></a><span class="hs-comment">-- test inline additionalProperties</span><span>
</span><a name="line-354"></a><span class="hs-comment">-- </span><span>
</span><a name="line-355"></a><span class="hs-comment">-- </span><span>
</span><a name="line-356"></a><span class="hs-comment">-- </span><span>
</span><a name="line-357"></a><span class="hs-identifier">testJsonFormData</span><span> </span><span>
</span><a name="line-358"></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.Fake.html#TestJsonFormData"><span class="hs-identifier hs-type">TestJsonFormData</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span class="hs-special">)</span><span>
</span><a name="line-359"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Param"><span class="hs-identifier hs-type">Param</span></a><span> </span><span class="hs-comment">-- ^ &quot;param&quot; - field1</span><span>
</span><a name="line-360"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Param2"><span class="hs-identifier hs-type">Param2</span></a><span> </span><span class="hs-comment">-- ^ &quot;param2&quot; - field2</span><span>
</span><a name="line-361"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestJsonFormData"><span class="hs-identifier hs-type">TestJsonFormData</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-362"></a><a name="testJsonFormData"><a href="SwaggerPetstore.API.Fake.html#testJsonFormData"><span class="hs-identifier">testJsonFormData</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Param"><span class="hs-identifier hs-var">Param</span></a><span> </span><a name="local-6989586621679155819"><a href="#local-6989586621679155819"><span class="hs-identifier">param</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Param2"><span class="hs-identifier hs-var">Param2</span></a><span> </span><a name="local-6989586621679155820"><a href="#local-6989586621679155820"><span class="hs-identifier">param2</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-363"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake/jsonFormData&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-364"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;param&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155819"><span class="hs-identifier hs-var">param</span></a><span class="hs-special">)</span><span>
</span><a name="line-365"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;param2&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679155820"><span class="hs-identifier hs-var">param2</span></a><span class="hs-special">)</span><span>
</span><a name="line-366"></a><span>
</span><a name="line-367"></a><span class="hs-keyword">data</span><span> </span><a name="TestJsonFormData"><a href="SwaggerPetstore.API.Fake.html#TestJsonFormData"><span class="hs-identifier">TestJsonFormData</span></a></a><span> </span><span>
</span><a name="line-368"></a><span>
</span><a name="line-369"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-370"></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.Fake.html#TestJsonFormData"><span class="hs-identifier hs-type">TestJsonFormData</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-371"></a><span>
</span><a name="line-372"></a></pre></body></html>
</span><a name="line-355"></a><span class="hs-identifier">testInlineAdditionalProperties</span><span> </span><span>
</span><a name="line-356"></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.Fake.html#TestInlineAdditionalProperties"><span class="hs-identifier hs-type">TestInlineAdditionalProperties</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</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="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#RequestBody"><span class="hs-identifier hs-type">RequestBody</span></a><span class="hs-special">)</span><span>
</span><a name="line-357"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#RequestBody"><span class="hs-identifier hs-type">RequestBody</span></a><span> </span><span class="hs-comment">-- ^ &quot;requestBody&quot; - request body</span><span>
</span><a name="line-358"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestInlineAdditionalProperties"><span class="hs-identifier hs-type">TestInlineAdditionalProperties</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-359"></a><a name="testInlineAdditionalProperties"><a href="SwaggerPetstore.API.Fake.html#testInlineAdditionalProperties"><span class="hs-identifier">testInlineAdditionalProperties</span></a></a><span> </span><a name="local-6989586621679156168"><a href="#local-6989586621679156168"><span class="hs-identifier">requestBody</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-360"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake/inline-additionalProperties&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-361"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679156168"><span class="hs-identifier hs-var">requestBody</span></a><span>
</span><a name="line-362"></a><span>
</span><a name="line-363"></a><span class="hs-keyword">data</span><span> </span><a name="TestInlineAdditionalProperties"><a href="SwaggerPetstore.API.Fake.html#TestInlineAdditionalProperties"><span class="hs-identifier">TestInlineAdditionalProperties</span></a></a><span> </span><span>
</span><a name="line-364"></a><span>
</span><a name="line-365"></a><span class="hs-comment">-- | /Body Param/ &quot;request_body&quot; - request body</span><span>
</span><a name="line-366"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestInlineAdditionalProperties"><span class="hs-identifier hs-type">TestInlineAdditionalProperties</span></a><span> </span><a href="SwaggerPetstore.Model.html#RequestBody"><span class="hs-identifier hs-type">RequestBody</span></a><span> </span><span>
</span><a name="line-367"></a><span>
</span><a name="line-368"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-369"></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.Fake.html#TestInlineAdditionalProperties"><span class="hs-identifier hs-type">TestInlineAdditionalProperties</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-370"></a><span>
</span><a name="line-371"></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.Fake.html#TestInlineAdditionalProperties"><span class="hs-identifier hs-type">TestInlineAdditionalProperties</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-372"></a><span>
</span><a name="line-373"></a><span>
</span><a name="line-374"></a><span class="hs-comment">-- *** testJsonFormData</span><span>
</span><a name="line-375"></a><span>
</span><a name="line-376"></a><span class="hs-comment">-- | @GET \/fake\/jsonFormData@</span><span>
</span><a name="line-377"></a><span class="hs-comment">-- </span><span>
</span><a name="line-378"></a><span class="hs-comment">-- test json serialization of form data</span><span>
</span><a name="line-379"></a><span class="hs-comment">-- </span><span>
</span><a name="line-380"></a><span class="hs-identifier">testJsonFormData</span><span> </span><span>
</span><a name="line-381"></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.Fake.html#TestJsonFormData"><span class="hs-identifier hs-type">TestJsonFormData</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span class="hs-special">)</span><span>
</span><a name="line-382"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Param"><span class="hs-identifier hs-type">Param</span></a><span> </span><span class="hs-comment">-- ^ &quot;param&quot; - field1</span><span>
</span><a name="line-383"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Param2"><span class="hs-identifier hs-type">Param2</span></a><span> </span><span class="hs-comment">-- ^ &quot;param2&quot; - field2</span><span>
</span><a name="line-384"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Fake.html#TestJsonFormData"><span class="hs-identifier hs-type">TestJsonFormData</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-385"></a><a name="testJsonFormData"><a href="SwaggerPetstore.API.Fake.html#testJsonFormData"><span class="hs-identifier">testJsonFormData</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Param"><span class="hs-identifier hs-var">Param</span></a><span> </span><a name="local-6989586621679156169"><a href="#local-6989586621679156169"><span class="hs-identifier">param</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Param2"><span class="hs-identifier hs-var">Param2</span></a><span> </span><a name="local-6989586621679156170"><a href="#local-6989586621679156170"><span class="hs-identifier">param2</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-386"></a><span> </span><a href="SwaggerPetstore.Core.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;/fake/jsonFormData&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-387"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;param&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156169"><span class="hs-identifier hs-var">param</span></a><span class="hs-special">)</span><span>
</span><a name="line-388"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier hs-var">toForm</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">&quot;param2&quot;</span><span class="hs-special">,</span><span> </span><a href="#local-6989586621679156170"><span class="hs-identifier hs-var">param2</span></a><span class="hs-special">)</span><span>
</span><a name="line-389"></a><span>
</span><a name="line-390"></a><span class="hs-keyword">data</span><span> </span><a name="TestJsonFormData"><a href="SwaggerPetstore.API.Fake.html#TestJsonFormData"><span class="hs-identifier">TestJsonFormData</span></a></a><span> </span><span>
</span><a name="line-391"></a><span>
</span><a name="line-392"></a><span class="hs-comment">-- | @application/x-www-form-urlencoded@</span><span>
</span><a name="line-393"></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.Fake.html#TestJsonFormData"><span class="hs-identifier hs-type">TestJsonFormData</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span>
</span><a name="line-394"></a><span>
</span><a name="line-395"></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.Fake.html#TestJsonFormData"><span class="hs-identifier hs-type">TestJsonFormData</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-396"></a><span>
</span><a name="line-397"></a></pre></body></html>

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

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \&quot; \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -64,26 +64,28 @@ Module : SwaggerPetstore.API.FakeClassnameTags123
</span><a name="line-64"></a><span class="hs-comment">-- </span><span>
</span><a name="line-65"></a><span class="hs-comment">-- To test class name in snake case</span><span>
</span><a name="line-66"></a><span class="hs-comment">-- </span><span>
</span><a name="line-67"></a><span class="hs-comment">-- AuthMethod: 'AuthApiKeyApiKeyQuery'</span><span>
</span><a name="line-67"></a><span class="hs-comment">-- To test class name in snake case</span><span>
</span><a name="line-68"></a><span class="hs-comment">-- </span><span>
</span><a name="line-69"></a><span class="hs-identifier">testClassname</span><span> </span><span>
</span><a name="line-70"></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.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</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="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span class="hs-special">)</span><span>
</span><a name="line-71"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span class="hs-comment">-- ^ &quot;body&quot; - client model</span><span>
</span><a name="line-72"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-73"></a><a name="testClassname"><a href="SwaggerPetstore.API.FakeClassnameTags123.html#testClassname"><span class="hs-identifier">testClassname</span></a></a><span> </span><a name="local-6989586621679155628"><a href="#local-6989586621679155628"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-74"></a><span> </span><a href="SwaggerPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;PATCH&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/fake_classname_test&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-75"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthApiKeyApiKeyQuery"><span class="hs-identifier hs-type">AuthApiKeyApiKeyQuery</span></a><span class="hs-special">)</span><span>
</span><a name="line-76"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679155628"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-77"></a><span>
</span><a name="line-78"></a><span class="hs-keyword">data</span><span> </span><a name="TestClassname"><a href="SwaggerPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier">TestClassname</span></a></a><span> </span><span>
</span><a name="line-69"></a><span class="hs-comment">-- AuthMethod: 'AuthApiKeyApiKeyQuery'</span><span>
</span><a name="line-70"></a><span class="hs-comment">-- </span><span>
</span><a name="line-71"></a><span class="hs-identifier">testClassname</span><span> </span><span>
</span><a name="line-72"></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.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</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="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span class="hs-special">)</span><span>
</span><a name="line-73"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span class="hs-comment">-- ^ &quot;client&quot; - client model</span><span>
</span><a name="line-74"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-75"></a><a name="testClassname"><a href="SwaggerPetstore.API.FakeClassnameTags123.html#testClassname"><span class="hs-identifier">testClassname</span></a></a><span> </span><a name="local-6989586621679155978"><a href="#local-6989586621679155978"><span class="hs-identifier">client</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-76"></a><span> </span><a href="SwaggerPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">&quot;PATCH&quot;</span><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;/fake_classname_test&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-77"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthApiKeyApiKeyQuery"><span class="hs-identifier hs-type">AuthApiKeyApiKeyQuery</span></a><span class="hs-special">)</span><span>
</span><a name="line-78"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679155978"><span class="hs-identifier hs-var">client</span></a><span>
</span><a name="line-79"></a><span>
</span><a name="line-80"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - client model</span><span>
</span><a name="line-81"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span>
</span><a name="line-82"></a><span>
</span><a name="line-83"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-84"></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.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-85"></a><span>
</span><a name="line-86"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-87"></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.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-88"></a><span>
</span><a name="line-89"></a></pre></body></html>
</span><a name="line-80"></a><span class="hs-keyword">data</span><span> </span><a name="TestClassname"><a href="SwaggerPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier">TestClassname</span></a></a><span> </span><span>
</span><a name="line-81"></a><span>
</span><a name="line-82"></a><span class="hs-comment">-- | /Body Param/ &quot;Client&quot; - client model</span><span>
</span><a name="line-83"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span>
</span><a name="line-84"></a><span>
</span><a name="line-85"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-86"></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.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-87"></a><span>
</span><a name="line-88"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-89"></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.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-90"></a><span>
</span><a name="line-91"></a></pre></body></html>

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

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \&quot; \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -64,263 +64,233 @@ Module : SwaggerPetstore.API.Pet
</span><a name="line-64"></a><span class="hs-comment">-- </span><span>
</span><a name="line-65"></a><span class="hs-comment">-- Add a new pet to the store</span><span>
</span><a name="line-66"></a><span class="hs-comment">-- </span><span>
</span><a name="line-67"></a><span class="hs-comment">-- </span><span>
</span><a name="line-67"></a><span class="hs-comment">-- AuthMethod: 'AuthOAuthPetstoreAuth'</span><span>
</span><a name="line-68"></a><span class="hs-comment">-- </span><span>
</span><a name="line-69"></a><span class="hs-comment">-- AuthMethod: 'AuthOAuthPetstoreAuth'</span><span>
</span><a name="line-70"></a><span class="hs-comment">-- </span><span>
</span><a name="line-71"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-72"></a><span class="hs-comment">-- </span><span>
</span><a name="line-73"></a><span class="hs-identifier">addPet</span><span> </span><span>
</span><a name="line-74"></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.Pet.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="#local-6989586621679154695"><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-6989586621679154695"><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-75"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679154695"><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-76"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679154696"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-77"></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-78"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="#local-6989586621679154695"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679154697"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679154696"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-79"></a><a name="addPet"><a href="SwaggerPetstore.API.Pet.html#addPet"><span class="hs-identifier">addPet</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679154698"><a href="#local-6989586621679154698"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-80"></a><span> </span><a href="SwaggerPetstore.Core.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-81"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthOAuthPetstoreAuth"><span class="hs-identifier hs-type">AuthOAuthPetstoreAuth</span></a><span class="hs-special">)</span><span>
</span><a name="line-82"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679154698"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-69"></a><span class="hs-identifier">addPet</span><span> </span><span>
</span><a name="line-70"></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.Pet.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="#local-6989586621679155126"><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-6989586621679155126"><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-71"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679155126"><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-72"></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;pet&quot; - Pet object that needs to be added to the store</span><span>
</span><a name="line-73"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="#local-6989586621679155126"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-74"></a><a name="addPet"><a href="SwaggerPetstore.API.Pet.html#addPet"><span class="hs-identifier">addPet</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679155127"><a href="#local-6989586621679155127"><span class="hs-identifier">pet</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-75"></a><span> </span><a href="SwaggerPetstore.Core.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-76"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthOAuthPetstoreAuth"><span class="hs-identifier hs-type">AuthOAuthPetstoreAuth</span></a><span class="hs-special">)</span><span>
</span><a name="line-77"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679155127"><span class="hs-identifier hs-var">pet</span></a><span>
</span><a name="line-78"></a><span>
</span><a name="line-79"></a><span class="hs-keyword">data</span><span> </span><a name="AddPet"><a href="SwaggerPetstore.API.Pet.html#AddPet"><span class="hs-identifier">AddPet</span></a></a><span> </span><span>
</span><a name="line-80"></a><span>
</span><a name="line-81"></a><span class="hs-comment">-- | /Body Param/ &quot;Pet&quot; - Pet object that needs to be added to the store</span><span>
</span><a name="line-82"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span>
</span><a name="line-83"></a><span>
</span><a name="line-84"></a><span class="hs-keyword">data</span><span> </span><a name="AddPet"><a href="SwaggerPetstore.API.Pet.html#AddPet"><span class="hs-identifier">AddPet</span></a></a><span> </span><span>
</span><a name="line-85"></a><span>
</span><a name="line-86"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - Pet object that needs to be added to the store</span><span>
</span><a name="line-87"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span>
</span><a name="line-84"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-85"></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.Pet.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-86"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-87"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-88"></a><span>
</span><a name="line-89"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-90"></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.Pet.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-91"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-92"></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.Pet.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-89"></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.Pet.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-90"></a><span>
</span><a name="line-91"></a><span>
</span><a name="line-92"></a><span class="hs-comment">-- *** deletePet</span><span>
</span><a name="line-93"></a><span>
</span><a name="line-94"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-95"></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.Pet.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-96"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-97"></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.Pet.html#AddPet"><span class="hs-identifier hs-type">AddPet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-98"></a><span>
</span><a name="line-99"></a><span>
</span><a name="line-100"></a><span class="hs-comment">-- *** deletePet</span><span>
</span><a name="line-101"></a><span>
</span><a name="line-102"></a><span class="hs-comment">-- | @DELETE \/pet\/{petId}@</span><span>
</span><a name="line-103"></a><span class="hs-comment">-- </span><span>
</span><a name="line-104"></a><span class="hs-comment">-- Deletes a pet</span><span>
</span><a name="line-105"></a><span class="hs-comment">-- </span><span>
</span><a name="line-106"></a><span class="hs-comment">-- </span><span>
</span><a name="line-107"></a><span class="hs-comment">-- </span><span>
</span><a name="line-108"></a><span class="hs-comment">-- AuthMethod: 'AuthOAuthPetstoreAuth'</span><span>
</span><a name="line-109"></a><span class="hs-comment">-- </span><span>
</span><a name="line-110"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-111"></a><span class="hs-comment">-- </span><span>
</span><a name="line-112"></a><span class="hs-identifier">deletePet</span><span> </span><span>
</span><a name="line-113"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679154693"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-114"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-type">PetId</span></a><span> </span><span class="hs-comment">-- ^ &quot;petId&quot; - Pet id to delete</span><span>
</span><a name="line-115"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.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-6989586621679154694"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679154693"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-116"></a><a name="deletePet"><a href="SwaggerPetstore.API.Pet.html#deletePet"><span class="hs-identifier">deletePet</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-var">PetId</span></a><span> </span><a name="local-6989586621679154699"><a href="#local-6989586621679154699"><span class="hs-identifier">petId</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-117"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679154699"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">]</span><span>
</span><a name="line-118"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthOAuthPetstoreAuth"><span class="hs-identifier hs-type">AuthOAuthPetstoreAuth</span></a><span class="hs-special">)</span><span>
</span><a name="line-119"></a><span>
</span><a name="line-120"></a><span class="hs-keyword">data</span><span> </span><a name="DeletePet"><a href="SwaggerPetstore.API.Pet.html#DeletePet"><span class="hs-identifier">DeletePet</span></a></a><span> </span><span>
</span><a name="line-121"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#DeletePet"><span class="hs-identifier hs-type">DeletePet</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiKey"><span class="hs-identifier hs-type">ApiKey</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-122"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679154683"><a href="#local-6989586621679154683"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ApiKey"><span class="hs-identifier hs-var">ApiKey</span></a><span> </span><a name="local-6989586621679154684"><a href="#local-6989586621679154684"><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-123"></a><span> </span><a href="#local-6989586621679154683"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setHeader"><span class="hs-identifier hs-var">setHeader</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679154684"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-124"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-125"></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.Pet.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-126"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-127"></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.Pet.html#DeletePet"><span class="hs-identifier hs-type">DeletePet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-128"></a><span>
</span><a name="line-129"></a><span>
</span><a name="line-130"></a><span class="hs-comment">-- *** findPetsByStatus</span><span>
</span><a name="line-131"></a><span>
</span><a name="line-132"></a><span class="hs-comment">-- | @GET \/pet\/findByStatus@</span><span>
</span><a name="line-133"></a><span class="hs-comment">-- </span><span>
</span><a name="line-134"></a><span class="hs-comment">-- Finds Pets by status</span><span>
</span><a name="line-135"></a><span class="hs-comment">-- </span><span>
</span><a name="line-136"></a><span class="hs-comment">-- Multiple status values can be provided with comma separated strings</span><span>
</span><a name="line-137"></a><span class="hs-comment">-- </span><span>
</span><a name="line-138"></a><span class="hs-comment">-- AuthMethod: 'AuthOAuthPetstoreAuth'</span><span>
</span><a name="line-139"></a><span class="hs-comment">-- </span><span>
</span><a name="line-140"></a><span class="hs-identifier">findPetsByStatus</span><span> </span><span>
</span><a name="line-141"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679154692"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-142"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Status"><span class="hs-identifier hs-type">Status</span></a><span> </span><span class="hs-comment">-- ^ &quot;status&quot; - Status values that need to be considered for filter</span><span>
</span><a name="line-143"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.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 href="#local-6989586621679154692"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-144"></a><a name="findPetsByStatus"><a href="SwaggerPetstore.API.Pet.html#findPetsByStatus"><span class="hs-identifier">findPetsByStatus</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Status"><span class="hs-identifier hs-var">Status</span></a><span> </span><a name="local-6989586621679154700"><a href="#local-6989586621679154700"><span class="hs-identifier">status</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-145"></a><span> </span><a href="SwaggerPetstore.Core.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-146"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthOAuthPetstoreAuth"><span class="hs-identifier hs-type">AuthOAuthPetstoreAuth</span></a><span class="hs-special">)</span><span>
</span><a name="line-147"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toQueryColl"><span class="hs-identifier hs-var">toQueryColl</span></a><span> </span><a href="SwaggerPetstore.Core.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-6989586621679154700"><span class="hs-identifier hs-var">status</span></a><span class="hs-special">)</span><span>
</span><a name="line-148"></a><span>
</span><a name="line-149"></a><span class="hs-keyword">data</span><span> </span><a name="FindPetsByStatus"><a href="SwaggerPetstore.API.Pet.html#FindPetsByStatus"><span class="hs-identifier">FindPetsByStatus</span></a></a><span> </span><span>
</span><a name="line-150"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-151"></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.Pet.html#FindPetsByStatus"><span class="hs-identifier hs-type">FindPetsByStatus</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-152"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-153"></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.Pet.html#FindPetsByStatus"><span class="hs-identifier hs-type">FindPetsByStatus</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-154"></a><span>
</span><a name="line-155"></a><span>
</span><a name="line-156"></a><span class="hs-comment">-- *** findPetsByTags</span><span>
</span><a name="line-157"></a><span>
</span><a name="line-158"></a><span class="hs-comment">-- | @GET \/pet\/findByTags@</span><span>
</span><a name="line-159"></a><span class="hs-comment">-- </span><span>
</span><a name="line-160"></a><span class="hs-comment">-- Finds Pets by tags</span><span>
</span><a name="line-161"></a><span class="hs-comment">-- </span><span>
</span><a name="line-162"></a><span class="hs-comment">-- Multiple tags can be provided with comma separated strings. Use tag1, tag2, tag3 for testing.</span><span>
</span><a name="line-163"></a><span class="hs-comment">-- </span><span>
</span><a name="line-164"></a><span class="hs-comment">-- AuthMethod: 'AuthOAuthPetstoreAuth'</span><span>
</span><a name="line-165"></a><span class="hs-comment">-- </span><span>
</span><a name="line-166"></a><span class="hs-identifier">findPetsByTags</span><span> </span><span>
</span><a name="line-167"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679154691"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-168"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Tags"><span class="hs-identifier hs-type">Tags</span></a><span> </span><span class="hs-comment">-- ^ &quot;tags&quot; - Tags to filter by</span><span>
</span><a name="line-169"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.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 href="#local-6989586621679154691"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-170"></a><a name="findPetsByTags"><a href="SwaggerPetstore.API.Pet.html#findPetsByTags"><span class="hs-identifier">findPetsByTags</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Tags"><span class="hs-identifier hs-var">Tags</span></a><span> </span><a name="local-6989586621679154701"><a href="#local-6989586621679154701"><span class="hs-identifier">tags</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-171"></a><span> </span><a href="SwaggerPetstore.Core.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-172"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthOAuthPetstoreAuth"><span class="hs-identifier hs-type">AuthOAuthPetstoreAuth</span></a><span class="hs-special">)</span><span>
</span><a name="line-173"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toQueryColl"><span class="hs-identifier hs-var">toQueryColl</span></a><span> </span><a href="SwaggerPetstore.Core.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-6989586621679154701"><span class="hs-identifier hs-var">tags</span></a><span class="hs-special">)</span><span>
</span><a name="line-174"></a><span>
</span><a name="line-175"></a><span class="hs-pragma">{-# DEPRECATED findPetsByTags &quot;&quot; #-}</span><span>
</span><a name="line-176"></a><span>
</span><a name="line-177"></a><span class="hs-keyword">data</span><span> </span><a name="FindPetsByTags"><a href="SwaggerPetstore.API.Pet.html#FindPetsByTags"><span class="hs-identifier">FindPetsByTags</span></a></a><span> </span><span>
</span><a name="line-178"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-179"></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.Pet.html#FindPetsByTags"><span class="hs-identifier hs-type">FindPetsByTags</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-180"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-181"></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.Pet.html#FindPetsByTags"><span class="hs-identifier hs-type">FindPetsByTags</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-182"></a><span>
</span><a name="line-183"></a><span>
</span><a name="line-184"></a><span class="hs-comment">-- *** getPetById</span><span>
</span><a name="line-185"></a><span>
</span><a name="line-186"></a><span class="hs-comment">-- | @GET \/pet\/{petId}@</span><span>
</span><a name="line-187"></a><span class="hs-comment">-- </span><span>
</span><a name="line-188"></a><span class="hs-comment">-- Find pet by ID</span><span>
</span><a name="line-189"></a><span class="hs-comment">-- </span><span>
</span><a name="line-190"></a><span class="hs-comment">-- Returns a single pet</span><span>
</span><a name="line-191"></a><span class="hs-comment">-- </span><span>
</span><a name="line-192"></a><span class="hs-comment">-- AuthMethod: 'AuthApiKeyApiKey'</span><span>
</span><a name="line-193"></a><span class="hs-comment">-- </span><span>
</span><a name="line-194"></a><span class="hs-identifier">getPetById</span><span> </span><span>
</span><a name="line-195"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679154690"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-196"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-type">PetId</span></a><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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.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 href="#local-6989586621679154690"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-198"></a><a name="getPetById"><a href="SwaggerPetstore.API.Pet.html#getPetById"><span class="hs-identifier">getPetById</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-var">PetId</span></a><span> </span><a name="local-6989586621679154702"><a href="#local-6989586621679154702"><span class="hs-identifier">petId</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-199"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679154702"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">]</span><span>
</span><a name="line-200"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthApiKeyApiKey"><span class="hs-identifier hs-type">AuthApiKeyApiKey</span></a><span class="hs-special">)</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.Pet.html#GetPetById"><span class="hs-identifier">GetPetById</span></a></a><span> </span><span>
</span><a name="line-203"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-204"></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.Pet.html#GetPetById"><span class="hs-identifier hs-type">GetPetById</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-205"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-206"></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.Pet.html#GetPetById"><span class="hs-identifier hs-type">GetPetById</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-207"></a><span>
</span><a name="line-208"></a><span>
</span><a name="line-209"></a><span class="hs-comment">-- *** updatePet</span><span>
</span><a name="line-210"></a><span>
</span><a name="line-211"></a><span class="hs-comment">-- | @PUT \/pet@</span><span>
</span><a name="line-212"></a><span class="hs-comment">-- </span><span>
</span><a name="line-213"></a><span class="hs-comment">-- Update an existing pet</span><span>
</span><a name="line-214"></a><span class="hs-comment">-- </span><span>
</span><a name="line-215"></a><span class="hs-comment">-- </span><span>
</span><a name="line-216"></a><span class="hs-comment">-- </span><span>
</span><a name="line-217"></a><span class="hs-comment">-- AuthMethod: 'AuthOAuthPetstoreAuth'</span><span>
</span><a name="line-218"></a><span class="hs-comment">-- </span><span>
</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.Pet.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="#local-6989586621679154687"><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-6989586621679154687"><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="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679154687"><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.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679154688"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-225"></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-226"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="#local-6989586621679154687"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679154689"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679154688"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-227"></a><a name="updatePet"><a href="SwaggerPetstore.API.Pet.html#updatePet"><span class="hs-identifier">updatePet</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679154703"><a href="#local-6989586621679154703"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-228"></a><span> </span><a href="SwaggerPetstore.Core.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-229"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthOAuthPetstoreAuth"><span class="hs-identifier hs-type">AuthOAuthPetstoreAuth</span></a><span class="hs-special">)</span><span>
</span><a name="line-230"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679154703"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-231"></a><span>
</span><a name="line-232"></a><span class="hs-keyword">data</span><span> </span><a name="UpdatePet"><a href="SwaggerPetstore.API.Pet.html#UpdatePet"><span class="hs-identifier">UpdatePet</span></a></a><span> </span><span>
</span><a name="line-233"></a><span>
</span><a name="line-234"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - Pet object that needs to be added to the store</span><span>
</span><a name="line-235"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span>
</span><a name="line-236"></a><span>
</span><a name="line-237"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-238"></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.Pet.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-239"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-240"></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.Pet.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-241"></a><span>
</span><a name="line-242"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-243"></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.Pet.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-244"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-245"></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.Pet.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-246"></a><span>
</span><a name="line-247"></a><span>
</span><a name="line-248"></a><span class="hs-comment">-- *** updatePetWithForm</span><span>
</span><a name="line-249"></a><span>
</span><a name="line-250"></a><span class="hs-comment">-- | @POST \/pet\/{petId}@</span><span>
</span><a name="line-251"></a><span class="hs-comment">-- </span><span>
</span><a name="line-252"></a><span class="hs-comment">-- Updates a pet in the store with form data</span><span>
</span><a name="line-253"></a><span class="hs-comment">-- </span><span>
</span><a name="line-254"></a><span class="hs-comment">-- </span><span>
</span><a name="line-255"></a><span class="hs-comment">-- </span><span>
</span><a name="line-256"></a><span class="hs-comment">-- AuthMethod: 'AuthOAuthPetstoreAuth'</span><span>
</span><a name="line-257"></a><span class="hs-comment">-- </span><span>
</span><a name="line-258"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-259"></a><span class="hs-comment">-- </span><span>
</span><a name="line-260"></a><span class="hs-identifier">updatePetWithForm</span><span> </span><span>
</span><a name="line-261"></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.Pet.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 class="hs-special">)</span><span>
</span><a name="line-262"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679154685"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-263"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-type">PetId</span></a><span> </span><span class="hs-comment">-- ^ &quot;petId&quot; - ID of pet that needs to be updated</span><span>
</span><a name="line-264"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.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> </span><a href="#local-6989586621679154686"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679154685"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-265"></a><a name="updatePetWithForm"><a href="SwaggerPetstore.API.Pet.html#updatePetWithForm"><span class="hs-identifier">updatePetWithForm</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-var">PetId</span></a><span> </span><a name="local-6989586621679154704"><a href="#local-6989586621679154704"><span class="hs-identifier">petId</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-266"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679154704"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">]</span><span>
</span><a name="line-267"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthOAuthPetstoreAuth"><span class="hs-identifier hs-type">AuthOAuthPetstoreAuth</span></a><span class="hs-special">)</span><span>
</span><a name="line-268"></a><span>
</span><a name="line-269"></a><span class="hs-keyword">data</span><span> </span><a name="UpdatePetWithForm"><a href="SwaggerPetstore.API.Pet.html#UpdatePetWithForm"><span class="hs-identifier">UpdatePetWithForm</span></a></a><span> </span><span>
</span><a name="line-270"></a><span>
</span><a name="line-271"></a><span class="hs-comment">-- | /Optional Param/ &quot;name&quot; - Updated name of the pet</span><span>
</span><a name="line-272"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#UpdatePetWithForm"><span class="hs-identifier hs-type">UpdatePetWithForm</span></a><span> </span><a href="SwaggerPetstore.Model.html#Name2"><span class="hs-identifier hs-type">Name2</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-273"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679154681"><a href="#local-6989586621679154681"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Name2"><span class="hs-identifier hs-var">Name2</span></a><span> </span><a name="local-6989586621679154682"><a href="#local-6989586621679154682"><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-274"></a><span> </span><a href="#local-6989586621679154681"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679154682"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-275"></a><span>
</span><a name="line-276"></a><span class="hs-comment">-- | /Optional Param/ &quot;status&quot; - Updated status of the pet</span><span>
</span><a name="line-277"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#UpdatePetWithForm"><span class="hs-identifier hs-type">UpdatePetWithForm</span></a><span> </span><a href="SwaggerPetstore.Model.html#StatusText"><span class="hs-identifier hs-type">StatusText</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-278"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679154679"><a href="#local-6989586621679154679"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#StatusText"><span class="hs-identifier hs-var">StatusText</span></a><span> </span><a name="local-6989586621679154680"><a href="#local-6989586621679154680"><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-279"></a><span> </span><a href="#local-6989586621679154679"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679154680"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-280"></a><span>
</span><a name="line-281"></a><span class="hs-comment">-- | @application/x-www-form-urlencoded@</span><span>
</span><a name="line-282"></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.Pet.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>
</span><a name="line-283"></a><span>
</span><a name="line-284"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-285"></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.Pet.html#UpdatePetWithForm"><span class="hs-identifier hs-type">UpdatePetWithForm</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-286"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-287"></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.Pet.html#UpdatePetWithForm"><span class="hs-identifier hs-type">UpdatePetWithForm</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-288"></a><span>
</span><a name="line-94"></a><span class="hs-comment">-- | @DELETE \/pet\/{petId}@</span><span>
</span><a name="line-95"></a><span class="hs-comment">-- </span><span>
</span><a name="line-96"></a><span class="hs-comment">-- Deletes a pet</span><span>
</span><a name="line-97"></a><span class="hs-comment">-- </span><span>
</span><a name="line-98"></a><span class="hs-comment">-- AuthMethod: 'AuthOAuthPetstoreAuth'</span><span>
</span><a name="line-99"></a><span class="hs-comment">-- </span><span>
</span><a name="line-100"></a><span class="hs-identifier">deletePet</span><span> </span><span>
</span><a name="line-101"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-type">PetId</span></a><span> </span><span class="hs-comment">-- ^ &quot;petId&quot; - Pet id to delete</span><span>
</span><a name="line-102"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.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="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-103"></a><a name="deletePet"><a href="SwaggerPetstore.API.Pet.html#deletePet"><span class="hs-identifier">deletePet</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-var">PetId</span></a><span> </span><a name="local-6989586621679155128"><a href="#local-6989586621679155128"><span class="hs-identifier">petId</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-104"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679155128"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">]</span><span>
</span><a name="line-105"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthOAuthPetstoreAuth"><span class="hs-identifier hs-type">AuthOAuthPetstoreAuth</span></a><span class="hs-special">)</span><span>
</span><a name="line-106"></a><span>
</span><a name="line-107"></a><span class="hs-keyword">data</span><span> </span><a name="DeletePet"><a href="SwaggerPetstore.API.Pet.html#DeletePet"><span class="hs-identifier">DeletePet</span></a></a><span> </span><span>
</span><a name="line-108"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#DeletePet"><span class="hs-identifier hs-type">DeletePet</span></a><span> </span><a href="SwaggerPetstore.Model.html#ApiKey"><span class="hs-identifier hs-type">ApiKey</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-109"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155120"><a href="#local-6989586621679155120"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#ApiKey"><span class="hs-identifier hs-var">ApiKey</span></a><span> </span><a name="local-6989586621679155121"><a href="#local-6989586621679155121"><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-110"></a><span> </span><a href="#local-6989586621679155120"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setHeader"><span class="hs-identifier hs-var">setHeader</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679155121"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-111"></a><span>
</span><a name="line-112"></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.Pet.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 name="line-113"></a><span>
</span><a name="line-114"></a><span>
</span><a name="line-115"></a><span class="hs-comment">-- *** findPetsByStatus</span><span>
</span><a name="line-116"></a><span>
</span><a name="line-117"></a><span class="hs-comment">-- | @GET \/pet\/findByStatus@</span><span>
</span><a name="line-118"></a><span class="hs-comment">-- </span><span>
</span><a name="line-119"></a><span class="hs-comment">-- Finds Pets by status</span><span>
</span><a name="line-120"></a><span class="hs-comment">-- </span><span>
</span><a name="line-121"></a><span class="hs-comment">-- Multiple status values can be provided with comma separated strings</span><span>
</span><a name="line-122"></a><span class="hs-comment">-- </span><span>
</span><a name="line-123"></a><span class="hs-comment">-- AuthMethod: 'AuthOAuthPetstoreAuth'</span><span>
</span><a name="line-124"></a><span class="hs-comment">-- </span><span>
</span><a name="line-125"></a><span class="hs-identifier">findPetsByStatus</span><span> </span><span>
</span><a name="line-126"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679155125"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-127"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Status"><span class="hs-identifier hs-type">Status</span></a><span> </span><span class="hs-comment">-- ^ &quot;status&quot; - Status values that need to be considered for filter</span><span>
</span><a name="line-128"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.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 href="#local-6989586621679155125"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-129"></a><a name="findPetsByStatus"><a href="SwaggerPetstore.API.Pet.html#findPetsByStatus"><span class="hs-identifier">findPetsByStatus</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Status"><span class="hs-identifier hs-var">Status</span></a><span> </span><a name="local-6989586621679155129"><a href="#local-6989586621679155129"><span class="hs-identifier">status</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-130"></a><span> </span><a href="SwaggerPetstore.Core.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-131"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthOAuthPetstoreAuth"><span class="hs-identifier hs-type">AuthOAuthPetstoreAuth</span></a><span class="hs-special">)</span><span>
</span><a name="line-132"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toQueryColl"><span class="hs-identifier hs-var">toQueryColl</span></a><span> </span><a href="SwaggerPetstore.Core.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-6989586621679155129"><span class="hs-identifier hs-var">status</span></a><span class="hs-special">)</span><span>
</span><a name="line-133"></a><span>
</span><a name="line-134"></a><span class="hs-keyword">data</span><span> </span><a name="FindPetsByStatus"><a href="SwaggerPetstore.API.Pet.html#FindPetsByStatus"><span class="hs-identifier">FindPetsByStatus</span></a></a><span> </span><span>
</span><a name="line-135"></a><span>
</span><a name="line-136"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-137"></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.Pet.html#FindPetsByStatus"><span class="hs-identifier hs-type">FindPetsByStatus</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-138"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-139"></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.Pet.html#FindPetsByStatus"><span class="hs-identifier hs-type">FindPetsByStatus</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-140"></a><span>
</span><a name="line-141"></a><span>
</span><a name="line-142"></a><span class="hs-comment">-- *** findPetsByTags</span><span>
</span><a name="line-143"></a><span>
</span><a name="line-144"></a><span class="hs-comment">-- | @GET \/pet\/findByTags@</span><span>
</span><a name="line-145"></a><span class="hs-comment">-- </span><span>
</span><a name="line-146"></a><span class="hs-comment">-- Finds Pets by tags</span><span>
</span><a name="line-147"></a><span class="hs-comment">-- </span><span>
</span><a name="line-148"></a><span class="hs-comment">-- Multiple tags can be provided with comma separated strings. Use tag1, tag2, tag3 for testing.</span><span>
</span><a name="line-149"></a><span class="hs-comment">-- </span><span>
</span><a name="line-150"></a><span class="hs-comment">-- AuthMethod: 'AuthOAuthPetstoreAuth'</span><span>
</span><a name="line-151"></a><span class="hs-comment">-- </span><span>
</span><a name="line-152"></a><span class="hs-identifier">findPetsByTags</span><span> </span><span>
</span><a name="line-153"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679155124"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-154"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Tags"><span class="hs-identifier hs-type">Tags</span></a><span> </span><span class="hs-comment">-- ^ &quot;tags&quot; - Tags to filter by</span><span>
</span><a name="line-155"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.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 href="#local-6989586621679155124"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-156"></a><a name="findPetsByTags"><a href="SwaggerPetstore.API.Pet.html#findPetsByTags"><span class="hs-identifier">findPetsByTags</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Tags"><span class="hs-identifier hs-var">Tags</span></a><span> </span><a name="local-6989586621679155130"><a href="#local-6989586621679155130"><span class="hs-identifier">tags</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-157"></a><span> </span><a href="SwaggerPetstore.Core.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-158"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthOAuthPetstoreAuth"><span class="hs-identifier hs-type">AuthOAuthPetstoreAuth</span></a><span class="hs-special">)</span><span>
</span><a name="line-159"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.html#toQueryColl"><span class="hs-identifier hs-var">toQueryColl</span></a><span> </span><a href="SwaggerPetstore.Core.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-6989586621679155130"><span class="hs-identifier hs-var">tags</span></a><span class="hs-special">)</span><span>
</span><a name="line-160"></a><span>
</span><a name="line-161"></a><span class="hs-pragma">{-# DEPRECATED findPetsByTags &quot;&quot; #-}</span><span>
</span><a name="line-162"></a><span>
</span><a name="line-163"></a><span class="hs-keyword">data</span><span> </span><a name="FindPetsByTags"><a href="SwaggerPetstore.API.Pet.html#FindPetsByTags"><span class="hs-identifier">FindPetsByTags</span></a></a><span> </span><span>
</span><a name="line-164"></a><span>
</span><a name="line-165"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-166"></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.Pet.html#FindPetsByTags"><span class="hs-identifier hs-type">FindPetsByTags</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-167"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-168"></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.Pet.html#FindPetsByTags"><span class="hs-identifier hs-type">FindPetsByTags</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-169"></a><span>
</span><a name="line-170"></a><span>
</span><a name="line-171"></a><span class="hs-comment">-- *** getPetById</span><span>
</span><a name="line-172"></a><span>
</span><a name="line-173"></a><span class="hs-comment">-- | @GET \/pet\/{petId}@</span><span>
</span><a name="line-174"></a><span class="hs-comment">-- </span><span>
</span><a name="line-175"></a><span class="hs-comment">-- Find pet by ID</span><span>
</span><a name="line-176"></a><span class="hs-comment">-- </span><span>
</span><a name="line-177"></a><span class="hs-comment">-- Returns a single pet</span><span>
</span><a name="line-178"></a><span class="hs-comment">-- </span><span>
</span><a name="line-179"></a><span class="hs-comment">-- AuthMethod: 'AuthApiKeyApiKey'</span><span>
</span><a name="line-180"></a><span class="hs-comment">-- </span><span>
</span><a name="line-181"></a><span class="hs-identifier">getPetById</span><span> </span><span>
</span><a name="line-182"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679155123"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-183"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-type">PetId</span></a><span> </span><span class="hs-comment">-- ^ &quot;petId&quot; - ID of pet to return</span><span>
</span><a name="line-184"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.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 href="#local-6989586621679155123"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-185"></a><a name="getPetById"><a href="SwaggerPetstore.API.Pet.html#getPetById"><span class="hs-identifier">getPetById</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-var">PetId</span></a><span> </span><a name="local-6989586621679155131"><a href="#local-6989586621679155131"><span class="hs-identifier">petId</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-186"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679155131"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">]</span><span>
</span><a name="line-187"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthApiKeyApiKey"><span class="hs-identifier hs-type">AuthApiKeyApiKey</span></a><span class="hs-special">)</span><span>
</span><a name="line-188"></a><span>
</span><a name="line-189"></a><span class="hs-keyword">data</span><span> </span><a name="GetPetById"><a href="SwaggerPetstore.API.Pet.html#GetPetById"><span class="hs-identifier">GetPetById</span></a></a><span> </span><span>
</span><a name="line-190"></a><span>
</span><a name="line-191"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-192"></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.Pet.html#GetPetById"><span class="hs-identifier hs-type">GetPetById</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-193"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-194"></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.Pet.html#GetPetById"><span class="hs-identifier hs-type">GetPetById</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-195"></a><span>
</span><a name="line-196"></a><span>
</span><a name="line-197"></a><span class="hs-comment">-- *** updatePet</span><span>
</span><a name="line-198"></a><span>
</span><a name="line-199"></a><span class="hs-comment">-- | @PUT \/pet@</span><span>
</span><a name="line-200"></a><span class="hs-comment">-- </span><span>
</span><a name="line-201"></a><span class="hs-comment">-- Update an existing pet</span><span>
</span><a name="line-202"></a><span class="hs-comment">-- </span><span>
</span><a name="line-203"></a><span class="hs-comment">-- AuthMethod: 'AuthOAuthPetstoreAuth'</span><span>
</span><a name="line-204"></a><span class="hs-comment">-- </span><span>
</span><a name="line-205"></a><span class="hs-identifier">updatePet</span><span> </span><span>
</span><a name="line-206"></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.Pet.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="#local-6989586621679155122"><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-6989586621679155122"><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-207"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679155122"><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-208"></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;pet&quot; - Pet object that needs to be added to the store</span><span>
</span><a name="line-209"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="#local-6989586621679155122"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-210"></a><a name="updatePet"><a href="SwaggerPetstore.API.Pet.html#updatePet"><span class="hs-identifier">updatePet</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679155132"><a href="#local-6989586621679155132"><span class="hs-identifier">pet</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-211"></a><span> </span><a href="SwaggerPetstore.Core.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-212"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthOAuthPetstoreAuth"><span class="hs-identifier hs-type">AuthOAuthPetstoreAuth</span></a><span class="hs-special">)</span><span>
</span><a name="line-213"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679155132"><span class="hs-identifier hs-var">pet</span></a><span>
</span><a name="line-214"></a><span>
</span><a name="line-215"></a><span class="hs-keyword">data</span><span> </span><a name="UpdatePet"><a href="SwaggerPetstore.API.Pet.html#UpdatePet"><span class="hs-identifier">UpdatePet</span></a></a><span> </span><span>
</span><a name="line-216"></a><span>
</span><a name="line-217"></a><span class="hs-comment">-- | /Body Param/ &quot;Pet&quot; - Pet object that needs to be added to the store</span><span>
</span><a name="line-218"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span>
</span><a name="line-219"></a><span>
</span><a name="line-220"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-221"></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.Pet.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-222"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-223"></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.Pet.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-224"></a><span>
</span><a name="line-225"></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.Pet.html#UpdatePet"><span class="hs-identifier hs-type">UpdatePet</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-226"></a><span>
</span><a name="line-227"></a><span>
</span><a name="line-228"></a><span class="hs-comment">-- *** updatePetWithForm</span><span>
</span><a name="line-229"></a><span>
</span><a name="line-230"></a><span class="hs-comment">-- | @POST \/pet\/{petId}@</span><span>
</span><a name="line-231"></a><span class="hs-comment">-- </span><span>
</span><a name="line-232"></a><span class="hs-comment">-- Updates a pet in the store with form data</span><span>
</span><a name="line-233"></a><span class="hs-comment">-- </span><span>
</span><a name="line-234"></a><span class="hs-comment">-- AuthMethod: 'AuthOAuthPetstoreAuth'</span><span>
</span><a name="line-235"></a><span class="hs-comment">-- </span><span>
</span><a name="line-236"></a><span class="hs-identifier">updatePetWithForm</span><span> </span><span>
</span><a name="line-237"></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.Pet.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 class="hs-special">)</span><span>
</span><a name="line-238"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-type">PetId</span></a><span> </span><span class="hs-comment">-- ^ &quot;petId&quot; - ID of pet that needs to be updated</span><span>
</span><a name="line-239"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.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> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-240"></a><a name="updatePetWithForm"><a href="SwaggerPetstore.API.Pet.html#updatePetWithForm"><span class="hs-identifier">updatePetWithForm</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-var">PetId</span></a><span> </span><a name="local-6989586621679155133"><a href="#local-6989586621679155133"><span class="hs-identifier">petId</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-241"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679155133"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">]</span><span>
</span><a name="line-242"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthOAuthPetstoreAuth"><span class="hs-identifier hs-type">AuthOAuthPetstoreAuth</span></a><span class="hs-special">)</span><span>
</span><a name="line-243"></a><span>
</span><a name="line-244"></a><span class="hs-keyword">data</span><span> </span><a name="UpdatePetWithForm"><a href="SwaggerPetstore.API.Pet.html#UpdatePetWithForm"><span class="hs-identifier">UpdatePetWithForm</span></a></a><span> </span><span>
</span><a name="line-245"></a><span>
</span><a name="line-246"></a><span class="hs-comment">-- | /Optional Param/ &quot;name&quot; - Updated name of the pet</span><span>
</span><a name="line-247"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#UpdatePetWithForm"><span class="hs-identifier hs-type">UpdatePetWithForm</span></a><span> </span><a href="SwaggerPetstore.Model.html#Name2"><span class="hs-identifier hs-type">Name2</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-248"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155118"><a href="#local-6989586621679155118"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Name2"><span class="hs-identifier hs-var">Name2</span></a><span> </span><a name="local-6989586621679155119"><a href="#local-6989586621679155119"><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-249"></a><span> </span><a href="#local-6989586621679155118"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679155119"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-250"></a><span>
</span><a name="line-251"></a><span class="hs-comment">-- | /Optional Param/ &quot;status&quot; - Updated status of the pet</span><span>
</span><a name="line-252"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#UpdatePetWithForm"><span class="hs-identifier hs-type">UpdatePetWithForm</span></a><span> </span><a href="SwaggerPetstore.Model.html#StatusText"><span class="hs-identifier hs-type">StatusText</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-253"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155116"><a href="#local-6989586621679155116"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#StatusText"><span class="hs-identifier hs-var">StatusText</span></a><span> </span><a name="local-6989586621679155117"><a href="#local-6989586621679155117"><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-254"></a><span> </span><a href="#local-6989586621679155116"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier hs-var">addForm</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679155117"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-255"></a><span>
</span><a name="line-256"></a><span class="hs-comment">-- | @application/x-www-form-urlencoded@</span><span>
</span><a name="line-257"></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.Pet.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>
</span><a name="line-258"></a><span>
</span><a name="line-259"></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.Pet.html#UpdatePetWithForm"><span class="hs-identifier hs-type">UpdatePetWithForm</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-260"></a><span>
</span><a name="line-261"></a><span>
</span><a name="line-262"></a><span class="hs-comment">-- *** uploadFile</span><span>
</span><a name="line-263"></a><span>
</span><a name="line-264"></a><span class="hs-comment">-- | @POST \/pet\/{petId}\/uploadImage@</span><span>
</span><a name="line-265"></a><span class="hs-comment">-- </span><span>
</span><a name="line-266"></a><span class="hs-comment">-- uploads an image</span><span>
</span><a name="line-267"></a><span class="hs-comment">-- </span><span>
</span><a name="line-268"></a><span class="hs-comment">-- AuthMethod: 'AuthOAuthPetstoreAuth'</span><span>
</span><a name="line-269"></a><span class="hs-comment">-- </span><span>
</span><a name="line-270"></a><span class="hs-identifier">uploadFile</span><span> </span><span>
</span><a name="line-271"></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.Pet.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 class="hs-special">)</span><span>
</span><a name="line-272"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-type">PetId</span></a><span> </span><span class="hs-comment">-- ^ &quot;petId&quot; - ID of pet to update</span><span>
</span><a name="line-273"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.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> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-274"></a><a name="uploadFile"><a href="SwaggerPetstore.API.Pet.html#uploadFile"><span class="hs-identifier">uploadFile</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-var">PetId</span></a><span> </span><a name="local-6989586621679155134"><a href="#local-6989586621679155134"><span class="hs-identifier">petId</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-275"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679155134"><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-276"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthOAuthPetstoreAuth"><span class="hs-identifier hs-type">AuthOAuthPetstoreAuth</span></a><span class="hs-special">)</span><span>
</span><a name="line-277"></a><span>
</span><a name="line-278"></a><span class="hs-keyword">data</span><span> </span><a name="UploadFile"><a href="SwaggerPetstore.API.Pet.html#UploadFile"><span class="hs-identifier">UploadFile</span></a></a><span> </span><span>
</span><a name="line-279"></a><span>
</span><a name="line-280"></a><span class="hs-comment">-- | /Optional Param/ &quot;additionalMetadata&quot; - Additional data to pass to server</span><span>
</span><a name="line-281"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#UploadFile"><span class="hs-identifier hs-type">UploadFile</span></a><span> </span><a href="SwaggerPetstore.Model.html#AdditionalMetadata"><span class="hs-identifier hs-type">AdditionalMetadata</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-282"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155114"><a href="#local-6989586621679155114"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#AdditionalMetadata"><span class="hs-identifier hs-var">AdditionalMetadata</span></a><span> </span><a name="local-6989586621679155115"><a href="#local-6989586621679155115"><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-283"></a><span> </span><a href="#local-6989586621679155114"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-6989586621679155115"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-284"></a><span>
</span><a name="line-285"></a><span class="hs-comment">-- | /Optional Param/ &quot;file&quot; - file to upload</span><span>
</span><a name="line-286"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#UploadFile"><span class="hs-identifier hs-type">UploadFile</span></a><span> </span><a href="SwaggerPetstore.Model.html#File"><span class="hs-identifier hs-type">File</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-287"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679155112"><a href="#local-6989586621679155112"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#File"><span class="hs-identifier hs-var">File</span></a><span> </span><a name="local-6989586621679155113"><a href="#local-6989586621679155113"><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-288"></a><span> </span><a href="#local-6989586621679155112"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-6989586621679155113"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-289"></a><span>
</span><a name="line-290"></a><span class="hs-comment">-- *** uploadFile</span><span>
</span><a name="line-291"></a><span>
</span><a name="line-292"></a><span class="hs-comment">-- | @POST \/pet\/{petId}\/uploadImage@</span><span>
</span><a name="line-293"></a><span class="hs-comment">-- </span><span>
</span><a name="line-294"></a><span class="hs-comment">-- uploads an image</span><span>
</span><a name="line-295"></a><span class="hs-comment">-- </span><span>
</span><a name="line-296"></a><span class="hs-comment">-- </span><span>
</span><a name="line-297"></a><span class="hs-comment">-- </span><span>
</span><a name="line-298"></a><span class="hs-comment">-- AuthMethod: 'AuthOAuthPetstoreAuth'</span><span>
</span><a name="line-299"></a><span class="hs-comment">-- </span><span>
</span><a name="line-300"></a><span class="hs-identifier">uploadFile</span><span> </span><span>
</span><a name="line-301"></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.Pet.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 class="hs-special">)</span><span>
</span><a name="line-302"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-type">PetId</span></a><span> </span><span class="hs-comment">-- ^ &quot;petId&quot; - ID of pet to update</span><span>
</span><a name="line-303"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Pet.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> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-304"></a><a name="uploadFile"><a href="SwaggerPetstore.API.Pet.html#uploadFile"><span class="hs-identifier">uploadFile</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#PetId"><span class="hs-identifier hs-var">PetId</span></a><span> </span><a name="local-6989586621679154705"><a href="#local-6989586621679154705"><span class="hs-identifier">petId</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-305"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679154705"><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-306"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthOAuthPetstoreAuth"><span class="hs-identifier hs-type">AuthOAuthPetstoreAuth</span></a><span class="hs-special">)</span><span>
</span><a name="line-307"></a><span>
</span><a name="line-308"></a><span class="hs-keyword">data</span><span> </span><a name="UploadFile"><a href="SwaggerPetstore.API.Pet.html#UploadFile"><span class="hs-identifier">UploadFile</span></a></a><span> </span><span>
</span><a name="line-309"></a><span>
</span><a name="line-310"></a><span class="hs-comment">-- | /Optional Param/ &quot;additionalMetadata&quot; - Additional data to pass to server</span><span>
</span><a name="line-311"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#UploadFile"><span class="hs-identifier hs-type">UploadFile</span></a><span> </span><a href="SwaggerPetstore.Model.html#AdditionalMetadata"><span class="hs-identifier hs-type">AdditionalMetadata</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-312"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679154677"><a href="#local-6989586621679154677"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#AdditionalMetadata"><span class="hs-identifier hs-var">AdditionalMetadata</span></a><span> </span><a name="local-6989586621679154678"><a href="#local-6989586621679154678"><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-313"></a><span> </span><a href="#local-6989586621679154677"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-6989586621679154678"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-314"></a><span>
</span><a name="line-315"></a><span class="hs-comment">-- | /Optional Param/ &quot;file&quot; - file to upload</span><span>
</span><a name="line-316"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier hs-type">HasOptionalParam</span></a><span> </span><a href="SwaggerPetstore.API.Pet.html#UploadFile"><span class="hs-identifier hs-type">UploadFile</span></a><span> </span><a href="SwaggerPetstore.Model.html#File"><span class="hs-identifier hs-type">File</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-317"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.html#applyOptionalParam"><span class="hs-identifier">applyOptionalParam</span></a></a><span> </span><a name="local-6989586621679154675"><a href="#local-6989586621679154675"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#File"><span class="hs-identifier hs-var">File</span></a><span> </span><a name="local-6989586621679154676"><a href="#local-6989586621679154676"><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-318"></a><span> </span><a href="#local-6989586621679154675"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-6989586621679154676"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-319"></a><span>
</span><a name="line-320"></a><span class="hs-comment">-- | @multipart/form-data@</span><span>
</span><a name="line-321"></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.Pet.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>
</span><a name="line-322"></a><span>
</span><a name="line-323"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-324"></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.Pet.html#UploadFile"><span class="hs-identifier hs-type">UploadFile</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-325"></a><span>
</span><a name="line-326"></a></pre></body></html>
</span><a name="line-290"></a><span class="hs-comment">-- | @multipart/form-data@</span><span>
</span><a name="line-291"></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.Pet.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>
</span><a name="line-292"></a><span>
</span><a name="line-293"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-294"></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.Pet.html#UploadFile"><span class="hs-identifier hs-type">UploadFile</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-295"></a><span>
</span><a name="line-296"></a></pre></body></html>

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

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \&quot; \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -66,90 +66,86 @@ Module : SwaggerPetstore.API.Store
</span><a name="line-66"></a><span class="hs-comment">-- </span><span>
</span><a name="line-67"></a><span class="hs-comment">-- For valid response try integer IDs with value &lt; 1000. Anything above 1000 or nonintegers will generate API errors</span><span>
</span><a name="line-68"></a><span class="hs-comment">-- </span><span>
</span><a name="line-69"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-70"></a><span class="hs-comment">-- </span><span>
</span><a name="line-71"></a><span class="hs-identifier">deleteOrder</span><span> </span><span>
</span><a name="line-72"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679154389"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-73"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#OrderIdText"><span class="hs-identifier hs-type">OrderIdText</span></a><span> </span><span class="hs-comment">-- ^ &quot;orderId&quot; - ID of the order that needs to be deleted</span><span>
</span><a name="line-74"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Store.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-6989586621679154390"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679154389"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-75"></a><a name="deleteOrder"><a href="SwaggerPetstore.API.Store.html#deleteOrder"><span class="hs-identifier">deleteOrder</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#OrderIdText"><span class="hs-identifier hs-var">OrderIdText</span></a><span> </span><a name="local-6989586621679154391"><a href="#local-6989586621679154391"><span class="hs-identifier">orderId</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-76"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679154391"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">]</span><span>
</span><a name="line-77"></a><span>
</span><a name="line-78"></a><span class="hs-keyword">data</span><span> </span><a name="DeleteOrder"><a href="SwaggerPetstore.API.Store.html#DeleteOrder"><span class="hs-identifier">DeleteOrder</span></a></a><span> </span><span>
</span><a name="line-79"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-80"></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.Store.html#DeleteOrder"><span class="hs-identifier hs-type">DeleteOrder</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-81"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-82"></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.Store.html#DeleteOrder"><span class="hs-identifier hs-type">DeleteOrder</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-83"></a><span>
</span><a name="line-84"></a><span>
</span><a name="line-85"></a><span class="hs-comment">-- *** getInventory</span><span>
</span><a name="line-86"></a><span>
</span><a name="line-87"></a><span class="hs-comment">-- | @GET \/store\/inventory@</span><span>
</span><a name="line-88"></a><span class="hs-comment">-- </span><span>
</span><a name="line-89"></a><span class="hs-comment">-- Returns pet inventories by status</span><span>
</span><a name="line-90"></a><span class="hs-comment">-- </span><span>
</span><a name="line-91"></a><span class="hs-comment">-- Returns a map of status codes to quantities</span><span>
</span><a name="line-92"></a><span class="hs-comment">-- </span><span>
</span><a name="line-93"></a><span class="hs-comment">-- AuthMethod: 'AuthApiKeyApiKey'</span><span>
</span><a name="line-94"></a><span class="hs-comment">-- </span><span>
</span><a name="line-95"></a><span class="hs-identifier">getInventory</span><span> </span><span>
</span><a name="line-96"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Store.html#GetInventory"><span class="hs-identifier hs-type">GetInventory</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><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-97"></a><a name="getInventory"><a href="SwaggerPetstore.API.Store.html#getInventory"><span class="hs-identifier">getInventory</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-98"></a><span> </span><a href="SwaggerPetstore.Core.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/inventory&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-99"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthApiKeyApiKey"><span class="hs-identifier hs-type">AuthApiKeyApiKey</span></a><span class="hs-special">)</span><span>
</span><a name="line-69"></a><span class="hs-identifier">deleteOrder</span><span> </span><span>
</span><a name="line-70"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Model.html#OrderIdText"><span class="hs-identifier hs-type">OrderIdText</span></a><span> </span><span class="hs-comment">-- ^ &quot;orderId&quot; - ID of the order that needs to be deleted</span><span>
</span><a name="line-71"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Store.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="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-72"></a><a name="deleteOrder"><a href="SwaggerPetstore.API.Store.html#deleteOrder"><span class="hs-identifier">deleteOrder</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#OrderIdText"><span class="hs-identifier hs-var">OrderIdText</span></a><span> </span><a name="local-6989586621679154849"><a href="#local-6989586621679154849"><span class="hs-identifier">orderId</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-73"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679154849"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">]</span><span>
</span><a name="line-74"></a><span>
</span><a name="line-75"></a><span class="hs-keyword">data</span><span> </span><a name="DeleteOrder"><a href="SwaggerPetstore.API.Store.html#DeleteOrder"><span class="hs-identifier">DeleteOrder</span></a></a><span> </span><span>
</span><a name="line-76"></a><span>
</span><a name="line-77"></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.Store.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 name="line-78"></a><span>
</span><a name="line-79"></a><span>
</span><a name="line-80"></a><span class="hs-comment">-- *** getInventory</span><span>
</span><a name="line-81"></a><span>
</span><a name="line-82"></a><span class="hs-comment">-- | @GET \/store\/inventory@</span><span>
</span><a name="line-83"></a><span class="hs-comment">-- </span><span>
</span><a name="line-84"></a><span class="hs-comment">-- Returns pet inventories by status</span><span>
</span><a name="line-85"></a><span class="hs-comment">-- </span><span>
</span><a name="line-86"></a><span class="hs-comment">-- Returns a map of status codes to quantities</span><span>
</span><a name="line-87"></a><span class="hs-comment">-- </span><span>
</span><a name="line-88"></a><span class="hs-comment">-- AuthMethod: 'AuthApiKeyApiKey'</span><span>
</span><a name="line-89"></a><span class="hs-comment">-- </span><span>
</span><a name="line-90"></a><span class="hs-identifier">getInventory</span><span> </span><span>
</span><a name="line-91"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Store.html#GetInventory"><span class="hs-identifier hs-type">GetInventory</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><span class="hs-special">(</span><span class="hs-identifier hs-type">Map</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-92"></a><a name="getInventory"><a href="SwaggerPetstore.API.Store.html#getInventory"><span class="hs-identifier">getInventory</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-93"></a><span> </span><a href="SwaggerPetstore.Core.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/inventory&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-94"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</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">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="SwaggerPetstore.Model.html#AuthApiKeyApiKey"><span class="hs-identifier hs-type">AuthApiKeyApiKey</span></a><span class="hs-special">)</span><span>
</span><a name="line-95"></a><span>
</span><a name="line-96"></a><span class="hs-keyword">data</span><span> </span><a name="GetInventory"><a href="SwaggerPetstore.API.Store.html#GetInventory"><span class="hs-identifier">GetInventory</span></a></a><span> </span><span>
</span><a name="line-97"></a><span>
</span><a name="line-98"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-99"></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.Store.html#GetInventory"><span class="hs-identifier hs-type">GetInventory</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-100"></a><span>
</span><a name="line-101"></a><span class="hs-keyword">data</span><span> </span><a name="GetInventory"><a href="SwaggerPetstore.API.Store.html#GetInventory"><span class="hs-identifier">GetInventory</span></a></a><span> </span><span>
</span><a name="line-102"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-103"></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.Store.html#GetInventory"><span class="hs-identifier hs-type">GetInventory</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-104"></a><span>
</span><a name="line-105"></a><span>
</span><a name="line-106"></a><span class="hs-comment">-- *** getOrderById</span><span>
</span><a name="line-107"></a><span>
</span><a name="line-108"></a><span class="hs-comment">-- | @GET \/store\/order\/{order_id}@</span><span>
</span><a name="line-101"></a><span>
</span><a name="line-102"></a><span class="hs-comment">-- *** getOrderById</span><span>
</span><a name="line-103"></a><span>
</span><a name="line-104"></a><span class="hs-comment">-- | @GET \/store\/order\/{order_id}@</span><span>
</span><a name="line-105"></a><span class="hs-comment">-- </span><span>
</span><a name="line-106"></a><span class="hs-comment">-- Find purchase order by ID</span><span>
</span><a name="line-107"></a><span class="hs-comment">-- </span><span>
</span><a name="line-108"></a><span class="hs-comment">-- For valid response try integer IDs with value &lt;= 5 or &gt; 10. Other values will generated exceptions</span><span>
</span><a name="line-109"></a><span class="hs-comment">-- </span><span>
</span><a name="line-110"></a><span class="hs-comment">-- Find purchase order by ID</span><span>
</span><a name="line-111"></a><span class="hs-comment">-- </span><span>
</span><a name="line-112"></a><span class="hs-comment">-- For valid response try integer IDs with value &lt;= 5 or &gt; 10. Other values will generated exceptions</span><span>
</span><a name="line-113"></a><span class="hs-comment">-- </span><span>
</span><a name="line-114"></a><span class="hs-identifier">getOrderById</span><span> </span><span>
</span><a name="line-115"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679154388"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-116"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#OrderId"><span class="hs-identifier hs-type">OrderId</span></a><span> </span><span class="hs-comment">-- ^ &quot;orderId&quot; - ID of pet that needs to be fetched</span><span>
</span><a name="line-117"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Store.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 href="#local-6989586621679154388"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-118"></a><a name="getOrderById"><a href="SwaggerPetstore.API.Store.html#getOrderById"><span class="hs-identifier">getOrderById</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#OrderId"><span class="hs-identifier hs-var">OrderId</span></a><span> </span><a name="local-6989586621679154392"><a href="#local-6989586621679154392"><span class="hs-identifier">orderId</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-119"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679154392"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">]</span><span>
</span><a name="line-120"></a><span>
</span><a name="line-121"></a><span class="hs-keyword">data</span><span> </span><a name="GetOrderById"><a href="SwaggerPetstore.API.Store.html#GetOrderById"><span class="hs-identifier">GetOrderById</span></a></a><span> </span><span>
</span><a name="line-122"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-123"></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.Store.html#GetOrderById"><span class="hs-identifier hs-type">GetOrderById</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-124"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-125"></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.Store.html#GetOrderById"><span class="hs-identifier hs-type">GetOrderById</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-110"></a><span class="hs-identifier">getOrderById</span><span> </span><span>
</span><a name="line-111"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679154848"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-112"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#OrderId"><span class="hs-identifier hs-type">OrderId</span></a><span> </span><span class="hs-comment">-- ^ &quot;orderId&quot; - ID of pet that needs to be fetched</span><span>
</span><a name="line-113"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Store.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 href="#local-6989586621679154848"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-114"></a><a name="getOrderById"><a href="SwaggerPetstore.API.Store.html#getOrderById"><span class="hs-identifier">getOrderById</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#OrderId"><span class="hs-identifier hs-var">OrderId</span></a><span> </span><a name="local-6989586621679154850"><a href="#local-6989586621679154850"><span class="hs-identifier">orderId</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-115"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679154850"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">]</span><span>
</span><a name="line-116"></a><span>
</span><a name="line-117"></a><span class="hs-keyword">data</span><span> </span><a name="GetOrderById"><a href="SwaggerPetstore.API.Store.html#GetOrderById"><span class="hs-identifier">GetOrderById</span></a></a><span> </span><span>
</span><a name="line-118"></a><span>
</span><a name="line-119"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-120"></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.Store.html#GetOrderById"><span class="hs-identifier hs-type">GetOrderById</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-121"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-122"></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.Store.html#GetOrderById"><span class="hs-identifier hs-type">GetOrderById</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-123"></a><span>
</span><a name="line-124"></a><span>
</span><a name="line-125"></a><span class="hs-comment">-- *** placeOrder</span><span>
</span><a name="line-126"></a><span>
</span><a name="line-127"></a><span>
</span><a name="line-128"></a><span class="hs-comment">-- *** placeOrder</span><span>
</span><a name="line-129"></a><span>
</span><a name="line-130"></a><span class="hs-comment">-- | @POST \/store\/order@</span><span>
</span><a name="line-131"></a><span class="hs-comment">-- </span><span>
</span><a name="line-132"></a><span class="hs-comment">-- Place an order for a pet</span><span>
</span><a name="line-133"></a><span class="hs-comment">-- </span><span>
</span><a name="line-134"></a><span class="hs-comment">-- </span><span>
</span><a name="line-135"></a><span class="hs-comment">-- </span><span>
</span><a name="line-136"></a><span class="hs-identifier">placeOrder</span><span> </span><span>
</span><a name="line-137"></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.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="#local-6989586621679154386"><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-6989586621679154386"><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-138"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679154386"><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-139"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679154387"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-140"></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-141"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="#local-6989586621679154386"><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 href="#local-6989586621679154387"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-142"></a><a name="placeOrder"><a href="SwaggerPetstore.API.Store.html#placeOrder"><span class="hs-identifier">placeOrder</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679154393"><a href="#local-6989586621679154393"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-143"></a><span> </span><a href="SwaggerPetstore.Core.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-144"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679154393"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-127"></a><span class="hs-comment">-- | @POST \/store\/order@</span><span>
</span><a name="line-128"></a><span class="hs-comment">-- </span><span>
</span><a name="line-129"></a><span class="hs-comment">-- Place an order for a pet</span><span>
</span><a name="line-130"></a><span class="hs-comment">-- </span><span>
</span><a name="line-131"></a><span class="hs-identifier">placeOrder</span><span> </span><span>
</span><a name="line-132"></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.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="#local-6989586621679154846"><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-6989586621679154846"><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-133"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679154846"><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-134"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679154847"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-135"></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;order&quot; - order placed for purchasing the pet</span><span>
</span><a name="line-136"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="#local-6989586621679154846"><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 href="#local-6989586621679154847"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-137"></a><a name="placeOrder"><a href="SwaggerPetstore.API.Store.html#placeOrder"><span class="hs-identifier">placeOrder</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679154851"><a href="#local-6989586621679154851"><span class="hs-identifier">order</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-138"></a><span> </span><a href="SwaggerPetstore.Core.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-139"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679154851"><span class="hs-identifier hs-var">order</span></a><span>
</span><a name="line-140"></a><span>
</span><a name="line-141"></a><span class="hs-keyword">data</span><span> </span><a name="PlaceOrder"><a href="SwaggerPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier">PlaceOrder</span></a></a><span> </span><span>
</span><a name="line-142"></a><span>
</span><a name="line-143"></a><span class="hs-comment">-- | /Body Param/ &quot;Order&quot; - order placed for purchasing the pet</span><span>
</span><a name="line-144"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span>
</span><a name="line-145"></a><span>
</span><a name="line-146"></a><span class="hs-keyword">data</span><span> </span><a name="PlaceOrder"><a href="SwaggerPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier">PlaceOrder</span></a></a><span> </span><span>
</span><a name="line-147"></a><span>
</span><a name="line-148"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - order placed for purchasing the pet</span><span>
</span><a name="line-149"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span>
</span><a name="line-150"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-151"></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.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-152"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-153"></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.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-154"></a><span>
</span><a name="line-155"></a></pre></body></html>
</span><a name="line-146"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-147"></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.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-148"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-149"></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.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-150"></a><span>
</span><a name="line-151"></a></pre></body></html>

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

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \&quot; \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -66,210 +66,172 @@ Module : SwaggerPetstore.API.User
</span><a name="line-66"></a><span class="hs-comment">-- </span><span>
</span><a name="line-67"></a><span class="hs-comment">-- This can only be done by the logged in user.</span><span>
</span><a name="line-68"></a><span class="hs-comment">-- </span><span>
</span><a name="line-69"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-70"></a><span class="hs-comment">-- </span><span>
</span><a name="line-71"></a><span class="hs-identifier">createUser</span><span> </span><span>
</span><a name="line-72"></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.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="#local-6989586621679153677"><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-6989586621679153677"><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-73"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679153677"><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-74"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679153678"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-75"></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-76"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="#local-6989586621679153677"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679153679"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679153678"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-77"></a><a name="createUser"><a href="SwaggerPetstore.API.User.html#createUser"><span class="hs-identifier">createUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679153680"><a href="#local-6989586621679153680"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-78"></a><span> </span><a href="SwaggerPetstore.Core.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-79"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679153680"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-80"></a><span>
</span><a name="line-81"></a><span class="hs-keyword">data</span><span> </span><a name="CreateUser"><a href="SwaggerPetstore.API.User.html#CreateUser"><span class="hs-identifier">CreateUser</span></a></a><span> </span><span>
</span><a name="line-69"></a><span class="hs-identifier">createUser</span><span> </span><span>
</span><a name="line-70"></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.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="#local-6989586621679154257"><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-6989586621679154257"><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-71"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679154257"><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-72"></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;user&quot; - Created user object</span><span>
</span><a name="line-73"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="#local-6989586621679154257"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-74"></a><a name="createUser"><a href="SwaggerPetstore.API.User.html#createUser"><span class="hs-identifier">createUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679154258"><a href="#local-6989586621679154258"><span class="hs-identifier">user</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-75"></a><span> </span><a href="SwaggerPetstore.Core.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-76"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679154258"><span class="hs-identifier hs-var">user</span></a><span>
</span><a name="line-77"></a><span>
</span><a name="line-78"></a><span class="hs-keyword">data</span><span> </span><a name="CreateUser"><a href="SwaggerPetstore.API.User.html#CreateUser"><span class="hs-identifier">CreateUser</span></a></a><span> </span><span>
</span><a name="line-79"></a><span>
</span><a name="line-80"></a><span class="hs-comment">-- | /Body Param/ &quot;User&quot; - Created user object</span><span>
</span><a name="line-81"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span>
</span><a name="line-82"></a><span>
</span><a name="line-83"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - Created user object</span><span>
</span><a name="line-84"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span>
</span><a name="line-85"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-86"></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.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-87"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-88"></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.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-89"></a><span>
</span><a name="line-90"></a><span>
</span><a name="line-91"></a><span class="hs-comment">-- *** createUsersWithArrayInput</span><span>
</span><a name="line-92"></a><span>
</span><a name="line-93"></a><span class="hs-comment">-- | @POST \/user\/createWithArray@</span><span>
</span><a name="line-94"></a><span class="hs-comment">-- </span><span>
</span><a name="line-95"></a><span class="hs-comment">-- Creates list of users with given input array</span><span>
</span><a name="line-96"></a><span class="hs-comment">-- </span><span>
</span><a name="line-97"></a><span class="hs-comment">-- </span><span>
</span><a name="line-98"></a><span class="hs-comment">-- </span><span>
</span><a name="line-99"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-100"></a><span class="hs-comment">-- </span><span>
</span><a name="line-101"></a><span class="hs-identifier">createUsersWithArrayInput</span><span> </span><span>
</span><a name="line-102"></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.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="#local-6989586621679153674"><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-6989586621679153674"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a><span class="hs-special">)</span><span>
</span><a name="line-103"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679153674"><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-104"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679153675"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-105"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a><span> </span><span class="hs-comment">-- ^ &quot;body&quot; - List of user object</span><span>
</span><a name="line-106"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="#local-6989586621679153674"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679153676"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679153675"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-107"></a><a name="createUsersWithArrayInput"><a href="SwaggerPetstore.API.User.html#createUsersWithArrayInput"><span class="hs-identifier">createUsersWithArrayInput</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679153681"><a href="#local-6989586621679153681"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-108"></a><span> </span><a href="SwaggerPetstore.Core.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-109"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679153681"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-83"></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.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-84"></a><span>
</span><a name="line-85"></a><span>
</span><a name="line-86"></a><span class="hs-comment">-- *** createUsersWithArrayInput</span><span>
</span><a name="line-87"></a><span>
</span><a name="line-88"></a><span class="hs-comment">-- | @POST \/user\/createWithArray@</span><span>
</span><a name="line-89"></a><span class="hs-comment">-- </span><span>
</span><a name="line-90"></a><span class="hs-comment">-- Creates list of users with given input array</span><span>
</span><a name="line-91"></a><span class="hs-comment">-- </span><span>
</span><a name="line-92"></a><span class="hs-identifier">createUsersWithArrayInput</span><span> </span><span>
</span><a name="line-93"></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.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="#local-6989586621679154256"><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-6989586621679154256"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#User2"><span class="hs-identifier hs-type">User2</span></a><span class="hs-special">)</span><span>
</span><a name="line-94"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679154256"><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-95"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#User2"><span class="hs-identifier hs-type">User2</span></a><span> </span><span class="hs-comment">-- ^ &quot;user&quot; - List of user object</span><span>
</span><a name="line-96"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="#local-6989586621679154256"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-97"></a><a name="createUsersWithArrayInput"><a href="SwaggerPetstore.API.User.html#createUsersWithArrayInput"><span class="hs-identifier">createUsersWithArrayInput</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679154259"><a href="#local-6989586621679154259"><span class="hs-identifier">user</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-98"></a><span> </span><a href="SwaggerPetstore.Core.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-99"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679154259"><span class="hs-identifier hs-var">user</span></a><span>
</span><a name="line-100"></a><span>
</span><a name="line-101"></a><span class="hs-keyword">data</span><span> </span><a name="CreateUsersWithArrayInput"><a href="SwaggerPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier">CreateUsersWithArrayInput</span></a></a><span> </span><span>
</span><a name="line-102"></a><span>
</span><a name="line-103"></a><span class="hs-comment">-- | /Body Param/ &quot;User&quot; - List of user object</span><span>
</span><a name="line-104"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="SwaggerPetstore.Model.html#User2"><span class="hs-identifier hs-type">User2</span></a><span> </span><span>
</span><a name="line-105"></a><span>
</span><a name="line-106"></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.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-107"></a><span>
</span><a name="line-108"></a><span>
</span><a name="line-109"></a><span class="hs-comment">-- *** createUsersWithListInput</span><span>
</span><a name="line-110"></a><span>
</span><a name="line-111"></a><span class="hs-keyword">data</span><span> </span><a name="CreateUsersWithArrayInput"><a href="SwaggerPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier">CreateUsersWithArrayInput</span></a></a><span> </span><span>
</span><a name="line-112"></a><span>
</span><a name="line-113"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - List of user object</span><span>
</span><a name="line-114"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="SwaggerPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a><span> </span><span>
</span><a name="line-115"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-116"></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.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-117"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-118"></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.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-119"></a><span>
</span><a name="line-120"></a><span>
</span><a name="line-121"></a><span class="hs-comment">-- *** createUsersWithListInput</span><span>
</span><a name="line-122"></a><span>
</span><a name="line-123"></a><span class="hs-comment">-- | @POST \/user\/createWithList@</span><span>
</span><a name="line-124"></a><span class="hs-comment">-- </span><span>
</span><a name="line-125"></a><span class="hs-comment">-- Creates list of users with given input array</span><span>
</span><a name="line-126"></a><span class="hs-comment">-- </span><span>
</span><a name="line-127"></a><span class="hs-comment">-- </span><span>
</span><a name="line-128"></a><span class="hs-comment">-- </span><span>
</span><a name="line-129"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-130"></a><span class="hs-comment">-- </span><span>
</span><a name="line-131"></a><span class="hs-identifier">createUsersWithListInput</span><span> </span><span>
</span><a name="line-132"></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.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="#local-6989586621679153671"><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-6989586621679153671"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a><span class="hs-special">)</span><span>
</span><a name="line-133"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679153671"><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-134"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679153672"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-135"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a><span> </span><span class="hs-comment">-- ^ &quot;body&quot; - List of user object</span><span>
</span><a name="line-136"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="#local-6989586621679153671"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679153673"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679153672"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-137"></a><a name="createUsersWithListInput"><a href="SwaggerPetstore.API.User.html#createUsersWithListInput"><span class="hs-identifier">createUsersWithListInput</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679153682"><a href="#local-6989586621679153682"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-138"></a><span> </span><a href="SwaggerPetstore.Core.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-139"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679153682"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-140"></a><span>
</span><a name="line-141"></a><span class="hs-keyword">data</span><span> </span><a name="CreateUsersWithListInput"><a href="SwaggerPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier">CreateUsersWithListInput</span></a></a><span> </span><span>
</span><a name="line-142"></a><span>
</span><a name="line-143"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - List of user object</span><span>
</span><a name="line-144"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="SwaggerPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a><span> </span><span>
</span><a name="line-145"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-146"></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.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-147"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-148"></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.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-111"></a><span class="hs-comment">-- | @POST \/user\/createWithList@</span><span>
</span><a name="line-112"></a><span class="hs-comment">-- </span><span>
</span><a name="line-113"></a><span class="hs-comment">-- Creates list of users with given input array</span><span>
</span><a name="line-114"></a><span class="hs-comment">-- </span><span>
</span><a name="line-115"></a><span class="hs-identifier">createUsersWithListInput</span><span> </span><span>
</span><a name="line-116"></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.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="#local-6989586621679154255"><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-6989586621679154255"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.Model.html#User2"><span class="hs-identifier hs-type">User2</span></a><span class="hs-special">)</span><span>
</span><a name="line-117"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679154255"><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-118"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#User2"><span class="hs-identifier hs-type">User2</span></a><span> </span><span class="hs-comment">-- ^ &quot;user&quot; - List of user object</span><span>
</span><a name="line-119"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="#local-6989586621679154255"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-120"></a><a name="createUsersWithListInput"><a href="SwaggerPetstore.API.User.html#createUsersWithListInput"><span class="hs-identifier">createUsersWithListInput</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679154260"><a href="#local-6989586621679154260"><span class="hs-identifier">user</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-121"></a><span> </span><a href="SwaggerPetstore.Core.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-122"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679154260"><span class="hs-identifier hs-var">user</span></a><span>
</span><a name="line-123"></a><span>
</span><a name="line-124"></a><span class="hs-keyword">data</span><span> </span><a name="CreateUsersWithListInput"><a href="SwaggerPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier">CreateUsersWithListInput</span></a></a><span> </span><span>
</span><a name="line-125"></a><span>
</span><a name="line-126"></a><span class="hs-comment">-- | /Body Param/ &quot;User&quot; - List of user object</span><span>
</span><a name="line-127"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="SwaggerPetstore.Model.html#User2"><span class="hs-identifier hs-type">User2</span></a><span> </span><span>
</span><a name="line-128"></a><span>
</span><a name="line-129"></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.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-130"></a><span>
</span><a name="line-131"></a><span>
</span><a name="line-132"></a><span class="hs-comment">-- *** deleteUser</span><span>
</span><a name="line-133"></a><span>
</span><a name="line-134"></a><span class="hs-comment">-- | @DELETE \/user\/{username}@</span><span>
</span><a name="line-135"></a><span class="hs-comment">-- </span><span>
</span><a name="line-136"></a><span class="hs-comment">-- Delete user</span><span>
</span><a name="line-137"></a><span class="hs-comment">-- </span><span>
</span><a name="line-138"></a><span class="hs-comment">-- This can only be done by the logged in user.</span><span>
</span><a name="line-139"></a><span class="hs-comment">-- </span><span>
</span><a name="line-140"></a><span class="hs-identifier">deleteUser</span><span> </span><span>
</span><a name="line-141"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a><span> </span><span class="hs-comment">-- ^ &quot;username&quot; - The name that needs to be deleted</span><span>
</span><a name="line-142"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.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="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-143"></a><a name="deleteUser"><a href="SwaggerPetstore.API.User.html#deleteUser"><span class="hs-identifier">deleteUser</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-var">Username</span></a><span> </span><a name="local-6989586621679154261"><a href="#local-6989586621679154261"><span class="hs-identifier">username</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-144"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679154261"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
</span><a name="line-145"></a><span>
</span><a name="line-146"></a><span class="hs-keyword">data</span><span> </span><a name="DeleteUser"><a href="SwaggerPetstore.API.User.html#DeleteUser"><span class="hs-identifier">DeleteUser</span></a></a><span> </span><span>
</span><a name="line-147"></a><span>
</span><a name="line-148"></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.User.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 name="line-149"></a><span>
</span><a name="line-150"></a><span>
</span><a name="line-151"></a><span class="hs-comment">-- *** deleteUser</span><span>
</span><a name="line-151"></a><span class="hs-comment">-- *** getUserByName</span><span>
</span><a name="line-152"></a><span>
</span><a name="line-153"></a><span class="hs-comment">-- | @DELETE \/user\/{username}@</span><span>
</span><a name="line-153"></a><span class="hs-comment">-- | @GET \/user\/{username}@</span><span>
</span><a name="line-154"></a><span class="hs-comment">-- </span><span>
</span><a name="line-155"></a><span class="hs-comment">-- Delete user</span><span>
</span><a name="line-155"></a><span class="hs-comment">-- Get user by user name</span><span>
</span><a name="line-156"></a><span class="hs-comment">-- </span><span>
</span><a name="line-157"></a><span class="hs-comment">-- This can only be done by the logged in user.</span><span>
</span><a name="line-158"></a><span class="hs-comment">-- </span><span>
</span><a name="line-159"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-160"></a><span class="hs-comment">-- </span><span>
</span><a name="line-161"></a><span class="hs-identifier">deleteUser</span><span> </span><span>
</span><a name="line-162"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679153669"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-163"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a><span> </span><span class="hs-comment">-- ^ &quot;username&quot; - The name that needs to be deleted</span><span>
</span><a name="line-164"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.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-6989586621679153670"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679153669"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-165"></a><a name="deleteUser"><a href="SwaggerPetstore.API.User.html#deleteUser"><span class="hs-identifier">deleteUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-var">Username</span></a><span> </span><a name="local-6989586621679153683"><a href="#local-6989586621679153683"><span class="hs-identifier">username</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-166"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679153683"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
</span><a name="line-167"></a><span>
</span><a name="line-168"></a><span class="hs-keyword">data</span><span> </span><a name="DeleteUser"><a href="SwaggerPetstore.API.User.html#DeleteUser"><span class="hs-identifier">DeleteUser</span></a></a><span> </span><span>
</span><a name="line-169"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-170"></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.User.html#DeleteUser"><span class="hs-identifier hs-type">DeleteUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-171"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-172"></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.User.html#DeleteUser"><span class="hs-identifier hs-type">DeleteUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-157"></a><span class="hs-identifier">getUserByName</span><span> </span><span>
</span><a name="line-158"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679154254"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-159"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a><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-160"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.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 href="#local-6989586621679154254"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-161"></a><a name="getUserByName"><a href="SwaggerPetstore.API.User.html#getUserByName"><span class="hs-identifier">getUserByName</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-var">Username</span></a><span> </span><a name="local-6989586621679154262"><a href="#local-6989586621679154262"><span class="hs-identifier">username</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-162"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679154262"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
</span><a name="line-163"></a><span>
</span><a name="line-164"></a><span class="hs-keyword">data</span><span> </span><a name="GetUserByName"><a href="SwaggerPetstore.API.User.html#GetUserByName"><span class="hs-identifier">GetUserByName</span></a></a><span> </span><span>
</span><a name="line-165"></a><span>
</span><a name="line-166"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-167"></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.User.html#GetUserByName"><span class="hs-identifier hs-type">GetUserByName</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-168"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-169"></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.User.html#GetUserByName"><span class="hs-identifier hs-type">GetUserByName</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-170"></a><span>
</span><a name="line-171"></a><span>
</span><a name="line-172"></a><span class="hs-comment">-- *** loginUser</span><span>
</span><a name="line-173"></a><span>
</span><a name="line-174"></a><span>
</span><a name="line-175"></a><span class="hs-comment">-- *** getUserByName</span><span>
</span><a name="line-176"></a><span>
</span><a name="line-177"></a><span class="hs-comment">-- | @GET \/user\/{username}@</span><span>
</span><a name="line-178"></a><span class="hs-comment">-- </span><span>
</span><a name="line-179"></a><span class="hs-comment">-- Get user by user name</span><span>
</span><a name="line-180"></a><span class="hs-comment">-- </span><span>
</span><a name="line-181"></a><span class="hs-comment">-- </span><span>
</span><a name="line-182"></a><span class="hs-comment">-- </span><span>
</span><a name="line-183"></a><span class="hs-identifier">getUserByName</span><span> </span><span>
</span><a name="line-184"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679153668"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-185"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a><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-186"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.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 href="#local-6989586621679153668"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-187"></a><a name="getUserByName"><a href="SwaggerPetstore.API.User.html#getUserByName"><span class="hs-identifier">getUserByName</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-var">Username</span></a><span> </span><a name="local-6989586621679153684"><a href="#local-6989586621679153684"><span class="hs-identifier">username</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-188"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679153684"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
</span><a name="line-174"></a><span class="hs-comment">-- | @GET \/user\/login@</span><span>
</span><a name="line-175"></a><span class="hs-comment">-- </span><span>
</span><a name="line-176"></a><span class="hs-comment">-- Logs user into the system</span><span>
</span><a name="line-177"></a><span class="hs-comment">-- </span><span>
</span><a name="line-178"></a><span class="hs-identifier">loginUser</span><span> </span><span>
</span><a name="line-179"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679154253"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-180"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a><span> </span><span class="hs-comment">-- ^ &quot;username&quot; - The user name for login</span><span>
</span><a name="line-181"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Password"><span class="hs-identifier hs-type">Password</span></a><span> </span><span class="hs-comment">-- ^ &quot;password&quot; - The password for login in clear text</span><span>
</span><a name="line-182"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.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 href="#local-6989586621679154253"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-183"></a><a name="loginUser"><a href="SwaggerPetstore.API.User.html#loginUser"><span class="hs-identifier">loginUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-var">Username</span></a><span> </span><a name="local-6989586621679154263"><a href="#local-6989586621679154263"><span class="hs-identifier">username</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Password"><span class="hs-identifier hs-var">Password</span></a><span> </span><a name="local-6989586621679154264"><a href="#local-6989586621679154264"><span class="hs-identifier">password</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-184"></a><span> </span><a href="SwaggerPetstore.Core.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-185"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679154263"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">)</span><span>
</span><a name="line-186"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679154264"><span class="hs-identifier hs-var">password</span></a><span class="hs-special">)</span><span>
</span><a name="line-187"></a><span>
</span><a name="line-188"></a><span class="hs-keyword">data</span><span> </span><a name="LoginUser"><a href="SwaggerPetstore.API.User.html#LoginUser"><span class="hs-identifier">LoginUser</span></a></a><span> </span><span>
</span><a name="line-189"></a><span>
</span><a name="line-190"></a><span class="hs-keyword">data</span><span> </span><a name="GetUserByName"><a href="SwaggerPetstore.API.User.html#GetUserByName"><span class="hs-identifier">GetUserByName</span></a></a><span> </span><span>
</span><a name="line-191"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-192"></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.User.html#GetUserByName"><span class="hs-identifier hs-type">GetUserByName</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-193"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-194"></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.User.html#GetUserByName"><span class="hs-identifier hs-type">GetUserByName</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-190"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-191"></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.User.html#LoginUser"><span class="hs-identifier hs-type">LoginUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-192"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-193"></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.User.html#LoginUser"><span class="hs-identifier hs-type">LoginUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><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 class="hs-comment">-- *** loginUser</span><span>
</span><a name="line-198"></a><span>
</span><a name="line-199"></a><span class="hs-comment">-- | @GET \/user\/login@</span><span>
</span><a name="line-200"></a><span class="hs-comment">-- </span><span>
</span><a name="line-201"></a><span class="hs-comment">-- Logs user into the system</span><span>
</span><a name="line-202"></a><span class="hs-comment">-- </span><span>
</span><a name="line-203"></a><span class="hs-comment">-- </span><span>
</span><a name="line-204"></a><span class="hs-comment">-- </span><span>
</span><a name="line-205"></a><span class="hs-identifier">loginUser</span><span> </span><span>
</span><a name="line-206"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679153667"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-207"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a><span> </span><span class="hs-comment">-- ^ &quot;username&quot; - The user name for login</span><span>
</span><a name="line-208"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Password"><span class="hs-identifier hs-type">Password</span></a><span> </span><span class="hs-comment">-- ^ &quot;password&quot; - The password for login in clear text</span><span>
</span><a name="line-209"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.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 href="#local-6989586621679153667"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-210"></a><a name="loginUser"><a href="SwaggerPetstore.API.User.html#loginUser"><span class="hs-identifier">loginUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-var">Username</span></a><span> </span><a name="local-6989586621679153685"><a href="#local-6989586621679153685"><span class="hs-identifier">username</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Password"><span class="hs-identifier hs-var">Password</span></a><span> </span><a name="local-6989586621679153686"><a href="#local-6989586621679153686"><span class="hs-identifier">password</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-211"></a><span> </span><a href="SwaggerPetstore.Core.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-212"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679153685"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">)</span><span>
</span><a name="line-213"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier hs-var">setQuery</span></a><span class="hs-special">`</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679153686"><span class="hs-identifier hs-var">password</span></a><span class="hs-special">)</span><span>
</span><a name="line-214"></a><span>
</span><a name="line-215"></a><span class="hs-keyword">data</span><span> </span><a name="LoginUser"><a href="SwaggerPetstore.API.User.html#LoginUser"><span class="hs-identifier">LoginUser</span></a></a><span> </span><span>
</span><a name="line-216"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-217"></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.User.html#LoginUser"><span class="hs-identifier hs-type">LoginUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-218"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-219"></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.User.html#LoginUser"><span class="hs-identifier hs-type">LoginUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-220"></a><span>
</span><a name="line-221"></a><span>
</span><a name="line-222"></a><span class="hs-comment">-- *** logoutUser</span><span>
</span><a name="line-223"></a><span>
</span><a name="line-224"></a><span class="hs-comment">-- | @GET \/user\/logout@</span><span>
</span><a name="line-225"></a><span class="hs-comment">-- </span><span>
</span><a name="line-226"></a><span class="hs-comment">-- Logs out current logged in user session</span><span>
</span><a name="line-227"></a><span class="hs-comment">-- </span><span>
</span><a name="line-228"></a><span class="hs-comment">-- </span><span>
</span><a name="line-229"></a><span class="hs-comment">-- </span><span>
</span><a name="line-230"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-231"></a><span class="hs-comment">-- </span><span>
</span><a name="line-232"></a><span class="hs-identifier">logoutUser</span><span> </span><span>
</span><a name="line-233"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679153665"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-234"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.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-6989586621679153666"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679153665"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-235"></a><a name="logoutUser"><a href="SwaggerPetstore.API.User.html#logoutUser"><span class="hs-identifier">logoutUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-236"></a><span> </span><a href="SwaggerPetstore.Core.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-237"></a><span>
</span><a name="line-238"></a><span class="hs-keyword">data</span><span> </span><a name="LogoutUser"><a href="SwaggerPetstore.API.User.html#LogoutUser"><span class="hs-identifier">LogoutUser</span></a></a><span> </span><span>
</span><a name="line-239"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-240"></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.User.html#LogoutUser"><span class="hs-identifier hs-type">LogoutUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-241"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-242"></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.User.html#LogoutUser"><span class="hs-identifier hs-type">LogoutUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-243"></a><span>
</span><a name="line-244"></a><span>
</span><a name="line-245"></a><span class="hs-comment">-- *** updateUser</span><span>
</span><a name="line-246"></a><span>
</span><a name="line-247"></a><span class="hs-comment">-- | @PUT \/user\/{username}@</span><span>
</span><a name="line-248"></a><span class="hs-comment">-- </span><span>
</span><a name="line-249"></a><span class="hs-comment">-- Updated user</span><span>
</span><a name="line-250"></a><span class="hs-comment">-- </span><span>
</span><a name="line-251"></a><span class="hs-comment">-- This can only be done by the logged in user.</span><span>
</span><a name="line-252"></a><span class="hs-comment">-- </span><span>
</span><a name="line-253"></a><span class="hs-comment">-- Note: Has 'Produces' instances, but no response schema</span><span>
</span><a name="line-254"></a><span class="hs-comment">-- </span><span>
</span><a name="line-255"></a><span class="hs-identifier">updateUser</span><span> </span><span>
</span><a name="line-256"></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.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="#local-6989586621679153662"><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-6989586621679153662"><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-257"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679153662"><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-258"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679153663"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
</span><a name="line-259"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a><span> </span><span class="hs-comment">-- ^ &quot;username&quot; - name that need to be deleted</span><span>
</span><a name="line-260"></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-261"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="#local-6989586621679153662"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679153664"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679153663"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-262"></a><a name="updateUser"><a href="SwaggerPetstore.API.User.html#updateUser"><span class="hs-identifier">updateUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-var">Username</span></a><span> </span><a name="local-6989586621679153687"><a href="#local-6989586621679153687"><span class="hs-identifier">username</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679153688"><a href="#local-6989586621679153688"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-263"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679153687"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
</span><a name="line-264"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679153688"><span class="hs-identifier hs-var">body</span></a><span>
</span><a name="line-265"></a><span>
</span><a name="line-266"></a><span class="hs-keyword">data</span><span> </span><a name="UpdateUser"><a href="SwaggerPetstore.API.User.html#UpdateUser"><span class="hs-identifier">UpdateUser</span></a></a><span> </span><span>
</span><a name="line-267"></a><span>
</span><a name="line-268"></a><span class="hs-comment">-- | /Body Param/ &quot;body&quot; - Updated user object</span><span>
</span><a name="line-269"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span>
</span><a name="line-270"></a><span class="hs-comment">-- | @application/xml@</span><span>
</span><a name="line-271"></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.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
</span><a name="line-272"></a><span class="hs-comment">-- | @application/json@</span><span>
</span><a name="line-273"></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.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
</span><a name="line-274"></a><span>
</span><a name="line-275"></a></pre></body></html>
</span><a name="line-196"></a><span class="hs-comment">-- *** logoutUser</span><span>
</span><a name="line-197"></a><span>
</span><a name="line-198"></a><span class="hs-comment">-- | @GET \/user\/logout@</span><span>
</span><a name="line-199"></a><span class="hs-comment">-- </span><span>
</span><a name="line-200"></a><span class="hs-comment">-- Logs out current logged in user session</span><span>
</span><a name="line-201"></a><span class="hs-comment">-- </span><span>
</span><a name="line-202"></a><span class="hs-identifier">logoutUser</span><span> </span><span>
</span><a name="line-203"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.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="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-204"></a><a name="logoutUser"><a href="SwaggerPetstore.API.User.html#logoutUser"><span class="hs-identifier">logoutUser</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-205"></a><span> </span><a href="SwaggerPetstore.Core.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-206"></a><span>
</span><a name="line-207"></a><span class="hs-keyword">data</span><span> </span><a name="LogoutUser"><a href="SwaggerPetstore.API.User.html#LogoutUser"><span class="hs-identifier">LogoutUser</span></a></a><span> </span><span>
</span><a name="line-208"></a><span>
</span><a name="line-209"></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.User.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 name="line-210"></a><span>
</span><a name="line-211"></a><span>
</span><a name="line-212"></a><span class="hs-comment">-- *** updateUser</span><span>
</span><a name="line-213"></a><span>
</span><a name="line-214"></a><span class="hs-comment">-- | @PUT \/user\/{username}@</span><span>
</span><a name="line-215"></a><span class="hs-comment">-- </span><span>
</span><a name="line-216"></a><span class="hs-comment">-- Updated user</span><span>
</span><a name="line-217"></a><span class="hs-comment">-- </span><span>
</span><a name="line-218"></a><span class="hs-comment">-- This can only be done by the logged in user.</span><span>
</span><a name="line-219"></a><span class="hs-comment">-- </span><span>
</span><a name="line-220"></a><span class="hs-identifier">updateUser</span><span> </span><span>
</span><a name="line-221"></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.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="#local-6989586621679154252"><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-6989586621679154252"><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-222"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679154252"><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-223"></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;user&quot; - Updated user object</span><span>
</span><a name="line-224"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a><span> </span><span class="hs-comment">-- ^ &quot;username&quot; - name that need to be deleted</span><span>
</span><a name="line-225"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="SwaggerPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="#local-6989586621679154252"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-226"></a><a name="updateUser"><a href="SwaggerPetstore.API.User.html#updateUser"><span class="hs-identifier">updateUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679154265"><a href="#local-6989586621679154265"><span class="hs-identifier">user</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Model.html#Username"><span class="hs-identifier hs-var">Username</span></a><span> </span><a name="local-6989586621679154266"><a href="#local-6989586621679154266"><span class="hs-identifier">username</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-227"></a><span> </span><a href="SwaggerPetstore.Core.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.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679154266"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
</span><a name="line-228"></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679154265"><span class="hs-identifier hs-var">user</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="UpdateUser"><a href="SwaggerPetstore.API.User.html#UpdateUser"><span class="hs-identifier">UpdateUser</span></a></a><span> </span><span>
</span><a name="line-231"></a><span>
</span><a name="line-232"></a><span class="hs-comment">-- | /Body Param/ &quot;User&quot; - Updated user object</span><span>
</span><a name="line-233"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="SwaggerPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span>
</span><a name="line-234"></a><span>
</span><a name="line-235"></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.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
</span><a name="line-236"></a><span>
</span><a name="line-237"></a></pre></body></html>

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

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \&quot; \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)

180
samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Client.html
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \&quot; \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -56,20 +56,20 @@ Module : SwaggerPetstore.Client
</span><a name="line-56"></a><span>
</span><a name="line-57"></a><span class="hs-comment">-- | send a request returning the raw http response</span><span>
</span><a name="line-58"></a><span class="hs-identifier">dispatchLbs</span><span>
</span><a name="line-59"></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-6989586621679124497"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124498"><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-6989586621679124499"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-59"></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-6989586621679124315"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124316"><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-6989586621679124317"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-60"></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-61"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
</span><a name="line-62"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679124497"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124499"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124500"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124498"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
</span><a name="line-62"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679124315"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124317"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124318"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124316"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
</span><a name="line-63"></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-64"></a><a name="dispatchLbs"><a href="SwaggerPetstore.Client.html#dispatchLbs"><span class="hs-identifier">dispatchLbs</span></a></a><span> </span><a name="local-6989586621679124501"><a href="#local-6989586621679124501"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679124502"><a href="#local-6989586621679124502"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679124503"><a href="#local-6989586621679124503"><span class="hs-identifier">request</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-65"></a><span> </span><a name="local-6989586621679124504"><a href="#local-6989586621679124504"><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-6989586621679124502"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679124503"><span class="hs-identifier hs-var">request</span></a><span>
</span><a name="line-66"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679124501"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679124502"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679124504"><span class="hs-identifier hs-var">initReq</span></a><span>
</span><a name="line-64"></a><a name="dispatchLbs"><a href="SwaggerPetstore.Client.html#dispatchLbs"><span class="hs-identifier">dispatchLbs</span></a></a><span> </span><a name="local-6989586621679124319"><a href="#local-6989586621679124319"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679124320"><a href="#local-6989586621679124320"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679124321"><a href="#local-6989586621679124321"><span class="hs-identifier">request</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-65"></a><span> </span><a name="local-6989586621679124322"><a href="#local-6989586621679124322"><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-6989586621679124320"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679124321"><span class="hs-identifier hs-var">request</span></a><span>
</span><a name="line-66"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679124319"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679124320"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679124322"><span class="hs-identifier hs-var">initReq</span></a><span>
</span><a name="line-67"></a><span>
</span><a name="line-68"></a><span class="hs-comment">-- ** Mime</span><span>
</span><a name="line-69"></a><span>
</span><a name="line-70"></a><span class="hs-comment">-- | pair of decoded http body and http response</span><span>
</span><a name="line-71"></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-6989586621679124465"><a href="#local-6989586621679124465"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-72"></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-6989586621679124465"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ decoded http body</span><span>
</span><a name="line-71"></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-6989586621679124283"><a href="#local-6989586621679124283"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-72"></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-6989586621679124283"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ decoded http body</span><span>
</span><a name="line-73"></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-74"></a><span> </span><span class="hs-special">}</span><span>
</span><a name="line-75"></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>
@ -83,137 +83,137 @@ Module : SwaggerPetstore.Client
</span><a name="line-83"></a><span>
</span><a name="line-84"></a><span class="hs-comment">-- | send a request returning the 'MimeResult'</span><span>
</span><a name="line-85"></a><span class="hs-identifier">dispatchMime</span><span>
</span><a name="line-86"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679124493"><a href="#local-6989586621679124493"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679124494"><a href="#local-6989586621679124494"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679124495"><a href="#local-6989586621679124495"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679124496"><a href="#local-6989586621679124496"><span class="hs-identifier">accept</span></a></a><span class="hs-operator">.</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-6989586621679124493"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124496"><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-6989586621679124496"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679124495"><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-6989586621679124494"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-86"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679124311"><a href="#local-6989586621679124311"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679124312"><a href="#local-6989586621679124312"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679124313"><a href="#local-6989586621679124313"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679124314"><a href="#local-6989586621679124314"><span class="hs-identifier">accept</span></a></a><span class="hs-operator">.</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-6989586621679124311"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124314"><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-6989586621679124314"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679124313"><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-6989586621679124312"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-87"></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-88"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
</span><a name="line-89"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679124493"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124494"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124495"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124496"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
</span><a name="line-90"></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-6989586621679124495"><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-91"></a><a name="dispatchMime"><a href="SwaggerPetstore.Client.html#dispatchMime"><span class="hs-identifier">dispatchMime</span></a></a><span> </span><a name="local-6989586621679124505"><a href="#local-6989586621679124505"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679124506"><a href="#local-6989586621679124506"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679124507"><a href="#local-6989586621679124507"><span class="hs-identifier">request</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-92"></a><span> </span><a name="local-6989586621679124508"><a href="#local-6989586621679124508"><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-6989586621679124505"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679124506"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679124507"><span class="hs-identifier hs-var">request</span></a><span>
</span><a name="line-93"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679124509"><a href="#local-6989586621679124509"><span class="hs-identifier">statusCode</span></a></a><span> </span><span class="hs-glyph">=</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><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679124508"><span class="hs-identifier hs-var">httpResponse</span></a><span>
</span><a name="line-94"></a><span> </span><a name="local-6989586621679124992"><a href="#local-6989586621679124992"><span class="hs-identifier">parsedResult</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span>
</span><a name="line-95"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><span class="hs-string">&quot;Client&quot;</span><span> </span><a href="#local-6989586621679124506"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
</span><a name="line-96"></a><span> </span><span class="hs-keyword">do</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679124509"><span class="hs-identifier hs-var">statusCode</span></a><span> </span><span class="hs-operator hs-var">&gt;=</span><span> </span><span class="hs-number">400</span><span> </span><span class="hs-operator hs-var">&amp;&amp;</span><span> </span><a href="#local-6989586621679124509"><span class="hs-identifier hs-var">statusCode</span></a><span> </span><span class="hs-operator hs-var">&lt;</span><span> </span><span class="hs-number">600</span><span class="hs-special">)</span><span>
</span><a name="line-89"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679124311"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124312"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124313"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124314"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
</span><a name="line-90"></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-6989586621679124313"><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-91"></a><a name="dispatchMime"><a href="SwaggerPetstore.Client.html#dispatchMime"><span class="hs-identifier">dispatchMime</span></a></a><span> </span><a name="local-6989586621679124323"><a href="#local-6989586621679124323"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679124324"><a href="#local-6989586621679124324"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679124325"><a href="#local-6989586621679124325"><span class="hs-identifier">request</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-92"></a><span> </span><a name="local-6989586621679124326"><a href="#local-6989586621679124326"><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-6989586621679124323"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679124324"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679124325"><span class="hs-identifier hs-var">request</span></a><span>
</span><a name="line-93"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679124327"><a href="#local-6989586621679124327"><span class="hs-identifier">statusCode</span></a></a><span> </span><span class="hs-glyph">=</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><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679124326"><span class="hs-identifier hs-var">httpResponse</span></a><span>
</span><a name="line-94"></a><span> </span><a name="local-6989586621679124810"><a href="#local-6989586621679124810"><span class="hs-identifier">parsedResult</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span>
</span><a name="line-95"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><span class="hs-string">&quot;Client&quot;</span><span> </span><a href="#local-6989586621679124324"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
</span><a name="line-96"></a><span> </span><span class="hs-keyword">do</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679124327"><span class="hs-identifier hs-var">statusCode</span></a><span> </span><span class="hs-operator hs-var">&gt;=</span><span> </span><span class="hs-number">400</span><span> </span><span class="hs-operator hs-var">&amp;&amp;</span><span> </span><a href="#local-6989586621679124327"><span class="hs-identifier hs-var">statusCode</span></a><span> </span><span class="hs-operator hs-var">&lt;</span><span> </span><span class="hs-number">600</span><span class="hs-special">)</span><span>
</span><a name="line-97"></a><span> </span><span class="hs-keyword">then</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-98"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679124989"><a href="#local-6989586621679124989"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;error statusCode: &quot;</span><span> </span><span class="hs-operator hs-var">++</span><span> </span><span class="hs-identifier hs-var">show</span><span> </span><a href="#local-6989586621679124509"><span class="hs-identifier hs-var">statusCode</span></a><span>
</span><a name="line-99"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><span class="hs-string">&quot;Client&quot;</span><span> </span><a href="SwaggerPetstore.Logging.html#levelError"><span class="hs-identifier hs-var">levelError</span></a><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-6989586621679124989"><span class="hs-identifier hs-var">s</span></a><span class="hs-special">)</span><span>
</span><a name="line-100"></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-6989586621679124989"><span class="hs-identifier hs-var">s</span></a><span> </span><a href="#local-6989586621679124508"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-101"></a><span> </span><span class="hs-keyword">else</span><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier hs-var">mimeUnrender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679124496"><span class="hs-identifier hs-type">accept</span></a><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">responseBody</span><span> </span><a href="#local-6989586621679124508"><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-102"></a><span> </span><span class="hs-identifier hs-var">Left</span><span> </span><a name="local-6989586621679124990"><a href="#local-6989586621679124990"><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-103"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><span class="hs-string">&quot;Client&quot;</span><span> </span><a href="SwaggerPetstore.Logging.html#levelError"><span class="hs-identifier hs-var">levelError</span></a><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-6989586621679124990"><span class="hs-identifier hs-var">s</span></a><span class="hs-special">)</span><span>
</span><a name="line-104"></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-6989586621679124990"><span class="hs-identifier hs-var">s</span></a><span> </span><a href="#local-6989586621679124508"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-105"></a><span> </span><span class="hs-identifier hs-var">Right</span><span> </span><a name="local-6989586621679124991"><a href="#local-6989586621679124991"><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-6989586621679124991"><span class="hs-identifier hs-var">r</span></a><span class="hs-special">)</span><span>
</span><a name="line-106"></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-6989586621679124992"><span class="hs-identifier hs-var">parsedResult</span></a><span> </span><a href="#local-6989586621679124508"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span>
</span><a name="line-98"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679124807"><a href="#local-6989586621679124807"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;error statusCode: &quot;</span><span> </span><span class="hs-operator hs-var">++</span><span> </span><span class="hs-identifier hs-var">show</span><span> </span><a href="#local-6989586621679124327"><span class="hs-identifier hs-var">statusCode</span></a><span>
</span><a name="line-99"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><span class="hs-string">&quot;Client&quot;</span><span> </span><a href="SwaggerPetstore.Logging.html#levelError"><span class="hs-identifier hs-var">levelError</span></a><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-6989586621679124807"><span class="hs-identifier hs-var">s</span></a><span class="hs-special">)</span><span>
</span><a name="line-100"></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-6989586621679124807"><span class="hs-identifier hs-var">s</span></a><span> </span><a href="#local-6989586621679124326"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-101"></a><span> </span><span class="hs-keyword">else</span><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier hs-var">mimeUnrender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679124314"><span class="hs-identifier hs-type">accept</span></a><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">responseBody</span><span> </span><a href="#local-6989586621679124326"><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-102"></a><span> </span><span class="hs-identifier hs-var">Left</span><span> </span><a name="local-6989586621679124808"><a href="#local-6989586621679124808"><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-103"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><span class="hs-string">&quot;Client&quot;</span><span> </span><a href="SwaggerPetstore.Logging.html#levelError"><span class="hs-identifier hs-var">levelError</span></a><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-6989586621679124808"><span class="hs-identifier hs-var">s</span></a><span class="hs-special">)</span><span>
</span><a name="line-104"></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-6989586621679124808"><span class="hs-identifier hs-var">s</span></a><span> </span><a href="#local-6989586621679124326"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-105"></a><span> </span><span class="hs-identifier hs-var">Right</span><span> </span><a name="local-6989586621679124809"><a href="#local-6989586621679124809"><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-6989586621679124809"><span class="hs-identifier hs-var">r</span></a><span class="hs-special">)</span><span>
</span><a name="line-106"></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-6989586621679124810"><span class="hs-identifier hs-var">parsedResult</span></a><span> </span><a href="#local-6989586621679124326"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span>
</span><a name="line-107"></a><span>
</span><a name="line-108"></a><span class="hs-comment">-- | like 'dispatchMime', but only returns the decoded http body</span><span>
</span><a name="line-109"></a><span class="hs-identifier">dispatchMime'</span><span>
</span><a name="line-110"></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-6989586621679124489"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124490"><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-6989586621679124490"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679124491"><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-6989586621679124492"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-110"></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-6989586621679124307"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124308"><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-6989586621679124308"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679124309"><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-6989586621679124310"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-111"></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-112"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
</span><a name="line-113"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679124489"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124492"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124491"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124490"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
</span><a name="line-114"></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-6989586621679124491"><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-115"></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-6989586621679124993"><a href="#local-6989586621679124993"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679124994"><a href="#local-6989586621679124994"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679124995"><a href="#local-6989586621679124995"><span class="hs-identifier">request</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-116"></a><span> </span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-var">MimeResult</span></a><span> </span><a name="local-6989586621679124996"><a href="#local-6989586621679124996"><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-6989586621679124993"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679124994"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679124995"><span class="hs-identifier hs-var">request</span></a><span>
</span><a name="line-117"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679124996"><span class="hs-identifier hs-var">parsedResult</span></a><span>
</span><a name="line-113"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679124307"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124310"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124309"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124308"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
</span><a name="line-114"></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-6989586621679124309"><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-115"></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-6989586621679124811"><a href="#local-6989586621679124811"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679124812"><a href="#local-6989586621679124812"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679124813"><a href="#local-6989586621679124813"><span class="hs-identifier">request</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-116"></a><span> </span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-var">MimeResult</span></a><span> </span><a name="local-6989586621679124814"><a href="#local-6989586621679124814"><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-6989586621679124811"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679124812"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679124813"><span class="hs-identifier hs-var">request</span></a><span>
</span><a name="line-117"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679124814"><span class="hs-identifier hs-var">parsedResult</span></a><span>
</span><a name="line-118"></a><span>
</span><a name="line-119"></a><span class="hs-comment">-- ** Unsafe</span><span>
</span><a name="line-120"></a><span>
</span><a name="line-121"></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-122"></a><span class="hs-identifier">dispatchLbsUnsafe</span><span>
</span><a name="line-123"></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-6989586621679124485"><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-6989586621679124486"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-123"></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-6989586621679124303"><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-6989586621679124304"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-124"></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-125"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
</span><a name="line-126"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679124487"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124486"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124488"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124485"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
</span><a name="line-126"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679124305"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124304"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124306"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124303"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
</span><a name="line-127"></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-128"></a><a name="dispatchLbsUnsafe"><a href="SwaggerPetstore.Client.html#dispatchLbsUnsafe"><span class="hs-identifier">dispatchLbsUnsafe</span></a></a><span> </span><a name="local-6989586621679124997"><a href="#local-6989586621679124997"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679124998"><a href="#local-6989586621679124998"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679124999"><a href="#local-6989586621679124999"><span class="hs-identifier">request</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-129"></a><span> </span><a name="local-6989586621679125000"><a href="#local-6989586621679125000"><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-6989586621679124998"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679124999"><span class="hs-identifier hs-var">request</span></a><span>
</span><a name="line-130"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679124997"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679124998"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679125000"><span class="hs-identifier hs-var">initReq</span></a><span>
</span><a name="line-128"></a><a name="dispatchLbsUnsafe"><a href="SwaggerPetstore.Client.html#dispatchLbsUnsafe"><span class="hs-identifier">dispatchLbsUnsafe</span></a></a><span> </span><a name="local-6989586621679124815"><a href="#local-6989586621679124815"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679124816"><a href="#local-6989586621679124816"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679124817"><a href="#local-6989586621679124817"><span class="hs-identifier">request</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-129"></a><span> </span><a name="local-6989586621679124818"><a href="#local-6989586621679124818"><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-6989586621679124816"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679124817"><span class="hs-identifier hs-var">request</span></a><span>
</span><a name="line-130"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679124815"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679124816"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679124818"><span class="hs-identifier hs-var">initReq</span></a><span>
</span><a name="line-131"></a><span>
</span><a name="line-132"></a><span class="hs-comment">-- | dispatch an InitRequest</span><span>
</span><a name="line-133"></a><span class="hs-identifier">dispatchInitUnsafe</span><span>
</span><a name="line-134"></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-135"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
</span><a name="line-136"></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-6989586621679124481"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124482"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124483"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124484"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ init request</span><span>
</span><a name="line-136"></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-6989586621679124299"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124300"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124301"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124302"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ init request</span><span>
</span><a name="line-137"></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-138"></a><a name="dispatchInitUnsafe"><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier">dispatchInitUnsafe</span></a></a><span> </span><a name="local-6989586621679125001"><a href="#local-6989586621679125001"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679125002"><a href="#local-6989586621679125002"><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-6989586621679125003"><a href="#local-6989586621679125003"><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-139"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><a href="#local-6989586621679125004"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="#local-6989586621679125002"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
</span><a name="line-140"></a><span> </span><span class="hs-keyword">do</span><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679125004"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelInfo"><span class="hs-identifier hs-var">levelInfo</span></a><span> </span><a href="#local-6989586621679125006"><span class="hs-identifier hs-var">requestLogMsg</span></a><span>
</span><a name="line-141"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679125004"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelDebug"><span class="hs-identifier hs-var">levelDebug</span></a><span> </span><a href="#local-6989586621679125007"><span class="hs-identifier hs-var">requestDbgLogMsg</span></a><span>
</span><a name="line-142"></a><span> </span><a name="local-6989586621679125063"><a href="#local-6989586621679125063"><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-6989586621679125003"><span class="hs-identifier hs-var">req</span></a><span> </span><a href="#local-6989586621679125001"><span class="hs-identifier hs-var">manager</span></a><span>
</span><a name="line-143"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679125004"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelInfo"><span class="hs-identifier hs-var">levelInfo</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679125009"><span class="hs-identifier hs-var">responseLogMsg</span></a><span> </span><a href="#local-6989586621679125063"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
</span><a name="line-144"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679125004"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelDebug"><span class="hs-identifier hs-var">levelDebug</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-6989586621679125063"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
</span><a name="line-145"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679125063"><span class="hs-identifier hs-var">res</span></a><span>
</span><a name="line-138"></a><a name="dispatchInitUnsafe"><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier">dispatchInitUnsafe</span></a></a><span> </span><a name="local-6989586621679124819"><a href="#local-6989586621679124819"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679124820"><a href="#local-6989586621679124820"><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-6989586621679124821"><a href="#local-6989586621679124821"><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-139"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><a href="#local-6989586621679124822"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="#local-6989586621679124820"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
</span><a name="line-140"></a><span> </span><span class="hs-keyword">do</span><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679124822"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelInfo"><span class="hs-identifier hs-var">levelInfo</span></a><span> </span><a href="#local-6989586621679124824"><span class="hs-identifier hs-var">requestLogMsg</span></a><span>
</span><a name="line-141"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679124822"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelDebug"><span class="hs-identifier hs-var">levelDebug</span></a><span> </span><a href="#local-6989586621679124825"><span class="hs-identifier hs-var">requestDbgLogMsg</span></a><span>
</span><a name="line-142"></a><span> </span><a name="local-6989586621679124881"><a href="#local-6989586621679124881"><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-6989586621679124821"><span class="hs-identifier hs-var">req</span></a><span> </span><a href="#local-6989586621679124819"><span class="hs-identifier hs-var">manager</span></a><span>
</span><a name="line-143"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679124822"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelInfo"><span class="hs-identifier hs-var">levelInfo</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679124827"><span class="hs-identifier hs-var">responseLogMsg</span></a><span> </span><a href="#local-6989586621679124881"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
</span><a name="line-144"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679124822"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="SwaggerPetstore.Logging.html#levelDebug"><span class="hs-identifier hs-var">levelDebug</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-6989586621679124881"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
</span><a name="line-145"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679124881"><span class="hs-identifier hs-var">res</span></a><span>
</span><a name="line-146"></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-147"></a><span> </span><a name="local-6989586621679125004"><a href="#local-6989586621679125004"><span class="hs-identifier">src</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-148"></a><span> </span><a name="local-6989586621679125005"><a href="#local-6989586621679125005"><span class="hs-identifier">endpoint</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-147"></a><span> </span><a name="local-6989586621679124822"><a href="#local-6989586621679124822"><span class="hs-identifier">src</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-148"></a><span> </span><a name="local-6989586621679124823"><a href="#local-6989586621679124823"><span class="hs-identifier">endpoint</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-149"></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-150"></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-151"></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-6989586621679125003"><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-6989586621679125003"><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-6989586621679125003"><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-6989586621679125003"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-152"></a><span> </span><a name="local-6989586621679125006"><a href="#local-6989586621679125006"><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-6989586621679125005"><span class="hs-identifier hs-var">endpoint</span></a><span>
</span><a name="line-153"></a><span> </span><a name="local-6989586621679125007"><a href="#local-6989586621679125007"><span class="hs-identifier">requestDbgLogMsg</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-154"></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-6989586621679125003"><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-155"></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-6989586621679125003"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-156"></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-6989586621679125010"><a href="#local-6989586621679125010"><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-6989586621679125010"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-151"></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-6989586621679124821"><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-6989586621679124821"><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-6989586621679124821"><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-6989586621679124821"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-152"></a><span> </span><a name="local-6989586621679124824"><a href="#local-6989586621679124824"><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-6989586621679124823"><span class="hs-identifier hs-var">endpoint</span></a><span>
</span><a name="line-153"></a><span> </span><a name="local-6989586621679124825"><a href="#local-6989586621679124825"><span class="hs-identifier">requestDbgLogMsg</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-154"></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-6989586621679124821"><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-155"></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-6989586621679124821"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-156"></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-6989586621679124828"><a href="#local-6989586621679124828"><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-6989586621679124828"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
</span><a name="line-157"></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-158"></a><span> </span><a name="local-6989586621679125008"><a href="#local-6989586621679125008"><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-159"></a><span> </span><a name="local-6989586621679125009"><a href="#local-6989586621679125009"><span class="hs-identifier">responseLogMsg</span></a></a><span> </span><a name="local-6989586621679125011"><a href="#local-6989586621679125011"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-160"></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-6989586621679125008"><span class="hs-identifier hs-var">responseStatusCode</span></a><span> </span><a href="#local-6989586621679125011"><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-6989586621679125005"><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-158"></a><span> </span><a name="local-6989586621679124826"><a href="#local-6989586621679124826"><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-159"></a><span> </span><a name="local-6989586621679124827"><a href="#local-6989586621679124827"><span class="hs-identifier">responseLogMsg</span></a></a><span> </span><a name="local-6989586621679124829"><a href="#local-6989586621679124829"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-160"></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-6989586621679124826"><span class="hs-identifier hs-var">responseStatusCode</span></a><span> </span><a href="#local-6989586621679124829"><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-6989586621679124823"><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-161"></a><span>
</span><a name="line-162"></a><span class="hs-comment">-- * InitRequest</span><span>
</span><a name="line-163"></a><span>
</span><a name="line-164"></a><span class="hs-comment">-- | wraps an http-client 'Request' with request/response type parameters</span><span>
</span><a name="line-165"></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-6989586621679124461"><a href="#local-6989586621679124461"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679124462"><a href="#local-6989586621679124462"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679124463"><a href="#local-6989586621679124463"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679124464"><a href="#local-6989586621679124464"><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-165"></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-6989586621679124279"><a href="#local-6989586621679124279"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679124280"><a href="#local-6989586621679124280"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679124281"><a href="#local-6989586621679124281"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679124282"><a href="#local-6989586621679124282"><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-166"></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-167"></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-168"></a><span>
</span><a name="line-169"></a><span class="hs-comment">-- | Build an http-client 'Request' record from the supplied config and request</span><span>
</span><a name="line-170"></a><span class="hs-identifier">_toInitRequest</span><span>
</span><a name="line-171"></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-6989586621679124477"><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-6989586621679124478"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-171"></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-6989586621679124295"><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-6989586621679124296"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
</span><a name="line-172"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-comment">-- ^ config</span><span>
</span><a name="line-173"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679124479"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124478"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124480"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124477"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
</span><a name="line-174"></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-6989586621679124479"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124478"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124480"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124477"><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-175"></a><a name="_toInitRequest"><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier">_toInitRequest</span></a></a><span> </span><a name="local-6989586621679125064"><a href="#local-6989586621679125064"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679125065"><a href="#local-6989586621679125065"><span class="hs-identifier">req0</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-176"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><span class="hs-string">&quot;Client&quot;</span><span> </span><a href="#local-6989586621679125064"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-177"></a><span> </span><a name="local-6989586621679125066"><a href="#local-6989586621679125066"><span class="hs-identifier">parsedReq</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">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-6989586621679125064"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">concat</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rUrlPath</span><span> </span><a href="#local-6989586621679125065"><span class="hs-identifier hs-var">req0</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-178"></a><span> </span><a name="local-6989586621679125067"><a href="#local-6989586621679125067"><span class="hs-identifier">req1</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><a href="SwaggerPetstore.Core.html#_applyAuthMethods"><span class="hs-identifier hs-var">_applyAuthMethods</span></a><span> </span><a href="#local-6989586621679125065"><span class="hs-identifier hs-var">req0</span></a><span> </span><a href="#local-6989586621679125064"><span class="hs-identifier hs-var">config</span></a><span>
</span><a name="line-173"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679124297"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124296"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124298"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124295"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
</span><a name="line-174"></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-6989586621679124297"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124296"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124298"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124295"><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-175"></a><a name="_toInitRequest"><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier">_toInitRequest</span></a></a><span> </span><a name="local-6989586621679124882"><a href="#local-6989586621679124882"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679124883"><a href="#local-6989586621679124883"><span class="hs-identifier">req0</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-176"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><span class="hs-string">&quot;Client&quot;</span><span> </span><a href="#local-6989586621679124882"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-177"></a><span> </span><a name="local-6989586621679124884"><a href="#local-6989586621679124884"><span class="hs-identifier">parsedReq</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">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-6989586621679124882"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">concat</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rUrlPath</span><span> </span><a href="#local-6989586621679124883"><span class="hs-identifier hs-var">req0</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-178"></a><span> </span><a name="local-6989586621679124885"><a href="#local-6989586621679124885"><span class="hs-identifier">req1</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><a href="SwaggerPetstore.Core.html#_applyAuthMethods"><span class="hs-identifier hs-var">_applyAuthMethods</span></a><span> </span><a href="#local-6989586621679124883"><span class="hs-identifier hs-var">req0</span></a><span> </span><a href="#local-6989586621679124882"><span class="hs-identifier hs-var">config</span></a><span>
</span><a name="line-179"></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">when</span><span>
</span><a name="line-180"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configValidateAuthMethods</span><span> </span><a href="#local-6989586621679125064"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">&amp;&amp;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">not</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">null</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">rAuthTypes</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679125067"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
</span><a name="line-181"></a><span> </span><span class="hs-special">(</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><span class="hs-operator hs-var">$</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethodException"><span class="hs-identifier hs-var">AuthMethodException</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">&quot;AuthMethod not configured: &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">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">head</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">rAuthTypes</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679125067"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
</span><a name="line-182"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679125068"><a href="#local-6989586621679125068"><span class="hs-identifier">req2</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679125067"><span class="hs-identifier hs-var">req1</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><a href="SwaggerPetstore.Core.html#_setContentTypeHeader"><span class="hs-identifier hs-var">_setContentTypeHeader</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><a href="SwaggerPetstore.Core.html#_setAcceptHeader"><span class="hs-identifier hs-var">_setAcceptHeader</span></a><span>
</span><a name="line-183"></a><span> </span><a name="local-6989586621679125069"><a href="#local-6989586621679125069"><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-6989586621679125064"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">:</span><span> </span><span class="hs-identifier">paramsHeaders</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679125068"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span>
</span><a name="line-184"></a><span> </span><a name="local-6989586621679125070"><a href="#local-6989586621679125070"><span class="hs-identifier">reqQuery</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">renderQuery</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">paramsQuery</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679125068"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-185"></a><span> </span><a name="local-6989586621679125071"><a href="#local-6989586621679125071"><span class="hs-identifier">pReq</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679125066"><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-6989586621679125068"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span>
</span><a name="line-186"></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-6989586621679125069"><span class="hs-identifier hs-var">reqHeaders</span></a><span>
</span><a name="line-187"></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-6989586621679125070"><span class="hs-identifier hs-var">reqQuery</span></a><span>
</span><a name="line-180"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configValidateAuthMethods</span><span> </span><a href="#local-6989586621679124882"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">&amp;&amp;</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">not</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">null</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">rAuthTypes</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679124885"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
</span><a name="line-181"></a><span> </span><span class="hs-special">(</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><span class="hs-operator hs-var">$</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethodException"><span class="hs-identifier hs-var">AuthMethodException</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">&quot;AuthMethod not configured: &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">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">head</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">rAuthTypes</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679124885"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
</span><a name="line-182"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679124886"><a href="#local-6989586621679124886"><span class="hs-identifier">req2</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679124885"><span class="hs-identifier hs-var">req1</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><a href="SwaggerPetstore.Core.html#_setContentTypeHeader"><span class="hs-identifier hs-var">_setContentTypeHeader</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><a href="SwaggerPetstore.Core.html#_setAcceptHeader"><span class="hs-identifier hs-var">_setAcceptHeader</span></a><span>
</span><a name="line-183"></a><span> </span><a name="local-6989586621679124887"><a href="#local-6989586621679124887"><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-6989586621679124882"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">:</span><span> </span><span class="hs-identifier">paramsHeaders</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679124886"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span>
</span><a name="line-184"></a><span> </span><a name="local-6989586621679124888"><a href="#local-6989586621679124888"><span class="hs-identifier">reqQuery</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">renderQuery</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">paramsQuery</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679124886"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-185"></a><span> </span><a name="local-6989586621679124889"><a href="#local-6989586621679124889"><span class="hs-identifier">pReq</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679124884"><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-6989586621679124886"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span>
</span><a name="line-186"></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-6989586621679124887"><span class="hs-identifier hs-var">reqHeaders</span></a><span>
</span><a name="line-187"></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-6989586621679124888"><span class="hs-identifier hs-var">reqQuery</span></a><span>
</span><a name="line-188"></a><span> </span><span class="hs-special">}</span><span>
</span><a name="line-189"></a><span> </span><a name="local-6989586621679125076"><a href="#local-6989586621679125076"><span class="hs-identifier">outReq</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679125068"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-190"></a><span> </span><a href="SwaggerPetstore.Core.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-6989586621679125071"><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-191"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyB"><span class="hs-identifier hs-var">ParamBodyB</span></a><span> </span><a name="local-6989586621679125072"><a href="#local-6989586621679125072"><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-6989586621679125071"><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-6989586621679125072"><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-192"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyBL"><span class="hs-identifier hs-var">ParamBodyBL</span></a><span> </span><a name="local-6989586621679125073"><a href="#local-6989586621679125073"><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-6989586621679125071"><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-6989586621679125073"><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-193"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><a name="local-6989586621679125074"><a href="#local-6989586621679125074"><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-6989586621679125071"><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-6989586621679125074"><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-194"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><a name="local-6989586621679125075"><a href="#local-6989586621679125075"><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-6989586621679125075"><span class="hs-identifier hs-var">parts</span></a><span> </span><a href="#local-6989586621679125071"><span class="hs-identifier hs-var">pReq</span></a><span>
</span><a name="line-189"></a><span> </span><a name="local-6989586621679124894"><a href="#local-6989586621679124894"><span class="hs-identifier">outReq</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679124886"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-190"></a><span> </span><a href="SwaggerPetstore.Core.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-6989586621679124889"><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-191"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyB"><span class="hs-identifier hs-var">ParamBodyB</span></a><span> </span><a name="local-6989586621679124890"><a href="#local-6989586621679124890"><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-6989586621679124889"><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-6989586621679124890"><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-192"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyBL"><span class="hs-identifier hs-var">ParamBodyBL</span></a><span> </span><a name="local-6989586621679124891"><a href="#local-6989586621679124891"><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-6989586621679124889"><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-6989586621679124891"><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-193"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><a name="local-6989586621679124892"><a href="#local-6989586621679124892"><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-6989586621679124889"><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-6989586621679124892"><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-194"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><a name="local-6989586621679124893"><a href="#local-6989586621679124893"><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-6989586621679124893"><span class="hs-identifier hs-var">parts</span></a><span> </span><a href="#local-6989586621679124889"><span class="hs-identifier hs-var">pReq</span></a><span>
</span><a name="line-195"></a><span>
</span><a name="line-196"></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-6989586621679125076"><span class="hs-identifier hs-var">outReq</span></a><span class="hs-special">)</span><span>
</span><a name="line-196"></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-6989586621679124894"><span class="hs-identifier hs-var">outReq</span></a><span class="hs-special">)</span><span>
</span><a name="line-197"></a><span>
</span><a name="line-198"></a><span class="hs-comment">-- | modify the underlying Request</span><span>
</span><a name="line-199"></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-6989586621679124473"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124474"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124475"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124476"><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-6989586621679124473"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124474"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124475"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124476"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-200"></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-6989586621679125077"><a href="#local-6989586621679125077"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679125078"><a href="#local-6989586621679125078"><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-6989586621679125078"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679125077"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
</span><a name="line-199"></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-6989586621679124291"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124292"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124293"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124294"><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-6989586621679124291"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124292"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124293"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124294"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-200"></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-6989586621679124895"><a href="#local-6989586621679124895"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679124896"><a href="#local-6989586621679124896"><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-6989586621679124896"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679124895"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
</span><a name="line-201"></a><span>
</span><a name="line-202"></a><span class="hs-comment">-- | modify the underlying Request (monadic)</span><span>
</span><a name="line-203"></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-6989586621679124468"><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-6989586621679124469"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124470"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124471"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124472"><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-6989586621679124468"><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-6989586621679124468"><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-6989586621679124469"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124470"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124471"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124472"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span>
</span><a name="line-204"></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-6989586621679125079"><a href="#local-6989586621679125079"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679125080"><a href="#local-6989586621679125080"><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-6989586621679125080"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679125079"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
</span><a name="line-203"></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-6989586621679124286"><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-6989586621679124287"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124288"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124289"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124290"><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-6989586621679124286"><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-6989586621679124286"><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-6989586621679124287"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679124288"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679124289"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679124290"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span>
</span><a name="line-204"></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-6989586621679124897"><a href="#local-6989586621679124897"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679124898"><a href="#local-6989586621679124898"><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-6989586621679124898"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679124897"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
</span><a name="line-205"></a><span>
</span><a name="line-206"></a><span class="hs-comment">-- ** Logging </span><span>
</span><a name="line-207"></a><span>
</span><a name="line-208"></a><span class="hs-comment">-- | Run a block using the configured logger instance</span><span>
</span><a name="line-209"></a><span class="hs-identifier">runConfigLog</span><span>
</span><a name="line-210"></a><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">MonadIO</span><span> </span><a href="#local-6989586621679124467"><span class="hs-identifier hs-type">m</span></a><span>
</span><a name="line-211"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679124467"><span class="hs-identifier hs-type">m</span></a><span>
</span><a name="line-212"></a><a name="runConfigLog"><a href="SwaggerPetstore.Client.html#runConfigLog"><span class="hs-identifier">runConfigLog</span></a></a><span> </span><a name="local-6989586621679125081"><a href="#local-6989586621679125081"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><a href="#local-6989586621679125081"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configLogContext</span><span> </span><a href="#local-6989586621679125081"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span>
</span><a name="line-210"></a><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">MonadIO</span><span> </span><a href="#local-6989586621679124285"><span class="hs-identifier hs-type">m</span></a><span>
</span><a name="line-211"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679124285"><span class="hs-identifier hs-type">m</span></a><span>
</span><a name="line-212"></a><a name="runConfigLog"><a href="SwaggerPetstore.Client.html#runConfigLog"><span class="hs-identifier">runConfigLog</span></a></a><span> </span><a name="local-6989586621679124899"><a href="#local-6989586621679124899"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><a href="#local-6989586621679124899"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configLogContext</span><span> </span><a href="#local-6989586621679124899"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span>
</span><a name="line-213"></a><span>
</span><a name="line-214"></a><span class="hs-comment">-- | Run a block using the configured logger instance (logs exceptions)</span><span>
</span><a name="line-215"></a><span class="hs-identifier">runConfigLogWithExceptions</span><span>
</span><a name="line-216"></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-6989586621679124466"><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-6989586621679124466"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
</span><a name="line-217"></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.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679124466"><span class="hs-identifier hs-type">m</span></a><span>
</span><a name="line-218"></a><a name="runConfigLogWithExceptions"><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier">runConfigLogWithExceptions</span></a></a><span> </span><a name="local-6989586621679125082"><a href="#local-6989586621679125082"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679125083"><a href="#local-6989586621679125083"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Client.html#runConfigLog"><span class="hs-identifier hs-var">runConfigLog</span></a><span> </span><a href="#local-6989586621679125083"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Logging.html#logExceptions"><span class="hs-identifier hs-var">logExceptions</span></a><span> </span><a href="#local-6989586621679125082"><span class="hs-identifier hs-var">src</span></a><span>
</span><a name="line-216"></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-6989586621679124284"><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-6989586621679124284"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
</span><a name="line-217"></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.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679124284"><span class="hs-identifier hs-type">m</span></a><span>
</span><a name="line-218"></a><a name="runConfigLogWithExceptions"><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier">runConfigLogWithExceptions</span></a></a><span> </span><a name="local-6989586621679124900"><a href="#local-6989586621679124900"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679124901"><a href="#local-6989586621679124901"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Client.html#runConfigLog"><span class="hs-identifier hs-var">runConfigLog</span></a><span> </span><a href="#local-6989586621679124901"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Logging.html#logExceptions"><span class="hs-identifier hs-var">logExceptions</span></a><span> </span><a href="#local-6989586621679124900"><span class="hs-identifier hs-var">src</span></a><span>
</span><a name="line-219"></a></pre></body></html>

312
samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.Core.html
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \&quot; \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -82,11 +82,11 @@ Module : SwaggerPetstore.Core
</span><a name="line-82"></a><span>
</span><a name="line-83"></a><span class="hs-comment">-- | display the config</span><span>
</span><a name="line-84"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-85"></a><span> </span><a name="local-8214565720323791630"><span class="hs-identifier">show</span></a><span> </span><a name="local-6989586621679114790"><a href="#local-6989586621679114790"><span class="hs-identifier">c</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-85"></a><span> </span><a name="local-8214565720323791630"><span class="hs-identifier">show</span></a><span> </span><a name="local-6989586621679114608"><a href="#local-6989586621679114608"><span class="hs-identifier">c</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-86"></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-87"></a><span> </span><span class="hs-string">&quot;{ configHost = %v, configUserAgent = %v, ..}&quot;</span><span>
</span><a name="line-88"></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-6989586621679114790"><span class="hs-identifier hs-var">c</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-89"></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-6989586621679114790"><span class="hs-identifier hs-var">c</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-88"></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-6989586621679114608"><span class="hs-identifier hs-var">c</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-89"></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-6989586621679114608"><span class="hs-identifier hs-var">c</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-90"></a><span>
</span><a name="line-91"></a><span class="hs-comment">-- | constructs a default SwaggerPetstoreConfig</span><span>
</span><a name="line-92"></a><span class="hs-comment">--</span><span>
@ -100,36 +100,36 @@ Module : SwaggerPetstore.Core
</span><a name="line-100"></a><span class="hs-comment">--</span><span>
</span><a name="line-101"></a><span class="hs-identifier">newConfig</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
</span><a name="line-102"></a><a name="newConfig"><a href="SwaggerPetstore.Core.html#newConfig"><span class="hs-identifier">newConfig</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-103"></a><span> </span><a name="local-6989586621679115241"><a href="#local-6989586621679115241"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span> </span><a href="SwaggerPetstore.Logging.html#initLogContext"><span class="hs-identifier hs-var">initLogContext</span></a><span>
</span><a name="line-103"></a><span> </span><a name="local-6989586621679115059"><a href="#local-6989586621679115059"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span> </span><a href="SwaggerPetstore.Logging.html#initLogContext"><span class="hs-identifier hs-var">initLogContext</span></a><span>
</span><a name="line-104"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-var">SwaggerPetstoreConfig</span></a><span>
</span><a name="line-105"></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configHost</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;http://petstore.swagger.io:80/v2&quot;</span><span>
</span><a name="line-106"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configUserAgent</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">&quot;swagger-petstore/0.1.0.0&quot;</span><span>
</span><a name="line-107"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#runDefaultLogExecWithContext"><span class="hs-identifier hs-var">runDefaultLogExecWithContext</span></a><span>
</span><a name="line-108"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679115241"><span class="hs-identifier hs-var">logCxt</span></a><span>
</span><a name="line-108"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679115059"><span class="hs-identifier hs-var">logCxt</span></a><span>
</span><a name="line-109"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><a name="line-110"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-identifier">configValidateAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">True</span><span>
</span><a name="line-111"></a><span> </span><span class="hs-special">}</span><span> </span><span>
</span><a name="line-112"></a><span>
</span><a name="line-113"></a><span class="hs-comment">-- | updates config use AuthMethod on matching requests</span><span>
</span><a name="line-114"></a><span class="hs-identifier">addAuthMethod</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier hs-type">AuthMethod</span></a><span> </span><a href="#local-6989586621679115240"><span class="hs-identifier hs-type">auth</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115240"><span class="hs-identifier hs-type">auth</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
</span><a name="line-115"></a><a name="addAuthMethod"><a href="SwaggerPetstore.Core.html#addAuthMethod"><span class="hs-identifier">addAuthMethod</span></a></a><span> </span><a name="local-6989586621679115242"><a href="#local-6989586621679115242"><span class="hs-identifier">config</span></a></a><span class="hs-glyph">@</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-var">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-special">{</span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">as</span><span class="hs-special">}</span><span> </span><a name="local-6989586621679115244"><a href="#local-6989586621679115244"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-116"></a><span> </span><a href="#local-6989586621679115242"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-var">AnyAuthMethod</span></a><span> </span><a href="#local-6989586621679115244"><span class="hs-identifier hs-var">a</span></a><span> </span><span class="hs-glyph">:</span><span> </span><span class="hs-keyword">as</span><span class="hs-special">}</span><span>
</span><a name="line-114"></a><span class="hs-identifier">addAuthMethod</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier hs-type">AuthMethod</span></a><span> </span><a href="#local-6989586621679115058"><span class="hs-identifier hs-type">auth</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115058"><span class="hs-identifier hs-type">auth</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
</span><a name="line-115"></a><a name="addAuthMethod"><a href="SwaggerPetstore.Core.html#addAuthMethod"><span class="hs-identifier">addAuthMethod</span></a></a><span> </span><a name="local-6989586621679115060"><a href="#local-6989586621679115060"><span class="hs-identifier">config</span></a></a><span class="hs-glyph">@</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-var">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-special">{</span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">as</span><span class="hs-special">}</span><span> </span><a name="local-6989586621679115062"><a href="#local-6989586621679115062"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-116"></a><span> </span><a href="#local-6989586621679115060"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-var">AnyAuthMethod</span></a><span> </span><a href="#local-6989586621679115062"><span class="hs-identifier hs-var">a</span></a><span> </span><span class="hs-glyph">:</span><span> </span><span class="hs-keyword">as</span><span class="hs-special">}</span><span>
</span><a name="line-117"></a><span>
</span><a name="line-118"></a><span class="hs-comment">-- | updates the config to use stdout logging</span><span>
</span><a name="line-119"></a><span class="hs-identifier">withStdoutLogging</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.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">IO</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
</span><a name="line-120"></a><a name="withStdoutLogging"><a href="SwaggerPetstore.Core.html#withStdoutLogging"><span class="hs-identifier">withStdoutLogging</span></a></a><span> </span><a name="local-6989586621679115245"><a href="#local-6989586621679115245"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-121"></a><span> </span><a name="local-6989586621679115246"><a href="#local-6989586621679115246"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span> </span><a href="SwaggerPetstore.Logging.html#stdoutLoggingContext"><span class="hs-identifier hs-var">stdoutLoggingContext</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configLogContext</span><span> </span><a href="#local-6989586621679115245"><span class="hs-identifier hs-var">p</span></a><span class="hs-special">)</span><span>
</span><a name="line-122"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679115245"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#stdoutLoggingExec"><span class="hs-identifier hs-var">stdoutLoggingExec</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679115246"><span class="hs-identifier hs-var">logCxt</span></a><span> </span><span class="hs-special">}</span><span>
</span><a name="line-120"></a><a name="withStdoutLogging"><a href="SwaggerPetstore.Core.html#withStdoutLogging"><span class="hs-identifier">withStdoutLogging</span></a></a><span> </span><a name="local-6989586621679115063"><a href="#local-6989586621679115063"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-121"></a><span> </span><a name="local-6989586621679115064"><a href="#local-6989586621679115064"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span> </span><a href="SwaggerPetstore.Logging.html#stdoutLoggingContext"><span class="hs-identifier hs-var">stdoutLoggingContext</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configLogContext</span><span> </span><a href="#local-6989586621679115063"><span class="hs-identifier hs-var">p</span></a><span class="hs-special">)</span><span>
</span><a name="line-122"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679115063"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#stdoutLoggingExec"><span class="hs-identifier hs-var">stdoutLoggingExec</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679115064"><span class="hs-identifier hs-var">logCxt</span></a><span> </span><span class="hs-special">}</span><span>
</span><a name="line-123"></a><span>
</span><a name="line-124"></a><span class="hs-comment">-- | updates the config to use stderr logging</span><span>
</span><a name="line-125"></a><span class="hs-identifier">withStderrLogging</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.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">IO</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
</span><a name="line-126"></a><a name="withStderrLogging"><a href="SwaggerPetstore.Core.html#withStderrLogging"><span class="hs-identifier">withStderrLogging</span></a></a><span> </span><a name="local-6989586621679115247"><a href="#local-6989586621679115247"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-127"></a><span> </span><a name="local-6989586621679115248"><a href="#local-6989586621679115248"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span> </span><a href="SwaggerPetstore.Logging.html#stderrLoggingContext"><span class="hs-identifier hs-var">stderrLoggingContext</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configLogContext</span><span> </span><a href="#local-6989586621679115247"><span class="hs-identifier hs-var">p</span></a><span class="hs-special">)</span><span>
</span><a name="line-128"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679115247"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#stderrLoggingExec"><span class="hs-identifier hs-var">stderrLoggingExec</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679115248"><span class="hs-identifier hs-var">logCxt</span></a><span> </span><span class="hs-special">}</span><span>
</span><a name="line-126"></a><a name="withStderrLogging"><a href="SwaggerPetstore.Core.html#withStderrLogging"><span class="hs-identifier">withStderrLogging</span></a></a><span> </span><a name="local-6989586621679115065"><a href="#local-6989586621679115065"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><a name="line-127"></a><span> </span><a name="local-6989586621679115066"><a href="#local-6989586621679115066"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph">&lt;-</span><span> </span><a href="SwaggerPetstore.Logging.html#stderrLoggingContext"><span class="hs-identifier hs-var">stderrLoggingContext</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configLogContext</span><span> </span><a href="#local-6989586621679115065"><span class="hs-identifier hs-var">p</span></a><span class="hs-special">)</span><span>
</span><a name="line-128"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="#local-6989586621679115065"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#stderrLoggingExec"><span class="hs-identifier hs-var">stderrLoggingExec</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier">configLogContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679115066"><span class="hs-identifier hs-var">logCxt</span></a><span> </span><span class="hs-special">}</span><span>
</span><a name="line-129"></a><span>
</span><a name="line-130"></a><span class="hs-comment">-- | updates the config to disable logging</span><span>
</span><a name="line-131"></a><span class="hs-identifier">withNoLogging</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
</span><a name="line-132"></a><a name="withNoLogging"><a href="SwaggerPetstore.Core.html#withNoLogging"><span class="hs-identifier">withNoLogging</span></a></a><span> </span><a name="local-6989586621679115249"><a href="#local-6989586621679115249"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679115249"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#runNullLogExec"><span class="hs-identifier hs-var">runNullLogExec</span></a><span class="hs-special">}</span><span>
</span><a name="line-132"></a><a name="withNoLogging"><a href="SwaggerPetstore.Core.html#withNoLogging"><span class="hs-identifier">withNoLogging</span></a></a><span> </span><a name="local-6989586621679115067"><a href="#local-6989586621679115067"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679115067"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-special">{</span><span> </span><span class="hs-identifier">configLogExecWithContext</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Logging.html#runNullLogExec"><span class="hs-identifier hs-var">runNullLogExec</span></a><span class="hs-special">}</span><span>
</span><a name="line-133"></a><span> </span><span>
</span><a name="line-134"></a><span class="hs-comment">-- * SwaggerPetstoreRequest</span><span>
</span><a name="line-135"></a><span>
@ -141,7 +141,7 @@ Module : SwaggerPetstore.Core
</span><a name="line-141"></a><span class="hs-comment">-- * contentType - 'MimeType' associated with request body</span><span>
</span><a name="line-142"></a><span class="hs-comment">-- * res - response model</span><span>
</span><a name="line-143"></a><span class="hs-comment">-- * accept - 'MimeType' associated with response body</span><span>
</span><a name="line-144"></a><span class="hs-keyword">data</span><span> </span><a name="SwaggerPetstoreRequest"><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier">SwaggerPetstoreRequest</span></a></a><span> </span><a name="local-6989586621679114394"><a href="#local-6989586621679114394"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679114395"><a href="#local-6989586621679114395"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679114396"><a href="#local-6989586621679114396"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679114397"><a href="#local-6989586621679114397"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="SwaggerPetstoreRequest"><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier">SwaggerPetstoreRequest</span></a></a><span>
</span><a name="line-144"></a><span class="hs-keyword">data</span><span> </span><a name="SwaggerPetstoreRequest"><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier">SwaggerPetstoreRequest</span></a></a><span> </span><a name="local-6989586621679114212"><a href="#local-6989586621679114212"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679114213"><a href="#local-6989586621679114213"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679114214"><a href="#local-6989586621679114214"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679114215"><a href="#local-6989586621679114215"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="SwaggerPetstoreRequest"><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier">SwaggerPetstoreRequest</span></a></a><span>
</span><a name="line-145"></a><span> </span><span class="hs-special">{</span><span> </span><a name="rMethod"><a href="SwaggerPetstore.Core.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-146"></a><span> </span><span class="hs-special">,</span><span> </span><a name="rUrlPath"><a href="SwaggerPetstore.Core.html#rUrlPath"><span class="hs-identifier">rUrlPath</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-147"></a><span> </span><span class="hs-special">,</span><span> </span><a name="rParams"><a href="SwaggerPetstore.Core.html#rParams"><span class="hs-identifier">rParams</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-type">Params</span></a><span> </span><span class="hs-comment">-- ^ params of SwaggerPetstoreRequest</span><span>
@ -150,47 +150,47 @@ Module : SwaggerPetstore.Core
</span><a name="line-150"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">)</span><span>
</span><a name="line-151"></a><span>
</span><a name="line-152"></a><span class="hs-comment">-- | 'rMethod' Lens</span><span>
</span><a name="line-153"></a><span class="hs-identifier">rMethodL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115236"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115237"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115238"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115239"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</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><a name="line-154"></a><a name="rMethodL"><a href="SwaggerPetstore.Core.html#rMethodL"><span class="hs-identifier">rMethodL</span></a></a><span> </span><a name="local-6989586621679115250"><a href="#local-6989586621679115250"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</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-6989586621679115255"><a href="#local-6989586621679115255"><span class="hs-identifier">rMethod</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679115255"><span class="hs-identifier hs-var">rMethod</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-6989586621679115250"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679115251"><span class="hs-identifier hs-var">rMethod</span></a><span>
</span><a name="line-153"></a><span class="hs-identifier">rMethodL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115054"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115055"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115056"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115057"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</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><a name="line-154"></a><a name="rMethodL"><a href="SwaggerPetstore.Core.html#rMethodL"><span class="hs-identifier">rMethodL</span></a></a><span> </span><a name="local-6989586621679115068"><a href="#local-6989586621679115068"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</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-6989586621679115073"><a href="#local-6989586621679115073"><span class="hs-identifier">rMethod</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679115073"><span class="hs-identifier hs-var">rMethod</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-6989586621679115068"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679115069"><span class="hs-identifier hs-var">rMethod</span></a><span>
</span><a name="line-155"></a><span class="hs-pragma">{-# INLINE rMethodL #-}</span><span>
</span><a name="line-156"></a><span>
</span><a name="line-157"></a><span class="hs-comment">-- | 'rUrlPath' Lens</span><span>
</span><a name="line-158"></a><span class="hs-identifier">rUrlPathL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115232"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115233"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115234"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115235"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</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><a name="line-159"></a><a name="rUrlPathL"><a href="SwaggerPetstore.Core.html#rUrlPathL"><span class="hs-identifier">rUrlPathL</span></a></a><span> </span><a name="local-6989586621679115269"><a href="#local-6989586621679115269"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</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-6989586621679115274"><a href="#local-6989586621679115274"><span class="hs-identifier">rUrlPath</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679115274"><span class="hs-identifier hs-var">rUrlPath</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-6989586621679115269"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679115271"><span class="hs-identifier hs-var">rUrlPath</span></a><span>
</span><a name="line-158"></a><span class="hs-identifier">rUrlPathL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115050"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115051"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115052"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115053"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</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><a name="line-159"></a><a name="rUrlPathL"><a href="SwaggerPetstore.Core.html#rUrlPathL"><span class="hs-identifier">rUrlPathL</span></a></a><span> </span><a name="local-6989586621679115087"><a href="#local-6989586621679115087"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</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-6989586621679115092"><a href="#local-6989586621679115092"><span class="hs-identifier">rUrlPath</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679115092"><span class="hs-identifier hs-var">rUrlPath</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-6989586621679115087"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679115089"><span class="hs-identifier hs-var">rUrlPath</span></a><span>
</span><a name="line-160"></a><span class="hs-pragma">{-# INLINE rUrlPathL #-}</span><span>
</span><a name="line-161"></a><span>
</span><a name="line-162"></a><span class="hs-comment">-- | 'rParams' Lens</span><span>
</span><a name="line-163"></a><span class="hs-identifier">rParamsL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115228"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115229"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115230"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115231"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-type">Params</span></a><span>
</span><a name="line-164"></a><a name="rParamsL"><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier">rParamsL</span></a></a><span> </span><a name="local-6989586621679115275"><a href="#local-6989586621679115275"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</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-6989586621679115280"><a href="#local-6989586621679115280"><span class="hs-identifier">rParams</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679115280"><span class="hs-identifier hs-var">rParams</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-6989586621679115275"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679115278"><span class="hs-identifier hs-var">rParams</span></a><span>
</span><a name="line-163"></a><span class="hs-identifier">rParamsL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115046"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115047"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115048"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115049"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-type">Params</span></a><span>
</span><a name="line-164"></a><a name="rParamsL"><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier">rParamsL</span></a></a><span> </span><a name="local-6989586621679115093"><a href="#local-6989586621679115093"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</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-6989586621679115098"><a href="#local-6989586621679115098"><span class="hs-identifier">rParams</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679115098"><span class="hs-identifier hs-var">rParams</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-6989586621679115093"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679115096"><span class="hs-identifier hs-var">rParams</span></a><span>
</span><a name="line-165"></a><span class="hs-pragma">{-# INLINE rParamsL #-}</span><span>
</span><a name="line-166"></a><span>
</span><a name="line-167"></a><span class="hs-comment">-- | 'rParams' Lens</span><span>
</span><a name="line-168"></a><span class="hs-identifier">rAuthTypesL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115224"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115225"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115226"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115227"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</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">TypeRep</span><span class="hs-special">]</span><span>
</span><a name="line-169"></a><a name="rAuthTypesL"><a href="SwaggerPetstore.Core.html#rAuthTypesL"><span class="hs-identifier">rAuthTypesL</span></a></a><span> </span><a name="local-6989586621679115281"><a href="#local-6989586621679115281"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</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-6989586621679115286"><a href="#local-6989586621679115286"><span class="hs-identifier">rAuthTypes</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679115286"><span class="hs-identifier hs-var">rAuthTypes</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-6989586621679115281"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679115285"><span class="hs-identifier hs-var">rAuthTypes</span></a><span>
</span><a name="line-168"></a><span class="hs-identifier">rAuthTypesL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115042"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115043"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115044"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115045"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</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">TypeRep</span><span class="hs-special">]</span><span>
</span><a name="line-169"></a><a name="rAuthTypesL"><a href="SwaggerPetstore.Core.html#rAuthTypesL"><span class="hs-identifier">rAuthTypesL</span></a></a><span> </span><a name="local-6989586621679115099"><a href="#local-6989586621679115099"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</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-6989586621679115104"><a href="#local-6989586621679115104"><span class="hs-identifier">rAuthTypes</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679115104"><span class="hs-identifier hs-var">rAuthTypes</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-6989586621679115099"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679115103"><span class="hs-identifier hs-var">rAuthTypes</span></a><span>
</span><a name="line-170"></a><span class="hs-pragma">{-# INLINE rAuthTypesL #-}</span><span>
</span><a name="line-171"></a><span>
</span><a name="line-172"></a><span class="hs-comment">-- * HasBodyParam</span><span>
</span><a name="line-173"></a><span>
</span><a name="line-174"></a><span class="hs-comment">-- | Designates the body parameter of a request</span><span>
</span><a name="line-175"></a><span class="hs-keyword">class</span><span> </span><a name="HasBodyParam"><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier">HasBodyParam</span></a></a><span> </span><a name="local-6989586621679114387"><a href="#local-6989586621679114387"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679114388"><a href="#local-6989586621679114388"><span class="hs-identifier">param</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-176"></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-6989586621679114389"><a href="#local-6989586621679114389"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679114390"><a href="#local-6989586621679114390"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679114391"><a href="#local-6989586621679114391"><span class="hs-identifier">accept</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-6989586621679114387"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114389"><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-6989586621679114389"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114388"><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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114387"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114389"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114390"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114391"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679114388"><span class="hs-identifier hs-type">param</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114387"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114389"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114390"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114391"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-177"></a><span> </span><a name="local-8214565720323887751"><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier">setBodyParam</span></a></a><span> </span><a name="local-6989586621679114392"><a href="#local-6989586621679114392"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679114393"><a href="#local-6989586621679114393"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-178"></a><span> </span><a href="#local-6989586621679114392"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-6989586621679114389"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679114393"><span class="hs-identifier hs-var">xs</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><a href="SwaggerPetstore.Core.html#_setContentTypeHeader"><span class="hs-identifier hs-var">_setContentTypeHeader</span></a><span>
</span><a name="line-175"></a><span class="hs-keyword">class</span><span> </span><a name="HasBodyParam"><a href="SwaggerPetstore.Core.html#HasBodyParam"><span class="hs-identifier">HasBodyParam</span></a></a><span> </span><a name="local-6989586621679114205"><a href="#local-6989586621679114205"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679114206"><a href="#local-6989586621679114206"><span class="hs-identifier">param</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-176"></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-6989586621679114207"><a href="#local-6989586621679114207"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679114208"><a href="#local-6989586621679114208"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679114209"><a href="#local-6989586621679114209"><span class="hs-identifier">accept</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-6989586621679114205"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114207"><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-6989586621679114207"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114206"><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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114205"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114207"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114208"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114209"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679114206"><span class="hs-identifier hs-type">param</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114205"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114207"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114208"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114209"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-177"></a><span> </span><a name="local-8214565720323887569"><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier">setBodyParam</span></a></a><span> </span><a name="local-6989586621679114210"><a href="#local-6989586621679114210"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679114211"><a href="#local-6989586621679114211"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-178"></a><span> </span><a href="#local-6989586621679114210"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-6989586621679114207"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679114211"><span class="hs-identifier hs-var">xs</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><a href="SwaggerPetstore.Core.html#_setContentTypeHeader"><span class="hs-identifier hs-var">_setContentTypeHeader</span></a><span>
</span><a name="line-179"></a><span>
</span><a name="line-180"></a><span class="hs-comment">-- * HasOptionalParam</span><span>
</span><a name="line-181"></a><span>
</span><a name="line-182"></a><span class="hs-comment">-- | Designates the optional parameters of a request</span><span>
</span><a name="line-183"></a><span class="hs-keyword">class</span><span> </span><a name="HasOptionalParam"><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier">HasOptionalParam</span></a></a><span> </span><a name="local-6989586621679114379"><a href="#local-6989586621679114379"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679114380"><a href="#local-6989586621679114380"><span class="hs-identifier">param</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-183"></a><span class="hs-keyword">class</span><span> </span><a name="HasOptionalParam"><a href="SwaggerPetstore.Core.html#HasOptionalParam"><span class="hs-identifier">HasOptionalParam</span></a></a><span> </span><a name="local-6989586621679114197"><a href="#local-6989586621679114197"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679114198"><a href="#local-6989586621679114198"><span class="hs-identifier">param</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-184"></a><span> </span><span class="hs-pragma">{-# MINIMAL applyOptionalParam | (-&amp;-) #-}</span><span>
</span><a name="line-185"></a><span>
</span><a name="line-186"></a><span> </span><span class="hs-comment">-- | Apply an optional parameter to a request</span><span>
</span><a name="line-187"></a><span> </span><span class="hs-identifier">applyOptionalParam</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114379"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114381"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114382"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114383"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679114380"><span class="hs-identifier hs-type">param</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114379"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114381"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114382"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114383"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-188"></a><span> </span><a name="local-8214565720323887748"><a href="SwaggerPetstore.Core.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.Core.html#-%26-"><span class="hs-operator hs-var">-&amp;-</span></a><span class="hs-special">)</span><span>
</span><a name="line-187"></a><span> </span><span class="hs-identifier">applyOptionalParam</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114197"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114199"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114200"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114201"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679114198"><span class="hs-identifier hs-type">param</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114197"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114199"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114200"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114201"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-188"></a><span> </span><a name="local-8214565720323887566"><a href="SwaggerPetstore.Core.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.Core.html#-%26-"><span class="hs-operator hs-var">-&amp;-</span></a><span class="hs-special">)</span><span>
</span><a name="line-189"></a><span> </span><span class="hs-pragma">{-# INLINE applyOptionalParam #-}</span><span>
</span><a name="line-190"></a><span>
</span><a name="line-191"></a><span> </span><span class="hs-comment">-- | infix operator \/ alias for 'addOptionalParam'</span><span>
</span><a name="line-192"></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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114379"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114384"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114385"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114386"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679114380"><span class="hs-identifier hs-type">param</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114379"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114384"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114385"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114386"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-193"></a><span> </span><span class="hs-special">(</span><a name="local-8214565720323887749"><a href="SwaggerPetstore.Core.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.Core.html#applyOptionalParam"><span class="hs-identifier hs-var">applyOptionalParam</span></a><span>
</span><a name="line-192"></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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114197"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114202"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114203"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114204"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679114198"><span class="hs-identifier hs-type">param</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114197"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114202"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114203"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114204"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-193"></a><span> </span><span class="hs-special">(</span><a name="local-8214565720323887567"><a href="SwaggerPetstore.Core.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.Core.html#applyOptionalParam"><span class="hs-identifier hs-var">applyOptionalParam</span></a><span>
</span><a name="line-194"></a><span> </span><span class="hs-pragma">{-# INLINE (-&amp;-) #-}</span><span>
</span><a name="line-195"></a><span>
</span><a name="line-196"></a><span class="hs-keyword">infixl</span><span> </span><span class="hs-number">2</span><span> </span><span class="hs-operator">-&amp;-</span><span>
@ -205,17 +205,17 @@ Module : SwaggerPetstore.Core
</span><a name="line-205"></a><span>
</span><a name="line-206"></a><span class="hs-comment">-- | 'paramsQuery' Lens</span><span>
</span><a name="line-207"></a><span class="hs-identifier">paramsQueryL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-type">Params</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">Query</span><span>
</span><a name="line-208"></a><a name="paramsQueryL"><a href="SwaggerPetstore.Core.html#paramsQueryL"><span class="hs-identifier">paramsQueryL</span></a></a><span> </span><a name="local-6989586621679115287"><a href="#local-6989586621679115287"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</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-6989586621679115291"><a href="#local-6989586621679115291"><span class="hs-identifier">paramsQuery</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679115291"><span class="hs-identifier hs-var">paramsQuery</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-6989586621679115287"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679115288"><span class="hs-identifier hs-var">paramsQuery</span></a><span>
</span><a name="line-208"></a><a name="paramsQueryL"><a href="SwaggerPetstore.Core.html#paramsQueryL"><span class="hs-identifier">paramsQueryL</span></a></a><span> </span><a name="local-6989586621679115105"><a href="#local-6989586621679115105"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</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-6989586621679115109"><a href="#local-6989586621679115109"><span class="hs-identifier">paramsQuery</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679115109"><span class="hs-identifier hs-var">paramsQuery</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-6989586621679115105"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679115106"><span class="hs-identifier hs-var">paramsQuery</span></a><span>
</span><a name="line-209"></a><span class="hs-pragma">{-# INLINE paramsQueryL #-}</span><span>
</span><a name="line-210"></a><span>
</span><a name="line-211"></a><span class="hs-comment">-- | 'paramsHeaders' Lens</span><span>
</span><a name="line-212"></a><span class="hs-identifier">paramsHeadersL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-type">Params</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">RequestHeaders</span><span>
</span><a name="line-213"></a><a name="paramsHeadersL"><a href="SwaggerPetstore.Core.html#paramsHeadersL"><span class="hs-identifier">paramsHeadersL</span></a></a><span> </span><a name="local-6989586621679115292"><a href="#local-6989586621679115292"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</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-6989586621679115296"><a href="#local-6989586621679115296"><span class="hs-identifier">paramsHeaders</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679115296"><span class="hs-identifier hs-var">paramsHeaders</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-6989586621679115292"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679115294"><span class="hs-identifier hs-var">paramsHeaders</span></a><span>
</span><a name="line-213"></a><a name="paramsHeadersL"><a href="SwaggerPetstore.Core.html#paramsHeadersL"><span class="hs-identifier">paramsHeadersL</span></a></a><span> </span><a name="local-6989586621679115110"><a href="#local-6989586621679115110"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</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-6989586621679115114"><a href="#local-6989586621679115114"><span class="hs-identifier">paramsHeaders</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679115114"><span class="hs-identifier hs-var">paramsHeaders</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-6989586621679115110"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679115112"><span class="hs-identifier hs-var">paramsHeaders</span></a><span>
</span><a name="line-214"></a><span class="hs-pragma">{-# INLINE paramsHeadersL #-}</span><span>
</span><a name="line-215"></a><span>
</span><a name="line-216"></a><span class="hs-comment">-- | 'paramsBody' Lens</span><span>
</span><a name="line-217"></a><span class="hs-identifier">paramsBodyL</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier hs-type">Lens_'</span></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-type">Params</span></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBody"><span class="hs-identifier hs-type">ParamBody</span></a><span>
</span><a name="line-218"></a><a name="paramsBodyL"><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier">paramsBodyL</span></a></a><span> </span><a name="local-6989586621679115297"><a href="#local-6989586621679115297"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</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-6989586621679115301"><a href="#local-6989586621679115301"><span class="hs-identifier">paramsBody</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679115301"><span class="hs-identifier hs-var">paramsBody</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-6989586621679115297"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679115300"><span class="hs-identifier hs-var">paramsBody</span></a><span>
</span><a name="line-218"></a><a name="paramsBodyL"><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier">paramsBodyL</span></a></a><span> </span><a name="local-6989586621679115115"><a href="#local-6989586621679115115"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</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-6989586621679115119"><a href="#local-6989586621679115119"><span class="hs-identifier">paramsBody</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-var">Params</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679115119"><span class="hs-identifier hs-var">paramsBody</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-6989586621679115115"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679115118"><span class="hs-identifier hs-var">paramsBody</span></a><span>
</span><a name="line-219"></a><span class="hs-pragma">{-# INLINE paramsBodyL #-}</span><span>
</span><a name="line-220"></a><span>
</span><a name="line-221"></a><span class="hs-comment">-- | Request Body</span><span>
@ -231,90 +231,90 @@ Module : SwaggerPetstore.Core
</span><a name="line-231"></a><span>
</span><a name="line-232"></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-233"></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-234"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115220"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115221"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115222"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115223"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ req: Request Type, res: Response Type</span><span>
</span><a name="line-235"></a><a name="_mkRequest"><a href="SwaggerPetstore.Core.html#_mkRequest"><span class="hs-identifier">_mkRequest</span></a></a><span> </span><a name="local-6989586621679115302"><a href="#local-6989586621679115302"><span class="hs-identifier">m</span></a></a><span> </span><a name="local-6989586621679115303"><a href="#local-6989586621679115303"><span class="hs-identifier">u</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115302"><span class="hs-identifier hs-var">m</span></a><span> </span><a href="#local-6989586621679115303"><span class="hs-identifier hs-var">u</span></a><span> </span><a href="SwaggerPetstore.Core.html#_mkParams"><span class="hs-identifier hs-var">_mkParams</span></a><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><a name="line-234"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115038"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115039"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115040"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115041"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ req: Request Type, res: Response Type</span><span>
</span><a name="line-235"></a><a name="_mkRequest"><a href="SwaggerPetstore.Core.html#_mkRequest"><span class="hs-identifier">_mkRequest</span></a></a><span> </span><a name="local-6989586621679115120"><a href="#local-6989586621679115120"><span class="hs-identifier">m</span></a></a><span> </span><a name="local-6989586621679115121"><a href="#local-6989586621679115121"><span class="hs-identifier">u</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-var">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115120"><span class="hs-identifier hs-var">m</span></a><span> </span><a href="#local-6989586621679115121"><span class="hs-identifier hs-var">u</span></a><span> </span><a href="SwaggerPetstore.Core.html#_mkParams"><span class="hs-identifier hs-var">_mkParams</span></a><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><a name="line-236"></a><span>
</span><a name="line-237"></a><span class="hs-identifier">_mkParams</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier hs-type">Params</span></a><span>
</span><a name="line-238"></a><a name="_mkParams"><a href="SwaggerPetstore.Core.html#_mkParams"><span class="hs-identifier">_mkParams</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.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.Core.html#ParamBodyNone"><span class="hs-identifier hs-var">ParamBodyNone</span></a><span>
</span><a name="line-239"></a><span>
</span><a name="line-240"></a><span class="hs-identifier">setHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115216"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115217"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115218"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115219"><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">Header</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115216"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115217"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115218"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115219"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-241"></a><a name="setHeader"><a href="SwaggerPetstore.Core.html#setHeader"><span class="hs-identifier">setHeader</span></a></a><span> </span><a name="local-6989586621679115304"><a href="#local-6989586621679115304"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115305"><a href="#local-6989586621679115305"><span class="hs-identifier">header</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-242"></a><span> </span><a href="#local-6989586621679115304"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-6989586621679115305"><span class="hs-identifier hs-var">header</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span>
</span><a name="line-243"></a><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">over</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsHeadersL"><span class="hs-identifier hs-var">paramsHeadersL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115305"><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 class="hs-special">)</span><span>
</span><a name="line-240"></a><span class="hs-identifier">setHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115034"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115035"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115036"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115037"><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">Header</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115034"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115035"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115036"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115037"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-241"></a><a name="setHeader"><a href="SwaggerPetstore.Core.html#setHeader"><span class="hs-identifier">setHeader</span></a></a><span> </span><a name="local-6989586621679115122"><a href="#local-6989586621679115122"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115123"><a href="#local-6989586621679115123"><span class="hs-identifier">header</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-242"></a><span> </span><a href="#local-6989586621679115122"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-6989586621679115123"><span class="hs-identifier hs-var">header</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span>
</span><a name="line-243"></a><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">over</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsHeadersL"><span class="hs-identifier hs-var">paramsHeadersL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115123"><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 class="hs-special">)</span><span>
</span><a name="line-244"></a><span>
</span><a name="line-245"></a><span class="hs-identifier">removeHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115212"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115213"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115214"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115215"><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">HeaderName</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115212"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115213"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115214"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115215"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-246"></a><a name="removeHeader"><a href="SwaggerPetstore.Core.html#removeHeader"><span class="hs-identifier">removeHeader</span></a></a><span> </span><a name="local-6989586621679115321"><a href="#local-6989586621679115321"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115322"><a href="#local-6989586621679115322"><span class="hs-identifier">header</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-247"></a><span> </span><a href="#local-6989586621679115321"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span>
</span><a name="line-245"></a><span class="hs-identifier">removeHeader</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115030"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115031"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115032"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115033"><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">HeaderName</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115030"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115031"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115032"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115033"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-246"></a><a name="removeHeader"><a href="SwaggerPetstore.Core.html#removeHeader"><span class="hs-identifier">removeHeader</span></a></a><span> </span><a name="local-6989586621679115139"><a href="#local-6989586621679115139"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115140"><a href="#local-6989586621679115140"><span class="hs-identifier">header</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-247"></a><span> </span><a href="#local-6989586621679115139"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span>
</span><a name="line-248"></a><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">over</span><span>
</span><a name="line-249"></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsHeadersL"><span class="hs-identifier hs-var">paramsHeadersL</span></a><span class="hs-special">)</span><span>
</span><a name="line-250"></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">filter</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679115719"><a href="#local-6989586621679115719"><span class="hs-identifier">h</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115323"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679115719"><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-6989586621679115322"><span class="hs-identifier hs-var">header</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-250"></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">filter</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679115537"><a href="#local-6989586621679115537"><span class="hs-identifier">h</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115141"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679115537"><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-6989586621679115140"><span class="hs-identifier hs-var">header</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-251"></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-252"></a><span> </span><a name="local-6989586621679115323"><a href="#local-6989586621679115323"><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-252"></a><span> </span><a name="local-6989586621679115141"><a href="#local-6989586621679115141"><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-253"></a><span>
</span><a name="line-254"></a><span>
</span><a name="line-255"></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-6989586621679115208"><a href="#local-6989586621679115208"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115209"><a href="#local-6989586621679115209"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679115210"><a href="#local-6989586621679115210"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679115211"><a href="#local-6989586621679115211"><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-6989586621679115209"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115208"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115209"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115210"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115211"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115208"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115209"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115210"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115211"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-256"></a><a name="_setContentTypeHeader"><a href="SwaggerPetstore.Core.html#_setContentTypeHeader"><span class="hs-identifier">_setContentTypeHeader</span></a></a><span> </span><a name="local-6989586621679115720"><a href="#local-6989586621679115720"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-257"></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-6989586621679115209"><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-258"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679115721"><a href="#local-6989586621679115721"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115720"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-6989586621679115721"><span class="hs-identifier hs-var">m</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-259"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115720"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-255"></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-6989586621679115026"><a href="#local-6989586621679115026"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115027"><a href="#local-6989586621679115027"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679115028"><a href="#local-6989586621679115028"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679115029"><a href="#local-6989586621679115029"><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-6989586621679115027"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115026"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115027"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115028"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115029"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115026"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115027"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115028"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115029"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-256"></a><a name="_setContentTypeHeader"><a href="SwaggerPetstore.Core.html#_setContentTypeHeader"><span class="hs-identifier">_setContentTypeHeader</span></a></a><span> </span><a name="local-6989586621679115538"><a href="#local-6989586621679115538"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-257"></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-6989586621679115027"><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-258"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679115539"><a href="#local-6989586621679115539"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115538"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-6989586621679115539"><span class="hs-identifier hs-var">m</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-259"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115538"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-260"></a><span>
</span><a name="line-261"></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-6989586621679115204"><a href="#local-6989586621679115204"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115205"><a href="#local-6989586621679115205"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679115206"><a href="#local-6989586621679115206"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679115207"><a href="#local-6989586621679115207"><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-6989586621679115207"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115204"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115205"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115206"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115207"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115204"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115205"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115206"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115207"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-262"></a><a name="_setAcceptHeader"><a href="SwaggerPetstore.Core.html#_setAcceptHeader"><span class="hs-identifier">_setAcceptHeader</span></a></a><span> </span><a name="local-6989586621679115722"><a href="#local-6989586621679115722"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-263"></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-6989586621679115207"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span> </span><span>
</span><a name="line-264"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679115723"><a href="#local-6989586621679115723"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115722"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-6989586621679115723"><span class="hs-identifier hs-var">m</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-265"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115722"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-261"></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-6989586621679115022"><a href="#local-6989586621679115022"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115023"><a href="#local-6989586621679115023"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679115024"><a href="#local-6989586621679115024"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679115025"><a href="#local-6989586621679115025"><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-6989586621679115025"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115022"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115023"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115024"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115025"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115022"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115023"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115024"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115025"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-262"></a><a name="_setAcceptHeader"><a href="SwaggerPetstore.Core.html#_setAcceptHeader"><span class="hs-identifier">_setAcceptHeader</span></a></a><span> </span><a name="local-6989586621679115540"><a href="#local-6989586621679115540"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-263"></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-6989586621679115025"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span> </span><span>
</span><a name="line-264"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679115541"><a href="#local-6989586621679115541"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115540"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-6989586621679115541"><span class="hs-identifier hs-var">m</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-265"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115540"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-special">`</span><a href="SwaggerPetstore.Core.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-266"></a><span>
</span><a name="line-267"></a><span class="hs-identifier">setQuery</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115200"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115201"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115202"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115203"><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">QueryItem</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115200"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115201"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115202"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115203"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-268"></a><a name="setQuery"><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier">setQuery</span></a></a><span> </span><a name="local-6989586621679115724"><a href="#local-6989586621679115724"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115725"><a href="#local-6989586621679115725"><span class="hs-identifier">query</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-269"></a><span> </span><a href="#local-6989586621679115724"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span>
</span><a name="line-267"></a><span class="hs-identifier">setQuery</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115018"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115019"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115020"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115021"><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">QueryItem</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115018"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115019"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115020"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115021"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-268"></a><a name="setQuery"><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier">setQuery</span></a></a><span> </span><a name="local-6989586621679115542"><a href="#local-6989586621679115542"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115543"><a href="#local-6989586621679115543"><span class="hs-identifier">query</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-269"></a><span> </span><a href="#local-6989586621679115542"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span>
</span><a name="line-270"></a><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">over</span><span>
</span><a name="line-271"></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsQueryL"><span class="hs-identifier hs-var">paramsQueryL</span></a><span class="hs-special">)</span><span>
</span><a name="line-272"></a><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><a href="#local-6989586621679115725"><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 class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">filter</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679115727"><a href="#local-6989586621679115727"><span class="hs-identifier">q</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115726"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679115727"><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-6989586621679115726"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679115725"><span class="hs-identifier hs-var">query</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-272"></a><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><a href="#local-6989586621679115543"><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 class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">filter</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679115545"><a href="#local-6989586621679115545"><span class="hs-identifier">q</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115544"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679115545"><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-6989586621679115544"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679115543"><span class="hs-identifier hs-var">query</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-273"></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-274"></a><span> </span><a name="local-6989586621679115726"><a href="#local-6989586621679115726"><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-274"></a><span> </span><a name="local-6989586621679115544"><a href="#local-6989586621679115544"><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-275"></a><span>
</span><a name="line-276"></a><span class="hs-identifier">addForm</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115196"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115197"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115198"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115199"><span class="hs-identifier hs-type">accept</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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115196"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115197"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115198"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115199"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-277"></a><a name="addForm"><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier">addForm</span></a></a><span> </span><a name="local-6989586621679115728"><a href="#local-6989586621679115728"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115729"><a href="#local-6989586621679115729"><span class="hs-identifier">newform</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-278"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679115730"><a href="#local-6989586621679115730"><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><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679115728"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-279"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><a name="local-6989586621679115731"><a href="#local-6989586621679115731"><span class="hs-identifier">_form</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115731"><span class="hs-identifier hs-var">_form</span></a><span>
</span><a name="line-276"></a><span class="hs-identifier">addForm</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115014"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115015"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115016"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115017"><span class="hs-identifier hs-type">accept</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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115014"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115015"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115016"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115017"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-277"></a><a name="addForm"><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier">addForm</span></a></a><span> </span><a name="local-6989586621679115546"><a href="#local-6989586621679115546"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115547"><a href="#local-6989586621679115547"><span class="hs-identifier">newform</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-278"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679115548"><a href="#local-6989586621679115548"><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><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679115546"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-279"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><a name="local-6989586621679115549"><a href="#local-6989586621679115549"><span class="hs-identifier">_form</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115549"><span class="hs-identifier hs-var">_form</span></a><span>
</span><a name="line-280"></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-281"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679115728"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">set</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier hs-var">paramsBodyL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115729"><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-6989586621679115730"><span class="hs-identifier hs-var">form</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-281"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679115546"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">set</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier hs-var">paramsBodyL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115547"><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-6989586621679115548"><span class="hs-identifier hs-var">form</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-282"></a><span>
</span><a name="line-283"></a><span class="hs-identifier">_addMultiFormPart</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115192"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115193"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115194"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115195"><span class="hs-identifier hs-type">accept</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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115192"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115193"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115194"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115195"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-284"></a><a name="_addMultiFormPart"><a href="SwaggerPetstore.Core.html#_addMultiFormPart"><span class="hs-identifier">_addMultiFormPart</span></a></a><span> </span><a name="local-6989586621679115732"><a href="#local-6989586621679115732"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115733"><a href="#local-6989586621679115733"><span class="hs-identifier">newpart</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-285"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679115734"><a href="#local-6989586621679115734"><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><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679115732"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-286"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><a name="local-6989586621679115735"><a href="#local-6989586621679115735"><span class="hs-identifier">_parts</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115735"><span class="hs-identifier hs-var">_parts</span></a><span>
</span><a name="line-283"></a><span class="hs-identifier">_addMultiFormPart</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115010"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115011"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115012"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115013"><span class="hs-identifier hs-type">accept</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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115010"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115011"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115012"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115013"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-284"></a><a name="_addMultiFormPart"><a href="SwaggerPetstore.Core.html#_addMultiFormPart"><span class="hs-identifier">_addMultiFormPart</span></a></a><span> </span><a name="local-6989586621679115550"><a href="#local-6989586621679115550"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115551"><a href="#local-6989586621679115551"><span class="hs-identifier">newpart</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-285"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679115552"><a href="#local-6989586621679115552"><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><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679115550"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-286"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><a name="local-6989586621679115553"><a href="#local-6989586621679115553"><span class="hs-identifier">_parts</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115553"><span class="hs-identifier hs-var">_parts</span></a><span>
</span><a name="line-287"></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-288"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679115732"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">set</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier hs-var">paramsBodyL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115733"><span class="hs-identifier hs-var">newpart</span></a><span> </span><span class="hs-glyph">:</span><span> </span><a href="#local-6989586621679115734"><span class="hs-identifier hs-var">parts</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-288"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679115550"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">set</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier hs-var">paramsBodyL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115551"><span class="hs-identifier hs-var">newpart</span></a><span> </span><span class="hs-glyph">:</span><span> </span><a href="#local-6989586621679115552"><span class="hs-identifier hs-var">parts</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-289"></a><span>
</span><a name="line-290"></a><span class="hs-identifier">_setBodyBS</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115188"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115189"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115190"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115191"><span class="hs-identifier hs-type">accept</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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115188"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115189"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115190"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115191"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-291"></a><a name="_setBodyBS"><a href="SwaggerPetstore.Core.html#_setBodyBS"><span class="hs-identifier">_setBodyBS</span></a></a><span> </span><a name="local-6989586621679115736"><a href="#local-6989586621679115736"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115737"><a href="#local-6989586621679115737"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-292"></a><span> </span><a href="#local-6989586621679115736"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">set</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier hs-var">paramsBodyL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#ParamBodyB"><span class="hs-identifier hs-var">ParamBodyB</span></a><span> </span><a href="#local-6989586621679115737"><span class="hs-identifier hs-var">body</span></a><span class="hs-special">)</span><span>
</span><a name="line-290"></a><span class="hs-identifier">_setBodyBS</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115006"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115007"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115008"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115009"><span class="hs-identifier hs-type">accept</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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115006"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115007"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115008"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115009"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-291"></a><a name="_setBodyBS"><a href="SwaggerPetstore.Core.html#_setBodyBS"><span class="hs-identifier">_setBodyBS</span></a></a><span> </span><a name="local-6989586621679115554"><a href="#local-6989586621679115554"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115555"><a href="#local-6989586621679115555"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-292"></a><span> </span><a href="#local-6989586621679115554"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">set</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier hs-var">paramsBodyL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#ParamBodyB"><span class="hs-identifier hs-var">ParamBodyB</span></a><span> </span><a href="#local-6989586621679115555"><span class="hs-identifier hs-var">body</span></a><span class="hs-special">)</span><span>
</span><a name="line-293"></a><span>
</span><a name="line-294"></a><span class="hs-identifier">_setBodyLBS</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115184"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115185"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115186"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115187"><span class="hs-identifier hs-type">accept</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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115184"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115185"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115186"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115187"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-295"></a><a name="_setBodyLBS"><a href="SwaggerPetstore.Core.html#_setBodyLBS"><span class="hs-identifier">_setBodyLBS</span></a></a><span> </span><a name="local-6989586621679115738"><a href="#local-6989586621679115738"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115739"><a href="#local-6989586621679115739"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-296"></a><span> </span><a href="#local-6989586621679115738"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">set</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier hs-var">paramsBodyL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#ParamBodyBL"><span class="hs-identifier hs-var">ParamBodyBL</span></a><span> </span><a href="#local-6989586621679115739"><span class="hs-identifier hs-var">body</span></a><span class="hs-special">)</span><span>
</span><a name="line-294"></a><span class="hs-identifier">_setBodyLBS</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115002"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115003"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115004"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115005"><span class="hs-identifier hs-type">accept</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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115002"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115003"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115004"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115005"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-295"></a><a name="_setBodyLBS"><a href="SwaggerPetstore.Core.html#_setBodyLBS"><span class="hs-identifier">_setBodyLBS</span></a></a><span> </span><a name="local-6989586621679115556"><a href="#local-6989586621679115556"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115557"><a href="#local-6989586621679115557"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
</span><a name="line-296"></a><span> </span><a href="#local-6989586621679115556"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">set</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier hs-var">rParamsL</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier hs-var">paramsBodyL</span></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#ParamBodyBL"><span class="hs-identifier hs-var">ParamBodyBL</span></a><span> </span><a href="#local-6989586621679115557"><span class="hs-identifier hs-var">body</span></a><span class="hs-special">)</span><span>
</span><a name="line-297"></a><span>
</span><a name="line-298"></a><span class="hs-identifier">_hasAuthType</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier hs-type">AuthMethod</span></a><span> </span><a href="#local-6989586621679115179"><span class="hs-identifier hs-type">authMethod</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115180"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115181"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115182"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115183"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679115179"><span class="hs-identifier hs-type">authMethod</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679115180"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679115181"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115182"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115183"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-299"></a><a name="_hasAuthType"><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier">_hasAuthType</span></a></a><span> </span><a name="local-6989586621679115740"><a href="#local-6989586621679115740"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115741"><a href="#local-6989586621679115741"><span class="hs-identifier">proxy</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-300"></a><span> </span><a href="#local-6989586621679115740"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">over</span><span> </span><a href="SwaggerPetstore.Core.html#rAuthTypesL"><span class="hs-identifier hs-var">rAuthTypesL</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">typeRep</span><span> </span><a href="#local-6989586621679115741"><span class="hs-identifier hs-var">proxy</span></a><span> </span><span class="hs-glyph">:</span><span class="hs-special">)</span><span>
</span><a name="line-298"></a><span class="hs-identifier">_hasAuthType</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier hs-type">AuthMethod</span></a><span> </span><a href="#local-6989586621679114997"><span class="hs-identifier hs-type">authMethod</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114998"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114999"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115000"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115001"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679114997"><span class="hs-identifier hs-type">authMethod</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114998"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114999"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679115000"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679115001"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-299"></a><a name="_hasAuthType"><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier">_hasAuthType</span></a></a><span> </span><a name="local-6989586621679115558"><a href="#local-6989586621679115558"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115559"><a href="#local-6989586621679115559"><span class="hs-identifier">proxy</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-300"></a><span> </span><a href="#local-6989586621679115558"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&amp;</span><span> </span><span class="hs-identifier hs-var">L</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">over</span><span> </span><a href="SwaggerPetstore.Core.html#rAuthTypesL"><span class="hs-identifier hs-var">rAuthTypesL</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">typeRep</span><span> </span><a href="#local-6989586621679115559"><span class="hs-identifier hs-var">proxy</span></a><span> </span><span class="hs-glyph">:</span><span class="hs-special">)</span><span>
</span><a name="line-301"></a><span>
</span><a name="line-302"></a><span class="hs-comment">-- ** Params Utils</span><span>
</span><a name="line-303"></a><span>
</span><a name="line-304"></a><span class="hs-identifier">toPath</span><span>
</span><a name="line-305"></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-6989586621679115178"><span class="hs-identifier hs-type">a</span></a><span>
</span><a name="line-306"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679115178"><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-305"></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-6989586621679114996"><span class="hs-identifier hs-type">a</span></a><span>
</span><a name="line-306"></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679114996"><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-307"></a><a name="toPath"><a href="SwaggerPetstore.Core.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-308"></a><span>
</span><a name="line-309"></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-6989586621679115177"><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-6989586621679115177"><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-310"></a><a name="toHeader"><a href="SwaggerPetstore.Core.html#toHeader"><span class="hs-identifier">toHeader</span></a></a><span> </span><a name="local-6989586621679115742"><a href="#local-6989586621679115742"><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-6989586621679115742"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
</span><a name="line-309"></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-6989586621679114995"><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-6989586621679114995"><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-310"></a><a name="toHeader"><a href="SwaggerPetstore.Core.html#toHeader"><span class="hs-identifier">toHeader</span></a></a><span> </span><a name="local-6989586621679115560"><a href="#local-6989586621679115560"><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-6989586621679115560"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
</span><a name="line-311"></a><span>
</span><a name="line-312"></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-6989586621679115176"><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-6989586621679115176"><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-313"></a><a name="toForm"><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier">toForm</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679115743"><a href="#local-6989586621679115743"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679115744"><a href="#local-6989586621679115744"><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-6989586621679115743"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">,</span><a href="#local-6989586621679115744"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-312"></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-6989586621679114994"><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-6989586621679114994"><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-313"></a><a name="toForm"><a href="SwaggerPetstore.Core.html#toForm"><span class="hs-identifier">toForm</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679115561"><a href="#local-6989586621679115561"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679115562"><a href="#local-6989586621679115562"><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-6989586621679115561"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">,</span><a href="#local-6989586621679115562"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-314"></a><span>
</span><a name="line-315"></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-6989586621679115175"><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-6989586621679115175"><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-316"></a><a name="toQuery"><a href="SwaggerPetstore.Core.html#toQuery"><span class="hs-identifier">toQuery</span></a></a><span> </span><a name="local-6989586621679115745"><a href="#local-6989586621679115745"><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-6989586621679115746"><span class="hs-identifier hs-var">toQueryParam</span></a><span> </span><a href="#local-6989586621679115745"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
</span><a name="line-317"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679115746"><a href="#local-6989586621679115746"><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-315"></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-6989586621679114993"><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-6989586621679114993"><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-316"></a><a name="toQuery"><a href="SwaggerPetstore.Core.html#toQuery"><span class="hs-identifier">toQuery</span></a></a><span> </span><a name="local-6989586621679115563"><a href="#local-6989586621679115563"><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-6989586621679115564"><span class="hs-identifier hs-var">toQueryParam</span></a><span> </span><a href="#local-6989586621679115563"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
</span><a name="line-317"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679115564"><a href="#local-6989586621679115564"><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-318"></a><span>
</span><a name="line-319"></a><span class="hs-comment">-- *** Swagger `CollectionFormat` Utils</span><span>
</span><a name="line-320"></a><span>
@ -326,38 +326,38 @@ Module : SwaggerPetstore.Core
</span><a name="line-326"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="PipeSeparated"><a href="SwaggerPetstore.Core.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-327"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="MultiParamArray"><a href="SwaggerPetstore.Core.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-328"></a><span>
</span><a name="line-329"></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-6989586621679115174"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679115174"><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-330"></a><a name="toHeaderColl"><a href="SwaggerPetstore.Core.html#toHeaderColl"><span class="hs-identifier">toHeaderColl</span></a></a><span> </span><a name="local-6989586621679115747"><a href="#local-6989586621679115747"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679115748"><a href="#local-6989586621679115748"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_toColl"><span class="hs-identifier hs-var">_toColl</span></a><span> </span><a href="#local-6989586621679115747"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.Core.html#toHeader"><span class="hs-identifier hs-var">toHeader</span></a><span> </span><a href="#local-6989586621679115748"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-329"></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-6989586621679114992"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679114992"><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-330"></a><a name="toHeaderColl"><a href="SwaggerPetstore.Core.html#toHeaderColl"><span class="hs-identifier">toHeaderColl</span></a></a><span> </span><a name="local-6989586621679115565"><a href="#local-6989586621679115565"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679115566"><a href="#local-6989586621679115566"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_toColl"><span class="hs-identifier hs-var">_toColl</span></a><span> </span><a href="#local-6989586621679115565"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.Core.html#toHeader"><span class="hs-identifier hs-var">toHeader</span></a><span> </span><a href="#local-6989586621679115566"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-331"></a><span>
</span><a name="line-332"></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-6989586621679115173"><span class="hs-identifier hs-type">v</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679115173"><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-333"></a><a name="toFormColl"><a href="SwaggerPetstore.Core.html#toFormColl"><span class="hs-identifier">toFormColl</span></a></a><span> </span><a name="local-6989586621679115749"><a href="#local-6989586621679115749"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679115750"><a href="#local-6989586621679115750"><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-6989586621679115752"><span class="hs-identifier hs-var">unpack</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="SwaggerPetstore.Core.html#_toColl"><span class="hs-identifier hs-var">_toColl</span></a><span> </span><a href="#local-6989586621679115749"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.Core.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-6989586621679115751"><span class="hs-identifier hs-var">pack</span></a><span> </span><a href="#local-6989586621679115750"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-332"></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-6989586621679114991"><span class="hs-identifier hs-type">v</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679114991"><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-333"></a><a name="toFormColl"><a href="SwaggerPetstore.Core.html#toFormColl"><span class="hs-identifier">toFormColl</span></a></a><span> </span><a name="local-6989586621679115567"><a href="#local-6989586621679115567"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679115568"><a href="#local-6989586621679115568"><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-6989586621679115570"><span class="hs-identifier hs-var">unpack</span></a><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="SwaggerPetstore.Core.html#_toColl"><span class="hs-identifier hs-var">_toColl</span></a><span> </span><a href="#local-6989586621679115567"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.Core.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-6989586621679115569"><span class="hs-identifier hs-var">pack</span></a><span> </span><a href="#local-6989586621679115568"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-334"></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-335"></a><span> </span><a name="local-6989586621679115751"><a href="#local-6989586621679115751"><span class="hs-identifier">pack</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679115753"><a href="#local-6989586621679115753"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679115754"><a href="#local-6989586621679115754"><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-6989586621679115753"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679115754"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span>
</span><a name="line-336"></a><span> </span><a name="local-6989586621679115752"><a href="#local-6989586621679115752"><span class="hs-identifier">unpack</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679115755"><a href="#local-6989586621679115755"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679115756"><a href="#local-6989586621679115756"><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-6989586621679115755"><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-6989586621679115756"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span>
</span><a name="line-335"></a><span> </span><a name="local-6989586621679115569"><a href="#local-6989586621679115569"><span class="hs-identifier">pack</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679115571"><a href="#local-6989586621679115571"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679115572"><a href="#local-6989586621679115572"><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-6989586621679115571"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679115572"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span>
</span><a name="line-336"></a><span> </span><a name="local-6989586621679115570"><a href="#local-6989586621679115570"><span class="hs-identifier">unpack</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679115573"><a href="#local-6989586621679115573"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679115574"><a href="#local-6989586621679115574"><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-6989586621679115573"><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-6989586621679115574"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span>
</span><a name="line-337"></a><span>
</span><a name="line-338"></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-6989586621679115172"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679115172"><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-339"></a><a name="toQueryColl"><a href="SwaggerPetstore.Core.html#toQueryColl"><span class="hs-identifier">toQueryColl</span></a></a><span> </span><a name="local-6989586621679115757"><a href="#local-6989586621679115757"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679115758"><a href="#local-6989586621679115758"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_toCollA"><span class="hs-identifier hs-var">_toCollA</span></a><span> </span><a href="#local-6989586621679115757"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.Core.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><a href="#local-6989586621679115758"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-338"></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-6989586621679114990"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679114990"><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-339"></a><a name="toQueryColl"><a href="SwaggerPetstore.Core.html#toQueryColl"><span class="hs-identifier">toQueryColl</span></a></a><span> </span><a name="local-6989586621679115575"><a href="#local-6989586621679115575"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679115576"><a href="#local-6989586621679115576"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_toCollA"><span class="hs-identifier hs-var">_toCollA</span></a><span> </span><a href="#local-6989586621679115575"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="SwaggerPetstore.Core.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><a href="#local-6989586621679115576"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-340"></a><span>
</span><a name="line-341"></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-6989586621679115169"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679115169"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679115170"><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-6989586621679115171"><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-6989586621679115169"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679115170"><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-6989586621679115171"><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-342"></a><a name="_toColl"><a href="SwaggerPetstore.Core.html#_toColl"><span class="hs-identifier">_toColl</span></a></a><span> </span><a name="local-6989586621679115759"><a href="#local-6989586621679115759"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679115760"><a href="#local-6989586621679115760"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679115761"><a href="#local-6989586621679115761"><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.Core.html#_toCollA%27"><span class="hs-identifier hs-var">_toCollA'</span></a><span> </span><a href="#local-6989586621679115759"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="#local-6989586621679115762"><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-6989586621679115761"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-343"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679115762"><a href="#local-6989586621679115762"><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-6989586621679115760"><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-341"></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-6989586621679114987"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.Core.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-6989586621679114987"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679114988"><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-6989586621679114989"><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-6989586621679114987"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679114988"><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-6989586621679114989"><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-342"></a><a name="_toColl"><a href="SwaggerPetstore.Core.html#_toColl"><span class="hs-identifier">_toColl</span></a></a><span> </span><a name="local-6989586621679115577"><a href="#local-6989586621679115577"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679115578"><a href="#local-6989586621679115578"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679115579"><a href="#local-6989586621679115579"><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.Core.html#_toCollA%27"><span class="hs-identifier hs-var">_toCollA'</span></a><span> </span><a href="#local-6989586621679115577"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="#local-6989586621679115580"><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-6989586621679115579"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><a name="line-343"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679115580"><a href="#local-6989586621679115580"><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-6989586621679115578"><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-344"></a><span> </span><span class="hs-pragma">{-# INLINE fencode #-}</span><span>
</span><a name="line-345"></a><span>
</span><a name="line-346"></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-6989586621679115165"><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-6989586621679115166"><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-6989586621679115166"><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.Core.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-6989586621679115165"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115166"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679115167"><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-6989586621679115168"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679115166"><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-6989586621679115165"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115166"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679115167"><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-6989586621679115168"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679115166"><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-347"></a><a name="_toCollA"><a href="SwaggerPetstore.Core.html#_toCollA"><span class="hs-identifier">_toCollA</span></a></a><span> </span><a name="local-6989586621679115763"><a href="#local-6989586621679115763"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679115764"><a href="#local-6989586621679115764"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679115765"><a href="#local-6989586621679115765"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_toCollA%27"><span class="hs-identifier hs-var">_toCollA'</span></a><span> </span><a href="#local-6989586621679115763"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="#local-6989586621679115764"><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-6989586621679115765"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-346"></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-6989586621679114983"><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-6989586621679114984"><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-6989586621679114984"><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.Core.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-6989586621679114983"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114984"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679114985"><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-6989586621679114986"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679114984"><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-6989586621679114983"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114984"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679114985"><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-6989586621679114986"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679114984"><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-347"></a><a name="_toCollA"><a href="SwaggerPetstore.Core.html#_toCollA"><span class="hs-identifier">_toCollA</span></a></a><span> </span><a name="local-6989586621679115581"><a href="#local-6989586621679115581"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679115582"><a href="#local-6989586621679115582"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679115583"><a href="#local-6989586621679115583"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_toCollA%27"><span class="hs-identifier hs-var">_toCollA'</span></a><span> </span><a href="#local-6989586621679115581"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="#local-6989586621679115582"><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-6989586621679115583"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-348"></a><span>
</span><a name="line-349"></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-6989586621679114809"><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-6989586621679114810"><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-6989586621679114811"><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-6989586621679114811"><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.Core.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-6989586621679114810"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114811"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679114812"><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-6989586621679114813"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679114811"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679114809"><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-6989586621679114809"><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-6989586621679114810"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114811"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679114812"><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-6989586621679114813"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679114811"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679114809"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-350"></a><a name="_toCollA%27"><a href="SwaggerPetstore.Core.html#_toCollA%27"><span class="hs-identifier">_toCollA'</span></a></a><span> </span><a name="local-6989586621679115766"><a href="#local-6989586621679115766"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679115767"><a href="#local-6989586621679115767"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679115768"><a href="#local-6989586621679115768"><span class="hs-identifier">one</span></a></a><span> </span><a name="local-6989586621679115769"><a href="#local-6989586621679115769"><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-6989586621679115766"><span class="hs-identifier hs-var">c</span></a><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-351"></a><span> </span><a href="SwaggerPetstore.Core.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115770"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115768"><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-352"></a><span> </span><a href="SwaggerPetstore.Core.html#SpaceSeparated"><span class="hs-identifier hs-var">SpaceSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115770"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115768"><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-353"></a><span> </span><a href="SwaggerPetstore.Core.html#TabSeparated"><span class="hs-identifier hs-var">TabSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115770"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115768"><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-354"></a><span> </span><a href="SwaggerPetstore.Core.html#PipeSeparated"><span class="hs-identifier hs-var">PipeSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115770"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115768"><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-355"></a><span> </span><a href="SwaggerPetstore.Core.html#MultiParamArray"><span class="hs-identifier hs-var">MultiParamArray</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115772"><span class="hs-identifier hs-var">expandList</span></a><span>
</span><a name="line-349"></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-6989586621679114627"><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-6989586621679114628"><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-6989586621679114629"><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-6989586621679114629"><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.Core.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-6989586621679114628"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114629"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679114630"><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-6989586621679114631"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679114629"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679114627"><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-6989586621679114627"><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-6989586621679114628"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114629"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679114630"><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-6989586621679114631"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679114629"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679114627"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><a name="line-350"></a><a name="_toCollA%27"><a href="SwaggerPetstore.Core.html#_toCollA%27"><span class="hs-identifier">_toCollA'</span></a></a><span> </span><a name="local-6989586621679115584"><a href="#local-6989586621679115584"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679115585"><a href="#local-6989586621679115585"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679115586"><a href="#local-6989586621679115586"><span class="hs-identifier">one</span></a></a><span> </span><a name="local-6989586621679115587"><a href="#local-6989586621679115587"><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-6989586621679115584"><span class="hs-identifier hs-var">c</span></a><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-351"></a><span> </span><a href="SwaggerPetstore.Core.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115588"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115586"><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-352"></a><span> </span><a href="SwaggerPetstore.Core.html#SpaceSeparated"><span class="hs-identifier hs-var">SpaceSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115588"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115586"><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-353"></a><span> </span><a href="SwaggerPetstore.Core.html#TabSeparated"><span class="hs-identifier hs-var">TabSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115588"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115586"><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-354"></a><span> </span><a href="SwaggerPetstore.Core.html#PipeSeparated"><span class="hs-identifier hs-var">PipeSeparated</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115588"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115586"><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-355"></a><span> </span><a href="SwaggerPetstore.Core.html#MultiParamArray"><span class="hs-identifier hs-var">MultiParamArray</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679115590"><span class="hs-identifier hs-var">expandList</span></a><span>
</span><a name="line-356"></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-357"></a><span> </span><a name="local-6989586621679115770"><a href="#local-6989586621679115770"><span class="hs-identifier">go</span></a></a><span> </span><a name="local-6989586621679115773"><a href="#local-6989586621679115773"><span class="hs-identifier">sep</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-358"></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-6989586621679115774"><a href="#local-6989586621679115774"><span class="hs-identifier">sk</span></a></a><span class="hs-special">,</span><span> </span><a name="local-6989586621679115775"><a href="#local-6989586621679115775"><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-6989586621679115776"><a href="#local-6989586621679115776"><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-6989586621679115774"><span class="hs-identifier hs-var">sk</span></a><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115771"><span class="hs-identifier hs-var">combine</span></a><span> </span><a href="#local-6989586621679115773"><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-6989586621679115775"><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-6989586621679115776"><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-6989586621679115775"><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-6989586621679115776"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679115772"><span class="hs-identifier hs-var">expandList</span></a><span class="hs-special">]</span><span>
</span><a name="line-359"></a><span> </span><a name="local-6989586621679115771"><a href="#local-6989586621679115771"><span class="hs-identifier">combine</span></a></a><span> </span><a name="local-6989586621679115777"><a href="#local-6989586621679115777"><span class="hs-identifier">sep</span></a></a><span> </span><a name="local-6989586621679115778"><a href="#local-6989586621679115778"><span class="hs-identifier">x</span></a></a><span> </span><a name="local-6989586621679115779"><a href="#local-6989586621679115779"><span class="hs-identifier">y</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679115778"><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-6989586621679115777"><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-6989586621679115779"><span class="hs-identifier hs-var">y</span></a><span>
</span><a name="line-360"></a><span> </span><a name="local-6989586621679115772"><a href="#local-6989586621679115772"><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-6989586621679115767"><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-6989586621679115769"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-357"></a><span> </span><a name="local-6989586621679115588"><a href="#local-6989586621679115588"><span class="hs-identifier">go</span></a></a><span> </span><a name="local-6989586621679115591"><a href="#local-6989586621679115591"><span class="hs-identifier">sep</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-358"></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-6989586621679115592"><a href="#local-6989586621679115592"><span class="hs-identifier">sk</span></a></a><span class="hs-special">,</span><span> </span><a name="local-6989586621679115593"><a href="#local-6989586621679115593"><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-6989586621679115594"><a href="#local-6989586621679115594"><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-6989586621679115592"><span class="hs-identifier hs-var">sk</span></a><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115589"><span class="hs-identifier hs-var">combine</span></a><span> </span><a href="#local-6989586621679115591"><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-6989586621679115593"><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-6989586621679115594"><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-6989586621679115593"><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-6989586621679115594"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679115590"><span class="hs-identifier hs-var">expandList</span></a><span class="hs-special">]</span><span>
</span><a name="line-359"></a><span> </span><a name="local-6989586621679115589"><a href="#local-6989586621679115589"><span class="hs-identifier">combine</span></a></a><span> </span><a name="local-6989586621679115595"><a href="#local-6989586621679115595"><span class="hs-identifier">sep</span></a></a><span> </span><a name="local-6989586621679115596"><a href="#local-6989586621679115596"><span class="hs-identifier">x</span></a></a><span> </span><a name="local-6989586621679115597"><a href="#local-6989586621679115597"><span class="hs-identifier">y</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679115596"><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-6989586621679115595"><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-6989586621679115597"><span class="hs-identifier hs-var">y</span></a><span>
</span><a name="line-360"></a><span> </span><a name="local-6989586621679115590"><a href="#local-6989586621679115590"><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-6989586621679115585"><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-6989586621679115587"><span class="hs-identifier hs-var">xs</span></a><span>
</span><a name="line-361"></a><span> </span><span class="hs-pragma">{-# INLINE go #-}</span><span>
</span><a name="line-362"></a><span> </span><span class="hs-pragma">{-# INLINE expandList #-}</span><span>
</span><a name="line-363"></a><span> </span><span class="hs-pragma">{-# INLINE combine #-}</span><span>
@ -365,18 +365,18 @@ Module : SwaggerPetstore.Core
</span><a name="line-365"></a><span class="hs-comment">-- * AuthMethods</span><span>
</span><a name="line-366"></a><span>
</span><a name="line-367"></a><span class="hs-comment">-- | Provides a method to apply auth methods to requests</span><span>
</span><a name="line-368"></a><span class="hs-keyword">class</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span> </span><a href="#local-6989586621679113941"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span>
</span><a name="line-369"></a><span> </span><a name="AuthMethod"><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier">AuthMethod</span></a></a><span> </span><a name="local-6989586621679113941"><a href="#local-6989586621679113941"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-368"></a><span class="hs-keyword">class</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span> </span><a href="#local-6989586621679113759"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span>
</span><a name="line-369"></a><span> </span><a name="AuthMethod"><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier">AuthMethod</span></a></a><span> </span><a name="local-6989586621679113759"><a href="#local-6989586621679113759"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-370"></a><span> </span><span class="hs-identifier">applyAuthMethod</span><span>
</span><a name="line-371"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
</span><a name="line-372"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679113941"><span class="hs-identifier hs-type">a</span></a><span>
</span><a name="line-373"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679113942"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679113943"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679113944"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679113945"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-374"></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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679113942"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679113943"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679113944"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679113945"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span>
</span><a name="line-372"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679113759"><span class="hs-identifier hs-type">a</span></a><span>
</span><a name="line-373"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679113760"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679113761"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679113762"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679113763"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-374"></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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679113760"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679113761"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679113762"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679113763"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span>
</span><a name="line-375"></a><span>
</span><a name="line-376"></a><span class="hs-comment">-- | An existential wrapper for any AuthMethod</span><span>
</span><a name="line-377"></a><span class="hs-keyword">data</span><span> </span><a name="AnyAuthMethod"><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier">AnyAuthMethod</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679113940"><a href="#local-6989586621679113940"><span class="hs-identifier">a</span></a></a><span class="hs-operator">.</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier hs-type">AuthMethod</span></a><span> </span><a href="#local-6989586621679113940"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="AnyAuthMethod"><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier">AnyAuthMethod</span></a></a><span> </span><a href="#local-6989586621679113940"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
</span><a name="line-377"></a><span class="hs-keyword">data</span><span> </span><a name="AnyAuthMethod"><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier">AnyAuthMethod</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679113758"><a href="#local-6989586621679113758"><span class="hs-identifier">a</span></a></a><span class="hs-operator">.</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier hs-type">AuthMethod</span></a><span> </span><a href="#local-6989586621679113758"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="AnyAuthMethod"><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier">AnyAuthMethod</span></a></a><span> </span><a href="#local-6989586621679113758"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
</span><a name="line-378"></a><span>
</span><a name="line-379"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier hs-type">AuthMethod</span></a><span> </span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-type">AnyAuthMethod</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323887729"><a href="SwaggerPetstore.Core.html#applyAuthMethod"><span class="hs-identifier">applyAuthMethod</span></a></a><span> </span><a name="local-6989586621679114787"><a href="#local-6989586621679114787"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-var">AnyAuthMethod</span></a><span> </span><a name="local-6989586621679114788"><a href="#local-6989586621679114788"><span class="hs-identifier">a</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679114789"><a href="#local-6989586621679114789"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#applyAuthMethod"><span class="hs-identifier hs-var">applyAuthMethod</span></a><span> </span><a href="#local-6989586621679114787"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679114788"><span class="hs-identifier hs-var">a</span></a><span> </span><a href="#local-6989586621679114789"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-379"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethod"><span class="hs-identifier hs-type">AuthMethod</span></a><span> </span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-type">AnyAuthMethod</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323887547"><a href="SwaggerPetstore.Core.html#applyAuthMethod"><span class="hs-identifier">applyAuthMethod</span></a></a><span> </span><a name="local-6989586621679114605"><a href="#local-6989586621679114605"><span class="hs-identifier">config</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-var">AnyAuthMethod</span></a><span> </span><a name="local-6989586621679114606"><a href="#local-6989586621679114606"><span class="hs-identifier">a</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679114607"><a href="#local-6989586621679114607"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#applyAuthMethod"><span class="hs-identifier hs-var">applyAuthMethod</span></a><span> </span><a href="#local-6989586621679114605"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679114606"><span class="hs-identifier hs-var">a</span></a><span> </span><a href="#local-6989586621679114607"><span class="hs-identifier hs-var">req</span></a><span>
</span><a name="line-380"></a><span>
</span><a name="line-381"></a><span class="hs-comment">-- | indicates exceptions related to AuthMethods</span><span>
</span><a name="line-382"></a><span class="hs-keyword">data</span><span> </span><a name="AuthMethodException"><a href="SwaggerPetstore.Core.html#AuthMethodException"><span class="hs-identifier">AuthMethodException</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="AuthMethodException"><a href="SwaggerPetstore.Core.html#AuthMethodException"><span class="hs-identifier">AuthMethodException</span></a></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
@ -385,37 +385,37 @@ Module : SwaggerPetstore.Core
</span><a name="line-385"></a><span>
</span><a name="line-386"></a><span class="hs-comment">-- | apply all matching AuthMethods in config to request</span><span>
</span><a name="line-387"></a><span class="hs-identifier">_applyAuthMethods</span><span>
</span><a name="line-388"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114805"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114806"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114807"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114808"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-388"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114623"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114624"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114625"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114626"><span class="hs-identifier hs-type">accept</span></a><span>
</span><a name="line-389"></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
</span><a name="line-390"></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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114805"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114806"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114807"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114808"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span>
</span><a name="line-391"></a><a name="_applyAuthMethods"><a href="SwaggerPetstore.Core.html#_applyAuthMethods"><span class="hs-identifier">_applyAuthMethods</span></a></a><span> </span><a name="local-6989586621679115780"><a href="#local-6989586621679115780"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115781"><a href="#local-6989586621679115781"><span class="hs-identifier">config</span></a></a><span class="hs-glyph">@</span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-var">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-special">{</span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">as</span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-392"></a><span> </span><span class="hs-identifier hs-var">foldlM</span><span> </span><a href="#local-6989586621679115783"><span class="hs-identifier hs-var">go</span></a><span> </span><a href="#local-6989586621679115780"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-keyword">as</span><span>
</span><a name="line-390"></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.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679114623"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679114624"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679114625"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679114626"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span>
</span><a name="line-391"></a><a name="_applyAuthMethods"><a href="SwaggerPetstore.Core.html#_applyAuthMethods"><span class="hs-identifier">_applyAuthMethods</span></a></a><span> </span><a name="local-6989586621679115598"><a href="#local-6989586621679115598"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679115599"><a href="#local-6989586621679115599"><span class="hs-identifier">config</span></a></a><span class="hs-glyph">@</span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-var">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-special">{</span><span class="hs-identifier">configAuthMethods</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">as</span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-392"></a><span> </span><span class="hs-identifier hs-var">foldlM</span><span> </span><a href="#local-6989586621679115601"><span class="hs-identifier hs-var">go</span></a><span> </span><a href="#local-6989586621679115598"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-keyword">as</span><span>
</span><a name="line-393"></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-394"></a><span> </span><a name="local-6989586621679115783"><a href="#local-6989586621679115783"><span class="hs-identifier">go</span></a></a><span> </span><a name="local-6989586621679115784"><a href="#local-6989586621679115784"><span class="hs-identifier">r</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-var">AnyAuthMethod</span></a><span> </span><a name="local-6989586621679115785"><a href="#local-6989586621679115785"><span class="hs-identifier">a</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#applyAuthMethod"><span class="hs-identifier hs-var">applyAuthMethod</span></a><span> </span><a href="#local-6989586621679115781"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679115785"><span class="hs-identifier hs-var">a</span></a><span> </span><a href="#local-6989586621679115784"><span class="hs-identifier hs-var">r</span></a><span>
</span><a name="line-394"></a><span> </span><a name="local-6989586621679115601"><a href="#local-6989586621679115601"><span class="hs-identifier">go</span></a></a><span> </span><a name="local-6989586621679115602"><a href="#local-6989586621679115602"><span class="hs-identifier">r</span></a></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-var">AnyAuthMethod</span></a><span> </span><a name="local-6989586621679115603"><a href="#local-6989586621679115603"><span class="hs-identifier">a</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#applyAuthMethod"><span class="hs-identifier hs-var">applyAuthMethod</span></a><span> </span><a href="#local-6989586621679115599"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679115603"><span class="hs-identifier hs-var">a</span></a><span> </span><a href="#local-6989586621679115602"><span class="hs-identifier hs-var">r</span></a><span>
</span><a name="line-395"></a><span> </span><span>
</span><a name="line-396"></a><span class="hs-comment">-- * Utils</span><span>
</span><a name="line-397"></a><span>
</span><a name="line-398"></a><span class="hs-comment">-- | Removes Null fields. (OpenAPI-Specification 2.0 does not allow Null in JSON)</span><span>
</span><a name="line-399"></a><span class="hs-identifier">_omitNulls</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Value</span><span class="hs-special">)</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Value</span><span>
</span><a name="line-400"></a><a name="_omitNulls"><a href="SwaggerPetstore.Core.html#_omitNulls"><span class="hs-identifier">_omitNulls</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">object</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">filter</span><span> </span><a href="#local-6989586621679115786"><span class="hs-identifier hs-var">notNull</span></a><span>
</span><a name="line-400"></a><a name="_omitNulls"><a href="SwaggerPetstore.Core.html#_omitNulls"><span class="hs-identifier">_omitNulls</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">object</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">filter</span><span> </span><a href="#local-6989586621679115604"><span class="hs-identifier hs-var">notNull</span></a><span>
</span><a name="line-401"></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-402"></a><span> </span><a name="local-6989586621679115786"><a href="#local-6989586621679115786"><span class="hs-identifier">notNull</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">_</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Null</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">False</span><span>
</span><a name="line-402"></a><span> </span><a name="local-6989586621679115604"><a href="#local-6989586621679115604"><span class="hs-identifier">notNull</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">_</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Null</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">False</span><span>
</span><a name="line-403"></a><span> </span><span class="hs-identifier">notNull</span><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">True</span><span>
</span><a name="line-404"></a><span>
</span><a name="line-405"></a><span class="hs-comment">-- | Encodes fields using WH.toQueryParam</span><span>
</span><a name="line-406"></a><span class="hs-identifier">_toFormItem</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="#local-6989586621679114802"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Functor</span><span> </span><a href="#local-6989586621679114803"><span class="hs-identifier hs-type">f</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679114804"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679114803"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679114802"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679114803"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114804"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><a name="line-407"></a><a name="_toFormItem"><a href="SwaggerPetstore.Core.html#_toFormItem"><span class="hs-identifier">_toFormItem</span></a></a><span> </span><a name="local-6989586621679115787"><a href="#local-6989586621679115787"><span class="hs-identifier">name</span></a></a><span> </span><a name="local-6989586621679115788"><a href="#local-6989586621679115788"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115787"><span class="hs-identifier hs-var">name</span></a><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">:</span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toQueryParam</span><span> </span><span class="hs-operator hs-var">&lt;$&gt;</span><span> </span><a href="#local-6989586621679115788"><span class="hs-identifier hs-var">x</span></a><span>
</span><a name="line-406"></a><span class="hs-identifier">_toFormItem</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="#local-6989586621679114620"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Functor</span><span> </span><a href="#local-6989586621679114621"><span class="hs-identifier hs-type">f</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679114622"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679114621"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679114620"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679114621"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114622"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
</span><a name="line-407"></a><a name="_toFormItem"><a href="SwaggerPetstore.Core.html#_toFormItem"><span class="hs-identifier">_toFormItem</span></a></a><span> </span><a name="local-6989586621679115605"><a href="#local-6989586621679115605"><span class="hs-identifier">name</span></a></a><span> </span><a name="local-6989586621679115606"><a href="#local-6989586621679115606"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679115605"><span class="hs-identifier hs-var">name</span></a><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">:</span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toQueryParam</span><span> </span><span class="hs-operator hs-var">&lt;$&gt;</span><span> </span><a href="#local-6989586621679115606"><span class="hs-identifier hs-var">x</span></a><span>
</span><a name="line-408"></a><span>
</span><a name="line-409"></a><span class="hs-comment">-- | Collapse (Just &quot;&quot;) to Nothing</span><span>
</span><a name="line-410"></a><span class="hs-identifier">_emptyToNothing</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">String</span><span>
</span><a name="line-411"></a><a name="_emptyToNothing"><a href="SwaggerPetstore.Core.html#_emptyToNothing"><span class="hs-identifier">_emptyToNothing</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-string">&quot;&quot;</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
</span><a name="line-412"></a><span class="hs-identifier">_emptyToNothing</span><span> </span><a name="local-6989586621679115789"><a href="#local-6989586621679115789"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679115789"><span class="hs-identifier hs-var">x</span></a><span>
</span><a name="line-412"></a><span class="hs-identifier">_emptyToNothing</span><span> </span><a name="local-6989586621679115607"><a href="#local-6989586621679115607"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679115607"><span class="hs-identifier hs-var">x</span></a><span>
</span><a name="line-413"></a><span class="hs-pragma">{-# INLINE _emptyToNothing #-}</span><span>
</span><a name="line-414"></a><span>
</span><a name="line-415"></a><span class="hs-comment">-- | Collapse (Just mempty) to Nothing</span><span>
</span><a name="line-416"></a><span class="hs-identifier">_memptyToNothing</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Monoid</span><span> </span><a href="#local-6989586621679114801"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span> </span><a href="#local-6989586621679114801"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679114801"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679114801"><span class="hs-identifier hs-type">a</span></a><span>
</span><a name="line-417"></a><a name="_memptyToNothing"><a href="SwaggerPetstore.Core.html#_memptyToNothing"><span class="hs-identifier">_memptyToNothing</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679115790"><a href="#local-6989586621679115790"><span class="hs-identifier">x</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">|</span><span> </span><a href="#local-6989586621679115790"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.==</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mempty</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
</span><a name="line-418"></a><span class="hs-identifier">_memptyToNothing</span><span> </span><a name="local-6989586621679115791"><a href="#local-6989586621679115791"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679115791"><span class="hs-identifier hs-var">x</span></a><span>
</span><a name="line-416"></a><span class="hs-identifier">_memptyToNothing</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Monoid</span><span> </span><a href="#local-6989586621679114619"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span> </span><a href="#local-6989586621679114619"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679114619"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679114619"><span class="hs-identifier hs-type">a</span></a><span>
</span><a name="line-417"></a><a name="_memptyToNothing"><a href="SwaggerPetstore.Core.html#_memptyToNothing"><span class="hs-identifier">_memptyToNothing</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679115608"><a href="#local-6989586621679115608"><span class="hs-identifier">x</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">|</span><span> </span><a href="#local-6989586621679115608"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.==</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mempty</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
</span><a name="line-418"></a><span class="hs-identifier">_memptyToNothing</span><span> </span><a name="local-6989586621679115609"><a href="#local-6989586621679115609"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679115609"><span class="hs-identifier hs-var">x</span></a><span>
</span><a name="line-419"></a><span class="hs-pragma">{-# INLINE _memptyToNothing #-}</span><span>
</span><a name="line-420"></a><span>
</span><a name="line-421"></a><span class="hs-comment">-- * DateTime Formatting</span><span>
@ -425,33 +425,33 @@ Module : SwaggerPetstore.Core
</span><a name="line-425"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-426"></a><span> </span><a name="local-8214565720323785374"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withText</span><span> </span><span class="hs-string">&quot;DateTime&quot;</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_readDateTime"><span class="hs-identifier hs-var">_readDateTime</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span class="hs-special">)</span><span>
</span><a name="line-427"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-428"></a><span> </span><a name="local-8214565720323785243"><span class="hs-identifier">toJSON</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-var">DateTime</span></a><span> </span><a name="local-6989586621679114786"><a href="#local-6989586621679114786"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toJSON</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_showDateTime"><span class="hs-identifier hs-var">_showDateTime</span></a><span> </span><a href="#local-6989586621679114786"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
</span><a name="line-428"></a><span> </span><a name="local-8214565720323785243"><span class="hs-identifier">toJSON</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-var">DateTime</span></a><span> </span><a name="local-6989586621679114604"><a href="#local-6989586621679114604"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toJSON</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_showDateTime"><span class="hs-identifier hs-var">_showDateTime</span></a><span> </span><a href="#local-6989586621679114604"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
</span><a name="line-429"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromHttpApiData</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-430"></a><span> </span><a name="local-8214565720323801327"><span class="hs-identifier">parseUrlPiece</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#_readDateTime"><span class="hs-identifier hs-var">_readDateTime</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
</span><a name="line-431"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-432"></a><span> </span><a name="local-8214565720323801323"><span class="hs-identifier">toUrlPiece</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-var">DateTime</span></a><span> </span><a name="local-6989586621679114785"><a href="#local-6989586621679114785"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><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">pack</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_showDateTime"><span class="hs-identifier hs-var">_showDateTime</span></a><span> </span><a href="#local-6989586621679114785"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
</span><a name="line-432"></a><span> </span><a name="local-8214565720323801323"><span class="hs-identifier">toUrlPiece</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-var">DateTime</span></a><span> </span><a name="local-6989586621679114603"><a href="#local-6989586621679114603"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><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">pack</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_showDateTime"><span class="hs-identifier hs-var">_showDateTime</span></a><span> </span><a href="#local-6989586621679114603"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
</span><a name="line-433"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-434"></a><span> </span><a name="local-8214565720323791630"><span class="hs-identifier">show</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-var">DateTime</span></a><span> </span><a name="local-6989586621679114784"><a href="#local-6989586621679114784"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_showDateTime"><span class="hs-identifier hs-var">_showDateTime</span></a><span> </span><a href="#local-6989586621679114784"><span class="hs-identifier hs-var">t</span></a><span>
</span><a name="line-434"></a><span> </span><a name="local-8214565720323791630"><span class="hs-identifier">show</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-var">DateTime</span></a><span> </span><a name="local-6989586621679114602"><a href="#local-6989586621679114602"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_showDateTime"><span class="hs-identifier hs-var">_showDateTime</span></a><span> </span><a href="#local-6989586621679114602"><span class="hs-identifier hs-var">t</span></a><span>
</span><a name="line-435"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-436"></a><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-436"></a><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-437"></a><span>
</span><a name="line-438"></a><span class="hs-comment">-- | @_parseISO8601@</span><span>
</span><a name="line-439"></a><span class="hs-identifier">_readDateTime</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span> </span><a href="#local-6989586621679114799"><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-6989586621679114800"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Alternative</span><span> </span><a href="#local-6989586621679114800"><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-6989586621679114800"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114799"><span class="hs-identifier hs-type">t</span></a><span>
</span><a name="line-439"></a><span class="hs-identifier">_readDateTime</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span> </span><a href="#local-6989586621679114617"><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-6989586621679114618"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Alternative</span><span> </span><a href="#local-6989586621679114618"><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-6989586621679114618"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114617"><span class="hs-identifier hs-type">t</span></a><span>
</span><a name="line-440"></a><a name="_readDateTime"><a href="SwaggerPetstore.Core.html#_readDateTime"><span class="hs-identifier">_readDateTime</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-441"></a><span> </span><a href="SwaggerPetstore.Core.html#_parseISO8601"><span class="hs-identifier hs-var">_parseISO8601</span></a><span>
</span><a name="line-442"></a><span class="hs-pragma">{-# INLINE _readDateTime #-}</span><span>
</span><a name="line-443"></a><span>
</span><a name="line-444"></a><span class="hs-comment">-- | @TI.formatISO8601Millis@</span><span>
</span><a name="line-445"></a><span class="hs-identifier">_showDateTime</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114798"><span class="hs-identifier hs-type">t</span></a><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">UTCTime</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FormatTime</span><span> </span><a href="#local-6989586621679114798"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679114798"><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-445"></a><span class="hs-identifier">_showDateTime</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114616"><span class="hs-identifier hs-type">t</span></a><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">UTCTime</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FormatTime</span><span> </span><a href="#local-6989586621679114616"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679114616"><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-446"></a><a name="_showDateTime"><a href="SwaggerPetstore.Core.html#_showDateTime"><span class="hs-identifier">_showDateTime</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-447"></a><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formatISO8601Millis</span><span>
</span><a name="line-448"></a><span class="hs-pragma">{-# INLINE _showDateTime #-}</span><span>
</span><a name="line-449"></a><span>
</span><a name="line-450"></a><span class="hs-comment">-- | parse an ISO8601 date-time string</span><span>
</span><a name="line-451"></a><span class="hs-identifier">_parseISO8601</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span> </span><a href="#local-6989586621679114796"><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-6989586621679114797"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Alternative</span><span> </span><a href="#local-6989586621679114797"><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-6989586621679114797"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114796"><span class="hs-identifier hs-type">t</span></a><span>
</span><a name="line-452"></a><a name="_parseISO8601"><a href="SwaggerPetstore.Core.html#_parseISO8601"><span class="hs-identifier">_parseISO8601</span></a></a><span> </span><a name="local-6989586621679115792"><a href="#local-6989586621679115792"><span class="hs-identifier">t</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-451"></a><span class="hs-identifier">_parseISO8601</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">TI</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ParseTime</span><span> </span><a href="#local-6989586621679114614"><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-6989586621679114615"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Alternative</span><span> </span><a href="#local-6989586621679114615"><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-6989586621679114615"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114614"><span class="hs-identifier hs-type">t</span></a><span>
</span><a name="line-452"></a><a name="_parseISO8601"><a href="SwaggerPetstore.Core.html#_parseISO8601"><span class="hs-identifier">_parseISO8601</span></a></a><span> </span><a name="local-6989586621679115610"><a href="#local-6989586621679115610"><span class="hs-identifier">t</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-453"></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">asum</span><span> </span><span class="hs-operator hs-var">$</span><span>
</span><a name="line-454"></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">flip</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">parseTimeM</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultTimeLocale</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679115792"><span class="hs-identifier hs-var">t</span></a><span> </span><span class="hs-operator hs-var">&lt;$&gt;</span><span>
</span><a name="line-454"></a><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">flip</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">parseTimeM</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultTimeLocale</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679115610"><span class="hs-identifier hs-var">t</span></a><span> </span><span class="hs-operator hs-var">&lt;$&gt;</span><span>
</span><a name="line-455"></a><span> </span><span class="hs-special">[</span><span class="hs-string">&quot;%FT%T%QZ&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-string">&quot;%FT%T%Q%z&quot;</span><span class="hs-special">,</span><span> </span><span class="hs-string">&quot;%FT%T%Q%Z&quot;</span><span class="hs-special">]</span><span>
</span><a name="line-456"></a><span class="hs-pragma">{-# INLINE _parseISO8601 #-}</span><span>
</span><a name="line-457"></a><span>
@ -462,24 +462,24 @@ Module : SwaggerPetstore.Core
</span><a name="line-462"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-type">Date</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-463"></a><span> </span><a name="local-8214565720323785374"><span class="hs-identifier">parseJSON</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">withText</span><span> </span><span class="hs-string">&quot;Date&quot;</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_readDate"><span class="hs-identifier hs-var">_readDate</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span class="hs-special">)</span><span>
</span><a name="line-464"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-type">Date</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-465"></a><span> </span><a name="local-8214565720323785243"><span class="hs-identifier">toJSON</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-var">Date</span></a><span> </span><a name="local-6989586621679114783"><a href="#local-6989586621679114783"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toJSON</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_showDate"><span class="hs-identifier hs-var">_showDate</span></a><span> </span><a href="#local-6989586621679114783"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
</span><a name="line-465"></a><span> </span><a name="local-8214565720323785243"><span class="hs-identifier">toJSON</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-var">Date</span></a><span> </span><a name="local-6989586621679114601"><a href="#local-6989586621679114601"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toJSON</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_showDate"><span class="hs-identifier hs-var">_showDate</span></a><span> </span><a href="#local-6989586621679114601"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
</span><a name="line-466"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromHttpApiData</span><span> </span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-type">Date</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-467"></a><span> </span><a name="local-8214565720323801327"><span class="hs-identifier">parseUrlPiece</span></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#_readDate"><span class="hs-identifier hs-var">_readDate</span></a><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
</span><a name="line-468"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToHttpApiData</span><span> </span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-type">Date</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-469"></a><span> </span><a name="local-8214565720323801323"><span class="hs-identifier">toUrlPiece</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-var">Date</span></a><span> </span><a name="local-6989586621679114782"><a href="#local-6989586621679114782"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><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">pack</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_showDate"><span class="hs-identifier hs-var">_showDate</span></a><span> </span><a href="#local-6989586621679114782"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
</span><a name="line-469"></a><span> </span><a name="local-8214565720323801323"><span class="hs-identifier">toUrlPiece</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-var">Date</span></a><span> </span><a name="local-6989586621679114600"><a href="#local-6989586621679114600"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><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">pack</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#_showDate"><span class="hs-identifier hs-var">_showDate</span></a><span> </span><a href="#local-6989586621679114600"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
</span><a name="line-470"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span> </span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-type">Date</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-471"></a><span> </span><a name="local-8214565720323791630"><span class="hs-identifier">show</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-var">Date</span></a><span> </span><a name="local-6989586621679114781"><a href="#local-6989586621679114781"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_showDate"><span class="hs-identifier hs-var">_showDate</span></a><span> </span><a href="#local-6989586621679114781"><span class="hs-identifier hs-var">t</span></a><span>
</span><a name="line-471"></a><span> </span><a name="local-8214565720323791630"><span class="hs-identifier">show</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-var">Date</span></a><span> </span><a name="local-6989586621679114599"><a href="#local-6989586621679114599"><span class="hs-identifier">t</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_showDate"><span class="hs-identifier hs-var">_showDate</span></a><span> </span><a href="#local-6989586621679114599"><span class="hs-identifier hs-var">t</span></a><span>
</span><a name="line-472"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-type">Date</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-473"></a><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-473"></a><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-474"></a><span>
</span><a name="line-475"></a><span class="hs-comment">-- | @TI.parseTimeM True TI.defaultTimeLocale &quot;%Y-%m-%d&quot;@</span><span>
</span><a name="line-476"></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-6989586621679114794"><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-6989586621679114795"><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-6989586621679114795"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114794"><span class="hs-identifier hs-type">t</span></a><span>
</span><a name="line-476"></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-6989586621679114612"><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-6989586621679114613"><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-6989586621679114613"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679114612"><span class="hs-identifier hs-type">t</span></a><span>
</span><a name="line-477"></a><a name="_readDate"><a href="SwaggerPetstore.Core.html#_readDate"><span class="hs-identifier">_readDate</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-478"></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-479"></a><span class="hs-pragma">{-# INLINE _readDate #-}</span><span>
</span><a name="line-480"></a><span>
</span><a name="line-481"></a><span class="hs-comment">-- | @TI.formatTime TI.defaultTimeLocale &quot;%Y-%m-%d&quot;@</span><span>
</span><a name="line-482"></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-6989586621679114793"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679114793"><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-482"></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-6989586621679114611"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679114611"><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-483"></a><a name="_showDate"><a href="SwaggerPetstore.Core.html#_showDate"><span class="hs-identifier">_showDate</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-484"></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-485"></a><span class="hs-pragma">{-# INLINE _showDate #-}</span><span>
@ -502,10 +502,10 @@ Module : SwaggerPetstore.Core
</span><a name="line-502"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-503"></a><span> </span><a name="local-8214565720323791630"><span class="hs-identifier">show</span></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">unpack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#_showByteArray"><span class="hs-identifier hs-var">_showByteArray</span></a><span>
</span><a name="line-504"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-505"></a><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-505"></a><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-506"></a><span>
</span><a name="line-507"></a><span class="hs-comment">-- | read base64 encoded characters</span><span>
</span><a name="line-508"></a><span class="hs-identifier">_readByteArray</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679114792"><span class="hs-identifier hs-type">m</span></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-6989586621679114792"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span>
</span><a name="line-508"></a><span class="hs-identifier">_readByteArray</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679114610"><span class="hs-identifier hs-type">m</span></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-6989586621679114610"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span>
</span><a name="line-509"></a><a name="_readByteArray"><a href="SwaggerPetstore.Core.html#_readByteArray"><span class="hs-identifier">_readByteArray</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">either</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fail</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-var">ByteArray</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL64</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decode</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
</span><a name="line-510"></a><span class="hs-pragma">{-# INLINE _readByteArray #-}</span><span>
</span><a name="line-511"></a><span>
@ -529,9 +529,9 @@ Module : SwaggerPetstore.Core
</span><a name="line-529"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Show</span><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-530"></a><span> </span><a name="local-8214565720323791630"><span class="hs-identifier">show</span></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">unpack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#_showBinaryBase64"><span class="hs-identifier hs-var">_showBinaryBase64</span></a><span>
</span><a name="line-531"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-532"></a><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">unBinary</span><span>
</span><a name="line-532"></a><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">unBinary</span><span>
</span><a name="line-533"></a><span>
</span><a name="line-534"></a><span class="hs-identifier">_readBinaryBase64</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679114791"><span class="hs-identifier hs-type">m</span></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-6989586621679114791"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span>
</span><a name="line-534"></a><span class="hs-identifier">_readBinaryBase64</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Monad</span><span> </span><a href="#local-6989586621679114609"><span class="hs-identifier hs-type">m</span></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-6989586621679114609"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span>
</span><a name="line-535"></a><a name="_readBinaryBase64"><a href="SwaggerPetstore.Core.html#_readBinaryBase64"><span class="hs-identifier">_readBinaryBase64</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">either</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fail</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-var">Binary</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL64</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decode</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
</span><a name="line-536"></a><span class="hs-pragma">{-# INLINE _readBinaryBase64 #-}</span><span>
</span><a name="line-537"></a><span>
@ -541,6 +541,6 @@ Module : SwaggerPetstore.Core
</span><a name="line-541"></a><span>
</span><a name="line-542"></a><span class="hs-comment">-- * Lens Type Aliases</span><span>
</span><a name="line-543"></a><span>
</span><a name="line-544"></a><span class="hs-keyword">type</span><span> </span><a name="Lens_%27"><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier">Lens_'</span></a></a><span> </span><a name="local-6989586621679112908"><a href="#local-6989586621679112908"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679112909"><a href="#local-6989586621679112909"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_"><span class="hs-identifier hs-type">Lens_</span></a><span> </span><a href="#local-6989586621679112908"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679112908"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679112909"><span class="hs-identifier hs-type">a</span></a><span> </span><a href="#local-6989586621679112909"><span class="hs-identifier hs-type">a</span></a><span>
</span><a name="line-545"></a><span class="hs-keyword">type</span><span> </span><a name="Lens_"><a href="SwaggerPetstore.Core.html#Lens_"><span class="hs-identifier">Lens_</span></a></a><span> </span><a name="local-6989586621679112903"><a href="#local-6989586621679112903"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679112904"><a href="#local-6989586621679112904"><span class="hs-identifier">t</span></a></a><span> </span><a name="local-6989586621679112905"><a href="#local-6989586621679112905"><span class="hs-identifier">a</span></a></a><span> </span><a name="local-6989586621679112906"><a href="#local-6989586621679112906"><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-6989586621679112907"><a href="#local-6989586621679112907"><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-6989586621679112907"><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-6989586621679112905"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679112907"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679112906"><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-6989586621679112903"><span class="hs-identifier hs-type">s</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679112907"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679112904"><span class="hs-identifier hs-type">t</span></a><span>
</span><a name="line-544"></a><span class="hs-keyword">type</span><span> </span><a name="Lens_%27"><a href="SwaggerPetstore.Core.html#Lens_%27"><span class="hs-identifier">Lens_'</span></a></a><span> </span><a name="local-6989586621679112726"><a href="#local-6989586621679112726"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679112727"><a href="#local-6989586621679112727"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#Lens_"><span class="hs-identifier hs-type">Lens_</span></a><span> </span><a href="#local-6989586621679112726"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679112726"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679112727"><span class="hs-identifier hs-type">a</span></a><span> </span><a href="#local-6989586621679112727"><span class="hs-identifier hs-type">a</span></a><span>
</span><a name="line-545"></a><span class="hs-keyword">type</span><span> </span><a name="Lens_"><a href="SwaggerPetstore.Core.html#Lens_"><span class="hs-identifier">Lens_</span></a></a><span> </span><a name="local-6989586621679112721"><a href="#local-6989586621679112721"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679112722"><a href="#local-6989586621679112722"><span class="hs-identifier">t</span></a></a><span> </span><a name="local-6989586621679112723"><a href="#local-6989586621679112723"><span class="hs-identifier">a</span></a></a><span> </span><a name="local-6989586621679112724"><a href="#local-6989586621679112724"><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-6989586621679112725"><a href="#local-6989586621679112725"><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-6989586621679112725"><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-6989586621679112723"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679112725"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679112724"><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-6989586621679112721"><span class="hs-identifier hs-type">s</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679112725"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679112722"><span class="hs-identifier hs-type">t</span></a><span>
</span><a name="line-546"></a></pre></body></html>

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

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \&quot; \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)

150
samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.MimeTypes.html
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \&quot; \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -45,19 +45,19 @@ Module : SwaggerPetstore.MimeTypes
</span><a name="line-45"></a><span>
</span><a name="line-46"></a><span class="hs-comment">-- * ContentType MimeType</span><span>
</span><a name="line-47"></a><span>
</span><a name="line-48"></a><span class="hs-keyword">data</span><span> </span><a name="ContentType"><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier">ContentType</span></a></a><span> </span><a name="local-6989586621679076477"><a href="#local-6989586621679076477"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679076477"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="ContentType"><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier">ContentType</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unContentType"><a href="SwaggerPetstore.MimeTypes.html#unContentType"><span class="hs-identifier">unContentType</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679076477"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-special">}</span><span>
</span><a name="line-48"></a><span class="hs-keyword">data</span><span> </span><a name="ContentType"><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier">ContentType</span></a></a><span> </span><a name="local-6989586621679076473"><a href="#local-6989586621679076473"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679076473"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="ContentType"><a href="SwaggerPetstore.MimeTypes.html#ContentType"><span class="hs-identifier">ContentType</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unContentType"><a href="SwaggerPetstore.MimeTypes.html#unContentType"><span class="hs-identifier">unContentType</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679076473"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-special">}</span><span>
</span><a name="line-49"></a><span>
</span><a name="line-50"></a><span class="hs-comment">-- * Accept MimeType</span><span>
</span><a name="line-51"></a><span>
</span><a name="line-52"></a><span class="hs-keyword">data</span><span> </span><a name="Accept"><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier">Accept</span></a></a><span> </span><a name="local-6989586621679076476"><a href="#local-6989586621679076476"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679076476"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="Accept"><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier">Accept</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unAccept"><a href="SwaggerPetstore.MimeTypes.html#unAccept"><span class="hs-identifier">unAccept</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679076476"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-special">}</span><span>
</span><a name="line-52"></a><span class="hs-keyword">data</span><span> </span><a name="Accept"><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier">Accept</span></a></a><span> </span><a name="local-6989586621679076472"><a href="#local-6989586621679076472"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679076472"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="Accept"><a href="SwaggerPetstore.MimeTypes.html#Accept"><span class="hs-identifier">Accept</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unAccept"><a href="SwaggerPetstore.MimeTypes.html#unAccept"><span class="hs-identifier">unAccept</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679076472"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-special">}</span><span>
</span><a name="line-53"></a><span>
</span><a name="line-54"></a><span class="hs-comment">-- * Consumes Class</span><span>
</span><a name="line-55"></a><span>
</span><a name="line-56"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679076475"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="Consumes"><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier">Consumes</span></a></a><span> </span><a name="local-6989586621679076474"><a href="#local-6989586621679076474"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679076475"><a href="#local-6989586621679076475"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-56"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679076471"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="Consumes"><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier">Consumes</span></a></a><span> </span><a name="local-6989586621679076470"><a href="#local-6989586621679076470"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679076471"><a href="#local-6989586621679076471"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-57"></a><span>
</span><a name="line-58"></a><span class="hs-comment">-- * Produces Class</span><span>
</span><a name="line-59"></a><span>
</span><a name="line-60"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679076473"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="Produces"><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier">Produces</span></a></a><span> </span><a name="local-6989586621679076472"><a href="#local-6989586621679076472"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679076473"><a href="#local-6989586621679076473"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-60"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679076469"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="Produces"><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier">Produces</span></a></a><span> </span><a name="local-6989586621679076468"><a href="#local-6989586621679076468"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679076469"><a href="#local-6989586621679076469"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-61"></a><span>
</span><a name="line-62"></a><span class="hs-comment">-- * Default Mime Types</span><span>
</span><a name="line-63"></a><span>
@ -77,153 +77,129 @@ Module : SwaggerPetstore.MimeTypes
</span><a name="line-77"></a><span>
</span><a name="line-78"></a><span class="hs-comment">-- * MimeType Class</span><span>
</span><a name="line-79"></a><span>
</span><a name="line-80"></a><span class="hs-keyword">class</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span> </span><a href="#local-6989586621679076332"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="MimeType"><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier">MimeType</span></a></a><span> </span><a name="local-6989586621679076332"><a href="#local-6989586621679076332"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-80"></a><span class="hs-keyword">class</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span> </span><a href="#local-6989586621679076018"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="MimeType"><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier">MimeType</span></a></a><span> </span><a name="local-6989586621679076018"><a href="#local-6989586621679076018"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-81"></a><span> </span><span class="hs-pragma">{-# MINIMAL mimeType | mimeTypes #-}</span><span>
</span><a name="line-82"></a><span>
</span><a name="line-83"></a><span> </span><span class="hs-identifier">mimeTypes</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679076332"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
</span><a name="line-84"></a><span> </span><a name="local-8214565720323850703"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier">mimeTypes</span></a></a><span> </span><a name="local-6989586621679076468"><a href="#local-6989586621679076468"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-85"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a><span> </span><a href="#local-6989586621679076468"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-86"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679076469"><a href="#local-6989586621679076469"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679076469"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
</span><a name="line-83"></a><span> </span><span class="hs-identifier">mimeTypes</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679076018"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
</span><a name="line-84"></a><span> </span><a name="local-8214565720323850699"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier">mimeTypes</span></a></a><span> </span><a name="local-6989586621679076464"><a href="#local-6989586621679076464"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-85"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a><span> </span><a href="#local-6989586621679076464"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-86"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679076465"><a href="#local-6989586621679076465"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679076465"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
</span><a name="line-87"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><a name="line-88"></a><span>
</span><a name="line-89"></a><span> </span><span class="hs-identifier">mimeType</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679076332"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
</span><a name="line-90"></a><span> </span><a name="local-8214565720323850704"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><a name="local-6989586621679076470"><a href="#local-6989586621679076470"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-91"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a><span> </span><a href="#local-6989586621679076470"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-89"></a><span> </span><span class="hs-identifier">mimeType</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679076018"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
</span><a name="line-90"></a><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><a name="local-6989586621679076466"><a href="#local-6989586621679076466"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
</span><a name="line-91"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a><span> </span><a href="#local-6989586621679076466"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
</span><a name="line-92"></a><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
</span><a name="line-93"></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679076471"><a href="#local-6989586621679076471"><span class="hs-identifier">x</span></a></a><span class="hs-glyph">:</span><span class="hs-identifier">_</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679076471"><span class="hs-identifier hs-var">x</span></a><span>
</span><a name="line-93"></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679076467"><a href="#local-6989586621679076467"><span class="hs-identifier">x</span></a></a><span class="hs-glyph">:</span><span class="hs-identifier">_</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679076467"><span class="hs-identifier hs-var">x</span></a><span>
</span><a name="line-94"></a><span>
</span><a name="line-95"></a><span> </span><span class="hs-identifier">mimeType'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679076332"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
</span><a name="line-96"></a><span> </span><a name="local-8214565720323850705"><a href="SwaggerPetstore.MimeTypes.html#mimeType%27"><span class="hs-identifier">mimeType'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679076332"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
</span><a name="line-97"></a><span> </span><span class="hs-identifier">mimeTypes'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679076332"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
</span><a name="line-98"></a><span> </span><a name="local-8214565720323850706"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes%27"><span class="hs-identifier">mimeTypes'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679076332"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
</span><a name="line-95"></a><span> </span><span class="hs-identifier">mimeType'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679076018"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
</span><a name="line-96"></a><span> </span><a name="local-8214565720323850701"><a href="SwaggerPetstore.MimeTypes.html#mimeType%27"><span class="hs-identifier">mimeType'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679076018"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
</span><a name="line-97"></a><span> </span><span class="hs-identifier">mimeTypes'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679076018"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
</span><a name="line-98"></a><span> </span><a name="local-8214565720323850702"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes%27"><span class="hs-identifier">mimeTypes'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679076018"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
</span><a name="line-99"></a><span>
</span><a name="line-100"></a><span class="hs-comment">-- Default MimeType Instances</span><span>
</span><a name="line-101"></a><span>
</span><a name="line-102"></a><span class="hs-comment">-- | @application/json; charset=utf-8@</span><span>
</span><a name="line-103"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-104"></a><span> </span><a name="local-8214565720323850704"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;application/json&quot;</span><span>
</span><a name="line-104"></a><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;application/json&quot;</span><span>
</span><a name="line-105"></a><span class="hs-comment">-- | @application/xml; charset=utf-8@</span><span>
</span><a name="line-106"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-107"></a><span> </span><a name="local-8214565720323850704"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;application/xml&quot;</span><span>
</span><a name="line-107"></a><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;application/xml&quot;</span><span>
</span><a name="line-108"></a><span class="hs-comment">-- | @application/x-www-form-urlencoded@</span><span>
</span><a name="line-109"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-110"></a><span> </span><a name="local-8214565720323850704"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;application/x-www-form-urlencoded&quot;</span><span>
</span><a name="line-110"></a><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;application/x-www-form-urlencoded&quot;</span><span>
</span><a name="line-111"></a><span class="hs-comment">-- | @multipart/form-data@</span><span>
</span><a name="line-112"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-113"></a><span> </span><a name="local-8214565720323850704"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;multipart/form-data&quot;</span><span>
</span><a name="line-113"></a><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;multipart/form-data&quot;</span><span>
</span><a name="line-114"></a><span class="hs-comment">-- | @text/plain; charset=utf-8@</span><span>
</span><a name="line-115"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-116"></a><span> </span><a name="local-8214565720323850704"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;text/plain&quot;</span><span>
</span><a name="line-116"></a><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;text/plain&quot;</span><span>
</span><a name="line-117"></a><span class="hs-comment">-- | @application/octet-stream@</span><span>
</span><a name="line-118"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-119"></a><span> </span><a name="local-8214565720323850704"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;application/octet-stream&quot;</span><span>
</span><a name="line-119"></a><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;application/octet-stream&quot;</span><span>
</span><a name="line-120"></a><span class="hs-comment">-- | @&quot;*/*&quot;@</span><span>
</span><a name="line-121"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeAny"><span class="hs-identifier hs-type">MimeAny</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-122"></a><span> </span><a name="local-8214565720323850704"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;*/*&quot;</span><span>
</span><a name="line-122"></a><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;*/*&quot;</span><span>
</span><a name="line-123"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-124"></a><span> </span><a name="local-8214565720323850704"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
</span><a name="line-124"></a><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
</span><a name="line-125"></a><span>
</span><a name="line-126"></a><span class="hs-comment">-- * MimeRender Class</span><span>
</span><a name="line-127"></a><span>
</span><a name="line-128"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679076329"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="MimeRender"><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier">MimeRender</span></a></a><span> </span><a name="local-6989586621679076329"><a href="#local-6989586621679076329"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679076330"><a href="#local-6989586621679076330"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-129"></a><span> </span><span class="hs-identifier">mimeRender</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679076329"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679076330"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
</span><a name="line-130"></a><span> </span><span class="hs-identifier">mimeRender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679076329"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679076330"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
</span><a name="line-131"></a><span> </span><a name="local-8214565720323850701"><a href="SwaggerPetstore.MimeTypes.html#mimeRender%27"><span class="hs-identifier">mimeRender'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679076331"><a href="#local-6989586621679076331"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier hs-var">mimeRender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679076329"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679076331"><span class="hs-identifier hs-var">x</span></a><span>
</span><a name="line-128"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679076015"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="MimeRender"><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier">MimeRender</span></a></a><span> </span><a name="local-6989586621679076015"><a href="#local-6989586621679076015"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679076016"><a href="#local-6989586621679076016"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-129"></a><span> </span><span class="hs-identifier">mimeRender</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679076015"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679076016"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
</span><a name="line-130"></a><span> </span><span class="hs-identifier">mimeRender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679076015"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><a href="#local-6989586621679076016"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
</span><a name="line-131"></a><span> </span><a name="local-8214565720323850697"><a href="SwaggerPetstore.MimeTypes.html#mimeRender%27"><span class="hs-identifier">mimeRender'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679076017"><a href="#local-6989586621679076017"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier hs-var">mimeRender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679076015"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679076017"><span class="hs-identifier hs-var">x</span></a><span>
</span><a name="line-132"></a><span>
</span><a name="line-133"></a><span>
</span><a name="line-134"></a><span class="hs-identifier">mimeRenderDefaultMultipartFormData</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-6989586621679081801"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679081801"><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">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
</span><a name="line-134"></a><span class="hs-identifier">mimeRenderDefaultMultipartFormData</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-6989586621679081795"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="#local-6989586621679081795"><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">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
</span><a name="line-135"></a><a name="mimeRenderDefaultMultipartFormData"><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier">mimeRenderDefaultMultipartFormData</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span> </span><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-136"></a><span>
</span><a name="line-137"></a><span class="hs-comment">-- Default MimeRender Instances</span><span>
</span><a name="line-138"></a><span>
</span><a name="line-139"></a><span class="hs-comment">-- | `A.encode`</span><span>
</span><a name="line-140"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="#local-6989586621679081800"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679081800"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encode</span><span>
</span><a name="line-140"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="#local-6989586621679078837"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679078837"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encode</span><span>
</span><a name="line-141"></a><span class="hs-comment">-- | @WH.urlEncodeAsForm@</span><span>
</span><a name="line-142"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToForm</span><span> </span><a href="#local-6989586621679081799"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679081799"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlEncodeAsForm</span><span>
</span><a name="line-142"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToForm</span><span> </span><a href="#local-6989586621679078836"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679078836"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlEncodeAsForm</span><span>
</span><a name="line-143"></a><span>
</span><a name="line-144"></a><span class="hs-comment">-- | @P.id@</span><span>
</span><a name="line-145"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
</span><a name="line-145"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
</span><a name="line-146"></a><span class="hs-comment">-- | @BL.fromStrict . T.encodeUtf8@</span><span>
</span><a name="line-147"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
</span><a name="line-147"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
</span><a name="line-148"></a><span class="hs-comment">-- | @BCL.pack@</span><span>
</span><a name="line-149"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
</span><a name="line-149"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
</span><a name="line-150"></a><span>
</span><a name="line-151"></a><span class="hs-comment">-- | @P.id@</span><span>
</span><a name="line-152"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
</span><a name="line-152"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
</span><a name="line-153"></a><span class="hs-comment">-- | @BL.fromStrict . T.encodeUtf8@</span><span>
</span><a name="line-154"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
</span><a name="line-154"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
</span><a name="line-155"></a><span class="hs-comment">-- | @BCL.pack@</span><span>
</span><a name="line-156"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
</span><a name="line-156"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
</span><a name="line-157"></a><span>
</span><a name="line-158"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
</span><a name="line-158"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
</span><a name="line-159"></a><span>
</span><a name="line-160"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Bool</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-161"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Char</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-162"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Double</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-163"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Float</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-164"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Int</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-165"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-166"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-167"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-160"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Bool</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-161"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Char</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-162"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Double</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-163"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Float</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-164"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Int</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-165"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">Integer</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-166"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-167"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
</span><a name="line-168"></a><span>
</span><a name="line-169"></a><span class="hs-comment">-- | @P.Right . P.const NoContent@</span><span>
</span><a name="line-170"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">const</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">empty</span><span>
</span><a name="line-170"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850696"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">const</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">empty</span><span>
</span><a name="line-171"></a><span>
</span><a name="line-172"></a><span>
</span><a name="line-173"></a><span class="hs-comment">-- * MimeUnrender Class</span><span>
</span><a name="line-174"></a><span>
</span><a name="line-175"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679076133"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="MimeUnrender"><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier">MimeUnrender</span></a></a><span> </span><a name="local-6989586621679076133"><a href="#local-6989586621679076133"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679076134"><a href="#local-6989586621679076134"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-176"></a><span> </span><span class="hs-identifier">mimeUnrender</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679076133"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679076134"><span class="hs-identifier hs-type">o</span></a><span>
</span><a name="line-177"></a><span> </span><span class="hs-identifier">mimeUnrender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679076133"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679076134"><span class="hs-identifier hs-type">o</span></a><span>
</span><a name="line-178"></a><span> </span><a name="local-8214565720323850698"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier">mimeUnrender'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679076328"><a href="#local-6989586621679076328"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier hs-var">mimeUnrender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679076133"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679076328"><span class="hs-identifier hs-var">x</span></a><span>
</span><a name="line-175"></a><span class="hs-keyword">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679075819"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a name="MimeUnrender"><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier">MimeUnrender</span></a></a><span> </span><a name="local-6989586621679075819"><a href="#local-6989586621679075819"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679075820"><a href="#local-6989586621679075820"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-176"></a><span> </span><span class="hs-identifier">mimeUnrender</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679075819"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679075820"><span class="hs-identifier hs-type">o</span></a><span>
</span><a name="line-177"></a><span> </span><span class="hs-identifier">mimeUnrender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679075819"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679075820"><span class="hs-identifier hs-type">o</span></a><span>
</span><a name="line-178"></a><span> </span><a name="local-8214565720323850694"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier">mimeUnrender'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679076014"><a href="#local-6989586621679076014"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier hs-var">mimeUnrender</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Proxy</span><span> </span><a href="#local-6989586621679075819"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679076014"><span class="hs-identifier hs-var">x</span></a><span>
</span><a name="line-179"></a><span>
</span><a name="line-180"></a><span class="hs-comment">-- Default MimeUnrender Instances</span><span>
</span><a name="line-181"></a><span>
</span><a name="line-182"></a><span class="hs-comment">-- | @A.eitherDecode@</span><span>
</span><a name="line-183"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="#local-6989586621679081798"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679081798"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850697"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">eitherDecode</span><span>
</span><a name="line-183"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="#local-6989586621679076475"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679076475"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850693"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">eitherDecode</span><span>
</span><a name="line-184"></a><span class="hs-comment">-- | @P.left T.unpack . WH.urlDecodeAsForm@</span><span>
</span><a name="line-185"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromForm</span><span> </span><a href="#local-6989586621679081797"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679081797"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850697"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlDecodeAsForm</span><span>
</span><a name="line-185"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromForm</span><span> </span><a href="#local-6989586621679076474"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679076474"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850693"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">urlDecodeAsForm</span><span>
</span><a name="line-186"></a><span class="hs-comment">-- | @P.Right . P.id@</span><span>
</span><a name="line-187"></a><span>
</span><a name="line-188"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850697"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
</span><a name="line-188"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850693"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
</span><a name="line-189"></a><span class="hs-comment">-- | @P.left P.show . TL.decodeUtf8'@</span><span>
</span><a name="line-190"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850697"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8'</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span>
</span><a name="line-190"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850693"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8'</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span>
</span><a name="line-191"></a><span class="hs-comment">-- | @P.Right . BCL.unpack@</span><span>
</span><a name="line-192"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850697"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
</span><a name="line-192"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850693"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
</span><a name="line-193"></a><span>
</span><a name="line-194"></a><span class="hs-comment">-- | @P.Right . P.id@</span><span>
</span><a name="line-195"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850697"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
</span><a name="line-195"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850693"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
</span><a name="line-196"></a><span class="hs-comment">-- | @P.left P.show . T.decodeUtf8' . BL.toStrict@</span><span>
</span><a name="line-197"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850697"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8'</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span>
</span><a name="line-197"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850693"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">left</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8'</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span>
</span><a name="line-198"></a><span class="hs-comment">-- | @P.Right . BCL.unpack@</span><span>
</span><a name="line-199"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850697"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
</span><a name="line-199"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850693"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">unpack</span><span>
</span><a name="line-200"></a><span>
</span><a name="line-201"></a><span class="hs-comment">-- | @P.Right . P.const NoContent@</span><span>
</span><a name="line-202"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850697"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">const</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-var">NoContent</span></a><span>
</span><a name="line-202"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850693"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">const</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-var">NoContent</span></a><span>
</span><a name="line-203"></a><span>
</span><a name="line-204"></a><span>
</span><a name="line-205"></a><span class="hs-comment">-- * Custom Mime Types</span><span>
</span><a name="line-206"></a><span>
</span><a name="line-207"></a><span class="hs-comment">-- ** MimeJsonCharsetutf8</span><span>
</span><a name="line-208"></a><span>
</span><a name="line-209"></a><span class="hs-keyword">data</span><span> </span><a name="MimeJsonCharsetutf8"><a href="SwaggerPetstore.MimeTypes.html#MimeJsonCharsetutf8"><span class="hs-identifier">MimeJsonCharsetutf8</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeJsonCharsetutf8"><a href="SwaggerPetstore.MimeTypes.html#MimeJsonCharsetutf8"><span class="hs-identifier">MimeJsonCharsetutf8</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
</span><a name="line-210"></a><span>
</span><a name="line-211"></a><span class="hs-comment">-- | @application/json; charset=utf-8@</span><span>
</span><a name="line-212"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJsonCharsetutf8"><span class="hs-identifier hs-type">MimeJsonCharsetutf8</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-213"></a><span> </span><a name="local-8214565720323850704"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;application/json; charset=utf-8&quot;</span><span>
</span><a name="line-214"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ToJSON</span><span> </span><a href="#local-6989586621679078839"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJsonCharsetutf8"><span class="hs-identifier hs-type">MimeJsonCharsetutf8</span></a><span> </span><a href="#local-6989586621679078839"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850700"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encode</span><span>
</span><a name="line-215"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">FromJSON</span><span> </span><a href="#local-6989586621679076478"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=&gt;</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJsonCharsetutf8"><span class="hs-identifier hs-type">MimeJsonCharsetutf8</span></a><span> </span><a href="#local-6989586621679076478"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323850697"><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">A</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">eitherDecode</span><span>
</span><a name="line-216"></a><span class="hs-comment">-- instance MimeRender MimeJsonCharsetutf8 T.Text where mimeRender _ = undefined</span><span>
</span><a name="line-217"></a><span class="hs-comment">-- instance MimeUnrender MimeJsonCharsetutf8 T.Text where mimeUnrender _ = undefined</span><span>
</span><a name="line-218"></a><span>
</span><a name="line-219"></a><span class="hs-comment">-- ** MimeXmlCharsetutf8</span><span>
</span><a name="line-220"></a><span>
</span><a name="line-221"></a><span class="hs-keyword">data</span><span> </span><a name="MimeXmlCharsetutf8"><a href="SwaggerPetstore.MimeTypes.html#MimeXmlCharsetutf8"><span class="hs-identifier">MimeXmlCharsetutf8</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeXmlCharsetutf8"><a href="SwaggerPetstore.MimeTypes.html#MimeXmlCharsetutf8"><span class="hs-identifier">MimeXmlCharsetutf8</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
</span><a name="line-222"></a><span>
</span><a name="line-223"></a><span class="hs-comment">-- | @application/xml; charset=utf-8@</span><span>
</span><a name="line-224"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeXmlCharsetutf8"><span class="hs-identifier hs-type">MimeXmlCharsetutf8</span></a><span> </span><span class="hs-keyword">where</span><span>
</span><a name="line-225"></a><span> </span><a name="local-8214565720323850704"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromString</span><span> </span><span class="hs-string">&quot;application/xml; charset=utf-8&quot;</span><span>
</span><a name="line-226"></a><span class="hs-comment">-- instance MimeRender MimeXmlCharsetutf8 T.Text where mimeRender _ = undefined</span><span>
</span><a name="line-227"></a><span class="hs-comment">-- instance MimeUnrender MimeXmlCharsetutf8 T.Text where mimeUnrender _ = undefined</span><span>
</span><a name="line-228"></a><span>
</span><a name="line-229"></a></pre></body></html>
</span><a name="line-205"></a></pre></body></html>

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

File diff suppressed because it is too large Load Diff

891
samples/client/petstore/haskell-http-client/docs/src/SwaggerPetstore.ModelLens.html
View File

File diff suppressed because it is too large Load Diff

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

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \&quot; \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)

617
samples/client/petstore/haskell-http-client/docs/swagger-petstore.txt
View File

File diff suppressed because it is too large Load Diff

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

@ -60,7 +60,7 @@ runPet :: NH.Manager -> S.SwaggerPetstoreConfig -> IO ()
runPet mgr config = do
-- create the request for addPet, encoded with content-type application/json, with accept header application/json
let addPetRequest = S.addPet (S.ContentType S.MimeJSON) (S.Accept S.MimeJSON) (S.mkPet "name" ["url1", "url2"])
let addPetRequest = S.addPet (S.ContentType S.MimeJSON) (S.mkPet "name" ["url1", "url2"])
-- dispatchLbs simply returns the raw Network.HTTP.Client.Response ByteString
addPetResponse <- S.dispatchLbs mgr config addPetRequest
@ -116,7 +116,7 @@ runPet mgr config = do
mapM_ (\r -> putStrLn $ "findPetsByTags: found " <> (show . length) r <> " pets") findPetsByTagsResult
-- updatePet
let updatePetRequest = S.updatePet (S.ContentType S.MimeJSON) (S.Accept S.MimeXML) $ pet
let updatePetRequest = S.updatePet (S.ContentType S.MimeJSON) $ pet
{ S.petStatus = Just S.E'Status2'Available
, S.petCategory = Just (S.Category (Just 3) (Just "catname"))
}
@ -128,7 +128,7 @@ runPet mgr config = do
-- -- Defined in ‘SwaggerPetstore.API’
-- instance S.HasOptionalParam S.UpdatePetWithForm S.Status
-- -- Defined in ‘SwaggerPetstore.API’
let updatePetWithFormRequest = S.updatePetWithForm (S.Accept S.MimeJSON) (S.PetId pid)
let updatePetWithFormRequest = S.updatePetWithForm (S.PetId pid)
`S.applyOptionalParam` S.Name2 "petName"
`S.applyOptionalParam` S.StatusText "pending"
_ <- S.dispatchLbs mgr config updatePetWithFormRequest
@ -141,7 +141,7 @@ runPet mgr config = do
mapM_ (\r -> putStrLn $ "uploadFile: " <> show r) uploadFileRequestResult
-- deletePet
let deletePetRequest = S.deletePet (S.Accept S.MimeJSON) (S.PetId pid)
let deletePetRequest = S.deletePet (S.PetId pid)
`S.applyOptionalParam` S.ApiKey "api key"
_ <- S.dispatchLbs mgr config deletePetRequest
@ -182,7 +182,7 @@ runStore mgr config = do
mapM_ (\r -> putStrLn $ "getOrderById: found order: " <> show r) getOrderByIdRequestResult
-- deleteOrder
let deleteOrderRequest = S.deleteOrder (S.Accept S.MimeJSON) (S.OrderIdText "21")
let deleteOrderRequest = S.deleteOrder (S.OrderIdText "21")
_ <- S.dispatchLbs mgr config deleteOrderRequest
return ()
@ -198,27 +198,22 @@ instance S.Consumes S.UpdateUser S.MimeJSON
instance S.Consumes S.CreateUsersWithArrayInput S.MimeJSON
instance S.Consumes S.CreateUsersWithListInput S.MimeJSON
-- similarly we declare these operations are allowed to omit the
-- accept header despite what the swagger definition says
instance S.Produces S.CreateUsersWithArrayInput S.MimeNoContent
instance S.Produces S.CreateUsersWithListInput S.MimeNoContent
runUser :: NH.Manager -> S.SwaggerPetstoreConfig -> IO ()
runUser mgr config = do
let username = "hsusername"
-- createUser
let user = S.mkUser { S.userId = Just 21, S.userUsername = Just username }
let createUserRequest = S.createUser (S.ContentType S.MimeJSON) (S.Accept S.MimeJSON) user
let createUserRequest = S.createUser (S.ContentType S.MimeJSON) user
_ <- S.dispatchLbs mgr config createUserRequest
-- 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.ContentType S.MimeJSON) (S.Accept S.MimeNoContent) (S.Body users)
let createUsersWithArrayInputRequest = S.createUsersWithArrayInput (S.ContentType S.MimeJSON) (S.User2 users)
_ <- S.dispatchLbs mgr config createUsersWithArrayInputRequest
-- createUsersWithArrayInput
let createUsersWithListInputRequest = S.createUsersWithListInput (S.ContentType S.MimeJSON) (S.Accept S.MimeNoContent) (S.Body users)
let createUsersWithListInputRequest = S.createUsersWithListInput (S.ContentType S.MimeJSON) (S.User2 users)
_ <- S.dispatchLbs mgr config createUsersWithListInputRequest
-- getUserByName
@ -232,14 +227,14 @@ runUser mgr config = do
BCL.putStrLn $ "loginUser: " <> (NH.responseBody loginUserResult)
-- updateUser
let updateUserRequest = S.updateUser (S.ContentType S.MimeJSON) (S.Accept S.MimeJSON) (S.Username username) (user { S.userEmail = Just "xyz@example.com" })
let updateUserRequest = S.updateUser (S.ContentType S.MimeJSON) (user { S.userEmail = Just "xyz@example.com" }) (S.Username username)
_ <- S.dispatchLbs mgr config updateUserRequest
-- logoutUser
_ <- S.dispatchLbs mgr config (S.logoutUser (S.Accept S.MimeJSON))
_ <- S.dispatchLbs mgr config (S.logoutUser)
-- deleteUser
let deleteUserRequest = S.deleteUser (S.Accept S.MimeJSON) (S.Username username)
let deleteUserRequest = S.deleteUser (S.Username username)
_ <- S.dispatchLbs mgr config deleteUserRequest
return ()

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

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)

2
samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API.hs
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)

10
samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/AnotherFake.hs
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -68,15 +68,15 @@ import qualified Prelude as P
--
testSpecialTags
:: (Consumes TestSpecialTags MimeJSON, MimeRender MimeJSON Client)
=> Client -- ^ "body" - client model
=> Client -- ^ "client" - client model
-> SwaggerPetstoreRequest TestSpecialTags MimeJSON Client MimeJSON
testSpecialTags body =
testSpecialTags client =
_mkRequest "PATCH" ["/another-fake/dummy"]
`setBodyParam` body
`setBodyParam` client
data TestSpecialTags
-- | /Body Param/ "body" - client model
-- | /Body Param/ "Client" - client model
instance HasBodyParam TestSpecialTags Client
-- | @application/json@

131
samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/Fake.hs
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -74,8 +74,12 @@ fakeOuterBooleanSerialize _ _ =
data FakeOuterBooleanSerialize
-- | /Body Param/ "body" - Input boolean as post body
instance HasBodyParam FakeOuterBooleanSerialize OuterBoolean
-- | /Body Param/ "boolean_post_body" - Input boolean as post body
instance HasBodyParam FakeOuterBooleanSerialize BooleanPostBody
-- | @*/*@
instance MimeType mtype => Produces FakeOuterBooleanSerialize mtype
-- *** fakeOuterCompositeSerialize
@ -93,9 +97,13 @@ fakeOuterCompositeSerialize _ _ =
data FakeOuterCompositeSerialize
-- | /Body Param/ "body" - Input composite as post body
-- | /Body Param/ "OuterComposite" - Input composite as post body
instance HasBodyParam FakeOuterCompositeSerialize OuterComposite
-- | @*/*@
instance MimeType mtype => Produces FakeOuterCompositeSerialize mtype
-- *** fakeOuterNumberSerialize
-- | @POST \/fake\/outer\/number@
@ -113,7 +121,11 @@ fakeOuterNumberSerialize _ _ =
data FakeOuterNumberSerialize
-- | /Body Param/ "body" - Input number as post body
instance HasBodyParam FakeOuterNumberSerialize OuterNumber
instance HasBodyParam FakeOuterNumberSerialize Body
-- | @*/*@
instance MimeType mtype => Produces FakeOuterNumberSerialize mtype
-- *** fakeOuterStringSerialize
@ -132,7 +144,34 @@ fakeOuterStringSerialize _ _ =
data FakeOuterStringSerialize
-- | /Body Param/ "body" - Input string as post body
instance HasBodyParam FakeOuterStringSerialize OuterString
instance HasBodyParam FakeOuterStringSerialize BodyText
-- | @*/*@
instance MimeType mtype => Produces FakeOuterStringSerialize mtype
-- *** testBodyWithQueryParams
-- | @PUT \/fake\/body-with-query-params@
--
testBodyWithQueryParams
:: (Consumes TestBodyWithQueryParams MimeJSON, MimeRender MimeJSON User)
=> User -- ^ "user"
-> Query -- ^ "query"
-> SwaggerPetstoreRequest TestBodyWithQueryParams MimeJSON NoContent MimeNoContent
testBodyWithQueryParams user (Query query) =
_mkRequest "PUT" ["/fake/body-with-query-params"]
`setBodyParam` user
`setQuery` toQuery ("query", Just query)
data TestBodyWithQueryParams
instance HasBodyParam TestBodyWithQueryParams User
-- | @application/json@
instance Consumes TestBodyWithQueryParams MimeJSON
instance Produces TestBodyWithQueryParams MimeNoContent
-- *** testClientModel
@ -144,15 +183,15 @@ instance HasBodyParam FakeOuterStringSerialize OuterString
--
testClientModel
:: (Consumes TestClientModel MimeJSON, MimeRender MimeJSON Client)
=> Client -- ^ "body" - client model
=> Client -- ^ "client" - client model
-> SwaggerPetstoreRequest TestClientModel MimeJSON Client MimeJSON
testClientModel body =
testClientModel client =
_mkRequest "PATCH" ["/fake"]
`setBodyParam` body
`setBodyParam` client
data TestClientModel
-- | /Body Param/ "body" - client model
-- | /Body Param/ "Client" - client model
instance HasBodyParam TestClientModel Client
-- | @application/json@
@ -172,18 +211,14 @@ instance Produces TestClientModel MimeJSON
--
-- AuthMethod: 'AuthBasicHttpBasicTest'
--
-- Note: Has 'Produces' instances, but no response schema
--
testEndpointParameters
:: (Consumes TestEndpointParameters contentType)
=> ContentType contentType -- ^ request content-type ('MimeType')
-> Accept accept -- ^ request accept ('MimeType')
-> Number -- ^ "number" - None
:: (Consumes TestEndpointParameters MimeFormUrlEncoded)
=> Number -- ^ "number" - None
-> ParamDouble -- ^ "double" - None
-> PatternWithoutDelimiter -- ^ "patternWithoutDelimiter" - None
-> Byte -- ^ "byte" - None
-> SwaggerPetstoreRequest TestEndpointParameters contentType res accept
testEndpointParameters _ _ (Number number) (ParamDouble double) (PatternWithoutDelimiter patternWithoutDelimiter) (Byte byte) =
-> SwaggerPetstoreRequest TestEndpointParameters MimeFormUrlEncoded NoContent MimeNoContent
testEndpointParameters (Number number) (ParamDouble double) (PatternWithoutDelimiter patternWithoutDelimiter) (Byte byte) =
_mkRequest "POST" ["/fake"]
`_hasAuthType` (P.Proxy :: P.Proxy AuthBasicHttpBasicTest)
`addForm` toForm ("number", number)
@ -221,7 +256,7 @@ instance HasOptionalParam TestEndpointParameters ParamString where
-- | /Optional Param/ "binary" - None
instance HasOptionalParam TestEndpointParameters ParamBinary where
applyOptionalParam req (ParamBinary xs) =
req `addForm` toForm ("binary", xs)
req `_addMultiFormPart` NH.partFileSource "binary" xs
-- | /Optional Param/ "date" - None
instance HasOptionalParam TestEndpointParameters ParamDate where
@ -243,15 +278,10 @@ instance HasOptionalParam TestEndpointParameters Callback where
applyOptionalParam req (Callback xs) =
req `addForm` toForm ("callback", xs)
-- | @application/xml; charset=utf-8@
instance Consumes TestEndpointParameters MimeXmlCharsetutf8
-- | @application/json; charset=utf-8@
instance Consumes TestEndpointParameters MimeJsonCharsetutf8
-- | @application/x-www-form-urlencoded@
instance Consumes TestEndpointParameters MimeFormUrlEncoded
-- | @application/xml; charset=utf-8@
instance Produces TestEndpointParameters MimeXmlCharsetutf8
-- | @application/json; charset=utf-8@
instance Produces TestEndpointParameters MimeJsonCharsetutf8
instance Produces TestEndpointParameters MimeNoContent
-- *** testEnumParameters
@ -262,14 +292,10 @@ instance Produces TestEndpointParameters MimeJsonCharsetutf8
--
-- To test enum parameters
--
-- Note: Has 'Produces' instances, but no response schema
--
testEnumParameters
:: (Consumes TestEnumParameters contentType)
=> ContentType contentType -- ^ request content-type ('MimeType')
-> Accept accept -- ^ request accept ('MimeType')
-> SwaggerPetstoreRequest TestEnumParameters contentType res accept
testEnumParameters _ _ =
:: (Consumes TestEnumParameters MimeFormUrlEncoded)
=> SwaggerPetstoreRequest TestEnumParameters MimeFormUrlEncoded NoContent MimeNoContent
testEnumParameters =
_mkRequest "GET" ["/fake"]
data TestEnumParameters
@ -312,13 +338,12 @@ instance HasOptionalParam TestEnumParameters EnumQueryInteger where
-- | /Optional Param/ "enum_query_double" - Query parameter enum test (double)
instance HasOptionalParam TestEnumParameters EnumQueryDouble where
applyOptionalParam req (EnumQueryDouble xs) =
req `addForm` toForm ("enum_query_double", xs)
req `setQuery` toQuery ("enum_query_double", Just xs)
-- | @*/*@
instance MimeType mtype => Consumes TestEnumParameters mtype
-- | @application/x-www-form-urlencoded@
instance Consumes TestEnumParameters MimeFormUrlEncoded
-- | @*/*@
instance MimeType mtype => Produces TestEnumParameters mtype
instance Produces TestEnumParameters MimeNoContent
-- *** testInlineAdditionalProperties
@ -327,24 +352,24 @@ instance MimeType mtype => Produces TestEnumParameters mtype
--
-- test inline additionalProperties
--
--
--
testInlineAdditionalProperties
:: (Consumes TestInlineAdditionalProperties MimeJSON, MimeRender MimeJSON A.Value)
=> A.Value -- ^ "param" - request body
:: (Consumes TestInlineAdditionalProperties MimeJSON, MimeRender MimeJSON RequestBody)
=> RequestBody -- ^ "requestBody" - request body
-> SwaggerPetstoreRequest TestInlineAdditionalProperties MimeJSON NoContent MimeNoContent
testInlineAdditionalProperties param =
testInlineAdditionalProperties requestBody =
_mkRequest "POST" ["/fake/inline-additionalProperties"]
`setBodyParam` param
`setBodyParam` requestBody
data TestInlineAdditionalProperties
-- | /Body Param/ "param" - request body
instance HasBodyParam TestInlineAdditionalProperties A.Value
-- | /Body Param/ "request_body" - request body
instance HasBodyParam TestInlineAdditionalProperties RequestBody
-- | @application/json@
instance Consumes TestInlineAdditionalProperties MimeJSON
instance Produces TestInlineAdditionalProperties MimeNoContent
-- *** testJsonFormData
@ -352,13 +377,11 @@ instance Consumes TestInlineAdditionalProperties MimeJSON
--
-- test json serialization of form data
--
--
--
testJsonFormData
:: (Consumes TestJsonFormData MimeJSON)
:: (Consumes TestJsonFormData MimeFormUrlEncoded)
=> Param -- ^ "param" - field1
-> Param2 -- ^ "param2" - field2
-> SwaggerPetstoreRequest TestJsonFormData MimeJSON NoContent MimeNoContent
-> SwaggerPetstoreRequest TestJsonFormData MimeFormUrlEncoded NoContent MimeNoContent
testJsonFormData (Param param) (Param2 param2) =
_mkRequest "GET" ["/fake/jsonFormData"]
`addForm` toForm ("param", param)
@ -366,6 +389,8 @@ testJsonFormData (Param param) (Param2 param2) =
data TestJsonFormData
-- | @application/json@
instance Consumes TestJsonFormData MimeJSON
-- | @application/x-www-form-urlencoded@
instance Consumes TestJsonFormData MimeFormUrlEncoded
instance Produces TestJsonFormData MimeNoContent

12
samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/FakeClassnameTags123.hs
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -64,20 +64,22 @@ import qualified Prelude as P
--
-- To test class name in snake case
--
-- To test class name in snake case
--
-- AuthMethod: 'AuthApiKeyApiKeyQuery'
--
testClassname
:: (Consumes TestClassname MimeJSON, MimeRender MimeJSON Client)
=> Client -- ^ "body" - client model
=> Client -- ^ "client" - client model
-> SwaggerPetstoreRequest TestClassname MimeJSON Client MimeJSON
testClassname body =
testClassname client =
_mkRequest "PATCH" ["/fake_classname_test"]
`_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyApiKeyQuery)
`setBodyParam` body
`setBodyParam` client
data TestClassname
-- | /Body Param/ "body" - client model
-- | /Body Param/ "Client" - client model
instance HasBodyParam TestClassname Client
-- | @application/json@

80
samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/Pet.hs
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -64,26 +64,21 @@ import qualified Prelude as P
--
-- Add a new pet to the store
--
--
--
-- AuthMethod: 'AuthOAuthPetstoreAuth'
--
-- Note: Has 'Produces' instances, but no response schema
--
addPet
:: (Consumes AddPet contentType, MimeRender contentType Pet)
=> ContentType contentType -- ^ request content-type ('MimeType')
-> Accept accept -- ^ request accept ('MimeType')
-> Pet -- ^ "body" - Pet object that needs to be added to the store
-> SwaggerPetstoreRequest AddPet contentType res accept
addPet _ _ body =
-> Pet -- ^ "pet" - Pet object that needs to be added to the store
-> SwaggerPetstoreRequest AddPet contentType NoContent MimeNoContent
addPet _ pet =
_mkRequest "POST" ["/pet"]
`_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
`setBodyParam` body
`setBodyParam` pet
data AddPet
-- | /Body Param/ "body" - Pet object that needs to be added to the store
-- | /Body Param/ "Pet" - Pet object that needs to be added to the store
instance HasBodyParam AddPet Pet
-- | @application/json@
@ -91,10 +86,7 @@ instance Consumes AddPet MimeJSON
-- | @application/xml@
instance Consumes AddPet MimeXML
-- | @application/xml@
instance Produces AddPet MimeXML
-- | @application/json@
instance Produces AddPet MimeJSON
instance Produces AddPet MimeNoContent
-- *** deletePet
@ -103,17 +95,12 @@ instance Produces AddPet MimeJSON
--
-- Deletes a pet
--
--
--
-- AuthMethod: 'AuthOAuthPetstoreAuth'
--
-- Note: Has 'Produces' instances, but no response schema
--
deletePet
:: Accept accept -- ^ request accept ('MimeType')
-> PetId -- ^ "petId" - Pet id to delete
-> SwaggerPetstoreRequest DeletePet MimeNoContent res accept
deletePet _ (PetId petId) =
:: PetId -- ^ "petId" - Pet id to delete
-> SwaggerPetstoreRequest DeletePet MimeNoContent NoContent MimeNoContent
deletePet (PetId petId) =
_mkRequest "DELETE" ["/pet/",toPath petId]
`_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
@ -121,10 +108,8 @@ data DeletePet
instance HasOptionalParam DeletePet ApiKey where
applyOptionalParam req (ApiKey xs) =
req `setHeader` toHeader ("api_key", xs)
-- | @application/xml@
instance Produces DeletePet MimeXML
-- | @application/json@
instance Produces DeletePet MimeJSON
instance Produces DeletePet MimeNoContent
-- *** findPetsByStatus
@ -147,6 +132,7 @@ findPetsByStatus _ (Status status) =
`setQuery` toQueryColl CommaSeparated ("status", Just status)
data FindPetsByStatus
-- | @application/xml@
instance Produces FindPetsByStatus MimeXML
-- | @application/json@
@ -175,6 +161,7 @@ findPetsByTags _ (Tags tags) =
{-# DEPRECATED findPetsByTags "" #-}
data FindPetsByTags
-- | @application/xml@
instance Produces FindPetsByTags MimeXML
-- | @application/json@
@ -200,6 +187,7 @@ getPetById _ (PetId petId) =
`_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyApiKey)
data GetPetById
-- | @application/xml@
instance Produces GetPetById MimeXML
-- | @application/json@
@ -212,26 +200,21 @@ instance Produces GetPetById MimeJSON
--
-- Update an existing pet
--
--
--
-- AuthMethod: 'AuthOAuthPetstoreAuth'
--
-- Note: Has 'Produces' instances, but no response schema
--
updatePet
:: (Consumes UpdatePet contentType, MimeRender contentType Pet)
=> ContentType contentType -- ^ request content-type ('MimeType')
-> Accept accept -- ^ request accept ('MimeType')
-> Pet -- ^ "body" - Pet object that needs to be added to the store
-> SwaggerPetstoreRequest UpdatePet contentType res accept
updatePet _ _ body =
-> Pet -- ^ "pet" - Pet object that needs to be added to the store
-> SwaggerPetstoreRequest UpdatePet contentType NoContent MimeNoContent
updatePet _ pet =
_mkRequest "PUT" ["/pet"]
`_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
`setBodyParam` body
`setBodyParam` pet
data UpdatePet
-- | /Body Param/ "body" - Pet object that needs to be added to the store
-- | /Body Param/ "Pet" - Pet object that needs to be added to the store
instance HasBodyParam UpdatePet Pet
-- | @application/json@
@ -239,10 +222,7 @@ instance Consumes UpdatePet MimeJSON
-- | @application/xml@
instance Consumes UpdatePet MimeXML
-- | @application/xml@
instance Produces UpdatePet MimeXML
-- | @application/json@
instance Produces UpdatePet MimeJSON
instance Produces UpdatePet MimeNoContent
-- *** updatePetWithForm
@ -251,18 +231,13 @@ instance Produces UpdatePet MimeJSON
--
-- Updates a pet in the store with form data
--
--
--
-- AuthMethod: 'AuthOAuthPetstoreAuth'
--
-- Note: Has 'Produces' instances, but no response schema
--
updatePetWithForm
:: (Consumes UpdatePetWithForm MimeFormUrlEncoded)
=> Accept accept -- ^ request accept ('MimeType')
-> PetId -- ^ "petId" - ID of pet that needs to be updated
-> SwaggerPetstoreRequest UpdatePetWithForm MimeFormUrlEncoded res accept
updatePetWithForm _ (PetId petId) =
=> PetId -- ^ "petId" - ID of pet that needs to be updated
-> SwaggerPetstoreRequest UpdatePetWithForm MimeFormUrlEncoded NoContent MimeNoContent
updatePetWithForm (PetId petId) =
_mkRequest "POST" ["/pet/",toPath petId]
`_hasAuthType` (P.Proxy :: P.Proxy AuthOAuthPetstoreAuth)
@ -281,10 +256,7 @@ instance HasOptionalParam UpdatePetWithForm StatusText where
-- | @application/x-www-form-urlencoded@
instance Consumes UpdatePetWithForm MimeFormUrlEncoded
-- | @application/xml@
instance Produces UpdatePetWithForm MimeXML
-- | @application/json@
instance Produces UpdatePetWithForm MimeJSON
instance Produces UpdatePetWithForm MimeNoContent
-- *** uploadFile
@ -293,8 +265,6 @@ instance Produces UpdatePetWithForm MimeJSON
--
-- uploads an image
--
--
--
-- AuthMethod: 'AuthOAuthPetstoreAuth'
--
uploadFile

30
samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/Store.hs
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -66,20 +66,15 @@ import qualified Prelude as P
--
-- For valid response try integer IDs with value < 1000. Anything above 1000 or nonintegers will generate API errors
--
-- Note: Has 'Produces' instances, but no response schema
--
deleteOrder
:: Accept accept -- ^ request accept ('MimeType')
-> OrderIdText -- ^ "orderId" - ID of the order that needs to be deleted
-> SwaggerPetstoreRequest DeleteOrder MimeNoContent res accept
deleteOrder _ (OrderIdText orderId) =
:: OrderIdText -- ^ "orderId" - ID of the order that needs to be deleted
-> SwaggerPetstoreRequest DeleteOrder MimeNoContent NoContent MimeNoContent
deleteOrder (OrderIdText orderId) =
_mkRequest "DELETE" ["/store/order/",toPath orderId]
data DeleteOrder
-- | @application/xml@
instance Produces DeleteOrder MimeXML
-- | @application/json@
instance Produces DeleteOrder MimeJSON
instance Produces DeleteOrder MimeNoContent
-- *** getInventory
@ -99,6 +94,7 @@ getInventory =
`_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyApiKey)
data GetInventory
-- | @application/json@
instance Produces GetInventory MimeJSON
@ -119,6 +115,7 @@ getOrderById _ (OrderId orderId) =
_mkRequest "GET" ["/store/order/",toPath orderId]
data GetOrderById
-- | @application/xml@
instance Produces GetOrderById MimeXML
-- | @application/json@
@ -131,22 +128,21 @@ instance Produces GetOrderById MimeJSON
--
-- Place an order for a pet
--
--
--
placeOrder
:: (Consumes PlaceOrder contentType, MimeRender contentType Order)
=> ContentType contentType -- ^ request content-type ('MimeType')
-> Accept accept -- ^ request accept ('MimeType')
-> Order -- ^ "body" - order placed for purchasing the pet
-> Order -- ^ "order" - order placed for purchasing the pet
-> SwaggerPetstoreRequest PlaceOrder contentType Order accept
placeOrder _ _ body =
placeOrder _ _ order =
_mkRequest "POST" ["/store/order"]
`setBodyParam` body
`setBodyParam` order
data PlaceOrder
-- | /Body Param/ "body" - order placed for purchasing the pet
-- | /Body Param/ "Order" - order placed for purchasing the pet
instance HasBodyParam PlaceOrder Order
-- | @application/xml@
instance Produces PlaceOrder MimeXML
-- | @application/json@

128
samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/API/User.hs
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -66,26 +66,21 @@ import qualified Prelude as P
--
-- This can only be done by the logged in user.
--
-- Note: Has 'Produces' instances, but no response schema
--
createUser
:: (Consumes CreateUser contentType, MimeRender contentType User)
=> ContentType contentType -- ^ request content-type ('MimeType')
-> Accept accept -- ^ request accept ('MimeType')
-> User -- ^ "body" - Created user object
-> SwaggerPetstoreRequest CreateUser contentType res accept
createUser _ _ body =
-> User -- ^ "user" - Created user object
-> SwaggerPetstoreRequest CreateUser contentType NoContent MimeNoContent
createUser _ user =
_mkRequest "POST" ["/user"]
`setBodyParam` body
`setBodyParam` user
data CreateUser
-- | /Body Param/ "body" - Created user object
-- | /Body Param/ "User" - Created user object
instance HasBodyParam CreateUser User
-- | @application/xml@
instance Produces CreateUser MimeXML
-- | @application/json@
instance Produces CreateUser MimeJSON
instance Produces CreateUser MimeNoContent
-- *** createUsersWithArrayInput
@ -94,28 +89,21 @@ instance Produces CreateUser MimeJSON
--
-- Creates list of users with given input array
--
--
--
-- Note: Has 'Produces' instances, but no response schema
--
createUsersWithArrayInput
:: (Consumes CreateUsersWithArrayInput contentType, MimeRender contentType Body)
:: (Consumes CreateUsersWithArrayInput contentType, MimeRender contentType User2)
=> ContentType contentType -- ^ request content-type ('MimeType')
-> Accept accept -- ^ request accept ('MimeType')
-> Body -- ^ "body" - List of user object
-> SwaggerPetstoreRequest CreateUsersWithArrayInput contentType res accept
createUsersWithArrayInput _ _ body =
-> User2 -- ^ "user" - List of user object
-> SwaggerPetstoreRequest CreateUsersWithArrayInput contentType NoContent MimeNoContent
createUsersWithArrayInput _ user =
_mkRequest "POST" ["/user/createWithArray"]
`setBodyParam` body
`setBodyParam` user
data CreateUsersWithArrayInput
-- | /Body Param/ "body" - List of user object
instance HasBodyParam CreateUsersWithArrayInput Body
-- | @application/xml@
instance Produces CreateUsersWithArrayInput MimeXML
-- | @application/json@
instance Produces CreateUsersWithArrayInput MimeJSON
-- | /Body Param/ "User" - List of user object
instance HasBodyParam CreateUsersWithArrayInput User2
instance Produces CreateUsersWithArrayInput MimeNoContent
-- *** createUsersWithListInput
@ -124,28 +112,21 @@ instance Produces CreateUsersWithArrayInput MimeJSON
--
-- Creates list of users with given input array
--
--
--
-- Note: Has 'Produces' instances, but no response schema
--
createUsersWithListInput
:: (Consumes CreateUsersWithListInput contentType, MimeRender contentType Body)
:: (Consumes CreateUsersWithListInput contentType, MimeRender contentType User2)
=> ContentType contentType -- ^ request content-type ('MimeType')
-> Accept accept -- ^ request accept ('MimeType')
-> Body -- ^ "body" - List of user object
-> SwaggerPetstoreRequest CreateUsersWithListInput contentType res accept
createUsersWithListInput _ _ body =
-> User2 -- ^ "user" - List of user object
-> SwaggerPetstoreRequest CreateUsersWithListInput contentType NoContent MimeNoContent
createUsersWithListInput _ user =
_mkRequest "POST" ["/user/createWithList"]
`setBodyParam` body
`setBodyParam` user
data CreateUsersWithListInput
-- | /Body Param/ "body" - List of user object
instance HasBodyParam CreateUsersWithListInput Body
-- | @application/xml@
instance Produces CreateUsersWithListInput MimeXML
-- | @application/json@
instance Produces CreateUsersWithListInput MimeJSON
-- | /Body Param/ "User" - List of user object
instance HasBodyParam CreateUsersWithListInput User2
instance Produces CreateUsersWithListInput MimeNoContent
-- *** deleteUser
@ -156,20 +137,15 @@ instance Produces CreateUsersWithListInput MimeJSON
--
-- This can only be done by the logged in user.
--
-- Note: Has 'Produces' instances, but no response schema
--
deleteUser
:: Accept accept -- ^ request accept ('MimeType')
-> Username -- ^ "username" - The name that needs to be deleted
-> SwaggerPetstoreRequest DeleteUser MimeNoContent res accept
deleteUser _ (Username username) =
:: Username -- ^ "username" - The name that needs to be deleted
-> SwaggerPetstoreRequest DeleteUser MimeNoContent NoContent MimeNoContent
deleteUser (Username username) =
_mkRequest "DELETE" ["/user/",toPath username]
data DeleteUser
-- | @application/xml@
instance Produces DeleteUser MimeXML
-- | @application/json@
instance Produces DeleteUser MimeJSON
instance Produces DeleteUser MimeNoContent
-- *** getUserByName
@ -178,16 +154,15 @@ instance Produces DeleteUser MimeJSON
--
-- Get user by user name
--
--
--
getUserByName
:: Accept accept -- ^ request accept ('MimeType')
-> Username -- ^ "username" - The name that needs to be fetched. Use user1 for testing.
-> Username -- ^ "username" - The name that needs to be fetched. Use user1 for testing.
-> SwaggerPetstoreRequest GetUserByName MimeNoContent User accept
getUserByName _ (Username username) =
_mkRequest "GET" ["/user/",toPath username]
data GetUserByName
-- | @application/xml@
instance Produces GetUserByName MimeXML
-- | @application/json@
@ -200,8 +175,6 @@ instance Produces GetUserByName MimeJSON
--
-- Logs user into the system
--
--
--
loginUser
:: Accept accept -- ^ request accept ('MimeType')
-> Username -- ^ "username" - The user name for login
@ -213,6 +186,7 @@ loginUser _ (Username username) (Password password) =
`setQuery` toQuery ("password", Just password)
data LoginUser
-- | @application/xml@
instance Produces LoginUser MimeXML
-- | @application/json@
@ -225,21 +199,14 @@ instance Produces LoginUser MimeJSON
--
-- Logs out current logged in user session
--
--
--
-- Note: Has 'Produces' instances, but no response schema
--
logoutUser
:: Accept accept -- ^ request accept ('MimeType')
-> SwaggerPetstoreRequest LogoutUser MimeNoContent res accept
logoutUser _ =
:: SwaggerPetstoreRequest LogoutUser MimeNoContent NoContent MimeNoContent
logoutUser =
_mkRequest "GET" ["/user/logout"]
data LogoutUser
-- | @application/xml@
instance Produces LogoutUser MimeXML
-- | @application/json@
instance Produces LogoutUser MimeJSON
instance Produces LogoutUser MimeNoContent
-- *** updateUser
@ -250,25 +217,20 @@ instance Produces LogoutUser MimeJSON
--
-- This can only be done by the logged in user.
--
-- Note: Has 'Produces' instances, but no response schema
--
updateUser
:: (Consumes UpdateUser contentType, MimeRender contentType User)
=> ContentType contentType -- ^ request content-type ('MimeType')
-> Accept accept -- ^ request accept ('MimeType')
-> User -- ^ "user" - Updated user object
-> Username -- ^ "username" - name that need to be deleted
-> User -- ^ "body" - Updated user object
-> SwaggerPetstoreRequest UpdateUser contentType res accept
updateUser _ _ (Username username) body =
-> SwaggerPetstoreRequest UpdateUser contentType NoContent MimeNoContent
updateUser _ user (Username username) =
_mkRequest "PUT" ["/user/",toPath username]
`setBodyParam` body
`setBodyParam` user
data UpdateUser
-- | /Body Param/ "body" - Updated user object
-- | /Body Param/ "User" - Updated user object
instance HasBodyParam UpdateUser User
-- | @application/xml@
instance Produces UpdateUser MimeXML
-- | @application/json@
instance Produces UpdateUser MimeJSON
instance Produces UpdateUser MimeNoContent

2
samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Client.hs
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)

2
samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Core.hs
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)

2
samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/Logging.hs
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)

26
samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/MimeTypes.hs
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -202,27 +202,3 @@ instance MimeUnrender MimeOctetStream String where mimeUnrender _ = P.Right . BC
instance MimeUnrender MimeNoContent NoContent where mimeUnrender _ = P.Right . P.const NoContent
-- * Custom Mime Types
-- ** MimeJsonCharsetutf8
data MimeJsonCharsetutf8 = MimeJsonCharsetutf8 deriving (P.Typeable)
-- | @application/json; charset=utf-8@
instance MimeType MimeJsonCharsetutf8 where
mimeType _ = Just $ P.fromString "application/json; charset=utf-8"
instance A.ToJSON a => MimeRender MimeJsonCharsetutf8 a where mimeRender _ = A.encode
instance A.FromJSON a => MimeUnrender MimeJsonCharsetutf8 a where mimeUnrender _ = A.eitherDecode
-- instance MimeRender MimeJsonCharsetutf8 T.Text where mimeRender _ = undefined
-- instance MimeUnrender MimeJsonCharsetutf8 T.Text where mimeUnrender _ = undefined
-- ** MimeXmlCharsetutf8
data MimeXmlCharsetutf8 = MimeXmlCharsetutf8 deriving (P.Typeable)
-- | @application/xml; charset=utf-8@
instance MimeType MimeXmlCharsetutf8 where
mimeType _ = Just $ P.fromString "application/xml; charset=utf-8"
-- instance MimeRender MimeXmlCharsetutf8 T.Text where mimeRender _ = undefined
-- instance MimeUnrender MimeXmlCharsetutf8 T.Text where mimeUnrender _ = undefined

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

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -74,7 +74,13 @@ newtype AdditionalMetadata = AdditionalMetadata { unAdditionalMetadata :: Text }
newtype ApiKey = ApiKey { unApiKey :: Text } deriving (P.Eq, P.Show)
-- ** Body
newtype Body = Body { unBody :: [User] } deriving (P.Eq, P.Show, A.ToJSON)
newtype Body = Body { unBody :: Double } deriving (P.Eq, P.Show, A.ToJSON)
-- ** BodyText
newtype BodyText = BodyText { unBodyText :: Text } deriving (P.Eq, P.Show, A.ToJSON)
-- ** BooleanPostBody
newtype BooleanPostBody = BooleanPostBody { unBooleanPostBody :: Bool } deriving (P.Eq, P.Show, A.ToJSON)
-- ** Byte
newtype Byte = Byte { unByte :: ByteArray } deriving (P.Eq, P.Show)
@ -86,13 +92,13 @@ newtype Callback = Callback { unCallback :: Text } deriving (P.Eq, P.Show)
newtype EnumFormString = EnumFormString { unEnumFormString :: E'EnumFormString } deriving (P.Eq, P.Show)
-- ** EnumFormStringArray
newtype EnumFormStringArray = EnumFormStringArray { unEnumFormStringArray :: [E'Inner2] } deriving (P.Eq, P.Show)
newtype EnumFormStringArray = EnumFormStringArray { unEnumFormStringArray :: [E'EnumFormStringArray] } deriving (P.Eq, P.Show)
-- ** EnumHeaderString
newtype EnumHeaderString = EnumHeaderString { unEnumHeaderString :: E'EnumFormString } deriving (P.Eq, P.Show)
-- ** EnumHeaderStringArray
newtype EnumHeaderStringArray = EnumHeaderStringArray { unEnumHeaderStringArray :: [E'Inner2] } deriving (P.Eq, P.Show)
newtype EnumHeaderStringArray = EnumHeaderStringArray { unEnumHeaderStringArray :: [E'EnumFormStringArray] } deriving (P.Eq, P.Show)
-- ** EnumQueryDouble
newtype EnumQueryDouble = EnumQueryDouble { unEnumQueryDouble :: E'EnumNumber } deriving (P.Eq, P.Show)
@ -104,7 +110,7 @@ newtype EnumQueryInteger = EnumQueryInteger { unEnumQueryInteger :: E'EnumQueryI
newtype EnumQueryString = EnumQueryString { unEnumQueryString :: E'EnumFormString } deriving (P.Eq, P.Show)
-- ** EnumQueryStringArray
newtype EnumQueryStringArray = EnumQueryStringArray { unEnumQueryStringArray :: [E'Inner2] } deriving (P.Eq, P.Show)
newtype EnumQueryStringArray = EnumQueryStringArray { unEnumQueryStringArray :: [E'EnumFormStringArray] } deriving (P.Eq, P.Show)
-- ** File
newtype File = File { unFile :: FilePath } deriving (P.Eq, P.Show)
@ -134,7 +140,7 @@ newtype Param = Param { unParam :: Text } deriving (P.Eq, P.Show)
newtype Param2 = Param2 { unParam2 :: Text } deriving (P.Eq, P.Show)
-- ** ParamBinary
newtype ParamBinary = ParamBinary { unParamBinary :: Binary } deriving (P.Eq, P.Show)
newtype ParamBinary = ParamBinary { unParamBinary :: FilePath } deriving (P.Eq, P.Show)
-- ** ParamDate
newtype ParamDate = ParamDate { unParamDate :: Date } deriving (P.Eq, P.Show)
@ -163,6 +169,12 @@ newtype PatternWithoutDelimiter = PatternWithoutDelimiter { unPatternWithoutDeli
-- ** PetId
newtype PetId = PetId { unPetId :: Integer } deriving (P.Eq, P.Show)
-- ** Query
newtype Query = Query { unQuery :: Text } deriving (P.Eq, P.Show)
-- ** RequestBody
newtype RequestBody = RequestBody { unRequestBody :: Text } deriving (P.Eq, P.Show, A.ToJSON)
-- ** Status
newtype Status = Status { unStatus :: [E'Status2] } deriving (P.Eq, P.Show)
@ -172,6 +184,9 @@ newtype StatusText = StatusText { unStatusText :: Text } deriving (P.Eq, P.Show)
-- ** Tags
newtype Tags = Tags { unTags :: [Text] } deriving (P.Eq, P.Show)
-- ** User2
newtype User2 = User2 { unUser2 :: [User] } deriving (P.Eq, P.Show, A.ToJSON)
-- ** Username
newtype Username = Username { unUsername :: Text } deriving (P.Eq, P.Show)
@ -245,31 +260,10 @@ mkAnimal animalClassName =
-- ** AnimalFarm
-- | AnimalFarm
data AnimalFarm = AnimalFarm
{
} deriving (P.Show, P.Eq, P.Typeable)
newtype AnimalFarm = AnimalFarm
{ unAnimalFarm :: [Animal]
} deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON)
-- | FromJSON AnimalFarm
instance A.FromJSON AnimalFarm where
parseJSON = A.withObject "AnimalFarm" $ \o ->
pure AnimalFarm
-- | ToJSON AnimalFarm
instance A.ToJSON AnimalFarm where
toJSON AnimalFarm =
_omitNulls
[
]
-- | Construct a value of type 'AnimalFarm' (by applying it's required fields, if any)
mkAnimalFarm
:: AnimalFarm
mkAnimalFarm =
AnimalFarm
{
}
-- ** ApiResponse
-- | ApiResponse
@ -447,6 +441,43 @@ mkCapitalization =
, capitalizationAttName = Nothing
}
-- ** Cat
-- | Cat
data Cat = Cat
{ catClassName :: !(Text) -- ^ /Required/ "className"
, catColor :: !(Maybe Text) -- ^ "color"
, catDeclawed :: !(Maybe Bool) -- ^ "declawed"
} deriving (P.Show, P.Eq, P.Typeable)
-- | FromJSON Cat
instance A.FromJSON Cat where
parseJSON = A.withObject "Cat" $ \o ->
Cat
<$> (o .: "className")
<*> (o .:? "color")
<*> (o .:? "declawed")
-- | ToJSON Cat
instance A.ToJSON Cat where
toJSON Cat {..} =
_omitNulls
[ "className" .= catClassName
, "color" .= catColor
, "declawed" .= catDeclawed
]
-- | Construct a value of type 'Cat' (by applying it's required fields, if any)
mkCat
:: Text -- ^ 'catClassName'
-> Cat
mkCat catClassName =
Cat
{ catClassName
, catColor = Nothing
, catDeclawed = Nothing
}
-- ** Category
-- | Category
data Category = Category
@ -536,6 +567,43 @@ mkClient =
{ clientClient = Nothing
}
-- ** Dog
-- | Dog
data Dog = Dog
{ dogClassName :: !(Text) -- ^ /Required/ "className"
, dogColor :: !(Maybe Text) -- ^ "color"
, dogBreed :: !(Maybe Text) -- ^ "breed"
} deriving (P.Show, P.Eq, P.Typeable)
-- | FromJSON Dog
instance A.FromJSON Dog where
parseJSON = A.withObject "Dog" $ \o ->
Dog
<$> (o .: "className")
<*> (o .:? "color")
<*> (o .:? "breed")
-- | ToJSON Dog
instance A.ToJSON Dog where
toJSON Dog {..} =
_omitNulls
[ "className" .= dogClassName
, "color" .= dogColor
, "breed" .= dogBreed
]
-- | Construct a value of type 'Dog' (by applying it's required fields, if any)
mkDog
:: Text -- ^ 'dogClassName'
-> Dog
mkDog dogClassName =
Dog
{ dogClassName
, dogColor = Nothing
, dogBreed = Nothing
}
-- ** EnumArrays
-- | EnumArrays
data EnumArrays = EnumArrays
@ -572,6 +640,7 @@ mkEnumArrays =
-- | EnumTest
data EnumTest = EnumTest
{ enumTestEnumString :: !(Maybe E'EnumString) -- ^ "enum_string"
, enumTestEnumStringRequired :: !(E'EnumString) -- ^ /Required/ "enum_string_required"
, enumTestEnumInteger :: !(Maybe E'EnumInteger) -- ^ "enum_integer"
, enumTestEnumNumber :: !(Maybe E'EnumNumber) -- ^ "enum_number"
, enumTestOuterEnum :: !(Maybe OuterEnum) -- ^ "outerEnum"
@ -582,6 +651,7 @@ instance A.FromJSON EnumTest where
parseJSON = A.withObject "EnumTest" $ \o ->
EnumTest
<$> (o .:? "enum_string")
<*> (o .: "enum_string_required")
<*> (o .:? "enum_integer")
<*> (o .:? "enum_number")
<*> (o .:? "outerEnum")
@ -591,6 +661,7 @@ instance A.ToJSON EnumTest where
toJSON EnumTest {..} =
_omitNulls
[ "enum_string" .= enumTestEnumString
, "enum_string_required" .= enumTestEnumStringRequired
, "enum_integer" .= enumTestEnumInteger
, "enum_number" .= enumTestEnumNumber
, "outerEnum" .= enumTestOuterEnum
@ -599,10 +670,12 @@ instance A.ToJSON EnumTest where
-- | Construct a value of type 'EnumTest' (by applying it's required fields, if any)
mkEnumTest
:: EnumTest
mkEnumTest =
:: E'EnumString -- ^ 'enumTestEnumStringRequired'
-> EnumTest
mkEnumTest enumTestEnumStringRequired =
EnumTest
{ enumTestEnumString = Nothing
, enumTestEnumStringRequired
, enumTestEnumInteger = Nothing
, enumTestEnumNumber = Nothing
, enumTestOuterEnum = Nothing
@ -619,7 +692,7 @@ data FormatTest = FormatTest
, formatTestDouble :: !(Maybe Double) -- ^ "double"
, formatTestString :: !(Maybe Text) -- ^ "string"
, formatTestByte :: !(ByteArray) -- ^ /Required/ "byte"
, formatTestBinary :: !(Maybe Binary) -- ^ "binary"
, formatTestBinary :: !(Maybe FilePath) -- ^ "binary"
, formatTestDate :: !(Date) -- ^ /Required/ "date"
, formatTestDateTime :: !(Maybe DateTime) -- ^ "dateTime"
, formatTestUuid :: !(Maybe Text) -- ^ "uuid"
@ -1000,7 +1073,7 @@ mkOrder =
-- | OuterBoolean
newtype OuterBoolean = OuterBoolean
{ unOuterBoolean :: Bool
} deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON, WH.ToHttpApiData, WH.FromHttpApiData)
} deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON)
-- ** OuterComposite
@ -1043,14 +1116,14 @@ mkOuterComposite =
-- | OuterNumber
newtype OuterNumber = OuterNumber
{ unOuterNumber :: Double
} deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON, WH.ToHttpApiData, WH.FromHttpApiData)
} deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON)
-- ** OuterString
-- | OuterString
newtype OuterString = OuterString
{ unOuterString :: Text
} deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON, WH.ToHttpApiData, WH.FromHttpApiData)
} deriving (P.Eq, P.Show, P.Typeable, A.ToJSON, A.FromJSON)
-- ** Pet
@ -1251,80 +1324,6 @@ mkUser =
, userUserStatus = Nothing
}
-- ** Cat
-- | Cat
data Cat = Cat
{ catClassName :: !(Text) -- ^ /Required/ "className"
, catColor :: !(Maybe Text) -- ^ "color"
, catDeclawed :: !(Maybe Bool) -- ^ "declawed"
} deriving (P.Show, P.Eq, P.Typeable)
-- | FromJSON Cat
instance A.FromJSON Cat where
parseJSON = A.withObject "Cat" $ \o ->
Cat
<$> (o .: "className")
<*> (o .:? "color")
<*> (o .:? "declawed")
-- | ToJSON Cat
instance A.ToJSON Cat where
toJSON Cat {..} =
_omitNulls
[ "className" .= catClassName
, "color" .= catColor
, "declawed" .= catDeclawed
]
-- | Construct a value of type 'Cat' (by applying it's required fields, if any)
mkCat
:: Text -- ^ 'catClassName'
-> Cat
mkCat catClassName =
Cat
{ catClassName
, catColor = Nothing
, catDeclawed = Nothing
}
-- ** Dog
-- | Dog
data Dog = Dog
{ dogClassName :: !(Text) -- ^ /Required/ "className"
, dogColor :: !(Maybe Text) -- ^ "color"
, dogBreed :: !(Maybe Text) -- ^ "breed"
} deriving (P.Show, P.Eq, P.Typeable)
-- | FromJSON Dog
instance A.FromJSON Dog where
parseJSON = A.withObject "Dog" $ \o ->
Dog
<$> (o .: "className")
<*> (o .:? "color")
<*> (o .:? "breed")
-- | ToJSON Dog
instance A.ToJSON Dog where
toJSON Dog {..} =
_omitNulls
[ "className" .= dogClassName
, "color" .= dogColor
, "breed" .= dogBreed
]
-- | Construct a value of type 'Dog' (by applying it's required fields, if any)
mkDog
:: Text -- ^ 'dogClassName'
-> Dog
mkDog dogClassName =
Dog
{ dogClassName
, dogColor = Nothing
, dogBreed = Nothing
}
-- * Enums
@ -1359,7 +1358,8 @@ toE'ArrayEnum = \case
-- ** E'EnumFormString
-- | Enum of 'Text'
-- | Enum of 'Text' .
-- Form parameter enum test (string)
data E'EnumFormString
= E'EnumFormString'_abc -- ^ @"_abc"@
| E'EnumFormString'_efg -- ^ @"-efg"@
@ -1388,6 +1388,34 @@ toE'EnumFormString = \case
s -> P.Left $ "toE'EnumFormString: enum parse failure: " P.++ P.show s
-- ** E'EnumFormStringArray
-- | Enum of 'Text'
data E'EnumFormStringArray
= E'EnumFormStringArray'GreaterThan -- ^ @">"@
| E'EnumFormStringArray'Dollar -- ^ @"$"@
deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
instance A.ToJSON E'EnumFormStringArray where toJSON = A.toJSON . fromE'EnumFormStringArray
instance A.FromJSON E'EnumFormStringArray where parseJSON o = P.either P.fail (pure . P.id) . toE'EnumFormStringArray =<< A.parseJSON o
instance WH.ToHttpApiData E'EnumFormStringArray where toQueryParam = WH.toQueryParam . fromE'EnumFormStringArray
instance WH.FromHttpApiData E'EnumFormStringArray where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'EnumFormStringArray
instance MimeRender MimeMultipartFormData E'EnumFormStringArray where mimeRender _ = mimeRenderDefaultMultipartFormData
-- | unwrap 'E'EnumFormStringArray' enum
fromE'EnumFormStringArray :: E'EnumFormStringArray -> Text
fromE'EnumFormStringArray = \case
E'EnumFormStringArray'GreaterThan -> ">"
E'EnumFormStringArray'Dollar -> "$"
-- | parse 'E'EnumFormStringArray' enum
toE'EnumFormStringArray :: Text -> P.Either String E'EnumFormStringArray
toE'EnumFormStringArray = \case
">" -> P.Right E'EnumFormStringArray'GreaterThan
"$" -> P.Right E'EnumFormStringArray'Dollar
s -> P.Left $ "toE'EnumFormStringArray: enum parse failure: " P.++ P.show s
-- ** E'EnumInteger
-- | Enum of 'Int'
@ -1531,34 +1559,6 @@ toE'Inner = \case
s -> P.Left $ "toE'Inner: enum parse failure: " P.++ P.show s
-- ** E'Inner2
-- | Enum of 'Text'
data E'Inner2
= E'Inner2'GreaterThan -- ^ @">"@
| E'Inner2'Dollar -- ^ @"$"@
deriving (P.Show, P.Eq, P.Typeable, P.Ord, P.Bounded, P.Enum)
instance A.ToJSON E'Inner2 where toJSON = A.toJSON . fromE'Inner2
instance A.FromJSON E'Inner2 where parseJSON o = P.either P.fail (pure . P.id) . toE'Inner2 =<< A.parseJSON o
instance WH.ToHttpApiData E'Inner2 where toQueryParam = WH.toQueryParam . fromE'Inner2
instance WH.FromHttpApiData E'Inner2 where parseQueryParam o = WH.parseQueryParam o >>= P.left T.pack . toE'Inner2
instance MimeRender MimeMultipartFormData E'Inner2 where mimeRender _ = mimeRenderDefaultMultipartFormData
-- | unwrap 'E'Inner2' enum
fromE'Inner2 :: E'Inner2 -> Text
fromE'Inner2 = \case
E'Inner2'GreaterThan -> ">"
E'Inner2'Dollar -> "$"
-- | parse 'E'Inner2' enum
toE'Inner2 :: Text -> P.Either String E'Inner2
toE'Inner2 = \case
">" -> P.Right E'Inner2'GreaterThan
"$" -> P.Right E'Inner2'Dollar
s -> P.Left $ "toE'Inner2: enum parse failure: " P.++ P.show s
-- ** E'JustSymbol
-- | Enum of 'Text'

85
samples/client/petstore/haskell-http-client/lib/SwaggerPetstore/ModelLens.hs
View File

@ -3,7 +3,7 @@
This spec is mainly for testing Petstore server and contains fake endpoints, models. Please do not use this for any other purpose. Special characters: \" \\
OpenAPI spec version: 2.0
OpenAPI Version: 3.0.1
Swagger Petstore API version: 1.0.0
Contact: apiteam@swagger.io
Generated by Swagger Codegen (https://github.com/swagger-api/swagger-codegen.git)
@ -159,6 +159,25 @@ capitalizationAttNameL f Capitalization{..} = (\capitalizationAttName -> Capital
-- * Cat
-- | 'catClassName' Lens
catClassNameL :: Lens_' Cat (Text)
catClassNameL f Cat{..} = (\catClassName -> Cat { catClassName, ..} ) <$> f catClassName
{-# INLINE catClassNameL #-}
-- | 'catColor' Lens
catColorL :: Lens_' Cat (Maybe Text)
catColorL f Cat{..} = (\catColor -> Cat { catColor, ..} ) <$> f catColor
{-# INLINE catColorL #-}
-- | 'catDeclawed' Lens
catDeclawedL :: Lens_' Cat (Maybe Bool)
catDeclawedL f Cat{..} = (\catDeclawed -> Cat { catDeclawed, ..} ) <$> f catDeclawed
{-# INLINE catDeclawedL #-}
-- * Category
-- | 'categoryId' Lens
@ -191,6 +210,25 @@ clientClientL f Client{..} = (\clientClient -> Client { clientClient, ..} ) <$>
-- * Dog
-- | 'dogClassName' Lens
dogClassNameL :: Lens_' Dog (Text)
dogClassNameL f Dog{..} = (\dogClassName -> Dog { dogClassName, ..} ) <$> f dogClassName
{-# INLINE dogClassNameL #-}
-- | 'dogColor' Lens
dogColorL :: Lens_' Dog (Maybe Text)
dogColorL f Dog{..} = (\dogColor -> Dog { dogColor, ..} ) <$> f dogColor
{-# INLINE dogColorL #-}
-- | 'dogBreed' Lens
dogBreedL :: Lens_' Dog (Maybe Text)
dogBreedL f Dog{..} = (\dogBreed -> Dog { dogBreed, ..} ) <$> f dogBreed
{-# INLINE dogBreedL #-}
-- * EnumArrays
-- | 'enumArraysJustSymbol' Lens
@ -216,6 +254,11 @@ enumTestEnumStringL :: Lens_' EnumTest (Maybe E'EnumString)
enumTestEnumStringL f EnumTest{..} = (\enumTestEnumString -> EnumTest { enumTestEnumString, ..} ) <$> f enumTestEnumString
{-# INLINE enumTestEnumStringL #-}
-- | 'enumTestEnumStringRequired' Lens
enumTestEnumStringRequiredL :: Lens_' EnumTest (E'EnumString)
enumTestEnumStringRequiredL f EnumTest{..} = (\enumTestEnumStringRequired -> EnumTest { enumTestEnumStringRequired, ..} ) <$> f enumTestEnumStringRequired
{-# INLINE enumTestEnumStringRequiredL #-}
-- | 'enumTestEnumInteger' Lens
enumTestEnumIntegerL :: Lens_' EnumTest (Maybe E'EnumInteger)
enumTestEnumIntegerL f EnumTest{..} = (\enumTestEnumInteger -> EnumTest { enumTestEnumInteger, ..} ) <$> f enumTestEnumInteger
@ -276,7 +319,7 @@ formatTestByteL f FormatTest{..} = (\formatTestByte -> FormatTest { formatTestBy
{-# INLINE formatTestByteL #-}
-- | 'formatTestBinary' Lens
formatTestBinaryL :: Lens_' FormatTest (Maybe Binary)
formatTestBinaryL :: Lens_' FormatTest (Maybe FilePath)
formatTestBinaryL f FormatTest{..} = (\formatTestBinary -> FormatTest { formatTestBinary, ..} ) <$> f formatTestBinary
{-# INLINE formatTestBinaryL #-}
@ -597,41 +640,3 @@ userUserStatusL f User{..} = (\userUserStatus -> User { userUserStatus, ..} ) <$
{-# INLINE userUserStatusL #-}
-- * Cat
-- | 'catClassName' Lens
catClassNameL :: Lens_' Cat (Text)
catClassNameL f Cat{..} = (\catClassName -> Cat { catClassName, ..} ) <$> f catClassName
{-# INLINE catClassNameL #-}
-- | 'catColor' Lens
catColorL :: Lens_' Cat (Maybe Text)
catColorL f Cat{..} = (\catColor -> Cat { catColor, ..} ) <$> f catColor
{-# INLINE catColorL #-}
-- | 'catDeclawed' Lens
catDeclawedL :: Lens_' Cat (Maybe Bool)
catDeclawedL f Cat{..} = (\catDeclawed -> Cat { catDeclawed, ..} ) <$> f catDeclawed
{-# INLINE catDeclawedL #-}
-- * Dog
-- | 'dogClassName' Lens
dogClassNameL :: Lens_' Dog (Text)
dogClassNameL f Dog{..} = (\dogClassName -> Dog { dogClassName, ..} ) <$> f dogClassName
{-# INLINE dogClassNameL #-}
-- | 'dogColor' Lens
dogColorL :: Lens_' Dog (Maybe Text)
dogColorL f Dog{..} = (\dogColor -> Dog { dogColor, ..} ) <$> f dogColor
{-# INLINE dogColorL #-}
-- | 'dogBreed' Lens
dogBreedL :: Lens_' Dog (Maybe Text)
dogBreedL f Dog{..} = (\dogBreed -> Dog { dogBreed, ..} ) <$> f dogBreed
{-# INLINE dogBreedL #-}

1512
samples/client/petstore/haskell-http-client/openapi.yaml Normal file
View File

File diff suppressed because it is too large Load Diff

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

@ -4,17 +4,15 @@ synopsis: Auto-generated swagger-petstore API Client
description: .
Client library for calling the Swagger Petstore API based on http-client.
.
host: petstore.swagger.io:80
host: petstore.swagger.io
.
base path: http://petstore.swagger.io:80/v2
.
Swagger Petstore API version: 1.0.0
.
OpenAPI spec version: 2.0
OpenAPI version: 3.0.1
.
OpenAPI-Specification: https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md
.
category: Web
category: Web
homepage: https://github.com/swagger-api/swagger-codegen#readme
author: Author Name Here
maintainer: author.name@email.com
@ -25,7 +23,7 @@ cabal-version: >= 1.10
extra-source-files:
README.md
swagger.yaml
openapi.yaml
library
hs-source-dirs:

1582
samples/client/petstore/haskell-http-client/swagger.yaml
View File

File diff suppressed because it is too large Load Diff

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

@ -39,8 +39,6 @@ instance S.Consumes S.CreateUser S.MimeJSON
instance S.Consumes S.UpdateUser S.MimeJSON
instance S.Consumes S.CreateUsersWithArrayInput S.MimeJSON
instance S.Consumes S.CreateUsersWithListInput S.MimeJSON
instance S.Produces S.CreateUsersWithArrayInput S.MimeNoContent
instance S.Produces S.CreateUsersWithListInput S.MimeNoContent
-- * MAIN
@ -84,7 +82,7 @@ testPetOps mgr config =
it "addPet" $ do
let addPetRequest =
S.addPet (S.ContentType S.MimeJSON) (S.Accept S.MimeJSON) (S.mkPet "name" ["url1", "url2"])
S.addPet (S.ContentType S.MimeJSON) (S.mkPet "name" ["url1", "url2"])
addPetResponse <- S.dispatchLbs mgr config addPetRequest
NH.responseStatus addPetResponse `shouldBe` NH.status200
case A.eitherDecode (NH.responseBody addPetResponse) of
@ -129,7 +127,7 @@ testPetOps mgr config =
Just pet -> go pet
_ -> pendingWith "no pet") $
it "updatePet" $ \pet -> do
let updatePetRequest = S.updatePet (S.ContentType S.MimeJSON) (S.Accept S.MimeXML)
let updatePetRequest = S.updatePet (S.ContentType S.MimeJSON)
(pet
{ S.petStatus = Just S.E'Status2'Available
, S.petCategory = Just (S.Category (Just 3) (Just "catname"))
@ -140,7 +138,7 @@ testPetOps mgr config =
it "updatePetWithFormRequest" $ do
readIORef _pet >>= \case
Just S.Pet {S.petId = Just petId} -> do
let updatePetWithFormRequest = S.updatePetWithForm (S.Accept S.MimeJSON)
let updatePetWithFormRequest = S.updatePetWithForm
(S.PetId petId)
`S.applyOptionalParam` S.Name2 "petName"
`S.applyOptionalParam` S.StatusText "pending"
@ -167,7 +165,7 @@ testPetOps mgr config =
Just pet@S.Pet {S.petId = Just petId} -> go petId
_ -> pendingWith "no petId") $
it "deletePet" $ \petId -> do
let deletePetRequest = S.deletePet (S.Accept S.MimeJSON) (S.PetId petId)
let deletePetRequest = S.deletePet (S.PetId petId)
`S.applyOptionalParam` S.ApiKey "api key"
deletePetResponse <- S.dispatchLbs mgr config deletePetRequest
NH.responseStatus deletePetResponse `shouldBe` NH.status200
@ -224,7 +222,7 @@ testStoreOps mgr config = do
Just S.Order {S.orderId = Just orderId} -> go (T.pack (show orderId))
_ -> pendingWith "no orderId") $
it "deleteOrder" $ \orderId -> do
let deleteOrderRequest = S.deleteOrder (S.Accept S.MimeJSON) (S.OrderIdText orderId)
let deleteOrderRequest = S.deleteOrder (S.OrderIdText orderId)
deleteOrderResult <- S.dispatchLbs mgr config deleteOrderRequest
NH.responseStatus deleteOrderResult `shouldBe` NH.status200
@ -255,19 +253,19 @@ testUserOps mgr config = do
before (pure _user) $
it "createUser" $ \user -> do
let createUserRequest = S.createUser (S.ContentType S.MimeJSON) (S.Accept S.MimeJSON) user
let createUserRequest = S.createUser (S.ContentType S.MimeJSON) user
createUserResult <- S.dispatchLbs mgr config createUserRequest
NH.responseStatus createUserResult `shouldBe` NH.status200
before (pure _users) $
it "createUsersWithArrayInput" $ \users -> do
let createUsersWithArrayInputRequest = S.createUsersWithArrayInput (S.ContentType S.MimeJSON) (S.Accept S.MimeNoContent) (S.Body users)
let createUsersWithArrayInputRequest = S.createUsersWithArrayInput (S.ContentType S.MimeJSON) (S.User2 users)
createUsersWithArrayInputResult <- S.dispatchLbs mgr config createUsersWithArrayInputRequest
NH.responseStatus createUsersWithArrayInputResult `shouldBe` NH.status200
before (pure _users) $
it "createUsersWithListInput" $ \users -> do
let createUsersWithListInputRequest = S.createUsersWithListInput (S.ContentType S.MimeJSON) (S.Accept S.MimeNoContent) (S.Body users)
let createUsersWithListInputRequest = S.createUsersWithListInput (S.ContentType S.MimeJSON) (S.User2 users)
createUsersWithListInputResult <- S.dispatchLbs mgr config createUsersWithListInputRequest
NH.responseStatus createUsersWithListInputResult `shouldBe` NH.status200
@ -288,16 +286,16 @@ testUserOps mgr config = do
before (pure (_username, _user)) $
it "updateUser" $ \(username, user) -> do
let updateUserRequest = S.updateUser (S.ContentType S.MimeJSON) (S.Accept S.MimeJSON) (S.Username username) user
let updateUserRequest = S.updateUser (S.ContentType S.MimeJSON) user (S.Username username)
updateUserResult <- S.dispatchLbs mgr config updateUserRequest
NH.responseStatus updateUserResult `shouldBe` NH.status200
it "logoutuser" $ do
logoutUserResult <- S.dispatchLbs mgr config (S.logoutUser (S.Accept S.MimeJSON))
logoutUserResult <- S.dispatchLbs mgr config S.logoutUser
NH.responseStatus logoutUserResult `shouldBe` NH.status200
before (pure _username) $
it "deleteUser" $ \username -> do
let deleteUserRequest = S.deleteUser (S.Accept S.MimeJSON) (S.Username username)
let deleteUserRequest = S.deleteUser (S.Username username)
deleteUserResult <- S.dispatchLbs mgr config deleteUserRequest
NH.responseStatus deleteUserResult `shouldBe` NH.status200

41
samples/client/petstore/haskell-http-client/tests/Instances.hs
View File

@ -103,9 +103,7 @@ instance Arbitrary Animal where
instance Arbitrary AnimalFarm where
arbitrary =
pure AnimalFarm
AnimalFarm <$> arbitrary
instance Arbitrary ApiResponse where
arbitrary =
ApiResponse
@ -140,6 +138,13 @@ instance Arbitrary Capitalization where
<*> arbitrary -- capitalizationScaEthFlowPoints :: Maybe Text
<*> arbitrary -- capitalizationAttName :: Maybe Text
instance Arbitrary Cat where
arbitrary =
Cat
<$> arbitrary -- catClassName :: Text
<*> arbitrary -- catColor :: Maybe Text
<*> arbitrary -- catDeclawed :: Maybe Bool
instance Arbitrary Category where
arbitrary =
Category
@ -156,6 +161,13 @@ instance Arbitrary Client where
Client
<$> arbitrary -- clientClient :: Maybe Text
instance Arbitrary Dog where
arbitrary =
Dog
<$> arbitrary -- dogClassName :: Text
<*> arbitrary -- dogColor :: Maybe Text
<*> arbitrary -- dogBreed :: Maybe Text
instance Arbitrary EnumArrays where
arbitrary =
EnumArrays
@ -166,6 +178,7 @@ instance Arbitrary EnumTest where
arbitrary =
EnumTest
<$> arbitrary -- enumTestEnumString :: Maybe Text
<*> arbitrary -- enumTestEnumStringRequired :: Text
<*> arbitrary -- enumTestEnumInteger :: Maybe Int
<*> arbitrary -- enumTestEnumNumber :: Maybe Double
<*> arbitrary -- enumTestOuterEnum :: Maybe OuterEnum
@ -181,7 +194,7 @@ instance Arbitrary FormatTest where
<*> arbitrary -- formatTestDouble :: Maybe Double
<*> arbitrary -- formatTestString :: Maybe Text
<*> arbitrary -- formatTestByte :: ByteArray
<*> arbitrary -- formatTestBinary :: Maybe Binary
<*> arbitrary -- formatTestBinary :: Maybe FilePath
<*> arbitrary -- formatTestDate :: Date
<*> arbitrary -- formatTestDateTime :: Maybe DateTime
<*> arbitrary -- formatTestUuid :: Maybe Text
@ -300,20 +313,6 @@ instance Arbitrary User where
<*> arbitrary -- userPhone :: Maybe Text
<*> arbitrary -- userUserStatus :: Maybe Int
instance Arbitrary Cat where
arbitrary =
Cat
<$> arbitrary -- catClassName :: Text
<*> arbitrary -- catColor :: Maybe Text
<*> arbitrary -- catDeclawed :: Maybe Bool
instance Arbitrary Dog where
arbitrary =
Dog
<$> arbitrary -- dogClassName :: Text
<*> arbitrary -- dogColor :: Maybe Text
<*> arbitrary -- dogBreed :: Maybe Text
@ -323,6 +322,9 @@ instance Arbitrary E'ArrayEnum where
instance Arbitrary E'EnumFormString where
arbitrary = arbitraryBoundedEnum
instance Arbitrary E'EnumFormStringArray where
arbitrary = arbitraryBoundedEnum
instance Arbitrary E'EnumInteger where
arbitrary = arbitraryBoundedEnum
@ -338,9 +340,6 @@ instance Arbitrary E'EnumString where
instance Arbitrary E'Inner where
arbitrary = arbitraryBoundedEnum
instance Arbitrary E'Inner2 where
arbitrary = arbitraryBoundedEnum
instance Arbitrary E'JustSymbol where
arbitrary = arbitraryBoundedEnum

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

@ -28,9 +28,11 @@ main =
propMimeEq MimeJSON (Proxy :: Proxy ArrayOfNumberOnly)
propMimeEq MimeJSON (Proxy :: Proxy ArrayTest)
propMimeEq MimeJSON (Proxy :: Proxy Capitalization)
propMimeEq MimeJSON (Proxy :: Proxy Cat)
propMimeEq MimeJSON (Proxy :: Proxy Category)
propMimeEq MimeJSON (Proxy :: Proxy ClassModel)
propMimeEq MimeJSON (Proxy :: Proxy Client)
propMimeEq MimeJSON (Proxy :: Proxy Dog)
propMimeEq MimeJSON (Proxy :: Proxy EnumArrays)
propMimeEq MimeJSON (Proxy :: Proxy EnumClass)
propMimeEq MimeJSON (Proxy :: Proxy EnumTest)
@ -54,6 +56,4 @@ main =
propMimeEq MimeJSON (Proxy :: Proxy SpecialModelName)
propMimeEq MimeJSON (Proxy :: Proxy Tag)
propMimeEq MimeJSON (Proxy :: Proxy User)
propMimeEq MimeJSON (Proxy :: Proxy Cat)
propMimeEq MimeJSON (Proxy :: Proxy Dog)