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

126
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,8 +154,6 @@ 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.
@@ -188,6 +162,7 @@ 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

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

@@ -4,15 +4,13 @@ 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-Specification: https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md
OpenAPI version: 3.0.1
.
category: Web
homepage: https://github.com/swagger-api/swagger-codegen#readme
@@ -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)