forked from loafle/openapi-generator-original
[haskell-http-client] refactor & promote accept mimetype to request; simplify templates (#6866)
* add AuthMethodException * rename cli prop * simplify templates
This commit is contained in:
Jon Schoning
wing328
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@@ -1,4 +1,4 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><title>SwaggerPetstore.MimeTypes</title><link href="ocean.css" rel="stylesheet" type="text/css" title="Ocean" /><script src="haddock-util.js" type="text/javascript"></script><script src="https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript"></script><script type="text/javascript">//<![CDATA[
|
||||
window.onload = function () {pageLoad();};
|
||||
//]]>
|
||||
</script></head><body id="mini"><div id="module-header"><p class="caption">SwaggerPetstore.MimeTypes</p></div><div id="interface"><h1>Consumes Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:Consumes" target="main">Consumes</a> req mtype</p></div><h1>Produces Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:Produces" target="main">Produces</a> req mtype</p></div><h1>Default Mime Types</h1><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeJSON" target="main">MimeJSON</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeXML" target="main">MimeXML</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimePlainText" target="main">MimePlainText</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeFormUrlEncoded" target="main">MimeFormUrlEncoded</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeMultipartFormData" target="main">MimeMultipartFormData</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeOctetStream" target="main">MimeOctetStream</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeNoContent" target="main">MimeNoContent</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeAny" target="main">MimeAny</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:NoContent" target="main">NoContent</a></p></div><h1>MimeType Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeType" target="main">MimeType</a> mtype</p></div><h1>MimeRender Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeRender" target="main">MimeRender</a> mtype x</p></div><div class="top"><p class="src"><a href="SwaggerPetstore-MimeTypes.html#v:mimeRenderDefaultMultipartFormData" target="main">mimeRenderDefaultMultipartFormData</a></p></div><h1>MimeUnrender Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeUnrender" target="main">MimeUnrender</a> mtype o</p></div></div></body></html>
|
||||
</script></head><body id="mini"><div id="module-header"><p class="caption">SwaggerPetstore.MimeTypes</p></div><div id="interface"><h1>ContentType MimeType</h1><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:ContentType" target="main">ContentType</a> a</p></div><h1>Accept MimeType</h1><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:Accept" target="main">Accept</a> a</p></div><h1>Consumes Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:Consumes" target="main">Consumes</a> req mtype</p></div><h1>Produces Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:Produces" target="main">Produces</a> req mtype</p></div><h1>Default Mime Types</h1><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeJSON" target="main">MimeJSON</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeXML" target="main">MimeXML</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimePlainText" target="main">MimePlainText</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeFormUrlEncoded" target="main">MimeFormUrlEncoded</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeMultipartFormData" target="main">MimeMultipartFormData</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeOctetStream" target="main">MimeOctetStream</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeNoContent" target="main">MimeNoContent</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeAny" target="main">MimeAny</a></p></div><div class="top"><p class="src"><span class="keyword">data</span> <a href="SwaggerPetstore-MimeTypes.html#t:NoContent" target="main">NoContent</a></p></div><h1>MimeType Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeType" target="main">MimeType</a> mtype</p></div><h1>MimeRender Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeRender" target="main">MimeRender</a> mtype x</p></div><div class="top"><p class="src"><a href="SwaggerPetstore-MimeTypes.html#v:mimeRenderDefaultMultipartFormData" target="main">mimeRenderDefaultMultipartFormData</a></p></div><h1>MimeUnrender Class</h1><div class="top"><p class="src"><span class="keyword">class</span> <a href="SwaggerPetstore-MimeTypes.html#t:MimeUnrender" target="main">MimeUnrender</a> mtype o</p></div></div></body></html>
|
||||
@@ -15,7 +15,7 @@
|
||||
</span><a name="line-15"></a><span class="hs-cpp">#if defined(VERSION_base)</span><span>
|
||||
</span><a name="line-16"></a><span>
|
||||
</span><a name="line-17"></a><span class="hs-cpp">#if MIN_VERSION_base(4,0,0)</span><span>
|
||||
</span><a name="line-18"></a><span class="hs-identifier">catchIO</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679168126"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Exception</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">IOException</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679168126"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679168126"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-18"></a><span class="hs-identifier">catchIO</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679168831"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Exception</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">IOException</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679168831"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679168831"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-19"></a><span class="hs-cpp">#else</span><span>
|
||||
</span><a name="line-20"></a><span class="hs-identifier">catchIO</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">a</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier">Exception</span><span class="hs-operator">.</span><span class="hs-identifier">Exception</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">a</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">a</span><span>
|
||||
</span><a name="line-21"></a><span class="hs-cpp">#endif</span><span>
|
||||
@@ -45,7 +45,7 @@
|
||||
</span><a name="line-45"></a><a name="getSysconfDir"><a href="Paths_swagger_petstore.html#getSysconfDir"><span class="hs-identifier">getSysconfDir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="Paths_swagger_petstore.html#catchIO"><span class="hs-identifier hs-var">catchIO</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">getEnv</span><span> </span><span class="hs-string">"swagger_petstore_sysconfdir"</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="Paths_swagger_petstore.html#sysconfdir"><span class="hs-identifier hs-var">sysconfdir</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-46"></a><span>
|
||||
</span><a name="line-47"></a><span class="hs-identifier">getDataFileName</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">FilePath</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-identifier hs-type">FilePath</span><span>
|
||||
</span><a name="line-48"></a><a name="getDataFileName"><a href="Paths_swagger_petstore.html#getDataFileName"><span class="hs-identifier">getDataFileName</span></a></a><span> </span><a name="local-6989586621679168452"><a href="#local-6989586621679168452"><span class="hs-identifier">name</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-49"></a><span> </span><a name="local-6989586621679168453"><a href="#local-6989586621679168453"><span class="hs-identifier">dir</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="Paths_swagger_petstore.html#getDataDir"><span class="hs-identifier hs-var">getDataDir</span></a><span>
|
||||
</span><a name="line-50"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679168453"><span class="hs-identifier hs-var">dir</span></a><span> </span><span class="hs-operator hs-var">++</span><span> </span><span class="hs-string">"/"</span><span> </span><span class="hs-operator hs-var">++</span><span> </span><a href="#local-6989586621679168452"><span class="hs-identifier hs-var">name</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-48"></a><a name="getDataFileName"><a href="Paths_swagger_petstore.html#getDataFileName"><span class="hs-identifier">getDataFileName</span></a></a><span> </span><a name="local-6989586621679169157"><a href="#local-6989586621679169157"><span class="hs-identifier">name</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-49"></a><span> </span><a name="local-6989586621679169158"><a href="#local-6989586621679169158"><span class="hs-identifier">dir</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="Paths_swagger_petstore.html#getDataDir"><span class="hs-identifier hs-var">getDataDir</span></a><span>
|
||||
</span><a name="line-50"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679169158"><span class="hs-identifier hs-var">dir</span></a><span> </span><span class="hs-operator hs-var">++</span><span> </span><span class="hs-string">"/"</span><span> </span><span class="hs-operator hs-var">++</span><span> </span><a href="#local-6989586621679169157"><span class="hs-identifier hs-var">name</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-51"></a></pre></body></html>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -56,163 +56,158 @@ 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-6989586621679150567"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150568"><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-6989586621679150569"><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-6989586621679150852"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150853"><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-6989586621679150854"><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">=></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">-></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">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679150567"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150569"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150570"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-63"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679150568"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-64"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-65"></a><a name="dispatchLbs"><a href="SwaggerPetstore.Client.html#dispatchLbs"><span class="hs-identifier">dispatchLbs</span></a></a><span> </span><a name="local-6989586621679150571"><a href="#local-6989586621679150571"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679150572"><a href="#local-6989586621679150572"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679150573"><a href="#local-6989586621679150573"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679150574"><a href="#local-6989586621679150574"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-66"></a><span> </span><a name="local-6989586621679150575"><a href="#local-6989586621679150575"><span class="hs-identifier">initReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier hs-var">_toInitRequest</span></a><span> </span><a href="#local-6989586621679150572"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679150573"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679150574"><span class="hs-identifier hs-var">accept</span></a><span> </span><span>
|
||||
</span><a name="line-67"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679150571"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679150572"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679150575"><span class="hs-identifier hs-var">initReq</span></a><span>
|
||||
</span><a name="line-68"></a><span>
|
||||
</span><a name="line-69"></a><span class="hs-comment">-- ** Mime</span><span>
|
||||
</span><a name="line-70"></a><span>
|
||||
</span><a name="line-71"></a><span class="hs-comment">-- | pair of decoded http body and http response</span><span>
|
||||
</span><a name="line-72"></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-6989586621679150535"><a href="#local-6989586621679150535"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-73"></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-6989586621679150535"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ decoded http body</span><span>
|
||||
</span><a name="line-74"></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-75"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-76"></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>
|
||||
</span><a name="line-77"></a><span>
|
||||
</span><a name="line-78"></a><span class="hs-comment">-- | pair of unrender/parser error and http response</span><span>
|
||||
</span><a name="line-79"></a><span class="hs-keyword">data</span><span> </span><a name="MimeError"><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier">MimeError</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-80"></a><span> </span><a name="MimeError"><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier">MimeError</span></a></a><span> </span><span class="hs-special">{</span><span>
|
||||
</span><a name="line-81"></a><span> </span><a name="mimeError"><a href="SwaggerPetstore.Client.html#mimeError"><span class="hs-identifier">mimeError</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-comment">-- ^ unrender/parser error</span><span>
|
||||
</span><a name="line-82"></a><span> </span><span class="hs-special">,</span><span> </span><a name="mimeErrorResponse"><a href="SwaggerPetstore.Client.html#mimeErrorResponse"><span class="hs-identifier">mimeErrorResponse</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-83"></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">Eq</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Show</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-84"></a><span>
|
||||
</span><a name="line-85"></a><span class="hs-comment">-- | send a request returning the 'MimeResult'</span><span>
|
||||
</span><a name="line-86"></a><span class="hs-identifier">dispatchMime</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#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="#local-6989586621679150563"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150564"><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-6989586621679150564"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679150565"><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-6989586621679150566"><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">=></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-89"></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><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-90"></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-6989586621679150563"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150566"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150565"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-91"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679150564"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-92"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-type">MimeResult</span></a><span> </span><a href="#local-6989586621679150565"><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-93"></a><a name="dispatchMime"><a href="SwaggerPetstore.Client.html#dispatchMime"><span class="hs-identifier">dispatchMime</span></a></a><span> </span><a name="local-6989586621679150576"><a href="#local-6989586621679150576"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679150577"><a href="#local-6989586621679150577"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679150578"><a href="#local-6989586621679150578"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679150579"><a href="#local-6989586621679150579"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-94"></a><span> </span><a name="local-6989586621679150580"><a href="#local-6989586621679150580"><span class="hs-identifier">httpResponse</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#dispatchLbs"><span class="hs-identifier hs-var">dispatchLbs</span></a><span> </span><a href="#local-6989586621679150576"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679150577"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679150578"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679150579"><span class="hs-identifier hs-var">accept</span></a><span>
|
||||
</span><a name="line-95"></a><span> </span><a name="local-6989586621679150583"><a href="#local-6989586621679150583"><span class="hs-identifier">parsedResult</span></a></a><span> </span><span class="hs-glyph"><-</span><span>
|
||||
</span><a name="line-96"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><span class="hs-string">"Client"</span><span> </span><a href="#local-6989586621679150577"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-97"></a><span> </span><span class="hs-keyword">do</span><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier hs-var">mimeUnrender'</span></a><span> </span><a href="#local-6989586621679150579"><span class="hs-identifier hs-var">accept</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">responseBody</span><span> </span><a href="#local-6989586621679150580"><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-98"></a><span> </span><span class="hs-identifier hs-var">Left</span><span> </span><a name="local-6989586621679150581"><a href="#local-6989586621679150581"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-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">"Client"</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-6989586621679150581"><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-6989586621679150581"><span class="hs-identifier hs-var">s</span></a><span> </span><a href="#local-6989586621679150580"><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-identifier hs-var">Right</span><span> </span><a name="local-6989586621679150582"><a href="#local-6989586621679150582"><span class="hs-identifier">r</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Right</span><span> </span><a href="#local-6989586621679150582"><span class="hs-identifier hs-var">r</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-102"></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-6989586621679150583"><span class="hs-identifier hs-var">parsedResult</span></a><span> </span><a href="#local-6989586621679150580"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-103"></a><span>
|
||||
</span><a name="line-104"></a><span class="hs-comment">-- | like 'dispatchMime', but only returns the decoded http body</span><span>
|
||||
</span><a name="line-105"></a><span class="hs-identifier">dispatchMime'</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#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="#local-6989586621679150559"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150560"><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-6989586621679150560"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679150561"><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-6989586621679150562"><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">=></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-108"></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><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-109"></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-6989586621679150559"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150562"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150561"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-110"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679150560"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-111"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Either</span><span> </span><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier hs-type">MimeError</span></a><span> </span><a href="#local-6989586621679150561"><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-112"></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-6989586621679150584"><a href="#local-6989586621679150584"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679150585"><a href="#local-6989586621679150585"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679150586"><a href="#local-6989586621679150586"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679150587"><a href="#local-6989586621679150587"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-113"></a><span> </span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-var">MimeResult</span></a><span> </span><a name="local-6989586621679150588"><a href="#local-6989586621679150588"><span class="hs-identifier">parsedResult</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#dispatchMime"><span class="hs-identifier hs-var">dispatchMime</span></a><span> </span><a href="#local-6989586621679150584"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679150585"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679150586"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679150587"><span class="hs-identifier hs-var">accept</span></a><span> </span><span>
|
||||
</span><a name="line-114"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679150588"><span class="hs-identifier hs-var">parsedResult</span></a><span>
|
||||
</span><a name="line-115"></a><span>
|
||||
</span><a name="line-116"></a><span class="hs-comment">-- ** Unsafe</span><span>
|
||||
</span><a name="line-117"></a><span>
|
||||
</span><a name="line-118"></a><span class="hs-comment">-- | like 'dispatchReqLbs', but does not validate the operation is a 'Producer' of the "accept" 'MimeType'. (Useful if the server's response is undocumented)</span><span>
|
||||
</span><a name="line-119"></a><span class="hs-identifier">dispatchLbsUnsafe</span><span>
|
||||
</span><a name="line-120"></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-6989586621679150555"><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-6989586621679150556"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-121"></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-122"></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><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-123"></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-6989586621679150557"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150556"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150558"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-124"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679150555"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-125"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-126"></a><a name="dispatchLbsUnsafe"><a href="SwaggerPetstore.Client.html#dispatchLbsUnsafe"><span class="hs-identifier">dispatchLbsUnsafe</span></a></a><span> </span><a name="local-6989586621679150589"><a href="#local-6989586621679150589"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679150590"><a href="#local-6989586621679150590"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679150591"><a href="#local-6989586621679150591"><span class="hs-identifier">request</span></a></a><span> </span><a name="local-6989586621679150592"><a href="#local-6989586621679150592"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-127"></a><span> </span><a name="local-6989586621679150593"><a href="#local-6989586621679150593"><span class="hs-identifier">initReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier hs-var">_toInitRequest</span></a><span> </span><a href="#local-6989586621679150590"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679150591"><span class="hs-identifier hs-var">request</span></a><span> </span><a href="#local-6989586621679150592"><span class="hs-identifier hs-var">accept</span></a><span>
|
||||
</span><a name="line-128"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679150589"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679150590"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679150593"><span class="hs-identifier hs-var">initReq</span></a><span>
|
||||
</span><a name="line-129"></a><span>
|
||||
</span><a name="line-130"></a><span class="hs-comment">-- | dispatch an InitRequest</span><span>
|
||||
</span><a name="line-131"></a><span class="hs-identifier">dispatchInitUnsafe</span><span>
|
||||
</span><a name="line-132"></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-133"></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><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-134"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679150551"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150552"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150553"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150554"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ init request</span><span>
|
||||
</span><a name="line-135"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-136"></a><a name="dispatchInitUnsafe"><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier">dispatchInitUnsafe</span></a></a><span> </span><a name="local-6989586621679150594"><a href="#local-6989586621679150594"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679150595"><a href="#local-6989586621679150595"><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-6989586621679150596"><a href="#local-6989586621679150596"><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-137"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><a href="#local-6989586621679150597"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="#local-6989586621679150595"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-138"></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-6989586621679150597"><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-6989586621679150599"><span class="hs-identifier hs-var">requestLogMsg</span></a><span>
|
||||
</span><a name="line-139"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679150597"><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-6989586621679150600"><span class="hs-identifier hs-var">requestDbgLogMsg</span></a><span>
|
||||
</span><a name="line-140"></a><span> </span><a name="local-6989586621679151032"><a href="#local-6989586621679151032"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">liftIO</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">httpLbs</span><span> </span><a href="#local-6989586621679150596"><span class="hs-identifier hs-var">req</span></a><span> </span><a href="#local-6989586621679150594"><span class="hs-identifier hs-var">manager</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-6989586621679150597"><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-6989586621679150602"><span class="hs-identifier hs-var">responseLogMsg</span></a><span> </span><a href="#local-6989586621679151032"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-142"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679150597"><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-6989586621679151032"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-143"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679151032"><span class="hs-identifier hs-var">res</span></a><span>
|
||||
</span><a name="line-144"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-145"></a><span> </span><a name="local-6989586621679150597"><a href="#local-6989586621679150597"><span class="hs-identifier">src</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"Client"</span><span>
|
||||
</span><a name="line-146"></a><span> </span><a name="local-6989586621679150598"><a href="#local-6989586621679150598"><span class="hs-identifier">endpoint</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-147"></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-148"></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-149"></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-6989586621679150596"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" "</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">host</span><span> </span><a href="#local-6989586621679150596"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">path</span><span> </span><a href="#local-6989586621679150596"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">queryString</span><span> </span><a href="#local-6989586621679150596"><span class="hs-identifier hs-var">req</span></a><span>
|
||||
</span><a name="line-150"></a><span> </span><a name="local-6989586621679150599"><a href="#local-6989586621679150599"><span class="hs-identifier">requestLogMsg</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"REQ:"</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679150598"><span class="hs-identifier hs-var">endpoint</span></a><span>
|
||||
</span><a name="line-151"></a><span> </span><a name="local-6989586621679150600"><a href="#local-6989586621679150600"><span class="hs-identifier">requestDbgLogMsg</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-152"></a><span> </span><span class="hs-string">"Headers="</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestHeaders</span><span> </span><a href="#local-6989586621679150596"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" Body="</span><span> </span><span class="hs-operator hs-var"><></span><span>
|
||||
</span><a name="line-153"></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-6989586621679150596"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-154"></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-6989586621679150603"><a href="#local-6989586621679150603"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span> </span><a href="#local-6989586621679150603"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-155"></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-string">"<RequestBody>"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-156"></a><span> </span><a name="local-6989586621679150601"><a href="#local-6989586621679150601"><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-157"></a><span> </span><a name="local-6989586621679150602"><a href="#local-6989586621679150602"><span class="hs-identifier">responseLogMsg</span></a></a><span> </span><a name="local-6989586621679150978"><a href="#local-6989586621679150978"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-158"></a><span> </span><span class="hs-string">"RES:statusCode="</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679150601"><span class="hs-identifier hs-var">responseStatusCode</span></a><span> </span><a href="#local-6989586621679150978"><span class="hs-identifier hs-var">res</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" ("</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679150598"><span class="hs-identifier hs-var">endpoint</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">")"</span><span>
|
||||
</span><a name="line-159"></a><span>
|
||||
</span><a name="line-160"></a><span class="hs-comment">-- * InitRequest</span><span>
|
||||
</span><a name="line-161"></a><span>
|
||||
</span><a name="line-162"></a><span class="hs-comment">-- | wraps an http-client 'Request' with request/response type parameters</span><span>
|
||||
</span><a name="line-163"></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-6989586621679150531"><a href="#local-6989586621679150531"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679150532"><a href="#local-6989586621679150532"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679150533"><a href="#local-6989586621679150533"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679150534"><a href="#local-6989586621679150534"><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-164"></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-165"></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-166"></a><span>
|
||||
</span><a name="line-167"></a><span class="hs-comment">-- | Build an http-client 'Request' record from the supplied config and request</span><span>
|
||||
</span><a name="line-168"></a><span class="hs-identifier">_toInitRequest</span><span>
|
||||
</span><a name="line-169"></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-6989586621679150547"><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-6989586621679150548"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-170"></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><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-171"></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-6989586621679150549"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150548"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150550"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-172"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679150547"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ "accept" 'MimeType'</span><span>
|
||||
</span><a name="line-173"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679150549"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150548"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150550"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150547"><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-174"></a><a name="_toInitRequest"><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier">_toInitRequest</span></a></a><span> </span><a name="local-6989586621679151033"><a href="#local-6989586621679151033"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679151034"><a href="#local-6989586621679151034"><span class="hs-identifier">req0</span></a></a><span> </span><a name="local-6989586621679151035"><a href="#local-6989586621679151035"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
|
||||
</span><a name="line-175"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><span class="hs-string">"Client"</span><span> </span><a href="#local-6989586621679151033"><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-176"></a><span> </span><a name="local-6989586621679151036"><a href="#local-6989586621679151036"><span class="hs-identifier">parsedReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">liftIO</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">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-6989586621679151033"><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-6989586621679151034"><span class="hs-identifier hs-var">req0</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-177"></a><span> </span><a name="local-6989586621679151037"><a href="#local-6989586621679151037"><span class="hs-identifier">req1</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">liftIO</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="SwaggerPetstore.Core.html#_applyAuthMethods"><span class="hs-identifier hs-var">_applyAuthMethods</span></a><span> </span><a href="#local-6989586621679151034"><span class="hs-identifier hs-var">req0</span></a><span> </span><a href="#local-6989586621679151033"><span class="hs-identifier hs-var">config</span></a><span>
|
||||
</span><a name="line-178"></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-179"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configValidateAuthMethods</span><span> </span><a href="#local-6989586621679151033"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">&&</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-6989586621679151037"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-180"></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">throwString</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-string">"AuthMethod not configured: "</span><span> </span><span class="hs-operator hs-var"><></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-6989586621679151037"><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-keyword">let</span><span> </span><a name="local-6989586621679151038"><a href="#local-6989586621679151038"><span class="hs-identifier">req2</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679151037"><span class="hs-identifier hs-var">req1</span></a><span> </span><span class="hs-operator hs-var">&</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">&</span><span> </span><span class="hs-identifier hs-var">flip</span><span> </span><a href="SwaggerPetstore.Core.html#_setAcceptHeader"><span class="hs-identifier hs-var">_setAcceptHeader</span></a><span> </span><a href="#local-6989586621679151035"><span class="hs-identifier hs-var">accept</span></a><span>
|
||||
</span><a name="line-182"></a><span> </span><a name="local-6989586621679151039"><a href="#local-6989586621679151039"><span class="hs-identifier">reqHeaders</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-string">"User-Agent"</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toHeader</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configUserAgent</span><span> </span><a href="#local-6989586621679151033"><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-6989586621679151038"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-183"></a><span> </span><a name="local-6989586621679151040"><a href="#local-6989586621679151040"><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-6989586621679151038"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-184"></a><span> </span><a name="local-6989586621679151041"><a href="#local-6989586621679151041"><span class="hs-identifier">pReq</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679151036"><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-6989586621679151038"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-185"></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-6989586621679151039"><span class="hs-identifier hs-var">reqHeaders</span></a><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">queryString</span><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679151040"><span class="hs-identifier hs-var">reqQuery</span></a><span>
|
||||
</span><a name="line-187"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-188"></a><span> </span><a name="local-6989586621679151046"><a href="#local-6989586621679151046"><span class="hs-identifier">outReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679151038"><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-189"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyNone"><span class="hs-identifier hs-var">ParamBodyNone</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679151041"><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-190"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyB"><span class="hs-identifier hs-var">ParamBodyB</span></a><span> </span><a name="local-6989586621679151042"><a href="#local-6989586621679151042"><span class="hs-identifier">bs</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679151041"><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-6989586621679151042"><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-191"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyBL"><span class="hs-identifier hs-var">ParamBodyBL</span></a><span> </span><a name="local-6989586621679151043"><a href="#local-6989586621679151043"><span class="hs-identifier">bl</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679151041"><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-6989586621679151043"><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-192"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><a name="local-6989586621679151044"><a href="#local-6989586621679151044"><span class="hs-identifier">form</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679151041"><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-6989586621679151044"><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-193"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><a name="local-6989586621679151045"><a href="#local-6989586621679151045"><span class="hs-identifier">parts</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formDataBody</span><span> </span><a href="#local-6989586621679151045"><span class="hs-identifier hs-var">parts</span></a><span> </span><a href="#local-6989586621679151041"><span class="hs-identifier hs-var">pReq</span></a><span>
|
||||
</span><a name="line-194"></a><span>
|
||||
</span><a name="line-195"></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-6989586621679151046"><span class="hs-identifier hs-var">outReq</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-196"></a><span>
|
||||
</span><a name="line-197"></a><span class="hs-comment">-- | modify the underlying Request</span><span>
|
||||
</span><a name="line-198"></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-6989586621679150543"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150544"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150545"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150546"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679150543"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150544"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150545"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150546"><span class="hs-identifier hs-type">accept</span></a><span> </span><span>
|
||||
</span><a name="line-199"></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-6989586621679151047"><a href="#local-6989586621679151047"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679151048"><a href="#local-6989586621679151048"><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-6989586621679151048"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679151047"><span class="hs-identifier hs-var">req</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">-- | modify the underlying Request (monadic)</span><span>
|
||||
</span><a name="line-202"></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-6989586621679150538"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679150539"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150540"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150541"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150542"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679150538"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679150538"><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-6989586621679150539"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150540"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150541"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150542"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-203"></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-6989586621679151049"><a href="#local-6989586621679151049"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679151050"><a href="#local-6989586621679151050"><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-6989586621679151050"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679151049"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-204"></a><span>
|
||||
</span><a name="line-205"></a><span class="hs-comment">-- ** Logging </span><span>
|
||||
</span><a name="line-206"></a><span>
|
||||
</span><a name="line-207"></a><span class="hs-comment">-- | Run a block using the configured logger instance</span><span>
|
||||
</span><a name="line-208"></a><span class="hs-identifier">runConfigLog</span><span>
|
||||
</span><a name="line-209"></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-6989586621679150537"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-210"></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><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679150537"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-211"></a><a name="runConfigLog"><a href="SwaggerPetstore.Client.html#runConfigLog"><span class="hs-identifier">runConfigLog</span></a></a><span> </span><a name="local-6989586621679151051"><a href="#local-6989586621679151051"><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-6989586621679151051"><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-6989586621679151051"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-212"></a><span>
|
||||
</span><a name="line-213"></a><span class="hs-comment">-- | Run a block using the configured logger instance (logs exceptions)</span><span>
|
||||
</span><a name="line-214"></a><span class="hs-identifier">runConfigLogWithExceptions</span><span>
|
||||
</span><a name="line-215"></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-6989586621679150536"><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-6989586621679150536"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-216"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679150536"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-217"></a><a name="runConfigLogWithExceptions"><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier">runConfigLogWithExceptions</span></a></a><span> </span><a name="local-6989586621679151052"><a href="#local-6989586621679151052"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679151053"><a href="#local-6989586621679151053"><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-6989586621679151053"><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-6989586621679151052"><span class="hs-identifier hs-var">src</span></a><span>
|
||||
</span><a name="line-218"></a></pre></body></html>
|
||||
</span><a name="line-62"></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-6989586621679150852"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150854"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150855"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150853"><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">-></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-6989586621679150856"><a href="#local-6989586621679150856"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679150857"><a href="#local-6989586621679150857"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679150858"><a href="#local-6989586621679150858"><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-6989586621679150859"><a href="#local-6989586621679150859"><span class="hs-identifier">initReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier hs-var">_toInitRequest</span></a><span> </span><a href="#local-6989586621679150857"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679150858"><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-6989586621679150856"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679150857"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679150859"><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-6989586621679150820"><a href="#local-6989586621679150820"><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-6989586621679150820"><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>
|
||||
</span><a name="line-76"></a><span>
|
||||
</span><a name="line-77"></a><span class="hs-comment">-- | pair of unrender/parser error and http response</span><span>
|
||||
</span><a name="line-78"></a><span class="hs-keyword">data</span><span> </span><a name="MimeError"><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier">MimeError</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-79"></a><span> </span><a name="MimeError"><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier">MimeError</span></a></a><span> </span><span class="hs-special">{</span><span>
|
||||
</span><a name="line-80"></a><span> </span><a name="mimeError"><a href="SwaggerPetstore.Client.html#mimeError"><span class="hs-identifier">mimeError</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-comment">-- ^ unrender/parser error</span><span>
|
||||
</span><a name="line-81"></a><span> </span><span class="hs-special">,</span><span> </span><a name="mimeErrorResponse"><a href="SwaggerPetstore.Client.html#mimeErrorResponse"><span class="hs-identifier">mimeErrorResponse</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-82"></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">Eq</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Show</span><span class="hs-special">)</span><span>
|
||||
</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-6989586621679150848"><a href="#local-6989586621679150848"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679150849"><a href="#local-6989586621679150849"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679150850"><a href="#local-6989586621679150850"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679150851"><a href="#local-6989586621679150851"><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-6989586621679150848"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150851"><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-6989586621679150851"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679150850"><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-6989586621679150849"><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">=></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">-></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">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679150848"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150849"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150850"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150851"><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">-></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-6989586621679150850"><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-6989586621679150860"><a href="#local-6989586621679150860"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679150861"><a href="#local-6989586621679150861"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679150862"><a href="#local-6989586621679150862"><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-6989586621679150863"><a href="#local-6989586621679150863"><span class="hs-identifier">httpResponse</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#dispatchLbs"><span class="hs-identifier hs-var">dispatchLbs</span></a><span> </span><a href="#local-6989586621679150860"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679150861"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679150862"><span class="hs-identifier hs-var">request</span></a><span>
|
||||
</span><a name="line-93"></a><span> </span><a name="local-6989586621679150866"><a href="#local-6989586621679150866"><span class="hs-identifier">parsedResult</span></a></a><span> </span><span class="hs-glyph"><-</span><span>
|
||||
</span><a name="line-94"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><span class="hs-string">"Client"</span><span> </span><a href="#local-6989586621679150861"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-95"></a><span> </span><span class="hs-keyword">do</span><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeUnrender"><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-6989586621679150851"><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-6989586621679150863"><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-96"></a><span> </span><span class="hs-identifier hs-var">Left</span><span> </span><a name="local-6989586621679150864"><a href="#local-6989586621679150864"><span class="hs-identifier">s</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-97"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><span class="hs-string">"Client"</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-6989586621679150864"><span class="hs-identifier hs-var">s</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-98"></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-6989586621679150864"><span class="hs-identifier hs-var">s</span></a><span> </span><a href="#local-6989586621679150863"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-99"></a><span> </span><span class="hs-identifier hs-var">Right</span><span> </span><a name="local-6989586621679150865"><a href="#local-6989586621679150865"><span class="hs-identifier">r</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">Right</span><span> </span><a href="#local-6989586621679150865"><span class="hs-identifier hs-var">r</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-100"></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-6989586621679150866"><span class="hs-identifier hs-var">parsedResult</span></a><span> </span><a href="#local-6989586621679150863"><span class="hs-identifier hs-var">httpResponse</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-101"></a><span>
|
||||
</span><a name="line-102"></a><span class="hs-comment">-- | like 'dispatchMime', but only returns the decoded http body</span><span>
|
||||
</span><a name="line-103"></a><span class="hs-identifier">dispatchMime'</span><span>
|
||||
</span><a name="line-104"></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-6989586621679150844"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150845"><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-6989586621679150845"><span class="hs-identifier hs-type">accept</span></a><span> </span><a href="#local-6989586621679150846"><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-6989586621679150847"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-105"></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-106"></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><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-107"></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-6989586621679150844"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150847"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150846"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150845"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-108"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Either</span><span> </span><a href="SwaggerPetstore.Client.html#MimeError"><span class="hs-identifier hs-type">MimeError</span></a><span> </span><a href="#local-6989586621679150846"><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-109"></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-6989586621679150867"><a href="#local-6989586621679150867"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679150868"><a href="#local-6989586621679150868"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679150869"><a href="#local-6989586621679150869"><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-110"></a><span> </span><a href="SwaggerPetstore.Client.html#MimeResult"><span class="hs-identifier hs-var">MimeResult</span></a><span> </span><a name="local-6989586621679150870"><a href="#local-6989586621679150870"><span class="hs-identifier">parsedResult</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#dispatchMime"><span class="hs-identifier hs-var">dispatchMime</span></a><span> </span><a href="#local-6989586621679150867"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679150868"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679150869"><span class="hs-identifier hs-var">request</span></a><span>
|
||||
</span><a name="line-111"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679150870"><span class="hs-identifier hs-var">parsedResult</span></a><span>
|
||||
</span><a name="line-112"></a><span>
|
||||
</span><a name="line-113"></a><span class="hs-comment">-- ** Unsafe</span><span>
|
||||
</span><a name="line-114"></a><span>
|
||||
</span><a name="line-115"></a><span class="hs-comment">-- | like 'dispatchReqLbs', but does not validate the operation is a 'Producer' of the "accept" 'MimeType'. (Useful if the server's response is undocumented)</span><span>
|
||||
</span><a name="line-116"></a><span class="hs-identifier">dispatchLbsUnsafe</span><span>
|
||||
</span><a name="line-117"></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-6989586621679150840"><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-6989586621679150841"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-118"></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-119"></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><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-120"></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-6989586621679150842"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150841"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150843"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150840"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-121"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-122"></a><a name="dispatchLbsUnsafe"><a href="SwaggerPetstore.Client.html#dispatchLbsUnsafe"><span class="hs-identifier">dispatchLbsUnsafe</span></a></a><span> </span><a name="local-6989586621679150871"><a href="#local-6989586621679150871"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679150872"><a href="#local-6989586621679150872"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679150873"><a href="#local-6989586621679150873"><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-123"></a><span> </span><a name="local-6989586621679150874"><a href="#local-6989586621679150874"><span class="hs-identifier">initReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier hs-var">_toInitRequest</span></a><span> </span><a href="#local-6989586621679150872"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679150873"><span class="hs-identifier hs-var">request</span></a><span>
|
||||
</span><a name="line-124"></a><span> </span><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier hs-var">dispatchInitUnsafe</span></a><span> </span><a href="#local-6989586621679150871"><span class="hs-identifier hs-var">manager</span></a><span> </span><a href="#local-6989586621679150872"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679150874"><span class="hs-identifier hs-var">initReq</span></a><span>
|
||||
</span><a name="line-125"></a><span>
|
||||
</span><a name="line-126"></a><span class="hs-comment">-- | dispatch an InitRequest</span><span>
|
||||
</span><a name="line-127"></a><span class="hs-identifier">dispatchInitUnsafe</span><span>
|
||||
</span><a name="line-128"></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-129"></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><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-130"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679150836"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150837"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150838"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150839"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ init request</span><span>
|
||||
</span><a name="line-131"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Response</span><span> </span><span class="hs-identifier hs-type">BCL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- ^ response</span><span>
|
||||
</span><a name="line-132"></a><a name="dispatchInitUnsafe"><a href="SwaggerPetstore.Client.html#dispatchInitUnsafe"><span class="hs-identifier">dispatchInitUnsafe</span></a></a><span> </span><a name="local-6989586621679150875"><a href="#local-6989586621679150875"><span class="hs-identifier">manager</span></a></a><span> </span><a name="local-6989586621679150876"><a href="#local-6989586621679150876"><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-6989586621679150877"><a href="#local-6989586621679150877"><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-133"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><a href="#local-6989586621679150878"><span class="hs-identifier hs-var">src</span></a><span> </span><a href="#local-6989586621679150876"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">$</span><span>
|
||||
</span><a name="line-134"></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-6989586621679150878"><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-6989586621679150880"><span class="hs-identifier hs-var">requestLogMsg</span></a><span>
|
||||
</span><a name="line-135"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679150878"><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-6989586621679150881"><span class="hs-identifier hs-var">requestDbgLogMsg</span></a><span>
|
||||
</span><a name="line-136"></a><span> </span><a name="local-6989586621679151313"><a href="#local-6989586621679151313"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">liftIO</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">httpLbs</span><span> </span><a href="#local-6989586621679150877"><span class="hs-identifier hs-var">req</span></a><span> </span><a href="#local-6989586621679150875"><span class="hs-identifier hs-var">manager</span></a><span>
|
||||
</span><a name="line-137"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679150878"><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-6989586621679150883"><span class="hs-identifier hs-var">responseLogMsg</span></a><span> </span><a href="#local-6989586621679151313"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-138"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679150878"><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-6989586621679151313"><span class="hs-identifier hs-var">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-139"></a><span> </span><span class="hs-identifier hs-var">return</span><span> </span><a href="#local-6989586621679151313"><span class="hs-identifier hs-var">res</span></a><span>
|
||||
</span><a name="line-140"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-141"></a><span> </span><a name="local-6989586621679150878"><a href="#local-6989586621679150878"><span class="hs-identifier">src</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"Client"</span><span>
|
||||
</span><a name="line-142"></a><span> </span><a name="local-6989586621679150879"><a href="#local-6989586621679150879"><span class="hs-identifier">endpoint</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-143"></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-144"></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-145"></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-6989586621679150877"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" "</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">host</span><span> </span><a href="#local-6989586621679150877"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">path</span><span> </span><a href="#local-6989586621679150877"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">queryString</span><span> </span><a href="#local-6989586621679150877"><span class="hs-identifier hs-var">req</span></a><span>
|
||||
</span><a name="line-146"></a><span> </span><a name="local-6989586621679150880"><a href="#local-6989586621679150880"><span class="hs-identifier">requestLogMsg</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"REQ:"</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679150879"><span class="hs-identifier hs-var">endpoint</span></a><span>
|
||||
</span><a name="line-147"></a><span> </span><a name="local-6989586621679150881"><a href="#local-6989586621679150881"><span class="hs-identifier">requestDbgLogMsg</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-148"></a><span> </span><span class="hs-string">"Headers="</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">NH</span><span class="hs-operator">.</span><span class="hs-identifier">requestHeaders</span><span> </span><a href="#local-6989586621679150877"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" Body="</span><span> </span><span class="hs-operator hs-var"><></span><span>
|
||||
</span><a name="line-149"></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-6989586621679150877"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-150"></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-6989586621679150884"><a href="#local-6989586621679150884"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toStrict</span><span> </span><a href="#local-6989586621679150884"><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">_</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-string">"<RequestBody>"</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-152"></a><span> </span><a name="local-6989586621679150882"><a href="#local-6989586621679150882"><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-153"></a><span> </span><a name="local-6989586621679150883"><a href="#local-6989586621679150883"><span class="hs-identifier">responseLogMsg</span></a></a><span> </span><a name="local-6989586621679151259"><a href="#local-6989586621679151259"><span class="hs-identifier">res</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-154"></a><span> </span><span class="hs-string">"RES:statusCode="</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679150882"><span class="hs-identifier hs-var">responseStatusCode</span></a><span> </span><a href="#local-6989586621679151259"><span class="hs-identifier hs-var">res</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">" ("</span><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679150879"><span class="hs-identifier hs-var">endpoint</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><span class="hs-string">")"</span><span>
|
||||
</span><a name="line-155"></a><span>
|
||||
</span><a name="line-156"></a><span class="hs-comment">-- * InitRequest</span><span>
|
||||
</span><a name="line-157"></a><span>
|
||||
</span><a name="line-158"></a><span class="hs-comment">-- | wraps an http-client 'Request' with request/response type parameters</span><span>
|
||||
</span><a name="line-159"></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-6989586621679150816"><a href="#local-6989586621679150816"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679150817"><a href="#local-6989586621679150817"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679150818"><a href="#local-6989586621679150818"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679150819"><a href="#local-6989586621679150819"><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-160"></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-161"></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-162"></a><span>
|
||||
</span><a name="line-163"></a><span class="hs-comment">-- | Build an http-client 'Request' record from the supplied config and request</span><span>
|
||||
</span><a name="line-164"></a><span class="hs-identifier">_toInitRequest</span><span>
|
||||
</span><a name="line-165"></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-6989586621679150832"><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-6989586621679150833"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-166"></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><span class="hs-comment">-- ^ config</span><span>
|
||||
</span><a name="line-167"></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-6989586621679150834"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150833"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150835"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150832"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request</span><span>
|
||||
</span><a name="line-168"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679150834"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150833"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150835"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150832"><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-169"></a><a name="_toInitRequest"><a href="SwaggerPetstore.Client.html#_toInitRequest"><span class="hs-identifier">_toInitRequest</span></a></a><span> </span><a name="local-6989586621679151314"><a href="#local-6989586621679151314"><span class="hs-identifier">config</span></a></a><span> </span><a name="local-6989586621679151315"><a href="#local-6989586621679151315"><span class="hs-identifier">req0</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
|
||||
</span><a name="line-170"></a><span> </span><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier hs-var">runConfigLogWithExceptions</span></a><span> </span><span class="hs-string">"Client"</span><span> </span><a href="#local-6989586621679151314"><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-171"></a><span> </span><a name="local-6989586621679151316"><a href="#local-6989586621679151316"><span class="hs-identifier">parsedReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">liftIO</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">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-6989586621679151314"><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-6989586621679151315"><span class="hs-identifier hs-var">req0</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-172"></a><span> </span><a name="local-6989586621679151317"><a href="#local-6989586621679151317"><span class="hs-identifier">req1</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">liftIO</span><span> </span><span class="hs-operator hs-var">$</span><span> </span><a href="SwaggerPetstore.Core.html#_applyAuthMethods"><span class="hs-identifier hs-var">_applyAuthMethods</span></a><span> </span><a href="#local-6989586621679151315"><span class="hs-identifier hs-var">req0</span></a><span> </span><a href="#local-6989586621679151314"><span class="hs-identifier hs-var">config</span></a><span>
|
||||
</span><a name="line-173"></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-174"></a><span> </span><span class="hs-special">(</span><span class="hs-identifier">configValidateAuthMethods</span><span> </span><a href="#local-6989586621679151314"><span class="hs-identifier hs-var">config</span></a><span> </span><span class="hs-operator hs-var">&&</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-6989586621679151317"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-175"></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">"AuthMethod not configured: "</span><span> </span><span class="hs-operator hs-var"><></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-6989586621679151317"><span class="hs-identifier hs-var">req1</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-176"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679151318"><a href="#local-6989586621679151318"><span class="hs-identifier">req2</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679151317"><span class="hs-identifier hs-var">req1</span></a><span> </span><span class="hs-operator hs-var">&</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">&</span><span> </span><a href="SwaggerPetstore.Core.html#_setAcceptHeader"><span class="hs-identifier hs-var">_setAcceptHeader</span></a><span>
|
||||
</span><a name="line-177"></a><span> </span><a name="local-6989586621679151319"><a href="#local-6989586621679151319"><span class="hs-identifier">reqHeaders</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-string">"User-Agent"</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toHeader</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">configUserAgent</span><span> </span><a href="#local-6989586621679151314"><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-6989586621679151318"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-178"></a><span> </span><a name="local-6989586621679151320"><a href="#local-6989586621679151320"><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-6989586621679151318"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-179"></a><span> </span><a name="local-6989586621679151321"><a href="#local-6989586621679151321"><span class="hs-identifier">pReq</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679151316"><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-6989586621679151318"><span class="hs-identifier hs-var">req2</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-180"></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-6989586621679151319"><span class="hs-identifier hs-var">reqHeaders</span></a><span>
|
||||
</span><a name="line-181"></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-6989586621679151320"><span class="hs-identifier hs-var">reqQuery</span></a><span>
|
||||
</span><a name="line-182"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-183"></a><span> </span><a name="local-6989586621679151326"><a href="#local-6989586621679151326"><span class="hs-identifier">outReq</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-identifier">paramsBody</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">rParams</span><span> </span><a href="#local-6989586621679151318"><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-184"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyNone"><span class="hs-identifier hs-var">ParamBodyNone</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679151321"><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-185"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyB"><span class="hs-identifier hs-var">ParamBodyB</span></a><span> </span><a name="local-6989586621679151322"><a href="#local-6989586621679151322"><span class="hs-identifier">bs</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679151321"><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-6989586621679151322"><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-186"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyBL"><span class="hs-identifier hs-var">ParamBodyBL</span></a><span> </span><a name="local-6989586621679151323"><a href="#local-6989586621679151323"><span class="hs-identifier">bl</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679151321"><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-6989586621679151323"><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-187"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><a name="local-6989586621679151324"><a href="#local-6989586621679151324"><span class="hs-identifier">form</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">pure</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679151321"><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-6989586621679151324"><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-188"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><a name="local-6989586621679151325"><a href="#local-6989586621679151325"><span class="hs-identifier">parts</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">NH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formDataBody</span><span> </span><a href="#local-6989586621679151325"><span class="hs-identifier hs-var">parts</span></a><span> </span><a href="#local-6989586621679151321"><span class="hs-identifier hs-var">pReq</span></a><span>
|
||||
</span><a name="line-189"></a><span>
|
||||
</span><a name="line-190"></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-6989586621679151326"><span class="hs-identifier hs-var">outReq</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-191"></a><span>
|
||||
</span><a name="line-192"></a><span class="hs-comment">-- | modify the underlying Request</span><span>
|
||||
</span><a name="line-193"></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-6989586621679150828"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150829"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150830"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150831"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679150828"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150829"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150830"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150831"><span class="hs-identifier hs-type">accept</span></a><span>
|
||||
</span><a name="line-194"></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-6989586621679151327"><a href="#local-6989586621679151327"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679151328"><a href="#local-6989586621679151328"><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-6989586621679151328"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679151327"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-195"></a><span>
|
||||
</span><a name="line-196"></a><span class="hs-comment">-- | modify the underlying Request (monadic)</span><span>
|
||||
</span><a name="line-197"></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-6989586621679150823"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Client.html#InitRequest"><span class="hs-identifier hs-type">InitRequest</span></a><span> </span><a href="#local-6989586621679150824"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150825"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150826"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150827"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679150823"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Request</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679150823"><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-6989586621679150824"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679150825"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679150826"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679150827"><span class="hs-identifier hs-type">accept</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-198"></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-6989586621679151329"><a href="#local-6989586621679151329"><span class="hs-identifier">req</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679151330"><a href="#local-6989586621679151330"><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-6989586621679151330"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679151329"><span class="hs-identifier hs-var">req</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-199"></a><span>
|
||||
</span><a name="line-200"></a><span class="hs-comment">-- ** Logging </span><span>
|
||||
</span><a name="line-201"></a><span>
|
||||
</span><a name="line-202"></a><span class="hs-comment">-- | Run a block using the configured logger instance</span><span>
|
||||
</span><a name="line-203"></a><span class="hs-identifier">runConfigLog</span><span>
|
||||
</span><a name="line-204"></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-6989586621679150822"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-205"></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><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679150822"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-206"></a><a name="runConfigLog"><a href="SwaggerPetstore.Client.html#runConfigLog"><span class="hs-identifier">runConfigLog</span></a></a><span> </span><a name="local-6989586621679151331"><a href="#local-6989586621679151331"><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-6989586621679151331"><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-6989586621679151331"><span class="hs-identifier hs-var">config</span></a><span class="hs-special">)</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 (logs exceptions)</span><span>
|
||||
</span><a name="line-209"></a><span class="hs-identifier">runConfigLogWithExceptions</span><span>
|
||||
</span><a name="line-210"></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-6989586621679150821"><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-6989586621679150821"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-211"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">T</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679150821"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-212"></a><a name="runConfigLogWithExceptions"><a href="SwaggerPetstore.Client.html#runConfigLogWithExceptions"><span class="hs-identifier">runConfigLogWithExceptions</span></a></a><span> </span><a name="local-6989586621679151332"><a href="#local-6989586621679151332"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679151333"><a href="#local-6989586621679151333"><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-6989586621679151333"><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-6989586621679151332"><span class="hs-identifier hs-var">src</span></a><span>
|
||||
</span><a name="line-213"></a></pre></body></html>
|
||||
@@ -33,501 +33,514 @@ Module : SwaggerPetstore.Core
|
||||
</span><a name="line-33"></a><span>
|
||||
</span><a name="line-34"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Arrow</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">left</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-35"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">DeepSeq</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NF</span><span>
|
||||
</span><a name="line-36"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">A</span><span>
|
||||
</span><a name="line-37"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">B</span><span>
|
||||
</span><a name="line-38"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Base64</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL64</span><span>
|
||||
</span><a name="line-39"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Builder</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BB</span><span>
|
||||
</span><a name="line-40"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BC</span><span>
|
||||
</span><a name="line-41"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL</span><span>
|
||||
</span><a name="line-42"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BCL</span><span>
|
||||
</span><a name="line-43"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">CaseInsensitive</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">CI</span><span>
|
||||
</span><a name="line-44"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Data</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Data</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">TypeRep</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">typeRep</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-45"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Foldable</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-46"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Ix</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-47"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Maybe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-48"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Proxy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Proxy</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-49"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-50"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span class="hs-operator">.</span><span class="hs-identifier">Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-51"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</span><span>
|
||||
</span><a name="line-52"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span class="hs-operator">.</span><span class="hs-identifier">ISO8601</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</span><span>
|
||||
</span><a name="line-53"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">GHC</span><span class="hs-operator">.</span><span class="hs-identifier">Base</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Alternative</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-54"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Lens</span><span class="hs-operator">.</span><span class="hs-identifier">Micro</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">L</span><span>
|
||||
</span><a name="line-55"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Client</span><span class="hs-operator">.</span><span class="hs-identifier">MultipartFormData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-56"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Types</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-57"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-58"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">FormUrlEncoded</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-59"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">HttpApiData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-60"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Text</span><span class="hs-operator">.</span><span class="hs-identifier">Printf</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-61"></a><span>
|
||||
</span><a name="line-62"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Applicative</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var"><|></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-63"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Applicative</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Alternative</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-64"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Function</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">&</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-65"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Foldable</span><span class="hs-special">(</span><span class="hs-identifier hs-var">foldlM</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-66"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Monoid</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var"><></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-67"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-68"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">pure</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">return</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">IO</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Monad</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-69"></a><span>
|
||||
</span><a name="line-70"></a><span class="hs-comment">-- * SwaggerPetstoreConfig</span><span>
|
||||
</span><a name="line-71"></a><span>
|
||||
</span><a name="line-72"></a><span class="hs-comment">-- | </span><span>
|
||||
</span><a name="line-73"></a><span class="hs-keyword">data</span><span> </span><a name="SwaggerPetstoreConfig"><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier">SwaggerPetstoreConfig</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="SwaggerPetstoreConfig"><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier">SwaggerPetstoreConfig</span></a></a><span>
|
||||
</span><a name="line-74"></a><span> </span><span class="hs-special">{</span><span> </span><a name="configHost"><a href="SwaggerPetstore.Core.html#configHost"><span class="hs-identifier">configHost</span></a></a><span> </span><span class="hs-glyph">::</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">-- ^ host supplied in the Request</span><span>
|
||||
</span><a name="line-75"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configUserAgent"><a href="SwaggerPetstore.Core.html#configUserAgent"><span class="hs-identifier">configUserAgent</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ user-agent supplied in the Request</span><span>
|
||||
</span><a name="line-76"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configLogExecWithContext"><a href="SwaggerPetstore.Core.html#configLogExecWithContext"><span class="hs-identifier">configLogExecWithContext</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Logging.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a><span> </span><span class="hs-comment">-- ^ Run a block using a Logger instance</span><span>
|
||||
</span><a name="line-77"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configLogContext"><a href="SwaggerPetstore.Core.html#configLogContext"><span class="hs-identifier">configLogContext</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-comment">-- ^ Configures the logger</span><span>
|
||||
</span><a name="line-78"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configAuthMethods"><a href="SwaggerPetstore.Core.html#configAuthMethods"><span class="hs-identifier">configAuthMethods</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-type">AnyAuthMethod</span></a><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ List of configured auth methods</span><span>
|
||||
</span><a name="line-79"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configValidateAuthMethods"><a href="SwaggerPetstore.Core.html#configValidateAuthMethods"><span class="hs-identifier">configValidateAuthMethods</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Bool</span><span> </span><span class="hs-comment">-- ^ throw exceptions if auth methods are not configured</span><span>
|
||||
</span><a name="line-80"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-81"></a><span>
|
||||
</span><a name="line-82"></a><span class="hs-comment">-- | display the config</span><span>
|
||||
</span><a name="line-83"></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-84"></a><span> </span><a name="local-8214565720323792830"><span class="hs-identifier">show</span></a><span> </span><a name="local-6989586621679119198"><a href="#local-6989586621679119198"><span class="hs-identifier">c</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-85"></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-86"></a><span> </span><span class="hs-string">"{ configHost = %v, configUserAgent = %v, ..}"</span><span>
|
||||
</span><a name="line-87"></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-6989586621679119198"><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">configUserAgent</span><span> </span><a href="#local-6989586621679119198"><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><a name="line-90"></a><span class="hs-comment">-- | constructs a default SwaggerPetstoreConfig</span><span>
|
||||
</span><a name="line-91"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-92"></a><span class="hs-comment">-- configHost:</span><span>
|
||||
</span><a name="line-93"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-94"></a><span class="hs-comment">-- @http://petstore.swagger.io:80/v2@</span><span>
|
||||
</span><a name="line-95"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-96"></a><span class="hs-comment">-- configUserAgent:</span><span>
|
||||
</span><a name="line-97"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-98"></a><span class="hs-comment">-- @"swagger-haskell-http-client/1.0.0"@</span><span>
|
||||
</span><a name="line-99"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-100"></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-101"></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-102"></a><span> </span><a name="local-6989586621679118322"><a href="#local-6989586621679118322"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph"><-</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><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-104"></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">"http://petstore.swagger.io:80/v2"</span><span>
|
||||
</span><a name="line-105"></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">"swagger-haskell-http-client/1.0.0"</span><span>
|
||||
</span><a name="line-106"></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-107"></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-6989586621679118322"><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">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-109"></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-110"></a><span> </span><span class="hs-special">}</span><span> </span><span>
|
||||
</span><a name="line-111"></a><span>
|
||||
</span><a name="line-112"></a><span class="hs-comment">-- | updates config use AuthMethod on matching requests</span><span>
|
||||
</span><a name="line-113"></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-6989586621679118321"><span class="hs-identifier hs-type">auth</span></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><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118321"><span class="hs-identifier hs-type">auth</span></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-114"></a><a name="addAuthMethod"><a href="SwaggerPetstore.Core.html#addAuthMethod"><span class="hs-identifier">addAuthMethod</span></a></a><span> </span><a name="local-6989586621679118323"><a href="#local-6989586621679118323"><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-6989586621679118325"><a href="#local-6989586621679118325"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-115"></a><span> </span><a href="#local-6989586621679118323"><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-6989586621679118325"><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-116"></a><span>
|
||||
</span><a name="line-117"></a><span class="hs-comment">-- | updates the config to use stdout logging</span><span>
|
||||
</span><a name="line-118"></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">-></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-119"></a><a name="withStdoutLogging"><a href="SwaggerPetstore.Core.html#withStdoutLogging"><span class="hs-identifier">withStdoutLogging</span></a></a><span> </span><a name="local-6989586621679118326"><a href="#local-6989586621679118326"><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-120"></a><span> </span><a name="local-6989586621679118327"><a href="#local-6989586621679118327"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph"><-</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-6989586621679118326"><span class="hs-identifier hs-var">p</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-121"></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-6989586621679118326"><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-6989586621679118327"><span class="hs-identifier hs-var">logCxt</span></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-122"></a><span>
|
||||
</span><a name="line-123"></a><span class="hs-comment">-- | updates the config to use stderr logging</span><span>
|
||||
</span><a name="line-124"></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">-></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-125"></a><a name="withStderrLogging"><a href="SwaggerPetstore.Core.html#withStderrLogging"><span class="hs-identifier">withStderrLogging</span></a></a><span> </span><a name="local-6989586621679118328"><a href="#local-6989586621679118328"><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-126"></a><span> </span><a name="local-6989586621679118329"><a href="#local-6989586621679118329"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph"><-</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-6989586621679118328"><span class="hs-identifier hs-var">p</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-127"></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-6989586621679118328"><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-6989586621679118329"><span class="hs-identifier hs-var">logCxt</span></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-128"></a><span>
|
||||
</span><a name="line-129"></a><span class="hs-comment">-- | updates the config to disable logging</span><span>
|
||||
</span><a name="line-130"></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">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier hs-type">SwaggerPetstoreConfig</span></a><span>
|
||||
</span><a name="line-131"></a><a name="withNoLogging"><a href="SwaggerPetstore.Core.html#withNoLogging"><span class="hs-identifier">withNoLogging</span></a></a><span> </span><a name="local-6989586621679118330"><a href="#local-6989586621679118330"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679118330"><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><span> </span><span>
|
||||
</span><a name="line-133"></a><span class="hs-comment">-- * SwaggerPetstoreRequest</span><span>
|
||||
</span><a name="line-134"></a><span>
|
||||
</span><a name="line-135"></a><span class="hs-comment">-- | Represents a request. The "req" type variable is the request type. The "res" type variable is the response type.</span><span>
|
||||
</span><a name="line-136"></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-6989586621679116390"><a href="#local-6989586621679116390"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679116391"><a href="#local-6989586621679116391"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679116392"><a href="#local-6989586621679116392"><span class="hs-identifier">res</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-137"></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-138"></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-139"></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>
|
||||
</span><a name="line-140"></a><span> </span><span class="hs-special">,</span><span> </span><a name="rAuthTypes"><a href="SwaggerPetstore.Core.html#rAuthTypes"><span class="hs-identifier">rAuthTypes</span></a></a><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">TypeRep</span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ types of auth methods</span><span>
|
||||
</span><a name="line-141"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-142"></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-143"></a><span>
|
||||
</span><a name="line-144"></a><span class="hs-comment">-- | 'rMethod' Lens</span><span>
|
||||
</span><a name="line-145"></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-6989586621679118318"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118319"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118320"><span class="hs-identifier hs-type">res</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-146"></a><a name="rMethodL"><a href="SwaggerPetstore.Core.html#rMethodL"><span class="hs-identifier">rMethodL</span></a></a><span> </span><a name="local-6989586621679118331"><a href="#local-6989586621679118331"><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-6989586621679118336"><a href="#local-6989586621679118336"><span class="hs-identifier">rMethod</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><span class="hs-special">{</span><span> </span><a href="#local-6989586621679118336"><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"><$></span><span> </span><a href="#local-6989586621679118331"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679118332"><span class="hs-identifier hs-var">rMethod</span></a><span>
|
||||
</span><a name="line-147"></a><span class="hs-pragma">{-# INLINE rMethodL #-}</span><span>
|
||||
</span><a name="line-148"></a><span>
|
||||
</span><a name="line-149"></a><span class="hs-comment">-- | 'rUrlPath' Lens</span><span>
|
||||
</span><a name="line-150"></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-6989586621679118315"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118316"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118317"><span class="hs-identifier hs-type">res</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-151"></a><a name="rUrlPathL"><a href="SwaggerPetstore.Core.html#rUrlPathL"><span class="hs-identifier">rUrlPathL</span></a></a><span> </span><a name="local-6989586621679118346"><a href="#local-6989586621679118346"><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-6989586621679118351"><a href="#local-6989586621679118351"><span class="hs-identifier">rUrlPath</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><span class="hs-special">{</span><span> </span><a href="#local-6989586621679118351"><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"><$></span><span> </span><a href="#local-6989586621679118346"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679118348"><span class="hs-identifier hs-var">rUrlPath</span></a><span>
|
||||
</span><a name="line-152"></a><span class="hs-pragma">{-# INLINE rUrlPathL #-}</span><span>
|
||||
</span><a name="line-153"></a><span>
|
||||
</span><a name="line-154"></a><span class="hs-comment">-- | 'rParams' Lens</span><span>
|
||||
</span><a name="line-155"></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-6989586621679118312"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118313"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118314"><span class="hs-identifier hs-type">res</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-156"></a><a name="rParamsL"><a href="SwaggerPetstore.Core.html#rParamsL"><span class="hs-identifier">rParamsL</span></a></a><span> </span><a name="local-6989586621679118352"><a href="#local-6989586621679118352"><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-6989586621679118357"><a href="#local-6989586621679118357"><span class="hs-identifier">rParams</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><span class="hs-special">{</span><span> </span><a href="#local-6989586621679118357"><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"><$></span><span> </span><a href="#local-6989586621679118352"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679118355"><span class="hs-identifier hs-var">rParams</span></a><span>
|
||||
</span><a name="line-157"></a><span class="hs-pragma">{-# INLINE rParamsL #-}</span><span>
|
||||
</span><a name="line-158"></a><span>
|
||||
</span><a name="line-159"></a><span class="hs-comment">-- | 'rParams' Lens</span><span>
|
||||
</span><a name="line-160"></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-6989586621679118309"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118310"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118311"><span class="hs-identifier hs-type">res</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-161"></a><a name="rAuthTypesL"><a href="SwaggerPetstore.Core.html#rAuthTypesL"><span class="hs-identifier">rAuthTypesL</span></a></a><span> </span><a name="local-6989586621679118358"><a href="#local-6989586621679118358"><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-6989586621679118363"><a href="#local-6989586621679118363"><span class="hs-identifier">rAuthTypes</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><span class="hs-special">{</span><span> </span><a href="#local-6989586621679118363"><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"><$></span><span> </span><a href="#local-6989586621679118358"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679118362"><span class="hs-identifier hs-var">rAuthTypes</span></a><span>
|
||||
</span><a name="line-162"></a><span class="hs-pragma">{-# INLINE rAuthTypesL #-}</span><span>
|
||||
</span><a name="line-163"></a><span>
|
||||
</span><a name="line-164"></a><span class="hs-comment">-- * HasBodyParam</span><span>
|
||||
</span><a name="line-165"></a><span>
|
||||
</span><a name="line-166"></a><span class="hs-comment">-- | Designates the body parameter of a request</span><span>
|
||||
</span><a name="line-167"></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-6989586621679116384"><a href="#local-6989586621679116384"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679116385"><a href="#local-6989586621679116385"><span class="hs-identifier">param</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-168"></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-6989586621679116386"><a href="#local-6989586621679116386"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679116387"><a href="#local-6989586621679116387"><span class="hs-identifier">res</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="#local-6989586621679116384"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116386"><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-6989586621679116386"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116385"><span class="hs-identifier hs-type">param</span></a><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-6989586621679116384"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116386"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116387"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116385"><span class="hs-identifier hs-type">param</span></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-6989586621679116384"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116386"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116387"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-169"></a><span> </span><a name="local-8214565720323889432"><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier">setBodyParam</span></a></a><span> </span><a name="local-6989586621679116388"><a href="#local-6989586621679116388"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679116389"><a href="#local-6989586621679116389"><span class="hs-identifier">xs</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-170"></a><span> </span><a href="#local-6989586621679116388"><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-6989586621679116386"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679116389"><span class="hs-identifier hs-var">xs</span></a><span> </span><span class="hs-operator hs-var">&</span><span> </span><a href="SwaggerPetstore.Core.html#_setContentTypeHeader"><span class="hs-identifier hs-var">_setContentTypeHeader</span></a><span>
|
||||
</span><a name="line-36"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Exception</span><span class="hs-operator">.</span><span class="hs-identifier">Safe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">E</span><span>
|
||||
</span><a name="line-37"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">A</span><span>
|
||||
</span><a name="line-38"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">B</span><span>
|
||||
</span><a name="line-39"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Base64</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL64</span><span>
|
||||
</span><a name="line-40"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Builder</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BB</span><span>
|
||||
</span><a name="line-41"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BC</span><span>
|
||||
</span><a name="line-42"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL</span><span>
|
||||
</span><a name="line-43"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BCL</span><span>
|
||||
</span><a name="line-44"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">CaseInsensitive</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">CI</span><span>
|
||||
</span><a name="line-45"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Data</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Data</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">TypeRep</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">typeRep</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-46"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Foldable</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-47"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Ix</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-48"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Maybe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-49"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Proxy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Proxy</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-50"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-51"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span class="hs-operator">.</span><span class="hs-identifier">Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-52"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</span><span>
|
||||
</span><a name="line-53"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Time</span><span class="hs-operator">.</span><span class="hs-identifier">ISO8601</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</span><span>
|
||||
</span><a name="line-54"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">GHC</span><span class="hs-operator">.</span><span class="hs-identifier">Base</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Alternative</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-55"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Lens</span><span class="hs-operator">.</span><span class="hs-identifier">Micro</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">L</span><span>
|
||||
</span><a name="line-56"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Client</span><span class="hs-operator">.</span><span class="hs-identifier">MultipartFormData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-57"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Types</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</span><span>
|
||||
</span><a name="line-58"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-59"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">FormUrlEncoded</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-60"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">HttpApiData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-61"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Text</span><span class="hs-operator">.</span><span class="hs-identifier">Printf</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-62"></a><span>
|
||||
</span><a name="line-63"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Applicative</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var"><|></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-64"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Applicative</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Alternative</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-65"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Function</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">&</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-66"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Foldable</span><span class="hs-special">(</span><span class="hs-identifier hs-var">foldlM</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-67"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Monoid</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var"><></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-68"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-69"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">pure</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">return</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">show</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">IO</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Monad</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-70"></a><span>
|
||||
</span><a name="line-71"></a><span class="hs-comment">-- * SwaggerPetstoreConfig</span><span>
|
||||
</span><a name="line-72"></a><span>
|
||||
</span><a name="line-73"></a><span class="hs-comment">-- | </span><span>
|
||||
</span><a name="line-74"></a><span class="hs-keyword">data</span><span> </span><a name="SwaggerPetstoreConfig"><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier">SwaggerPetstoreConfig</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="SwaggerPetstoreConfig"><a href="SwaggerPetstore.Core.html#SwaggerPetstoreConfig"><span class="hs-identifier">SwaggerPetstoreConfig</span></a></a><span>
|
||||
</span><a name="line-75"></a><span> </span><span class="hs-special">{</span><span> </span><a name="configHost"><a href="SwaggerPetstore.Core.html#configHost"><span class="hs-identifier">configHost</span></a></a><span> </span><span class="hs-glyph">::</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">-- ^ host supplied in the Request</span><span>
|
||||
</span><a name="line-76"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configUserAgent"><a href="SwaggerPetstore.Core.html#configUserAgent"><span class="hs-identifier">configUserAgent</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-comment">-- ^ user-agent supplied in the Request</span><span>
|
||||
</span><a name="line-77"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configLogExecWithContext"><a href="SwaggerPetstore.Core.html#configLogExecWithContext"><span class="hs-identifier">configLogExecWithContext</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Logging.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a><span> </span><span class="hs-comment">-- ^ Run a block using a Logger instance</span><span>
|
||||
</span><a name="line-78"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configLogContext"><a href="SwaggerPetstore.Core.html#configLogContext"><span class="hs-identifier">configLogContext</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-comment">-- ^ Configures the logger</span><span>
|
||||
</span><a name="line-79"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configAuthMethods"><a href="SwaggerPetstore.Core.html#configAuthMethods"><span class="hs-identifier">configAuthMethods</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Core.html#AnyAuthMethod"><span class="hs-identifier hs-type">AnyAuthMethod</span></a><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ List of configured auth methods</span><span>
|
||||
</span><a name="line-80"></a><span> </span><span class="hs-special">,</span><span> </span><a name="configValidateAuthMethods"><a href="SwaggerPetstore.Core.html#configValidateAuthMethods"><span class="hs-identifier">configValidateAuthMethods</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Bool</span><span> </span><span class="hs-comment">-- ^ throw exceptions if auth methods are not configured</span><span>
|
||||
</span><a name="line-81"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</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-8214565720323792830"><span class="hs-identifier">show</span></a><span> </span><a name="local-6989586621679119275"><a href="#local-6989586621679119275"><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">"{ configHost = %v, configUserAgent = %v, ..}"</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-6989586621679119275"><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-6989586621679119275"><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>
|
||||
</span><a name="line-93"></a><span class="hs-comment">-- configHost:</span><span>
|
||||
</span><a name="line-94"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-95"></a><span class="hs-comment">-- @http://petstore.swagger.io:80/v2@</span><span>
|
||||
</span><a name="line-96"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-97"></a><span class="hs-comment">-- configUserAgent:</span><span>
|
||||
</span><a name="line-98"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-99"></a><span class="hs-comment">-- @"swagger-haskell-http-client/1.0.0"@</span><span>
|
||||
</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-6989586621679118400"><a href="#local-6989586621679118400"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph"><-</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">"http://petstore.swagger.io:80/v2"</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">"swagger-haskell-http-client/1.0.0"</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-6989586621679118400"><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-6989586621679118399"><span class="hs-identifier hs-type">auth</span></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><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118399"><span class="hs-identifier hs-type">auth</span></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-115"></a><a name="addAuthMethod"><a href="SwaggerPetstore.Core.html#addAuthMethod"><span class="hs-identifier">addAuthMethod</span></a></a><span> </span><a name="local-6989586621679118401"><a href="#local-6989586621679118401"><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-6989586621679118403"><a href="#local-6989586621679118403"><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-6989586621679118401"><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-6989586621679118403"><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">-></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-6989586621679118404"><a href="#local-6989586621679118404"><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-6989586621679118405"><a href="#local-6989586621679118405"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph"><-</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-6989586621679118404"><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-6989586621679118404"><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-6989586621679118405"><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">-></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-6989586621679118406"><a href="#local-6989586621679118406"><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-6989586621679118407"><a href="#local-6989586621679118407"><span class="hs-identifier">logCxt</span></a></a><span> </span><span class="hs-glyph"><-</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-6989586621679118406"><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-6989586621679118406"><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-6989586621679118407"><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">-></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-6989586621679118408"><a href="#local-6989586621679118408"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679118408"><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>
|
||||
</span><a name="line-136"></a><span class="hs-comment">-- | Represents a request.</span><span>
|
||||
</span><a name="line-137"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-138"></a><span class="hs-comment">-- Type Variables:</span><span>
|
||||
</span><a name="line-139"></a><span class="hs-comment">--</span><span>
|
||||
</span><a name="line-140"></a><span class="hs-comment">-- * req - request operation</span><span>
|
||||
</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-6989586621679116452"><a href="#local-6989586621679116452"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679116453"><a href="#local-6989586621679116453"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679116454"><a href="#local-6989586621679116454"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679116455"><a href="#local-6989586621679116455"><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>
|
||||
</span><a name="line-148"></a><span> </span><span class="hs-special">,</span><span> </span><a name="rAuthTypes"><a href="SwaggerPetstore.Core.html#rAuthTypes"><span class="hs-identifier">rAuthTypes</span></a></a><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">TypeRep</span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ types of auth methods</span><span>
|
||||
</span><a name="line-149"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</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-6989586621679118395"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118396"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118397"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118398"><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-6989586621679118409"><a href="#local-6989586621679118409"><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-6989586621679118414"><a href="#local-6989586621679118414"><span class="hs-identifier">rMethod</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><span class="hs-special">{</span><span> </span><a href="#local-6989586621679118414"><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"><$></span><span> </span><a href="#local-6989586621679118409"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679118410"><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-6989586621679118391"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118392"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118393"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118394"><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-6989586621679118424"><a href="#local-6989586621679118424"><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-6989586621679118429"><a href="#local-6989586621679118429"><span class="hs-identifier">rUrlPath</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><span class="hs-special">{</span><span> </span><a href="#local-6989586621679118429"><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"><$></span><span> </span><a href="#local-6989586621679118424"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679118426"><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-6989586621679118387"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118388"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118389"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118390"><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-6989586621679118430"><a href="#local-6989586621679118430"><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-6989586621679118435"><a href="#local-6989586621679118435"><span class="hs-identifier">rParams</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><span class="hs-special">{</span><span> </span><a href="#local-6989586621679118435"><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"><$></span><span> </span><a href="#local-6989586621679118430"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679118433"><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-6989586621679118383"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118384"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118385"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118386"><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-6989586621679118436"><a href="#local-6989586621679118436"><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-6989586621679118441"><a href="#local-6989586621679118441"><span class="hs-identifier">rAuthTypes</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><span class="hs-special">{</span><span> </span><a href="#local-6989586621679118441"><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"><$></span><span> </span><a href="#local-6989586621679118436"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679118440"><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">-- * HasOptionalParam</span><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 optional parameters of a request</span><span>
|
||||
</span><a name="line-175"></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-6989586621679116378"><a href="#local-6989586621679116378"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679116379"><a href="#local-6989586621679116379"><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-pragma">{-# MINIMAL applyOptionalParam | (-&-) #-}</span><span>
|
||||
</span><a name="line-177"></a><span>
|
||||
</span><a name="line-178"></a><span> </span><span class="hs-comment">-- | Apply an optional parameter to a request</span><span>
|
||||
</span><a name="line-179"></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-6989586621679116378"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116380"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116381"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116379"><span class="hs-identifier hs-type">param</span></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-6989586621679116378"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116380"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116381"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-180"></a><span> </span><a name="local-8214565720323889429"><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">-&-</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-181"></a><span> </span><span class="hs-pragma">{-# INLINE applyOptionalParam #-}</span><span>
|
||||
</span><a name="line-182"></a><span>
|
||||
</span><a name="line-183"></a><span> </span><span class="hs-comment">-- | infix operator \/ alias for 'addOptionalParam'</span><span>
|
||||
</span><a name="line-184"></a><span> </span><span class="hs-special">(</span><span class="hs-operator">-&-</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-6989586621679116378"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116382"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116383"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116379"><span class="hs-identifier hs-type">param</span></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-6989586621679116378"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116382"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116383"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-185"></a><span> </span><span class="hs-special">(</span><a name="local-8214565720323889430"><a href="SwaggerPetstore.Core.html#-%26-"><span class="hs-operator">-&-</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-186"></a><span> </span><span class="hs-pragma">{-# INLINE (-&-) #-}</span><span>
|
||||
</span><a name="line-187"></a><span>
|
||||
</span><a name="line-188"></a><span class="hs-keyword">infixl</span><span> </span><span class="hs-number">2</span><span> </span><span class="hs-operator">-&-</span><span>
|
||||
</span><a name="line-189"></a><span>
|
||||
</span><a name="line-190"></a><span class="hs-comment">-- | Request Params</span><span>
|
||||
</span><a name="line-191"></a><span class="hs-keyword">data</span><span> </span><a name="Params"><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier">Params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Params"><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier">Params</span></a></a><span>
|
||||
</span><a name="line-192"></a><span> </span><span class="hs-special">{</span><span> </span><a name="paramsQuery"><a href="SwaggerPetstore.Core.html#paramsQuery"><span class="hs-identifier">paramsQuery</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">Query</span><span>
|
||||
</span><a name="line-193"></a><span> </span><span class="hs-special">,</span><span> </span><a name="paramsHeaders"><a href="SwaggerPetstore.Core.html#paramsHeaders"><span class="hs-identifier">paramsHeaders</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">RequestHeaders</span><span>
|
||||
</span><a name="line-194"></a><span> </span><span class="hs-special">,</span><span> </span><a name="paramsBody"><a href="SwaggerPetstore.Core.html#paramsBody"><span class="hs-identifier">paramsBody</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#ParamBody"><span class="hs-identifier hs-type">ParamBody</span></a><span>
|
||||
</span><a name="line-195"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-196"></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-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-6989586621679116445"><a href="#local-6989586621679116445"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679116446"><a href="#local-6989586621679116446"><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-6989586621679116447"><a href="#local-6989586621679116447"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679116448"><a href="#local-6989586621679116448"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679116449"><a href="#local-6989586621679116449"><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-6989586621679116445"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116447"><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-6989586621679116447"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116446"><span class="hs-identifier hs-type">param</span></a><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-6989586621679116445"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116447"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116448"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679116449"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116446"><span class="hs-identifier hs-type">param</span></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-6989586621679116445"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116447"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116448"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679116449"><span class="hs-identifier hs-type">accept</span></a><span>
|
||||
</span><a name="line-177"></a><span> </span><a name="local-8214565720323889490"><a href="SwaggerPetstore.Core.html#setBodyParam"><span class="hs-identifier">setBodyParam</span></a></a><span> </span><a name="local-6989586621679116450"><a href="#local-6989586621679116450"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679116451"><a href="#local-6989586621679116451"><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-6989586621679116450"><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-6989586621679116447"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679116451"><span class="hs-identifier hs-var">xs</span></a><span> </span><span class="hs-operator hs-var">&</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-6989586621679116437"><a href="#local-6989586621679116437"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679116438"><a href="#local-6989586621679116438"><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 | (-&-) #-}</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-6989586621679116437"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116439"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116440"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679116441"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116438"><span class="hs-identifier hs-type">param</span></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-6989586621679116437"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116439"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116440"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679116441"><span class="hs-identifier hs-type">accept</span></a><span>
|
||||
</span><a name="line-188"></a><span> </span><a name="local-8214565720323889487"><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">-&-</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">-&-</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-6989586621679116437"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116442"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116443"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679116444"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116438"><span class="hs-identifier hs-type">param</span></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-6989586621679116437"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116442"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116443"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679116444"><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-8214565720323889488"><a href="SwaggerPetstore.Core.html#-%26-"><span class="hs-operator">-&-</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 (-&-) #-}</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">-&-</span><span>
|
||||
</span><a name="line-197"></a><span>
|
||||
</span><a name="line-198"></a><span class="hs-comment">-- | 'paramsQuery' Lens</span><span>
|
||||
</span><a name="line-199"></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-200"></a><a name="paramsQueryL"><a href="SwaggerPetstore.Core.html#paramsQueryL"><span class="hs-identifier">paramsQueryL</span></a></a><span> </span><a name="local-6989586621679118364"><a href="#local-6989586621679118364"><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-6989586621679118368"><a href="#local-6989586621679118368"><span class="hs-identifier">paramsQuery</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> </span><a href="#local-6989586621679118368"><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"><$></span><span> </span><a href="#local-6989586621679118364"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679118365"><span class="hs-identifier hs-var">paramsQuery</span></a><span>
|
||||
</span><a name="line-201"></a><span class="hs-pragma">{-# INLINE paramsQueryL #-}</span><span>
|
||||
</span><a name="line-202"></a><span>
|
||||
</span><a name="line-203"></a><span class="hs-comment">-- | 'paramsHeaders' Lens</span><span>
|
||||
</span><a name="line-204"></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-205"></a><a name="paramsHeadersL"><a href="SwaggerPetstore.Core.html#paramsHeadersL"><span class="hs-identifier">paramsHeadersL</span></a></a><span> </span><a name="local-6989586621679118369"><a href="#local-6989586621679118369"><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-6989586621679118373"><a href="#local-6989586621679118373"><span class="hs-identifier">paramsHeaders</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> </span><a href="#local-6989586621679118373"><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"><$></span><span> </span><a href="#local-6989586621679118369"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679118371"><span class="hs-identifier hs-var">paramsHeaders</span></a><span>
|
||||
</span><a name="line-206"></a><span class="hs-pragma">{-# INLINE paramsHeadersL #-}</span><span>
|
||||
</span><a name="line-207"></a><span>
|
||||
</span><a name="line-208"></a><span class="hs-comment">-- | 'paramsBody' Lens</span><span>
|
||||
</span><a name="line-209"></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-210"></a><a name="paramsBodyL"><a href="SwaggerPetstore.Core.html#paramsBodyL"><span class="hs-identifier">paramsBodyL</span></a></a><span> </span><a name="local-6989586621679118374"><a href="#local-6989586621679118374"><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-6989586621679118378"><a href="#local-6989586621679118378"><span class="hs-identifier">paramsBody</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> </span><a href="#local-6989586621679118378"><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"><$></span><span> </span><a href="#local-6989586621679118374"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679118377"><span class="hs-identifier hs-var">paramsBody</span></a><span>
|
||||
</span><a name="line-211"></a><span class="hs-pragma">{-# INLINE paramsBodyL #-}</span><span>
|
||||
</span><a name="line-212"></a><span>
|
||||
</span><a name="line-213"></a><span class="hs-comment">-- | Request Body</span><span>
|
||||
</span><a name="line-214"></a><span class="hs-keyword">data</span><span> </span><a name="ParamBody"><a href="SwaggerPetstore.Core.html#ParamBody"><span class="hs-identifier">ParamBody</span></a></a><span>
|
||||
</span><a name="line-215"></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="ParamBodyNone"><a href="SwaggerPetstore.Core.html#ParamBodyNone"><span class="hs-identifier">ParamBodyNone</span></a></a><span>
|
||||
</span><a name="line-216"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="ParamBodyB"><a href="SwaggerPetstore.Core.html#ParamBodyB"><span class="hs-identifier">ParamBodyB</span></a></a><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><a name="line-217"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="ParamBodyBL"><a href="SwaggerPetstore.Core.html#ParamBodyBL"><span class="hs-identifier">ParamBodyBL</span></a></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><a name="line-218"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="ParamBodyFormUrlEncoded"><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier">ParamBodyFormUrlEncoded</span></a></a><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-219"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="ParamBodyMultipartFormData"><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier">ParamBodyMultipartFormData</span></a></a><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">Part</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-220"></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-221"></a><span>
|
||||
</span><a name="line-222"></a><span class="hs-comment">-- ** SwaggerPetstoreRequest Utils</span><span>
|
||||
</span><a name="line-223"></a><span>
|
||||
</span><a name="line-224"></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-225"></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</span><span>
|
||||
</span><a name="line-226"></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-6989586621679118306"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118307"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118308"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-comment">-- ^ req: Request Type, res: Response Type</span><span>
|
||||
</span><a name="line-227"></a><a name="_mkRequest"><a href="SwaggerPetstore.Core.html#_mkRequest"><span class="hs-identifier">_mkRequest</span></a></a><span> </span><a name="local-6989586621679118379"><a href="#local-6989586621679118379"><span class="hs-identifier">m</span></a></a><span> </span><a name="local-6989586621679118380"><a href="#local-6989586621679118380"><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-6989586621679118379"><span class="hs-identifier hs-var">m</span></a><span> </span><a href="#local-6989586621679118380"><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-228"></a><span>
|
||||
</span><a name="line-229"></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-230"></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-198"></a><span class="hs-comment">-- | Request Params</span><span>
|
||||
</span><a name="line-199"></a><span class="hs-keyword">data</span><span> </span><a name="Params"><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier">Params</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Params"><a href="SwaggerPetstore.Core.html#Params"><span class="hs-identifier">Params</span></a></a><span>
|
||||
</span><a name="line-200"></a><span> </span><span class="hs-special">{</span><span> </span><a name="paramsQuery"><a href="SwaggerPetstore.Core.html#paramsQuery"><span class="hs-identifier">paramsQuery</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">Query</span><span>
|
||||
</span><a name="line-201"></a><span> </span><span class="hs-special">,</span><span> </span><a name="paramsHeaders"><a href="SwaggerPetstore.Core.html#paramsHeaders"><span class="hs-identifier">paramsHeaders</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">RequestHeaders</span><span>
|
||||
</span><a name="line-202"></a><span> </span><span class="hs-special">,</span><span> </span><a name="paramsBody"><a href="SwaggerPetstore.Core.html#paramsBody"><span class="hs-identifier">paramsBody</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#ParamBody"><span class="hs-identifier hs-type">ParamBody</span></a><span>
|
||||
</span><a name="line-203"></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-204"></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-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-6989586621679118442"><a href="#local-6989586621679118442"><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-6989586621679118446"><a href="#local-6989586621679118446"><span class="hs-identifier">paramsQuery</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> </span><a href="#local-6989586621679118446"><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"><$></span><span> </span><a href="#local-6989586621679118442"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679118443"><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-6989586621679118447"><a href="#local-6989586621679118447"><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-6989586621679118451"><a href="#local-6989586621679118451"><span class="hs-identifier">paramsHeaders</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> </span><a href="#local-6989586621679118451"><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"><$></span><span> </span><a href="#local-6989586621679118447"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679118449"><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-6989586621679118452"><a href="#local-6989586621679118452"><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-6989586621679118456"><a href="#local-6989586621679118456"><span class="hs-identifier">paramsBody</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> </span><a href="#local-6989586621679118456"><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"><$></span><span> </span><a href="#local-6989586621679118452"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679118455"><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>
|
||||
</span><a name="line-222"></a><span class="hs-keyword">data</span><span> </span><a name="ParamBody"><a href="SwaggerPetstore.Core.html#ParamBody"><span class="hs-identifier">ParamBody</span></a></a><span>
|
||||
</span><a name="line-223"></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="ParamBodyNone"><a href="SwaggerPetstore.Core.html#ParamBodyNone"><span class="hs-identifier">ParamBodyNone</span></a></a><span>
|
||||
</span><a name="line-224"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="ParamBodyB"><a href="SwaggerPetstore.Core.html#ParamBodyB"><span class="hs-identifier">ParamBodyB</span></a></a><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><a name="line-225"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="ParamBodyBL"><a href="SwaggerPetstore.Core.html#ParamBodyBL"><span class="hs-identifier">ParamBodyBL</span></a></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><a name="line-226"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="ParamBodyFormUrlEncoded"><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier">ParamBodyFormUrlEncoded</span></a></a><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-227"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="ParamBodyMultipartFormData"><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier">ParamBodyMultipartFormData</span></a></a><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">Part</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-228"></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-229"></a><span>
|
||||
</span><a name="line-230"></a><span class="hs-comment">-- ** SwaggerPetstoreRequest Utils</span><span>
|
||||
</span><a name="line-231"></a><span>
|
||||
</span><a name="line-232"></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-6989586621679118303"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118304"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118305"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Header</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-6989586621679118303"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118304"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118305"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-233"></a><a name="setHeader"><a href="SwaggerPetstore.Core.html#setHeader"><span class="hs-identifier">setHeader</span></a></a><span> </span><a name="local-6989586621679118381"><a href="#local-6989586621679118381"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118382"><a href="#local-6989586621679118382"><span class="hs-identifier">header</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-234"></a><span> </span><a href="#local-6989586621679118381"><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-6989586621679118382"><span class="hs-identifier hs-var">header</span></a><span> </span><span class="hs-operator hs-var">&</span><span>
|
||||
</span><a name="line-235"></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-6989586621679118382"><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-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">-></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">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679118379"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118380"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118381"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118382"><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-6989586621679118457"><a href="#local-6989586621679118457"><span class="hs-identifier">m</span></a></a><span> </span><a name="local-6989586621679118458"><a href="#local-6989586621679118458"><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-6989586621679118457"><span class="hs-identifier hs-var">m</span></a><span> </span><a href="#local-6989586621679118458"><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">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-6989586621679118300"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118301"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118302"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">HeaderName</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-6989586621679118300"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118301"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118302"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-238"></a><a name="removeHeader"><a href="SwaggerPetstore.Core.html#removeHeader"><span class="hs-identifier">removeHeader</span></a></a><span> </span><a name="local-6989586621679118394"><a href="#local-6989586621679118394"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118395"><a href="#local-6989586621679118395"><span class="hs-identifier">header</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-239"></a><span> </span><a href="#local-6989586621679118394"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</span><span>
|
||||
</span><a name="line-240"></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-241"></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-242"></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-6989586621679118790"><a href="#local-6989586621679118790"><span class="hs-identifier">h</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118396"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679118790"><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-6989586621679118395"><span class="hs-identifier hs-var">header</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-243"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-244"></a><span> </span><a name="local-6989586621679118396"><a href="#local-6989586621679118396"><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-245"></a><span>
|
||||
</span><a name="line-246"></a><span>
|
||||
</span><a name="line-247"></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-6989586621679118297"><a href="#local-6989586621679118297"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118298"><a href="#local-6989586621679118298"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679118299"><a href="#local-6989586621679118299"><span class="hs-identifier">res</span></a></a><span class="hs-operator">.</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679118298"><span class="hs-identifier hs-type">contentType</span></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-6989586621679118297"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118298"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118299"><span class="hs-identifier hs-type">res</span></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-6989586621679118297"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118298"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118299"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-248"></a><a name="_setContentTypeHeader"><a href="SwaggerPetstore.Core.html#_setContentTypeHeader"><span class="hs-identifier">_setContentTypeHeader</span></a></a><span> </span><a name="local-6989586621679118791"><a href="#local-6989586621679118791"><span class="hs-identifier">req</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-249"></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-6989586621679118298"><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-250"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679118792"><a href="#local-6989586621679118792"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118791"><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">"content-type"</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-6989586621679118792"><span class="hs-identifier hs-var">m</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-251"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118791"><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">"content-type"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-252"></a><span>
|
||||
</span><a name="line-253"></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-6989586621679118293"><a href="#local-6989586621679118293"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118294"><a href="#local-6989586621679118294"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679118295"><a href="#local-6989586621679118295"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679118296"><a href="#local-6989586621679118296"><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-6989586621679118296"><span class="hs-identifier hs-type">accept</span></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-6989586621679118293"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118294"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118295"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118296"><span class="hs-identifier hs-type">accept</span></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-6989586621679118293"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118294"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118295"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-254"></a><a name="_setAcceptHeader"><a href="SwaggerPetstore.Core.html#_setAcceptHeader"><span class="hs-identifier">_setAcceptHeader</span></a></a><span> </span><a name="local-6989586621679118793"><a href="#local-6989586621679118793"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118794"><a href="#local-6989586621679118794"><span class="hs-identifier">accept</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-255"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#mimeType%27"><span class="hs-identifier hs-var">mimeType'</span></a><span> </span><a href="#local-6989586621679118794"><span class="hs-identifier hs-var">accept</span></a><span> </span><span class="hs-keyword">of</span><span> </span><span>
|
||||
</span><a name="line-256"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679118795"><a href="#local-6989586621679118795"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118793"><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">"accept"</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-6989586621679118795"><span class="hs-identifier hs-var">m</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-257"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118793"><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">"accept"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-258"></a><span>
|
||||
</span><a name="line-259"></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-6989586621679118290"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118291"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118292"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">QueryItem</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-6989586621679118290"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118291"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118292"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-260"></a><a name="setQuery"><a href="SwaggerPetstore.Core.html#setQuery"><span class="hs-identifier">setQuery</span></a></a><span> </span><a name="local-6989586621679118796"><a href="#local-6989586621679118796"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118797"><a href="#local-6989586621679118797"><span class="hs-identifier">query</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
|
||||
</span><a name="line-261"></a><span> </span><a href="#local-6989586621679118796"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</span><span>
|
||||
</span><a name="line-262"></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-263"></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-264"></a><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><a href="#local-6989586621679118797"><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-6989586621679118799"><a href="#local-6989586621679118799"><span class="hs-identifier">q</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118798"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679118799"><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-6989586621679118798"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679118797"><span class="hs-identifier hs-var">query</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-265"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-266"></a><span> </span><a name="local-6989586621679118798"><a href="#local-6989586621679118798"><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-267"></a><span>
|
||||
</span><a name="line-268"></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-6989586621679118287"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118288"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118289"><span class="hs-identifier hs-type">res</span></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">Form</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-6989586621679118287"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118288"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118289"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-269"></a><a name="addForm"><a href="SwaggerPetstore.Core.html#addForm"><span class="hs-identifier">addForm</span></a></a><span> </span><a name="local-6989586621679118800"><a href="#local-6989586621679118800"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118801"><a href="#local-6989586621679118801"><span class="hs-identifier">newform</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
|
||||
</span><a name="line-270"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679118802"><a href="#local-6989586621679118802"><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-6989586621679118800"><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-271"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyFormUrlEncoded"><span class="hs-identifier hs-var">ParamBodyFormUrlEncoded</span></a><span> </span><a name="local-6989586621679118803"><a href="#local-6989586621679118803"><span class="hs-identifier">_form</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118803"><span class="hs-identifier hs-var">_form</span></a><span>
|
||||
</span><a name="line-272"></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">mempty</span><span>
|
||||
</span><a name="line-273"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679118800"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</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-6989586621679118801"><span class="hs-identifier hs-var">newform</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679118802"><span class="hs-identifier hs-var">form</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-274"></a><span>
|
||||
</span><a name="line-275"></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-6989586621679118284"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118285"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118286"><span class="hs-identifier hs-type">res</span></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">Part</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-6989586621679118284"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118285"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118286"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-276"></a><a name="_addMultiFormPart"><a href="SwaggerPetstore.Core.html#_addMultiFormPart"><span class="hs-identifier">_addMultiFormPart</span></a></a><span> </span><a name="local-6989586621679118804"><a href="#local-6989586621679118804"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118805"><a href="#local-6989586621679118805"><span class="hs-identifier">newpart</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
|
||||
</span><a name="line-277"></a><span> </span><span class="hs-keyword">let</span><span> </span><a name="local-6989586621679118806"><a href="#local-6989586621679118806"><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-6989586621679118804"><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-278"></a><span> </span><a href="SwaggerPetstore.Core.html#ParamBodyMultipartFormData"><span class="hs-identifier hs-var">ParamBodyMultipartFormData</span></a><span> </span><a name="local-6989586621679118807"><a href="#local-6989586621679118807"><span class="hs-identifier">_parts</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118807"><span class="hs-identifier hs-var">_parts</span></a><span>
|
||||
</span><a name="line-279"></a><span> </span><span class="hs-identifier">_</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-280"></a><span> </span><span class="hs-keyword">in</span><span> </span><a href="#local-6989586621679118804"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</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-6989586621679118805"><span class="hs-identifier hs-var">newpart</span></a><span> </span><span class="hs-glyph">:</span><span> </span><a href="#local-6989586621679118806"><span class="hs-identifier hs-var">parts</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-281"></a><span>
|
||||
</span><a name="line-282"></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-6989586621679118281"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118282"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118283"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></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">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679118281"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118282"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118283"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-283"></a><a name="_setBodyBS"><a href="SwaggerPetstore.Core.html#_setBodyBS"><span class="hs-identifier">_setBodyBS</span></a></a><span> </span><a name="local-6989586621679118808"><a href="#local-6989586621679118808"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118809"><a href="#local-6989586621679118809"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
|
||||
</span><a name="line-284"></a><span> </span><a href="#local-6989586621679118808"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</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-6989586621679118809"><span class="hs-identifier hs-var">body</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-285"></a><span>
|
||||
</span><a name="line-286"></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-6989586621679118278"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118279"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118280"><span class="hs-identifier hs-type">res</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679118278"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118279"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118280"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-287"></a><a name="_setBodyLBS"><a href="SwaggerPetstore.Core.html#_setBodyLBS"><span class="hs-identifier">_setBodyLBS</span></a></a><span> </span><a name="local-6989586621679118810"><a href="#local-6989586621679118810"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118811"><a href="#local-6989586621679118811"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span>
|
||||
</span><a name="line-288"></a><span> </span><a href="#local-6989586621679118810"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</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-6989586621679118811"><span class="hs-identifier hs-var">body</span></a><span class="hs-special">)</span><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-6989586621679118375"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118376"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118377"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118378"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Header</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-6989586621679118375"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118376"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118377"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118378"><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-6989586621679118459"><a href="#local-6989586621679118459"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118460"><a href="#local-6989586621679118460"><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-6989586621679118459"><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-6989586621679118460"><span class="hs-identifier hs-var">header</span></a><span> </span><span class="hs-operator hs-var">&</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-6989586621679118460"><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-6989586621679118371"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118372"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118373"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118374"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">HeaderName</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-6989586621679118371"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118372"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118373"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118374"><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-6989586621679118472"><a href="#local-6989586621679118472"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118473"><a href="#local-6989586621679118473"><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-6989586621679118472"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</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-6989586621679118868"><a href="#local-6989586621679118868"><span class="hs-identifier">h</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118474"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679118868"><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-6989586621679118473"><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-6989586621679118474"><a href="#local-6989586621679118474"><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-6989586621679118367"><a href="#local-6989586621679118367"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118368"><a href="#local-6989586621679118368"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679118369"><a href="#local-6989586621679118369"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679118370"><a href="#local-6989586621679118370"><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-6989586621679118368"><span class="hs-identifier hs-type">contentType</span></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-6989586621679118367"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118368"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118369"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118370"><span class="hs-identifier hs-type">accept</span></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-6989586621679118367"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118368"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118369"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118370"><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-6989586621679118869"><a href="#local-6989586621679118869"><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-6989586621679118368"><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-6989586621679118870"><a href="#local-6989586621679118870"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118869"><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">"content-type"</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-6989586621679118870"><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">-></span><span> </span><a href="#local-6989586621679118869"><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">"content-type"</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-6989586621679118363"><a href="#local-6989586621679118363"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118364"><a href="#local-6989586621679118364"><span class="hs-identifier">contentType</span></a></a><span> </span><a name="local-6989586621679118365"><a href="#local-6989586621679118365"><span class="hs-identifier">res</span></a></a><span> </span><a name="local-6989586621679118366"><a href="#local-6989586621679118366"><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-6989586621679118366"><span class="hs-identifier hs-type">accept</span></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-6989586621679118363"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118364"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118365"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118366"><span class="hs-identifier hs-type">accept</span></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-6989586621679118363"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118364"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118365"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118366"><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-6989586621679118871"><a href="#local-6989586621679118871"><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-6989586621679118366"><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-6989586621679118872"><a href="#local-6989586621679118872"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118871"><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">"accept"</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-6989586621679118872"><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">-></span><span> </span><a href="#local-6989586621679118871"><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">"accept"</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-6989586621679118359"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118360"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118361"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118362"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">QueryItem</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-6989586621679118359"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118360"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118361"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118362"><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-6989586621679118873"><a href="#local-6989586621679118873"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118874"><a href="#local-6989586621679118874"><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-6989586621679118873"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</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-6989586621679118874"><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-6989586621679118876"><a href="#local-6989586621679118876"><span class="hs-identifier">q</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118875"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679118876"><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-6989586621679118875"><span class="hs-identifier hs-var">cifst</span></a><span> </span><a href="#local-6989586621679118874"><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-6989586621679118875"><a href="#local-6989586621679118875"><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-6989586621679118355"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118356"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118357"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118358"><span class="hs-identifier hs-type">accept</span></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">Form</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-6989586621679118355"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118356"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118357"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118358"><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-6989586621679118877"><a href="#local-6989586621679118877"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118878"><a href="#local-6989586621679118878"><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-6989586621679118879"><a href="#local-6989586621679118879"><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-6989586621679118877"><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-6989586621679118880"><a href="#local-6989586621679118880"><span class="hs-identifier">_form</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118880"><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">-></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-6989586621679118877"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</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-6989586621679118878"><span class="hs-identifier hs-var">newform</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679118879"><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-6989586621679118351"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118352"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118353"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118354"><span class="hs-identifier hs-type">accept</span></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">Part</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-6989586621679118351"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118352"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118353"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118354"><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-6989586621679118881"><a href="#local-6989586621679118881"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118882"><a href="#local-6989586621679118882"><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-6989586621679118883"><a href="#local-6989586621679118883"><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-6989586621679118881"><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-6989586621679118884"><a href="#local-6989586621679118884"><span class="hs-identifier">_parts</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118884"><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">-></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-6989586621679118881"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</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-6989586621679118882"><span class="hs-identifier hs-var">newpart</span></a><span> </span><span class="hs-glyph">:</span><span> </span><a href="#local-6989586621679118883"><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">_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-6989586621679118274"><span class="hs-identifier hs-type">authMethod</span></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-6989586621679118275"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118276"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118277"><span class="hs-identifier hs-type">res</span></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">Proxy</span><span> </span><a href="#local-6989586621679118274"><span class="hs-identifier hs-type">authMethod</span></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-6989586621679118275"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118276"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118277"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-291"></a><a name="_hasAuthType"><a href="SwaggerPetstore.Core.html#_hasAuthType"><span class="hs-identifier">_hasAuthType</span></a></a><span> </span><a name="local-6989586621679118812"><a href="#local-6989586621679118812"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118813"><a href="#local-6989586621679118813"><span class="hs-identifier">proxy</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-292"></a><span> </span><a href="#local-6989586621679118812"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</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-6989586621679118813"><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-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-6989586621679118347"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118348"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118349"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118350"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></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">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679118347"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118348"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118349"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118350"><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-6989586621679118885"><a href="#local-6989586621679118885"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118886"><a href="#local-6989586621679118886"><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-6989586621679118885"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</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-6989586621679118886"><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-comment">-- ** Params Utils</span><span>
|
||||
</span><a name="line-295"></a><span>
|
||||
</span><a name="line-296"></a><span class="hs-identifier">toPath</span><span>
|
||||
</span><a name="line-297"></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-6989586621679118273"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-298"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679118273"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></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-299"></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-300"></a><span>
|
||||
</span><a name="line-301"></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-6989586621679118272"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">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-6989586621679118272"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-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-302"></a><a name="toHeader"><a href="SwaggerPetstore.Core.html#toHeader"><span class="hs-identifier">toHeader</span></a></a><span> </span><a name="local-6989586621679118814"><a href="#local-6989586621679118814"><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-6989586621679118814"><span class="hs-identifier hs-var">x</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-6989586621679118343"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118344"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118345"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118346"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679118343"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118344"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118345"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118346"><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-6989586621679118887"><a href="#local-6989586621679118887"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118888"><a href="#local-6989586621679118888"><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-6989586621679118887"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</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-6989586621679118888"><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-6989586621679118338"><span class="hs-identifier hs-type">authMethod</span></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-6989586621679118339"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118340"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118341"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118342"><span class="hs-identifier hs-type">accept</span></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">Proxy</span><span> </span><a href="#local-6989586621679118338"><span class="hs-identifier hs-type">authMethod</span></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-6989586621679118339"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679118340"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679118341"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679118342"><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-6989586621679118889"><a href="#local-6989586621679118889"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118890"><a href="#local-6989586621679118890"><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-6989586621679118889"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-operator hs-var">&</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-6989586621679118890"><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">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-6989586621679118271"><span class="hs-identifier hs-type">v</span></a><span> </span><span class="hs-glyph">=></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-6989586621679118271"><span class="hs-identifier hs-type">v</span></a><span class="hs-special">)</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">Form</span><span>
|
||||
</span><a name="line-305"></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-6989586621679118815"><a href="#local-6989586621679118815"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679118816"><a href="#local-6989586621679118816"><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-6989586621679118815"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">,</span><a href="#local-6989586621679118816"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-306"></a><span>
|
||||
</span><a name="line-307"></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-6989586621679118270"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">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-6989586621679118270"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-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-308"></a><a name="toQuery"><a href="SwaggerPetstore.Core.html#toQuery"><span class="hs-identifier">toQuery</span></a></a><span> </span><a name="local-6989586621679118817"><a href="#local-6989586621679118817"><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-6989586621679118818"><span class="hs-identifier hs-var">toQueryParam</span></a><span> </span><a href="#local-6989586621679118817"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-309"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679118818"><a href="#local-6989586621679118818"><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-310"></a><span>
|
||||
</span><a name="line-311"></a><span class="hs-comment">-- *** Swagger `CollectionFormat` Utils</span><span>
|
||||
</span><a name="line-312"></a><span>
|
||||
</span><a name="line-313"></a><span class="hs-comment">-- | Determines the format of the array if type array is used.</span><span>
|
||||
</span><a name="line-314"></a><span class="hs-keyword">data</span><span> </span><a name="CollectionFormat"><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier">CollectionFormat</span></a></a><span>
|
||||
</span><a name="line-315"></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="CommaSeparated"><a href="SwaggerPetstore.Core.html#CommaSeparated"><span class="hs-identifier">CommaSeparated</span></a></a><span> </span><span class="hs-comment">-- ^ CSV format for multiple parameters.</span><span>
|
||||
</span><a name="line-316"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="SpaceSeparated"><a href="SwaggerPetstore.Core.html#SpaceSeparated"><span class="hs-identifier">SpaceSeparated</span></a></a><span> </span><span class="hs-comment">-- ^ Also called "SSV"</span><span>
|
||||
</span><a name="line-317"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="TabSeparated"><a href="SwaggerPetstore.Core.html#TabSeparated"><span class="hs-identifier">TabSeparated</span></a></a><span> </span><span class="hs-comment">-- ^ Also called "TSV"</span><span>
|
||||
</span><a name="line-318"></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-319"></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&foo=baz`. This is valid only for parameters in "query" ('NH.Query') or "formData" ('WH.Form')</span><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-6989586621679118337"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-306"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679118337"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></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-6989586621679118336"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">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-6989586621679118336"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-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-6989586621679118891"><a href="#local-6989586621679118891"><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-6989586621679118891"><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-6989586621679118335"><span class="hs-identifier hs-type">v</span></a><span> </span><span class="hs-glyph">=></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-6989586621679118335"><span class="hs-identifier hs-type">v</span></a><span class="hs-special">)</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">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-6989586621679118892"><a href="#local-6989586621679118892"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679118893"><a href="#local-6989586621679118893"><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-6989586621679118892"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">,</span><a href="#local-6989586621679118893"><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-6989586621679118334"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">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-6989586621679118334"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-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-6989586621679118894"><a href="#local-6989586621679118894"><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-6989586621679118895"><span class="hs-identifier hs-var">toQueryParam</span></a><span> </span><a href="#local-6989586621679118894"><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-6989586621679118895"><a href="#local-6989586621679118895"><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>
|
||||
</span><a name="line-321"></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-6989586621679118269"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">HeaderName</span><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679118269"><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">-></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-322"></a><a name="toHeaderColl"><a href="SwaggerPetstore.Core.html#toHeaderColl"><span class="hs-identifier">toHeaderColl</span></a></a><span> </span><a name="local-6989586621679118819"><a href="#local-6989586621679118819"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118820"><a href="#local-6989586621679118820"><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-6989586621679118819"><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-6989586621679118820"><span class="hs-identifier hs-var">xs</span></a><span>
|
||||
</span><a name="line-323"></a><span>
|
||||
</span><a name="line-324"></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-6989586621679118268"><span class="hs-identifier hs-type">v</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></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-6989586621679118268"><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">-></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-325"></a><a name="toFormColl"><a href="SwaggerPetstore.Core.html#toFormColl"><span class="hs-identifier">toFormColl</span></a></a><span> </span><a name="local-6989586621679118821"><a href="#local-6989586621679118821"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118822"><a href="#local-6989586621679118822"><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-6989586621679118824"><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-6989586621679118821"><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-6989586621679118823"><span class="hs-identifier hs-var">pack</span></a><span> </span><a href="#local-6989586621679118822"><span class="hs-identifier hs-var">xs</span></a><span>
|
||||
</span><a name="line-326"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-327"></a><span> </span><a name="local-6989586621679118823"><a href="#local-6989586621679118823"><span class="hs-identifier">pack</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679118825"><a href="#local-6989586621679118825"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679118826"><a href="#local-6989586621679118826"><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-6989586621679118825"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679118826"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-328"></a><span> </span><a name="local-6989586621679118824"><a href="#local-6989586621679118824"><span class="hs-identifier">unpack</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679118827"><a href="#local-6989586621679118827"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679118828"><a href="#local-6989586621679118828"><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-6989586621679118827"><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-6989586621679118828"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-329"></a><span>
|
||||
</span><a name="line-330"></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-6989586621679118267"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></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-6989586621679118267"><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">-></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-331"></a><a name="toQueryColl"><a href="SwaggerPetstore.Core.html#toQueryColl"><span class="hs-identifier">toQueryColl</span></a></a><span> </span><a name="local-6989586621679118829"><a href="#local-6989586621679118829"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118830"><a href="#local-6989586621679118830"><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-6989586621679118829"><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-6989586621679118830"><span class="hs-identifier hs-var">xs</span></a><span>
|
||||
</span><a name="line-332"></a><span>
|
||||
</span><a name="line-333"></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-6989586621679118264"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118264"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679118265"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679118266"><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">-></span><span> </span><a href="#local-6989586621679118264"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679118265"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679118266"><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-334"></a><a name="_toColl"><a href="SwaggerPetstore.Core.html#_toColl"><span class="hs-identifier">_toColl</span></a></a><span> </span><a name="local-6989586621679118831"><a href="#local-6989586621679118831"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118832"><a href="#local-6989586621679118832"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679118833"><a href="#local-6989586621679118833"><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-6989586621679118831"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="#local-6989586621679118834"><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-6989586621679118833"><span class="hs-identifier hs-var">xs</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-335"></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-6989586621679118834"><a href="#local-6989586621679118834"><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-6989586621679118832"><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-336"></a><span> </span><span class="hs-pragma">{-# INLINE fencode #-}</span><span>
|
||||
</span><a name="line-321"></a><span class="hs-comment">-- | Determines the format of the array if type array is used.</span><span>
|
||||
</span><a name="line-322"></a><span class="hs-keyword">data</span><span> </span><a name="CollectionFormat"><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier">CollectionFormat</span></a></a><span>
|
||||
</span><a name="line-323"></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="CommaSeparated"><a href="SwaggerPetstore.Core.html#CommaSeparated"><span class="hs-identifier">CommaSeparated</span></a></a><span> </span><span class="hs-comment">-- ^ CSV format for multiple parameters.</span><span>
|
||||
</span><a name="line-324"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="SpaceSeparated"><a href="SwaggerPetstore.Core.html#SpaceSeparated"><span class="hs-identifier">SpaceSeparated</span></a></a><span> </span><span class="hs-comment">-- ^ Also called "SSV"</span><span>
|
||||
</span><a name="line-325"></a><span> </span><span class="hs-glyph">|</span><span> </span><a name="TabSeparated"><a href="SwaggerPetstore.Core.html#TabSeparated"><span class="hs-identifier">TabSeparated</span></a></a><span> </span><span class="hs-comment">-- ^ Also called "TSV"</span><span>
|
||||
</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&foo=baz`. This is valid only for parameters in "query" ('NH.Query') or "formData" ('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-6989586621679118333"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">NH</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">HeaderName</span><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><a href="#local-6989586621679118333"><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">-></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-6989586621679118896"><a href="#local-6989586621679118896"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118897"><a href="#local-6989586621679118897"><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-6989586621679118896"><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-6989586621679118897"><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-6989586621679118332"><span class="hs-identifier hs-type">v</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></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-6989586621679118332"><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">-></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-6989586621679118898"><a href="#local-6989586621679118898"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118899"><a href="#local-6989586621679118899"><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-6989586621679118901"><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-6989586621679118898"><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-6989586621679118900"><span class="hs-identifier hs-var">pack</span></a><span> </span><a href="#local-6989586621679118899"><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-6989586621679118900"><a href="#local-6989586621679118900"><span class="hs-identifier">pack</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679118902"><a href="#local-6989586621679118902"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679118903"><a href="#local-6989586621679118903"><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-6989586621679118902"><span class="hs-identifier hs-var">k</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679118903"><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-6989586621679118901"><a href="#local-6989586621679118901"><span class="hs-identifier">unpack</span></a></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679118904"><a href="#local-6989586621679118904"><span class="hs-identifier">k</span></a></a><span class="hs-special">,</span><a name="local-6989586621679118905"><a href="#local-6989586621679118905"><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-6989586621679118904"><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-6989586621679118905"><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">_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-6989586621679118260"><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-6989586621679118261"><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-6989586621679118261"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118260"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118261"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679118262"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679118263"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679118261"><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">-></span><span> </span><a href="#local-6989586621679118260"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118261"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679118262"><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">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679118263"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679118261"><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-339"></a><a name="_toCollA"><a href="SwaggerPetstore.Core.html#_toCollA"><span class="hs-identifier">_toCollA</span></a></a><span> </span><a name="local-6989586621679118835"><a href="#local-6989586621679118835"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118836"><a href="#local-6989586621679118836"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679118837"><a href="#local-6989586621679118837"><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-6989586621679118835"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="#local-6989586621679118836"><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-6989586621679118837"><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-6989586621679118331"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></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-6989586621679118331"><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">-></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-6989586621679118906"><a href="#local-6989586621679118906"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118907"><a href="#local-6989586621679118907"><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-6989586621679118906"><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-6989586621679118907"><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">_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-6989586621679117786"><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-6989586621679117787"><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-6989586621679117788"><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-6989586621679117788"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679117787"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679117788"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679117789"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679117790"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679117788"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679117786"><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">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Char</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679117786"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679117787"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679117788"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679117789"><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">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679117790"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679117788"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679117786"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-342"></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-6989586621679118838"><a href="#local-6989586621679118838"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118839"><a href="#local-6989586621679118839"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679118840"><a href="#local-6989586621679118840"><span class="hs-identifier">one</span></a></a><span> </span><a name="local-6989586621679118841"><a href="#local-6989586621679118841"><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-6989586621679118838"><span class="hs-identifier hs-var">c</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-343"></a><span> </span><a href="SwaggerPetstore.Core.html#CommaSeparated"><span class="hs-identifier hs-var">CommaSeparated</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118842"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118840"><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-344"></a><span> </span><a href="SwaggerPetstore.Core.html#SpaceSeparated"><span class="hs-identifier hs-var">SpaceSeparated</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118842"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118840"><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-345"></a><span> </span><a href="SwaggerPetstore.Core.html#TabSeparated"><span class="hs-identifier hs-var">TabSeparated</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118842"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118840"><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-346"></a><span> </span><a href="SwaggerPetstore.Core.html#PipeSeparated"><span class="hs-identifier hs-var">PipeSeparated</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118842"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118840"><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-347"></a><span> </span><a href="SwaggerPetstore.Core.html#MultiParamArray"><span class="hs-identifier hs-var">MultiParamArray</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679118844"><span class="hs-identifier hs-var">expandList</span></a><span>
|
||||
</span><a name="line-348"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-349"></a><span> </span><a name="local-6989586621679118842"><a href="#local-6989586621679118842"><span class="hs-identifier">go</span></a></a><span> </span><a name="local-6989586621679118845"><a href="#local-6989586621679118845"><span class="hs-identifier">sep</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-350"></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-6989586621679118846"><a href="#local-6989586621679118846"><span class="hs-identifier">sk</span></a></a><span class="hs-special">,</span><span> </span><a name="local-6989586621679118847"><a href="#local-6989586621679118847"><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-6989586621679118848"><a href="#local-6989586621679118848"><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><a href="#local-6989586621679118846"><span class="hs-identifier hs-var">sk</span></a><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118843"><span class="hs-identifier hs-var">combine</span></a><span> </span><a href="#local-6989586621679118845"><span class="hs-identifier hs-var">sep</span></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679118847"><span class="hs-identifier hs-var">sv</span></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><a href="#local-6989586621679118848"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><|></span><span> </span><a href="#local-6989586621679118847"><span class="hs-identifier hs-var">sv</span></a><span> </span><span class="hs-operator hs-var"><|></span><span> </span><a href="#local-6989586621679118848"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679118844"><span class="hs-identifier hs-var">expandList</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-351"></a><span> </span><a name="local-6989586621679118843"><a href="#local-6989586621679118843"><span class="hs-identifier">combine</span></a></a><span> </span><a name="local-6989586621679118849"><a href="#local-6989586621679118849"><span class="hs-identifier">sep</span></a></a><span> </span><a name="local-6989586621679118850"><a href="#local-6989586621679118850"><span class="hs-identifier">x</span></a></a><span> </span><a name="local-6989586621679118851"><a href="#local-6989586621679118851"><span class="hs-identifier">y</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679118850"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679118849"><span class="hs-identifier hs-var">sep</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679118851"><span class="hs-identifier hs-var">y</span></a><span>
|
||||
</span><a name="line-352"></a><span> </span><a name="local-6989586621679118844"><a href="#local-6989586621679118844"><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-6989586621679118839"><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-6989586621679118841"><span class="hs-identifier hs-var">xs</span></a><span>
|
||||
</span><a name="line-353"></a><span> </span><span class="hs-pragma">{-# INLINE go #-}</span><span>
|
||||
</span><a name="line-354"></a><span> </span><span class="hs-pragma">{-# INLINE expandList #-}</span><span>
|
||||
</span><a name="line-355"></a><span> </span><span class="hs-pragma">{-# INLINE combine #-}</span><span>
|
||||
</span><a name="line-356"></a><span> </span><span>
|
||||
</span><a name="line-357"></a><span class="hs-comment">-- * AuthMethods</span><span>
|
||||
</span><a name="line-358"></a><span>
|
||||
</span><a name="line-359"></a><span class="hs-comment">-- | Provides a method to apply auth methods to requests</span><span>
|
||||
</span><a name="line-360"></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-6989586621679116079"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span>
|
||||
</span><a name="line-361"></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-6989586621679116079"><a href="#local-6989586621679116079"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-362"></a><span> </span><span class="hs-identifier">applyAuthMethod</span><span>
|
||||
</span><a name="line-363"></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-364"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116079"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-365"></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-6989586621679116080"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116081"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116082"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-366"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679116080"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116081"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116082"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-367"></a><span>
|
||||
</span><a name="line-368"></a><span class="hs-comment">-- | An existential wrapper for any AuthMethod</span><span>
|
||||
</span><a name="line-369"></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-6989586621679116078"><a href="#local-6989586621679116078"><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-6989586621679116078"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></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-6989586621679116078"><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-370"></a><span>
|
||||
</span><a name="line-371"></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-8214565720323889410"><a href="SwaggerPetstore.Core.html#applyAuthMethod"><span class="hs-identifier">applyAuthMethod</span></a></a><span> </span><a name="local-6989586621679119195"><a href="#local-6989586621679119195"><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-6989586621679119196"><a href="#local-6989586621679119196"><span class="hs-identifier">a</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679119197"><a href="#local-6989586621679119197"><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-6989586621679119195"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679119196"><span class="hs-identifier hs-var">a</span></a><span> </span><a href="#local-6989586621679119197"><span class="hs-identifier hs-var">req</span></a><span>
|
||||
</span><a name="line-372"></a><span>
|
||||
</span><a name="line-373"></a><span class="hs-comment">-- | apply all matching AuthMethods in config to request</span><span>
|
||||
</span><a name="line-374"></a><span class="hs-identifier">_applyAuthMethods</span><span>
|
||||
</span><a name="line-375"></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-6989586621679117783"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117784"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117785"><span class="hs-identifier hs-type">res</span></a><span>
|
||||
</span><a name="line-376"></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-377"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117783"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117784"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117785"><span class="hs-identifier hs-type">res</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-378"></a><a name="_applyAuthMethods"><a href="SwaggerPetstore.Core.html#_applyAuthMethods"><span class="hs-identifier">_applyAuthMethods</span></a></a><span> </span><a name="local-6989586621679118852"><a href="#local-6989586621679118852"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118853"><a href="#local-6989586621679118853"><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-379"></a><span> </span><span class="hs-identifier hs-var">foldlM</span><span> </span><a href="#local-6989586621679118855"><span class="hs-identifier hs-var">go</span></a><span> </span><a href="#local-6989586621679118852"><span class="hs-identifier hs-var">req</span></a><span> </span><span class="hs-keyword">as</span><span>
|
||||
</span><a name="line-380"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-381"></a><span> </span><a name="local-6989586621679118855"><a href="#local-6989586621679118855"><span class="hs-identifier">go</span></a></a><span> </span><a name="local-6989586621679118856"><a href="#local-6989586621679118856"><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-6989586621679118857"><a href="#local-6989586621679118857"><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-6989586621679118853"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679118857"><span class="hs-identifier hs-var">a</span></a><span> </span><a href="#local-6989586621679118856"><span class="hs-identifier hs-var">r</span></a><span>
|
||||
</span><a name="line-382"></a><span> </span><span>
|
||||
</span><a name="line-383"></a><span class="hs-comment">-- * Utils</span><span>
|
||||
</span><a name="line-384"></a><span>
|
||||
</span><a name="line-385"></a><span class="hs-comment">-- | Removes Null fields. (OpenAPI-Specification 2.0 does not allow Null in JSON)</span><span>
|
||||
</span><a name="line-386"></a><span class="hs-identifier">_omitNulls</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Value</span><span class="hs-special">)</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">A</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Value</span><span>
|
||||
</span><a name="line-387"></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-6989586621679118858"><span class="hs-identifier hs-var">notNull</span></a><span>
|
||||
</span><a name="line-388"></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-389"></a><span> </span><a name="local-6989586621679118858"><a href="#local-6989586621679118858"><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-390"></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-391"></a><span>
|
||||
</span><a name="line-392"></a><span class="hs-comment">-- | Encodes fields using WH.toQueryParam</span><span>
|
||||
</span><a name="line-393"></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-6989586621679116913"><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-6989586621679116914"><span class="hs-identifier hs-type">f</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679116915"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116914"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679116913"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116914"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679116915"><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-394"></a><a name="_toFormItem"><a href="SwaggerPetstore.Core.html#_toFormItem"><span class="hs-identifier">_toFormItem</span></a></a><span> </span><a name="local-6989586621679118859"><a href="#local-6989586621679118859"><span class="hs-identifier">name</span></a></a><span> </span><a name="local-6989586621679118860"><a href="#local-6989586621679118860"><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-6989586621679118859"><span class="hs-identifier hs-var">name</span></a><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">:</span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toQueryParam</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679118860"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-395"></a><span>
|
||||
</span><a name="line-396"></a><span class="hs-comment">-- | Collapse (Just "") to Nothing</span><span>
|
||||
</span><a name="line-397"></a><span class="hs-identifier">_emptyToNothing</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">String</span><span>
|
||||
</span><a name="line-398"></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">""</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-399"></a><span class="hs-identifier">_emptyToNothing</span><span> </span><a name="local-6989586621679118861"><a href="#local-6989586621679118861"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679118861"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-400"></a><span class="hs-pragma">{-# INLINE _emptyToNothing #-}</span><span>
|
||||
</span><a name="line-401"></a><span>
|
||||
</span><a name="line-402"></a><span class="hs-comment">-- | Collapse (Just mempty) to Nothing</span><span>
|
||||
</span><a name="line-403"></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-6989586621679116912"><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-6989586621679116912"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679116912"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679116912"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-404"></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-6989586621679118862"><a href="#local-6989586621679118862"><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-6989586621679118862"><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-405"></a><span class="hs-identifier">_memptyToNothing</span><span> </span><a name="local-6989586621679118863"><a href="#local-6989586621679118863"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679118863"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-406"></a><span class="hs-pragma">{-# INLINE _memptyToNothing #-}</span><span>
|
||||
</span><a name="line-407"></a><span>
|
||||
</span><a name="line-408"></a><span class="hs-comment">-- * DateTime Formatting</span><span>
|
||||
</span><a name="line-409"></a><span>
|
||||
</span><a name="line-410"></a><span class="hs-keyword">newtype</span><span> </span><a name="DateTime"><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier">DateTime</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="DateTime"><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier">DateTime</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unDateTime"><a href="SwaggerPetstore.Core.html#unDateTime"><span class="hs-identifier">unDateTime</span></a></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> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-411"></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">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Data</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">Ord</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 class="hs-identifier hs-type">NF</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">NFData</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 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">FormatTime</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-412"></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-413"></a><span> </span><a name="local-8214565720323785969"><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">"DateTime"</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-414"></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-415"></a><span> </span><a name="local-8214565720323785840"><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-6989586621679119194"><a href="#local-6989586621679119194"><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-6989586621679119194"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-416"></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-417"></a><span> </span><a name="local-8214565720323803844"><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-418"></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-419"></a><span> </span><a name="local-8214565720323803840"><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-6989586621679119193"><a href="#local-6989586621679119193"><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-6989586621679119193"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-420"></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-421"></a><span> </span><a name="local-8214565720323792830"><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-6989586621679119192"><a href="#local-6989586621679119192"><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-6989586621679119192"><span class="hs-identifier hs-var">t</span></a><span>
|
||||
</span><a name="line-422"></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-423"></a><span> </span><a name="local-8214565720323835664"><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-424"></a><span>
|
||||
</span><a name="line-425"></a><span class="hs-comment">-- | @_parseISO8601@</span><span>
|
||||
</span><a name="line-426"></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-6989586621679116910"><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-6989586621679116911"><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-6989586621679116911"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116911"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679116910"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-427"></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-428"></a><span> </span><a href="SwaggerPetstore.Core.html#_parseISO8601"><span class="hs-identifier hs-var">_parseISO8601</span></a><span>
|
||||
</span><a name="line-429"></a><span class="hs-pragma">{-# INLINE _readDateTime #-}</span><span>
|
||||
</span><a name="line-430"></a><span>
|
||||
</span><a name="line-431"></a><span class="hs-comment">-- | @TI.formatISO8601Millis@</span><span>
|
||||
</span><a name="line-432"></a><span class="hs-identifier">_showDateTime</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679116645"><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-6989586621679116645"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679116645"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">String</span><span>
|
||||
</span><a name="line-433"></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-434"></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-435"></a><span class="hs-pragma">{-# INLINE _showDateTime #-}</span><span>
|
||||
</span><a name="line-436"></a><span>
|
||||
</span><a name="line-437"></a><span class="hs-comment">-- | parse an ISO8601 date-time string</span><span>
|
||||
</span><a name="line-438"></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-6989586621679116643"><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-6989586621679116644"><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-6989586621679116644"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116644"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679116643"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-439"></a><a name="_parseISO8601"><a href="SwaggerPetstore.Core.html#_parseISO8601"><span class="hs-identifier">_parseISO8601</span></a></a><span> </span><a name="local-6989586621679118864"><a href="#local-6989586621679118864"><span class="hs-identifier">t</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-440"></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-441"></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-6989586621679118864"><span class="hs-identifier hs-var">t</span></a><span> </span><span class="hs-operator hs-var"><$></span><span>
|
||||
</span><a name="line-442"></a><span> </span><span class="hs-special">[</span><span class="hs-string">"%FT%T%QZ"</span><span class="hs-special">,</span><span> </span><span class="hs-string">"%FT%T%Q%z"</span><span class="hs-special">,</span><span> </span><span class="hs-string">"%FT%T%Q%Z"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-443"></a><span class="hs-pragma">{-# INLINE _parseISO8601 #-}</span><span>
|
||||
</span><a name="line-444"></a><span>
|
||||
</span><a name="line-445"></a><span class="hs-comment">-- * Date Formatting</span><span>
|
||||
</span><a name="line-446"></a><span>
|
||||
</span><a name="line-447"></a><span class="hs-keyword">newtype</span><span> </span><a name="Date"><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier">Date</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Date"><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier">Date</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unDate"><a href="SwaggerPetstore.Core.html#unDate"><span class="hs-identifier">unDate</span></a></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">Day</span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-448"></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">Enum</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Data</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">Ord</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">Ix</span><span class="hs-special">,</span><span class="hs-identifier hs-type">NF</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">NFData</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 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">FormatTime</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-449"></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-450"></a><span> </span><a name="local-8214565720323785969"><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">"Date"</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-451"></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-452"></a><span> </span><a name="local-8214565720323785840"><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-6989586621679119191"><a href="#local-6989586621679119191"><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-6989586621679119191"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-453"></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-454"></a><span> </span><a name="local-8214565720323803844"><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-455"></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-456"></a><span> </span><a name="local-8214565720323803840"><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-6989586621679119190"><a href="#local-6989586621679119190"><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-6989586621679119190"><span class="hs-identifier hs-var">t</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-457"></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-458"></a><span> </span><a name="local-8214565720323792830"><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-6989586621679119189"><a href="#local-6989586621679119189"><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-6989586621679119189"><span class="hs-identifier hs-var">t</span></a><span>
|
||||
</span><a name="line-459"></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-460"></a><span> </span><a name="local-8214565720323835664"><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-461"></a><span>
|
||||
</span><a name="line-462"></a><span class="hs-comment">-- | @TI.parseTimeM True TI.defaultTimeLocale "%Y-%m-%d"@</span><span>
|
||||
</span><a name="line-463"></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-6989586621679116641"><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-6989586621679116642"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116642"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679116641"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-464"></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-465"></a><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">parseTimeM</span><span> </span><span class="hs-identifier hs-var">True</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultTimeLocale</span><span> </span><span class="hs-string">"%Y-%m-%d"</span><span>
|
||||
</span><a name="line-466"></a><span class="hs-pragma">{-# INLINE _readDate #-}</span><span>
|
||||
</span><a name="line-467"></a><span>
|
||||
</span><a name="line-468"></a><span class="hs-comment">-- | @TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"@</span><span>
|
||||
</span><a name="line-469"></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-6989586621679116640"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679116640"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">String</span><span>
|
||||
</span><a name="line-470"></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-471"></a><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">formatTime</span><span> </span><span class="hs-identifier hs-var">TI</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultTimeLocale</span><span> </span><span class="hs-string">"%Y-%m-%d"</span><span>
|
||||
</span><a name="line-472"></a><span class="hs-pragma">{-# INLINE _showDate #-}</span><span>
|
||||
</span><a name="line-473"></a><span>
|
||||
</span><a name="line-474"></a><span class="hs-comment">-- * Byte/Binary Formatting</span><span>
|
||||
</span><a name="line-475"></a><span>
|
||||
</span><a name="line-476"></a><span> </span><span>
|
||||
</span><a name="line-477"></a><span class="hs-comment">-- | base64 encoded characters</span><span>
|
||||
</span><a name="line-478"></a><span class="hs-keyword">newtype</span><span> </span><a name="ByteArray"><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier">ByteArray</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="ByteArray"><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier">ByteArray</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unByteArray"><a href="SwaggerPetstore.Core.html#unByteArray"><span class="hs-identifier">unByteArray</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-479"></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">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Data</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">Ord</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 class="hs-identifier hs-type">NF</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">NFData</span><span class="hs-special">)</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-6989586621679118328"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118328"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679118329"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679118330"><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">-></span><span> </span><a href="#local-6989586621679118328"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679118329"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679118330"><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-6989586621679118908"><a href="#local-6989586621679118908"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118909"><a href="#local-6989586621679118909"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679118910"><a href="#local-6989586621679118910"><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-6989586621679118908"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="#local-6989586621679118911"><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-6989586621679118910"><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-6989586621679118911"><a href="#local-6989586621679118911"><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-6989586621679118909"><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-6989586621679118324"><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-6989586621679118325"><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-6989586621679118325"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118324"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118325"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679118326"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679118327"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679118325"><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">-></span><span> </span><a href="#local-6989586621679118324"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118325"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679118326"><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">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679118327"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679118325"><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-6989586621679118912"><a href="#local-6989586621679118912"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118913"><a href="#local-6989586621679118913"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679118914"><a href="#local-6989586621679118914"><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-6989586621679118912"><span class="hs-identifier hs-var">c</span></a><span> </span><a href="#local-6989586621679118913"><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-6989586621679118914"><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-6989586621679117850"><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-6989586621679117851"><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-6989586621679117852"><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-6989586621679117852"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.Core.html#CollectionFormat"><span class="hs-identifier hs-type">CollectionFormat</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679117851"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679117852"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679117853"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679117854"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679117852"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679117850"><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">-></span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Char</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679117850"><span class="hs-identifier hs-type">c</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679117851"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679117852"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-special">[</span><a href="#local-6989586621679117853"><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">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><a href="#local-6989586621679117854"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">,</span><span> </span><a href="#local-6989586621679117852"><span class="hs-identifier hs-type">t</span></a><span> </span><a href="#local-6989586621679117850"><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-6989586621679118915"><a href="#local-6989586621679118915"><span class="hs-identifier">c</span></a></a><span> </span><a name="local-6989586621679118916"><a href="#local-6989586621679118916"><span class="hs-identifier">encode</span></a></a><span> </span><a name="local-6989586621679118917"><a href="#local-6989586621679118917"><span class="hs-identifier">one</span></a></a><span> </span><a name="local-6989586621679118918"><a href="#local-6989586621679118918"><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-6989586621679118915"><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">-></span><span> </span><a href="#local-6989586621679118919"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118917"><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">-></span><span> </span><a href="#local-6989586621679118919"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118917"><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">-></span><span> </span><a href="#local-6989586621679118919"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118917"><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">-></span><span> </span><a href="#local-6989586621679118919"><span class="hs-identifier hs-var">go</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118917"><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">-></span><span> </span><a href="#local-6989586621679118921"><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-6989586621679118919"><a href="#local-6989586621679118919"><span class="hs-identifier">go</span></a></a><span> </span><a name="local-6989586621679118922"><a href="#local-6989586621679118922"><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-6989586621679118923"><a href="#local-6989586621679118923"><span class="hs-identifier">sk</span></a></a><span class="hs-special">,</span><span> </span><a name="local-6989586621679118924"><a href="#local-6989586621679118924"><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-6989586621679118925"><a href="#local-6989586621679118925"><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><a href="#local-6989586621679118923"><span class="hs-identifier hs-var">sk</span></a><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679118920"><span class="hs-identifier hs-var">combine</span></a><span> </span><a href="#local-6989586621679118922"><span class="hs-identifier hs-var">sep</span></a><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679118924"><span class="hs-identifier hs-var">sv</span></a><span> </span><span class="hs-operator hs-var"><*></span><span> </span><a href="#local-6989586621679118925"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><|></span><span> </span><a href="#local-6989586621679118924"><span class="hs-identifier hs-var">sv</span></a><span> </span><span class="hs-operator hs-var"><|></span><span> </span><a href="#local-6989586621679118925"><span class="hs-identifier hs-var">v</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a href="#local-6989586621679118921"><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-6989586621679118920"><a href="#local-6989586621679118920"><span class="hs-identifier">combine</span></a></a><span> </span><a name="local-6989586621679118926"><a href="#local-6989586621679118926"><span class="hs-identifier">sep</span></a></a><span> </span><a name="local-6989586621679118927"><a href="#local-6989586621679118927"><span class="hs-identifier">x</span></a></a><span> </span><a name="local-6989586621679118928"><a href="#local-6989586621679118928"><span class="hs-identifier">y</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679118927"><span class="hs-identifier hs-var">x</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679118926"><span class="hs-identifier hs-var">sep</span></a><span> </span><span class="hs-operator hs-var"><></span><span> </span><a href="#local-6989586621679118928"><span class="hs-identifier hs-var">y</span></a><span>
|
||||
</span><a name="line-360"></a><span> </span><a name="local-6989586621679118921"><a href="#local-6989586621679118921"><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-6989586621679118916"><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-6989586621679118918"><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>
|
||||
</span><a name="line-364"></a><span> </span><span>
|
||||
</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-6989586621679116137"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></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-6989586621679116137"><a href="#local-6989586621679116137"><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">-></span><span> </span><a href="#local-6989586621679116137"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-373"></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-6989586621679116138"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116139"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116140"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679116141"><span class="hs-identifier hs-type">accept</span></a><span>
|
||||
</span><a name="line-374"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679116138"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679116139"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679116140"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679116141"><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-6989586621679116136"><a href="#local-6989586621679116136"><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-6989586621679116136"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></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-6989586621679116136"><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-8214565720323889468"><a href="SwaggerPetstore.Core.html#applyAuthMethod"><span class="hs-identifier">applyAuthMethod</span></a></a><span> </span><a name="local-6989586621679119272"><a href="#local-6989586621679119272"><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-6989586621679119273"><a href="#local-6989586621679119273"><span class="hs-identifier">a</span></a></a><span class="hs-special">)</span><span> </span><a name="local-6989586621679119274"><a href="#local-6989586621679119274"><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-6989586621679119272"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679119273"><span class="hs-identifier hs-var">a</span></a><span> </span><a href="#local-6989586621679119274"><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>
|
||||
</span><a name="line-383"></a><span>
|
||||
</span><a name="line-384"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Exception</span><span> </span><a href="SwaggerPetstore.Core.html#AuthMethodException"><span class="hs-identifier hs-type">AuthMethodException</span></a><span>
|
||||
</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-6989586621679117846"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117847"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117848"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679117849"><span class="hs-identifier hs-type">accept</span></a><span>
|
||||
</span><a name="line-389"></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-390"></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#SwaggerPetstoreRequest"><span class="hs-identifier hs-type">SwaggerPetstoreRequest</span></a><span> </span><a href="#local-6989586621679117846"><span class="hs-identifier hs-type">req</span></a><span> </span><a href="#local-6989586621679117847"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="#local-6989586621679117848"><span class="hs-identifier hs-type">res</span></a><span> </span><a href="#local-6989586621679117849"><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-6989586621679118929"><a href="#local-6989586621679118929"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679118930"><a href="#local-6989586621679118930"><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-6989586621679118932"><span class="hs-identifier hs-var">go</span></a><span> </span><a href="#local-6989586621679118929"><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-6989586621679118932"><a href="#local-6989586621679118932"><span class="hs-identifier">go</span></a></a><span> </span><a name="local-6989586621679118933"><a href="#local-6989586621679118933"><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-6989586621679118934"><a href="#local-6989586621679118934"><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-6989586621679118930"><span class="hs-identifier hs-var">config</span></a><span> </span><a href="#local-6989586621679118934"><span class="hs-identifier hs-var">a</span></a><span> </span><a href="#local-6989586621679118933"><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">-></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-6989586621679118935"><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-6989586621679118935"><a href="#local-6989586621679118935"><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-6989586621679116976"><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-6989586621679116977"><span class="hs-identifier hs-type">f</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679116978"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116977"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679116976"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116977"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-special">(</span><a href="#local-6989586621679116978"><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-6989586621679118936"><a href="#local-6989586621679118936"><span class="hs-identifier">name</span></a></a><span> </span><a name="local-6989586621679118937"><a href="#local-6989586621679118937"><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-6989586621679118936"><span class="hs-identifier hs-var">name</span></a><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">:</span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">toQueryParam</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679118937"><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 "") 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">-></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">""</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-6989586621679118938"><a href="#local-6989586621679118938"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679118938"><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-6989586621679116975"><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-6989586621679116975"><span class="hs-identifier hs-type">a</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679116975"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="#local-6989586621679116975"><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-6989586621679118939"><a href="#local-6989586621679118939"><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-6989586621679118939"><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-6989586621679118940"><a href="#local-6989586621679118940"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="#local-6989586621679118940"><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>
|
||||
</span><a name="line-422"></a><span>
|
||||
</span><a name="line-423"></a><span class="hs-keyword">newtype</span><span> </span><a name="DateTime"><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier">DateTime</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="DateTime"><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier">DateTime</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unDateTime"><a href="SwaggerPetstore.Core.html#unDateTime"><span class="hs-identifier">unDateTime</span></a></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> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-424"></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">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Data</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">Ord</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 class="hs-identifier hs-type">NF</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">NFData</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 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">FormatTime</span><span class="hs-special">)</span><span>
|
||||
</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-8214565720323785969"><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">"DateTime"</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-8214565720323785840"><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-6989586621679119271"><a href="#local-6989586621679119271"><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-6989586621679119271"><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-8214565720323803844"><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-8214565720323803840"><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-6989586621679119270"><a href="#local-6989586621679119270"><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-6989586621679119270"><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-8214565720323792830"><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-6989586621679119269"><a href="#local-6989586621679119269"><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-6989586621679119269"><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-8214565720323835664"><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-6989586621679116973"><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-6989586621679116974"><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-6989586621679116974"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116974"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679116973"><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-6989586621679116708"><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-6989586621679116708"><span class="hs-identifier hs-type">t</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679116708"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">String</span><span>
|
||||
</span><a name="line-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-6989586621679116706"><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-6989586621679116707"><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-6989586621679116707"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116707"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679116706"><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-6989586621679118941"><a href="#local-6989586621679118941"><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-6989586621679118941"><span class="hs-identifier hs-var">t</span></a><span> </span><span class="hs-operator hs-var"><$></span><span>
|
||||
</span><a name="line-455"></a><span> </span><span class="hs-special">[</span><span class="hs-string">"%FT%T%QZ"</span><span class="hs-special">,</span><span> </span><span class="hs-string">"%FT%T%Q%z"</span><span class="hs-special">,</span><span> </span><span class="hs-string">"%FT%T%Q%Z"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-456"></a><span class="hs-pragma">{-# INLINE _parseISO8601 #-}</span><span>
|
||||
</span><a name="line-457"></a><span>
|
||||
</span><a name="line-458"></a><span class="hs-comment">-- * Date Formatting</span><span>
|
||||
</span><a name="line-459"></a><span>
|
||||
</span><a name="line-460"></a><span class="hs-keyword">newtype</span><span> </span><a name="Date"><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier">Date</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Date"><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier">Date</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unDate"><a href="SwaggerPetstore.Core.html#unDate"><span class="hs-identifier">unDate</span></a></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">Day</span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-461"></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">Enum</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Data</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">Ord</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">Ix</span><span class="hs-special">,</span><span class="hs-identifier hs-type">NF</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">NFData</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 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">FormatTime</span><span class="hs-special">)</span><span>
|
||||
</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-8214565720323785969"><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">"Date"</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-8214565720323785840"><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-6989586621679119268"><a href="#local-6989586621679119268"><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-6989586621679119268"><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-8214565720323803844"><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-8214565720323803840"><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-6989586621679119267"><a href="#local-6989586621679119267"><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-6989586621679119267"><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-8214565720323792830"><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-6989586621679119266"><a href="#local-6989586621679119266"><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-6989586621679119266"><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-8214565720323835664"><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 "%Y-%m-%d"@</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-6989586621679116704"><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-6989586621679116705"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116705"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679116704"><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">"%Y-%m-%d"</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-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#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-482"></a><span> </span><a name="local-8214565720323785969"><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">"ByteArray"</span><span> </span><a href="SwaggerPetstore.Core.html#_readByteArray"><span class="hs-identifier hs-var">_readByteArray</span></a><span>
|
||||
</span><a name="line-483"></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#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-484"></a><span> </span><a name="local-8214565720323785840"><span class="hs-identifier">toJSON</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">toJSON</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-485"></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#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-486"></a><span> </span><a name="local-8214565720323803844"><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#_readByteArray"><span class="hs-identifier hs-var">_readByteArray</span></a><span>
|
||||
</span><a name="line-487"></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#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-488"></a><span> </span><a name="local-8214565720323803840"><span class="hs-identifier">toUrlPiece</span></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_showByteArray"><span class="hs-identifier hs-var">_showByteArray</span></a><span>
|
||||
</span><a name="line-489"></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-490"></a><span> </span><a name="local-8214565720323792830"><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-491"></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-492"></a><span> </span><a name="local-8214565720323835664"><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-481"></a><span class="hs-comment">-- | @TI.formatTime TI.defaultTimeLocale "%Y-%m-%d"@</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-6989586621679116703"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679116703"><span class="hs-identifier hs-type">t</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">String</span><span>
|
||||
</span><a name="line-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">"%Y-%m-%d"</span><span>
|
||||
</span><a name="line-485"></a><span class="hs-pragma">{-# INLINE _showDate #-}</span><span>
|
||||
</span><a name="line-486"></a><span>
|
||||
</span><a name="line-487"></a><span class="hs-comment">-- * Byte/Binary Formatting</span><span>
|
||||
</span><a name="line-488"></a><span>
|
||||
</span><a name="line-489"></a><span> </span><span>
|
||||
</span><a name="line-490"></a><span class="hs-comment">-- | base64 encoded characters</span><span>
|
||||
</span><a name="line-491"></a><span class="hs-keyword">newtype</span><span> </span><a name="ByteArray"><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier">ByteArray</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="ByteArray"><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier">ByteArray</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unByteArray"><a href="SwaggerPetstore.Core.html#unByteArray"><span class="hs-identifier">unByteArray</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-492"></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">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Data</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">Ord</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 class="hs-identifier hs-type">NF</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">NFData</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-493"></a><span>
|
||||
</span><a name="line-494"></a><span class="hs-comment">-- | read base64 encoded characters</span><span>
|
||||
</span><a name="line-495"></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-6989586621679116639"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116639"><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-496"></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-497"></a><span class="hs-pragma">{-# INLINE _readByteArray #-}</span><span>
|
||||
</span><a name="line-498"></a><span>
|
||||
</span><a name="line-499"></a><span class="hs-comment">-- | show base64 encoded characters</span><span>
|
||||
</span><a name="line-500"></a><span class="hs-identifier">_showByteArray</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span>
|
||||
</span><a name="line-501"></a><a name="_showByteArray"><a href="SwaggerPetstore.Core.html#_showByteArray"><span class="hs-identifier">_showByteArray</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8</span><span> </span><span class="hs-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><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">encode</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">unByteArray</span><span>
|
||||
</span><a name="line-502"></a><span class="hs-pragma">{-# INLINE _showByteArray #-}</span><span>
|
||||
</span><a name="line-503"></a><span>
|
||||
</span><a name="line-504"></a><span class="hs-comment">-- | any sequence of octets</span><span>
|
||||
</span><a name="line-505"></a><span class="hs-keyword">newtype</span><span> </span><a name="Binary"><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier">Binary</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Binary"><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier">Binary</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unBinary"><a href="SwaggerPetstore.Core.html#unBinary"><span class="hs-identifier">unBinary</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-506"></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">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Data</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">Ord</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 class="hs-identifier hs-type">NF</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">NFData</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-507"></a><span>
|
||||
</span><a name="line-508"></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#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-509"></a><span> </span><a name="local-8214565720323785969"><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">"Binary"</span><span> </span><a href="SwaggerPetstore.Core.html#_readBinaryBase64"><span class="hs-identifier hs-var">_readBinaryBase64</span></a><span>
|
||||
</span><a name="line-510"></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#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-511"></a><span> </span><a name="local-8214565720323785840"><span class="hs-identifier">toJSON</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">toJSON</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-512"></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#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-513"></a><span> </span><a name="local-8214565720323803844"><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#_readBinaryBase64"><span class="hs-identifier hs-var">_readBinaryBase64</span></a><span>
|
||||
</span><a name="line-514"></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#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-515"></a><span> </span><a name="local-8214565720323803840"><span class="hs-identifier">toUrlPiece</span></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_showBinaryBase64"><span class="hs-identifier hs-var">_showBinaryBase64</span></a><span>
|
||||
</span><a name="line-516"></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-517"></a><span> </span><a name="local-8214565720323792830"><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-518"></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-519"></a><span> </span><a name="local-8214565720323835664"><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-494"></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#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-495"></a><span> </span><a name="local-8214565720323785969"><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">"ByteArray"</span><span> </span><a href="SwaggerPetstore.Core.html#_readByteArray"><span class="hs-identifier hs-var">_readByteArray</span></a><span>
|
||||
</span><a name="line-496"></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#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-497"></a><span> </span><a name="local-8214565720323785840"><span class="hs-identifier">toJSON</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">toJSON</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-498"></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#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-499"></a><span> </span><a name="local-8214565720323803844"><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#_readByteArray"><span class="hs-identifier hs-var">_readByteArray</span></a><span>
|
||||
</span><a name="line-500"></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#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-501"></a><span> </span><a name="local-8214565720323803840"><span class="hs-identifier">toUrlPiece</span></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_showByteArray"><span class="hs-identifier hs-var">_showByteArray</span></a><span>
|
||||
</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-8214565720323792830"><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-8214565720323835664"><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-6989586621679116702"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116702"><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>
|
||||
</span><a name="line-512"></a><span class="hs-comment">-- | show base64 encoded characters</span><span>
|
||||
</span><a name="line-513"></a><span class="hs-identifier">_showByteArray</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span>
|
||||
</span><a name="line-514"></a><a name="_showByteArray"><a href="SwaggerPetstore.Core.html#_showByteArray"><span class="hs-identifier">_showByteArray</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8</span><span> </span><span class="hs-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><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">encode</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">unByteArray</span><span>
|
||||
</span><a name="line-515"></a><span class="hs-pragma">{-# INLINE _showByteArray #-}</span><span>
|
||||
</span><a name="line-516"></a><span>
|
||||
</span><a name="line-517"></a><span class="hs-comment">-- | any sequence of octets</span><span>
|
||||
</span><a name="line-518"></a><span class="hs-keyword">newtype</span><span> </span><a name="Binary"><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier">Binary</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="Binary"><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier">Binary</span></a></a><span> </span><span class="hs-special">{</span><span> </span><a name="unBinary"><a href="SwaggerPetstore.Core.html#unBinary"><span class="hs-identifier">unBinary</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-519"></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">Eq</span><span class="hs-special">,</span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Data</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">Ord</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 class="hs-identifier hs-type">NF</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">NFData</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-520"></a><span>
|
||||
</span><a name="line-521"></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-6989586621679116638"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116638"><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-522"></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-523"></a><span class="hs-pragma">{-# INLINE _readBinaryBase64 #-}</span><span>
|
||||
</span><a name="line-524"></a><span>
|
||||
</span><a name="line-525"></a><span class="hs-identifier">_showBinaryBase64</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span>
|
||||
</span><a name="line-526"></a><a name="_showBinaryBase64"><a href="SwaggerPetstore.Core.html#_showBinaryBase64"><span class="hs-identifier">_showBinaryBase64</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8</span><span> </span><span class="hs-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><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">encode</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">unBinary</span><span>
|
||||
</span><a name="line-527"></a><span class="hs-pragma">{-# INLINE _showBinaryBase64 #-}</span><span>
|
||||
</span><a name="line-528"></a><span>
|
||||
</span><a name="line-529"></a><span class="hs-comment">-- * Lens Type Aliases</span><span>
|
||||
</span><a name="line-530"></a><span>
|
||||
</span><a name="line-531"></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-6989586621679114589"><a href="#local-6989586621679114589"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679114590"><a href="#local-6989586621679114590"><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-6989586621679114589"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679114589"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679114590"><span class="hs-identifier hs-type">a</span></a><span> </span><a href="#local-6989586621679114590"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-532"></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-6989586621679114584"><a href="#local-6989586621679114584"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679114585"><a href="#local-6989586621679114585"><span class="hs-identifier">t</span></a></a><span> </span><a name="local-6989586621679114586"><a href="#local-6989586621679114586"><span class="hs-identifier">a</span></a></a><span> </span><a name="local-6989586621679114587"><a href="#local-6989586621679114587"><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-6989586621679114588"><a href="#local-6989586621679114588"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-operator hs-type">*</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-operator hs-type">*</span><span class="hs-special">)</span><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">Functor</span><span> </span><a href="#local-6989586621679114588"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114586"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114588"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679114587"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114584"><span class="hs-identifier hs-type">s</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114588"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679114585"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-533"></a></pre></body></html>
|
||||
</span><a name="line-521"></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#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-522"></a><span> </span><a name="local-8214565720323785969"><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">"Binary"</span><span> </span><a href="SwaggerPetstore.Core.html#_readBinaryBase64"><span class="hs-identifier hs-var">_readBinaryBase64</span></a><span>
|
||||
</span><a name="line-523"></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#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-524"></a><span> </span><a name="local-8214565720323785840"><span class="hs-identifier">toJSON</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">toJSON</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-525"></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#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-526"></a><span> </span><a name="local-8214565720323803844"><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#_readBinaryBase64"><span class="hs-identifier hs-var">_readBinaryBase64</span></a><span>
|
||||
</span><a name="line-527"></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#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-528"></a><span> </span><a name="local-8214565720323803840"><span class="hs-identifier">toUrlPiece</span></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="SwaggerPetstore.Core.html#_showBinaryBase64"><span class="hs-identifier hs-var">_showBinaryBase64</span></a><span>
|
||||
</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-8214565720323792830"><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-8214565720323835664"><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-6989586621679116701"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679116701"><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>
|
||||
</span><a name="line-538"></a><span class="hs-identifier">_showBinaryBase64</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span>
|
||||
</span><a name="line-539"></a><a name="_showBinaryBase64"><a href="SwaggerPetstore.Core.html#_showBinaryBase64"><span class="hs-identifier">_showBinaryBase64</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">decodeUtf8</span><span> </span><span class="hs-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><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">encode</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier">unBinary</span><span>
|
||||
</span><a name="line-540"></a><span class="hs-pragma">{-# INLINE _showBinaryBase64 #-}</span><span>
|
||||
</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-6989586621679114647"><a href="#local-6989586621679114647"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679114648"><a href="#local-6989586621679114648"><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-6989586621679114647"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679114647"><span class="hs-identifier hs-type">s</span></a><span> </span><a href="#local-6989586621679114648"><span class="hs-identifier hs-type">a</span></a><span> </span><a href="#local-6989586621679114648"><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-6989586621679114642"><a href="#local-6989586621679114642"><span class="hs-identifier">s</span></a></a><span> </span><a name="local-6989586621679114643"><a href="#local-6989586621679114643"><span class="hs-identifier">t</span></a></a><span> </span><a name="local-6989586621679114644"><a href="#local-6989586621679114644"><span class="hs-identifier">a</span></a></a><span> </span><a name="local-6989586621679114645"><a href="#local-6989586621679114645"><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-6989586621679114646"><a href="#local-6989586621679114646"><span class="hs-identifier">f</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-operator hs-type">*</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-operator hs-type">*</span><span class="hs-special">)</span><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">Functor</span><span> </span><a href="#local-6989586621679114646"><span class="hs-identifier hs-type">f</span></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><a href="#local-6989586621679114644"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114646"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679114645"><span class="hs-identifier hs-type">b</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114642"><span class="hs-identifier hs-type">s</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679114646"><span class="hs-identifier hs-type">f</span></a><span> </span><a href="#local-6989586621679114643"><span class="hs-identifier hs-type">t</span></a><span>
|
||||
</span><a name="line-546"></a></pre></body></html>
|
||||
@@ -35,11 +35,11 @@ Katip Logging functions
|
||||
</span><a name="line-35"></a><span class="hs-comment">-- * Type Aliases (for compatability)</span><span>
|
||||
</span><a name="line-36"></a><span>
|
||||
</span><a name="line-37"></a><span class="hs-comment">-- | Runs a Katip logging block with the Log environment</span><span>
|
||||
</span><a name="line-38"></a><span class="hs-keyword">type</span><span> </span><a name="LogExecWithContext"><a href="SwaggerPetstore.Logging.html#LogExecWithContext"><span class="hs-identifier">LogExecWithContext</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679077052"><a href="#local-6989586621679077052"><span class="hs-identifier">m</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679077052"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span>
|
||||
</span><a name="line-39"></a><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679077052"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-38"></a><span class="hs-keyword">type</span><span> </span><a name="LogExecWithContext"><a href="SwaggerPetstore.Logging.html#LogExecWithContext"><span class="hs-identifier">LogExecWithContext</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679077108"><a href="#local-6989586621679077108"><span class="hs-identifier">m</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadIO</span><span> </span><a href="#local-6989586621679077108"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span>
|
||||
</span><a name="line-39"></a><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679077108"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-40"></a><span>
|
||||
</span><a name="line-41"></a><span class="hs-comment">-- | A Katip logging block</span><span>
|
||||
</span><a name="line-42"></a><span class="hs-keyword">type</span><span> </span><a name="LogExec"><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier">LogExec</span></a></a><span> </span><a name="local-6989586621679077050"><a href="#local-6989586621679077050"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679077051"><a href="#local-6989586621679077051"><span class="hs-identifier">a</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">KatipT</span><span> </span><a href="#local-6989586621679077050"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679077051"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679077050"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679077051"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-42"></a><span class="hs-keyword">type</span><span> </span><a name="LogExec"><a href="SwaggerPetstore.Logging.html#LogExec"><span class="hs-identifier">LogExec</span></a></a><span> </span><a name="local-6989586621679077106"><a href="#local-6989586621679077106"><span class="hs-identifier">m</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><a name="local-6989586621679077107"><a href="#local-6989586621679077107"><span class="hs-identifier">a</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">KatipT</span><span> </span><a href="#local-6989586621679077106"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679077107"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679077106"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679077107"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-43"></a><span>
|
||||
</span><a name="line-44"></a><span class="hs-comment">-- | A Katip Log environment</span><span>
|
||||
</span><a name="line-45"></a><span class="hs-keyword">type</span><span> </span><a name="LogContext"><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier">LogContext</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">LogEnv</span><span>
|
||||
@@ -65,9 +65,9 @@ Katip Logging functions
|
||||
</span><a name="line-65"></a><span>
|
||||
</span><a name="line-66"></a><span class="hs-comment">-- | A Katip Log environment which targets stdout</span><span>
|
||||
</span><a name="line-67"></a><span class="hs-identifier">stdoutLoggingContext</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span>
|
||||
</span><a name="line-68"></a><a name="stdoutLoggingContext"><a href="SwaggerPetstore.Logging.html#stdoutLoggingContext"><span class="hs-identifier">stdoutLoggingContext</span></a></a><span> </span><a name="local-6989586621679077460"><a href="#local-6989586621679077460"><span class="hs-identifier">cxt</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-69"></a><span> </span><a name="local-6989586621679077627"><a href="#local-6989586621679077627"><span class="hs-identifier">handleScribe</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mkHandleScribe</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">ColorIfTerminal</span><span> </span><span class="hs-identifier hs-var">IO</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">stdout</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">InfoS</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">V2</span><span>
|
||||
</span><a name="line-70"></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">registerScribe</span><span> </span><span class="hs-string">"stdout"</span><span> </span><a href="#local-6989586621679077627"><span class="hs-identifier hs-var">handleScribe</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultScribeSettings</span><span> </span><a href="#local-6989586621679077460"><span class="hs-identifier hs-var">cxt</span></a><span>
|
||||
</span><a name="line-68"></a><a name="stdoutLoggingContext"><a href="SwaggerPetstore.Logging.html#stdoutLoggingContext"><span class="hs-identifier">stdoutLoggingContext</span></a></a><span> </span><a name="local-6989586621679077516"><a href="#local-6989586621679077516"><span class="hs-identifier">cxt</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-69"></a><span> </span><a name="local-6989586621679077683"><a href="#local-6989586621679077683"><span class="hs-identifier">handleScribe</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mkHandleScribe</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">ColorIfTerminal</span><span> </span><span class="hs-identifier hs-var">IO</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">stdout</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">InfoS</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">V2</span><span>
|
||||
</span><a name="line-70"></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">registerScribe</span><span> </span><span class="hs-string">"stdout"</span><span> </span><a href="#local-6989586621679077683"><span class="hs-identifier hs-var">handleScribe</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultScribeSettings</span><span> </span><a href="#local-6989586621679077516"><span class="hs-identifier hs-var">cxt</span></a><span>
|
||||
</span><a name="line-71"></a><span>
|
||||
</span><a name="line-72"></a><span class="hs-comment">-- * stderr logger</span><span>
|
||||
</span><a name="line-73"></a><span>
|
||||
@@ -77,34 +77,34 @@ Katip Logging functions
|
||||
</span><a name="line-77"></a><span>
|
||||
</span><a name="line-78"></a><span class="hs-comment">-- | A Katip Log environment which targets stderr</span><span>
|
||||
</span><a name="line-79"></a><span class="hs-identifier">stderrLoggingContext</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="SwaggerPetstore.Logging.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span>
|
||||
</span><a name="line-80"></a><a name="stderrLoggingContext"><a href="SwaggerPetstore.Logging.html#stderrLoggingContext"><span class="hs-identifier">stderrLoggingContext</span></a></a><span> </span><a name="local-6989586621679077628"><a href="#local-6989586621679077628"><span class="hs-identifier">cxt</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-81"></a><span> </span><a name="local-6989586621679077629"><a href="#local-6989586621679077629"><span class="hs-identifier">handleScribe</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mkHandleScribe</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">ColorIfTerminal</span><span> </span><span class="hs-identifier hs-var">IO</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">stderr</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">InfoS</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">V2</span><span>
|
||||
</span><a name="line-82"></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">registerScribe</span><span> </span><span class="hs-string">"stderr"</span><span> </span><a href="#local-6989586621679077629"><span class="hs-identifier hs-var">handleScribe</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultScribeSettings</span><span> </span><a href="#local-6989586621679077628"><span class="hs-identifier hs-var">cxt</span></a><span>
|
||||
</span><a name="line-80"></a><a name="stderrLoggingContext"><a href="SwaggerPetstore.Logging.html#stderrLoggingContext"><span class="hs-identifier">stderrLoggingContext</span></a></a><span> </span><a name="local-6989586621679077684"><a href="#local-6989586621679077684"><span class="hs-identifier">cxt</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-81"></a><span> </span><a name="local-6989586621679077685"><a href="#local-6989586621679077685"><span class="hs-identifier">handleScribe</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">mkHandleScribe</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">ColorIfTerminal</span><span> </span><span class="hs-identifier hs-var">IO</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">stderr</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">InfoS</span><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">V2</span><span>
|
||||
</span><a name="line-82"></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">registerScribe</span><span> </span><span class="hs-string">"stderr"</span><span> </span><a href="#local-6989586621679077685"><span class="hs-identifier hs-var">handleScribe</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">defaultScribeSettings</span><span> </span><a href="#local-6989586621679077684"><span class="hs-identifier hs-var">cxt</span></a><span>
|
||||
</span><a name="line-83"></a><span>
|
||||
</span><a name="line-84"></a><span class="hs-comment">-- * Null logger</span><span>
|
||||
</span><a name="line-85"></a><span>
|
||||
</span><a name="line-86"></a><span class="hs-comment">-- | Disables Katip logging</span><span>
|
||||
</span><a name="line-87"></a><span class="hs-identifier">runNullLogExec</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="SwaggerPetstore.Logging.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a><span>
|
||||
</span><a name="line-88"></a><a name="runNullLogExec"><a href="SwaggerPetstore.Logging.html#runNullLogExec"><span class="hs-identifier">runNullLogExec</span></a></a><span> </span><a name="local-6989586621679077630"><a href="#local-6989586621679077630"><span class="hs-identifier">le</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">KatipT</span><span> </span><a name="local-6989586621679077631"><a href="#local-6989586621679077631"><span class="hs-identifier">f</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">P</span><span class="hs-operator">.</span><span class="hs-identifier">runReaderT</span><span> </span><a href="#local-6989586621679077631"><span class="hs-identifier hs-var">f</span></a><span> </span><span class="hs-special">(</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-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">logEnvScribes</span><span> </span><span class="hs-identifier hs-var">mempty</span><span> </span><a href="#local-6989586621679077630"><span class="hs-identifier hs-var">le</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-88"></a><a name="runNullLogExec"><a href="SwaggerPetstore.Logging.html#runNullLogExec"><span class="hs-identifier">runNullLogExec</span></a></a><span> </span><a name="local-6989586621679077686"><a href="#local-6989586621679077686"><span class="hs-identifier">le</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">KatipT</span><span> </span><a name="local-6989586621679077687"><a href="#local-6989586621679077687"><span class="hs-identifier">f</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">P</span><span class="hs-operator">.</span><span class="hs-identifier">runReaderT</span><span> </span><a href="#local-6989586621679077687"><span class="hs-identifier hs-var">f</span></a><span> </span><span class="hs-special">(</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-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">logEnvScribes</span><span> </span><span class="hs-identifier hs-var">mempty</span><span> </span><a href="#local-6989586621679077686"><span class="hs-identifier hs-var">le</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-89"></a><span>
|
||||
</span><a name="line-90"></a><span class="hs-comment">-- * Log Msg</span><span>
|
||||
</span><a name="line-91"></a><span>
|
||||
</span><a name="line-92"></a><span class="hs-comment">-- | Log a katip message</span><span>
|
||||
</span><a name="line-93"></a><span class="hs-identifier">_log</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Applicative</span><span> </span><a href="#local-6989586621679077459"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Katip</span><span> </span><a href="#local-6989586621679077459"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679077459"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-94"></a><a name="_log"><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier">_log</span></a></a><span> </span><a name="local-6989586621679077632"><a href="#local-6989586621679077632"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679077633"><a href="#local-6989586621679077633"><span class="hs-identifier">level</span></a></a><span> </span><a name="local-6989586621679077634"><a href="#local-6989586621679077634"><span class="hs-identifier">msg</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-95"></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">logMsg</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">fromString</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">unpack</span><span> </span><a href="#local-6989586621679077632"><span class="hs-identifier hs-var">src</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679077633"><span class="hs-identifier hs-var">level</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">logStr</span><span> </span><a href="#local-6989586621679077634"><span class="hs-identifier hs-var">msg</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-93"></a><span class="hs-identifier">_log</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Applicative</span><span> </span><a href="#local-6989586621679077515"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Katip</span><span> </span><a href="#local-6989586621679077515"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Logging.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679077515"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-94"></a><a name="_log"><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier">_log</span></a></a><span> </span><a name="local-6989586621679077688"><a href="#local-6989586621679077688"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679077689"><a href="#local-6989586621679077689"><span class="hs-identifier">level</span></a></a><span> </span><a name="local-6989586621679077690"><a href="#local-6989586621679077690"><span class="hs-identifier">msg</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-95"></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">logMsg</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">fromString</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">unpack</span><span> </span><a href="#local-6989586621679077688"><span class="hs-identifier hs-var">src</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679077689"><span class="hs-identifier hs-var">level</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">logStr</span><span> </span><a href="#local-6989586621679077690"><span class="hs-identifier hs-var">msg</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-96"></a><span>
|
||||
</span><a name="line-97"></a><span class="hs-comment">-- * Log Exceptions</span><span>
|
||||
</span><a name="line-98"></a><span>
|
||||
</span><a name="line-99"></a><span class="hs-comment">-- | re-throws exceptions after logging them</span><span>
|
||||
</span><a name="line-100"></a><span class="hs-identifier">logExceptions</span><span>
|
||||
</span><a name="line-101"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Katip</span><span> </span><a href="#local-6989586621679077053"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadCatch</span><span> </span><a href="#local-6989586621679077053"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Applicative</span><span> </span><a href="#local-6989586621679077053"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-102"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679077053"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679077054"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679077053"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679077054"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-103"></a><a name="logExceptions"><a href="SwaggerPetstore.Logging.html#logExceptions"><span class="hs-identifier">logExceptions</span></a></a><span> </span><a name="local-6989586621679077635"><a href="#local-6989586621679077635"><span class="hs-identifier">src</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-101"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">LG</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Katip</span><span> </span><a href="#local-6989586621679077109"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MonadCatch</span><span> </span><a href="#local-6989586621679077109"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">Applicative</span><span> </span><a href="#local-6989586621679077109"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-102"></a><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679077109"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679077110"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679077109"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679077110"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-103"></a><a name="logExceptions"><a href="SwaggerPetstore.Logging.html#logExceptions"><span class="hs-identifier">logExceptions</span></a></a><span> </span><a name="local-6989586621679077691"><a href="#local-6989586621679077691"><span class="hs-identifier">src</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-104"></a><span> </span><span class="hs-identifier hs-var">E</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">handle</span><span>
|
||||
</span><a name="line-105"></a><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><a name="local-6989586621679077896"><a href="#local-6989586621679077896"><span class="hs-identifier">e</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">SomeException</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-106"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679077635"><span class="hs-identifier hs-var">src</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">ErrorS</span><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-6989586621679077896"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-107"></a><span> </span><span class="hs-identifier hs-var">E</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">throw</span><span> </span><a href="#local-6989586621679077896"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-105"></a><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><a name="local-6989586621679077952"><a href="#local-6989586621679077952"><span class="hs-identifier">e</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">E</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">SomeException</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a name="line-106"></a><span> </span><a href="SwaggerPetstore.Logging.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679077691"><span class="hs-identifier hs-var">src</span></a><span> </span><span class="hs-identifier hs-var">LG</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">ErrorS</span><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-6989586621679077952"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-107"></a><span> </span><span class="hs-identifier hs-var">E</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">throw</span><span> </span><a href="#local-6989586621679077952"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-108"></a><span>
|
||||
</span><a name="line-109"></a><span class="hs-comment">-- * Log Level</span><span>
|
||||
</span><a name="line-110"></a><span>
|
||||
|
||||
@@ -14,181 +14,190 @@ Module : SwaggerPetstore.MimeTypes
|
||||
-}</span><span>
|
||||
</span><a name="line-15"></a><span>
|
||||
</span><a name="line-16"></a><span class="hs-pragma">{-# LANGUAGE ConstraintKinds #-}</span><span>
|
||||
</span><a name="line-17"></a><span class="hs-pragma">{-# LANGUAGE FlexibleContexts #-}</span><span>
|
||||
</span><a name="line-18"></a><span class="hs-pragma">{-# LANGUAGE FlexibleInstances #-}</span><span>
|
||||
</span><a name="line-19"></a><span class="hs-pragma">{-# LANGUAGE MultiParamTypeClasses #-}</span><span>
|
||||
</span><a name="line-20"></a><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><a name="line-21"></a><span class="hs-pragma">{-# LANGUAGE ScopedTypeVariables #-}</span><span>
|
||||
</span><a name="line-22"></a><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><a name="line-23"></a><span>
|
||||
</span><a name="line-24"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">MimeTypes</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-25"></a><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Arrow</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">left</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-27"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">A</span><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">B</span><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Builder</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BB</span><span>
|
||||
</span><a name="line-30"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BC</span><span>
|
||||
</span><a name="line-31"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL</span><span>
|
||||
</span><a name="line-32"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BCL</span><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Data</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-34"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Proxy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Proxy</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-35"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">String</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-36"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-37"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span class="hs-operator">.</span><span class="hs-identifier">Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-38"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Media</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">ME</span><span>
|
||||
</span><a name="line-39"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">FormUrlEncoded</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-40"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">HttpApiData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-41"></a><span>
|
||||
</span><a name="line-42"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">,</span><span class="hs-identifier hs-type">FilePath</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Float</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">,</span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span class="hs-identifier hs-var">undefined</span><span class="hs-special">,</span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-43"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-44"></a><span>
|
||||
</span><a name="line-17"></a><span class="hs-pragma">{-# LANGUAGE ExistentialQuantification #-}</span><span>
|
||||
</span><a name="line-18"></a><span class="hs-pragma">{-# LANGUAGE FlexibleContexts #-}</span><span>
|
||||
</span><a name="line-19"></a><span class="hs-pragma">{-# LANGUAGE FlexibleInstances #-}</span><span>
|
||||
</span><a name="line-20"></a><span class="hs-pragma">{-# LANGUAGE MultiParamTypeClasses #-}</span><span>
|
||||
</span><a name="line-21"></a><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><a name="line-22"></a><span class="hs-pragma">{-# LANGUAGE ScopedTypeVariables #-}</span><span>
|
||||
</span><a name="line-23"></a><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><a name="line-24"></a><span>
|
||||
</span><a name="line-25"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">SwaggerPetstore</span><span class="hs-operator">.</span><span class="hs-identifier">MimeTypes</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-26"></a><span>
|
||||
</span><a name="line-27"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control</span><span class="hs-operator">.</span><span class="hs-identifier">Arrow</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">left</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Aeson</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">A</span><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">B</span><span>
|
||||
</span><a name="line-30"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Builder</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BB</span><span>
|
||||
</span><a name="line-31"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BC</span><span>
|
||||
</span><a name="line-32"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL</span><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">ByteString</span><span class="hs-operator">.</span><span class="hs-identifier">Lazy</span><span class="hs-operator">.</span><span class="hs-identifier">Char8</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BCL</span><span>
|
||||
</span><a name="line-34"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Data</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-35"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Proxy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Proxy</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-36"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">String</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-37"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-38"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data</span><span class="hs-operator">.</span><span class="hs-identifier">Text</span><span class="hs-operator">.</span><span class="hs-identifier">Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-39"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Network</span><span class="hs-operator">.</span><span class="hs-identifier">HTTP</span><span class="hs-operator">.</span><span class="hs-identifier">Media</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">ME</span><span>
|
||||
</span><a name="line-40"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">FormUrlEncoded</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-41"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Web</span><span class="hs-operator">.</span><span class="hs-identifier">HttpApiData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-42"></a><span>
|
||||
</span><a name="line-43"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">,</span><span class="hs-identifier hs-type">FilePath</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Float</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">,</span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span class="hs-identifier hs-var">undefined</span><span class="hs-special">,</span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-44"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Prelude</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-45"></a><span>
|
||||
</span><a name="line-46"></a><span class="hs-comment">-- * Consumes Class</span><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">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679065528"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Consumes"><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier">Consumes</span></a></a><span> </span><a name="local-6989586621679065527"><a href="#local-6989586621679065527"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679065528"><a href="#local-6989586621679065528"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</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-6989586621679065536"><a href="#local-6989586621679065536"><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-6989586621679065536"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></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-6989586621679065536"><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">-- * Produces Class</span><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">class</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679065526"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Produces"><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier">Produces</span></a></a><span> </span><a name="local-6989586621679065525"><a href="#local-6989586621679065525"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679065526"><a href="#local-6989586621679065526"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</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-6989586621679065535"><a href="#local-6989586621679065535"><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-6989586621679065535"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></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-6989586621679065535"><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">-- * Default Mime Types</span><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">data</span><span> </span><a name="MimeJSON"><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier">MimeJSON</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeJSON"><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier">MimeJSON</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-57"></a><span class="hs-keyword">data</span><span> </span><a name="MimeXML"><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier">MimeXML</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeXML"><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier">MimeXML</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-58"></a><span class="hs-keyword">data</span><span> </span><a name="MimePlainText"><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier">MimePlainText</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimePlainText"><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier">MimePlainText</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-59"></a><span class="hs-keyword">data</span><span> </span><a name="MimeFormUrlEncoded"><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier">MimeFormUrlEncoded</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeFormUrlEncoded"><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier">MimeFormUrlEncoded</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-60"></a><span class="hs-keyword">data</span><span> </span><a name="MimeMultipartFormData"><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier">MimeMultipartFormData</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeMultipartFormData"><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier">MimeMultipartFormData</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-61"></a><span class="hs-keyword">data</span><span> </span><a name="MimeOctetStream"><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier">MimeOctetStream</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeOctetStream"><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier">MimeOctetStream</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-62"></a><span class="hs-keyword">data</span><span> </span><a name="MimeNoContent"><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier">MimeNoContent</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeNoContent"><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier">MimeNoContent</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-63"></a><span class="hs-keyword">data</span><span> </span><a name="MimeAny"><a href="SwaggerPetstore.MimeTypes.html#MimeAny"><span class="hs-identifier">MimeAny</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeAny"><a href="SwaggerPetstore.MimeTypes.html#MimeAny"><span class="hs-identifier">MimeAny</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-64"></a><span>
|
||||
</span><a name="line-65"></a><span class="hs-comment">-- | A type for responses without content-body.</span><span>
|
||||
</span><a name="line-66"></a><span class="hs-keyword">data</span><span> </span><a name="NoContent"><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier">NoContent</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="NoContent"><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier">NoContent</span></a></a><span>
|
||||
</span><a name="line-67"></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><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Eq</span><span class="hs-special">,</span><span> </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-68"></a><span>
|
||||
</span><a name="line-69"></a><span>
|
||||
</span><a name="line-70"></a><span class="hs-comment">-- * MimeType Class</span><span>
|
||||
</span><a name="line-71"></a><span>
|
||||
</span><a name="line-72"></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-6989586621679061092"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeType"><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier">MimeType</span></a></a><span> </span><a name="local-6989586621679061092"><a href="#local-6989586621679061092"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-73"></a><span> </span><span class="hs-pragma">{-# MINIMAL mimeType | mimeTypes #-}</span><span>
|
||||
</span><a name="line-74"></a><span>
|
||||
</span><a name="line-75"></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-6989586621679061092"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-76"></a><span> </span><a name="local-8214565720323835667"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier">mimeTypes</span></a></a><span> </span><a name="local-6989586621679061409"><a href="#local-6989586621679061409"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-77"></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-6989586621679061409"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-78"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679061410"><a href="#local-6989586621679061410"><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-6989586621679061410"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-79"></a><span> </span><span class="hs-identifier hs-var">Nothing</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-80"></a><span>
|
||||
</span><a name="line-81"></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-6989586621679061092"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
|
||||
</span><a name="line-82"></a><span> </span><a name="local-8214565720323835668"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><a name="local-6989586621679061411"><a href="#local-6989586621679061411"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-83"></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-6989586621679061411"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-84"></a><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-85"></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679061412"><a href="#local-6989586621679061412"><span class="hs-identifier">x</span></a></a><span class="hs-glyph">:</span><span class="hs-identifier">_</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679061412"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-86"></a><span>
|
||||
</span><a name="line-87"></a><span> </span><span class="hs-identifier">mimeType'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679061092"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
|
||||
</span><a name="line-88"></a><span> </span><a name="local-8214565720323835669"><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-6989586621679061092"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-89"></a><span> </span><span class="hs-identifier">mimeTypes'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679061092"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-90"></a><span> </span><a name="local-8214565720323835670"><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-6989586621679061092"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-91"></a><span>
|
||||
</span><a name="line-92"></a><span class="hs-comment">-- Default MimeType Instances</span><span>
|
||||
</span><a name="line-93"></a><span>
|
||||
</span><a name="line-94"></a><span class="hs-comment">-- | @application/json; charset=utf-8@</span><span>
|
||||
</span><a name="line-95"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-96"></a><span> </span><a name="local-8214565720323835668"><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">"application/json"</span><span>
|
||||
</span><a name="line-97"></a><span class="hs-comment">-- | @application/xml; charset=utf-8@</span><span>
|
||||
</span><a name="line-98"></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-99"></a><span> </span><a name="local-8214565720323835668"><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">"application/xml"</span><span>
|
||||
</span><a name="line-100"></a><span class="hs-comment">-- | @application/x-www-form-urlencoded@</span><span>
|
||||
</span><a name="line-101"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-102"></a><span> </span><a name="local-8214565720323835668"><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">"application/x-www-form-urlencoded"</span><span>
|
||||
</span><a name="line-103"></a><span class="hs-comment">-- | @multipart/form-data@</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="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-105"></a><span> </span><a name="local-8214565720323835668"><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">"multipart/form-data"</span><span>
|
||||
</span><a name="line-106"></a><span class="hs-comment">-- | @text/plain; charset=utf-8@</span><span>
|
||||
</span><a name="line-107"></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-108"></a><span> </span><a name="local-8214565720323835668"><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">"text/plain"</span><span>
|
||||
</span><a name="line-109"></a><span class="hs-comment">-- | @application/octet-stream@</span><span>
|
||||
</span><a name="line-110"></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-111"></a><span> </span><a name="local-8214565720323835668"><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">"application/octet-stream"</span><span>
|
||||
</span><a name="line-112"></a><span class="hs-comment">-- | @"*/*"@</span><span>
|
||||
</span><a name="line-113"></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-114"></a><span> </span><a name="local-8214565720323835668"><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">"*/*"</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#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-116"></a><span> </span><a name="local-8214565720323835668"><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-117"></a><span>
|
||||
</span><a name="line-118"></a><span class="hs-comment">-- * MimeRender Class</span><span>
|
||||
</span><a name="line-119"></a><span>
|
||||
</span><a name="line-120"></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-6989586621679061089"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeRender"><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier">MimeRender</span></a></a><span> </span><a name="local-6989586621679061089"><a href="#local-6989586621679061089"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679061090"><a href="#local-6989586621679061090"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-121"></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-6989586621679061089"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679061090"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-122"></a><span> </span><span class="hs-identifier">mimeRender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679061089"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679061090"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-123"></a><span> </span><a name="local-8214565720323835665"><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-6989586621679061091"><a href="#local-6989586621679061091"><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-6989586621679061089"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679061091"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-124"></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-6989586621679065534"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Consumes"><a href="SwaggerPetstore.MimeTypes.html#Consumes"><span class="hs-identifier">Consumes</span></a></a><span> </span><a name="local-6989586621679065533"><a href="#local-6989586621679065533"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679065534"><a href="#local-6989586621679065534"><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-6989586621679065532"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Produces"><a href="SwaggerPetstore.MimeTypes.html#Produces"><span class="hs-identifier">Produces</span></a></a><span> </span><a name="local-6989586621679065531"><a href="#local-6989586621679065531"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679065532"><a href="#local-6989586621679065532"><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>
|
||||
</span><a name="line-64"></a><span class="hs-keyword">data</span><span> </span><a name="MimeJSON"><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier">MimeJSON</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeJSON"><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier">MimeJSON</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-65"></a><span class="hs-keyword">data</span><span> </span><a name="MimeXML"><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier">MimeXML</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeXML"><a href="SwaggerPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier">MimeXML</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-66"></a><span class="hs-keyword">data</span><span> </span><a name="MimePlainText"><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier">MimePlainText</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimePlainText"><a href="SwaggerPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier">MimePlainText</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-67"></a><span class="hs-keyword">data</span><span> </span><a name="MimeFormUrlEncoded"><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier">MimeFormUrlEncoded</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeFormUrlEncoded"><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier">MimeFormUrlEncoded</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-68"></a><span class="hs-keyword">data</span><span> </span><a name="MimeMultipartFormData"><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier">MimeMultipartFormData</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeMultipartFormData"><a href="SwaggerPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier">MimeMultipartFormData</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-69"></a><span class="hs-keyword">data</span><span> </span><a name="MimeOctetStream"><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier">MimeOctetStream</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeOctetStream"><a href="SwaggerPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier">MimeOctetStream</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-70"></a><span class="hs-keyword">data</span><span> </span><a name="MimeNoContent"><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier">MimeNoContent</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeNoContent"><a href="SwaggerPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier">MimeNoContent</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-71"></a><span class="hs-keyword">data</span><span> </span><a name="MimeAny"><a href="SwaggerPetstore.MimeTypes.html#MimeAny"><span class="hs-identifier">MimeAny</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeAny"><a href="SwaggerPetstore.MimeTypes.html#MimeAny"><span class="hs-identifier">MimeAny</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-72"></a><span>
|
||||
</span><a name="line-73"></a><span class="hs-comment">-- | A type for responses without content-body.</span><span>
|
||||
</span><a name="line-74"></a><span class="hs-keyword">data</span><span> </span><a name="NoContent"><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier">NoContent</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="NoContent"><a href="SwaggerPetstore.MimeTypes.html#NoContent"><span class="hs-identifier">NoContent</span></a></a><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">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">Eq</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>
|
||||
</span><a name="line-76"></a><span>
|
||||
</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-6989586621679061098"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeType"><a href="SwaggerPetstore.MimeTypes.html#MimeType"><span class="hs-identifier">MimeType</span></a></a><span> </span><a name="local-6989586621679061098"><a href="#local-6989586621679061098"><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-6989586621679061098"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-84"></a><span> </span><a name="local-8214565720323835667"><a href="SwaggerPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier">mimeTypes</span></a></a><span> </span><a name="local-6989586621679061415"><a href="#local-6989586621679061415"><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-6989586621679061415"><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-6989586621679061416"><a href="#local-6989586621679061416"><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-6989586621679061416"><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">-></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-6989586621679061098"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
|
||||
</span><a name="line-90"></a><span> </span><a name="local-8214565720323835668"><a href="SwaggerPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><a name="local-6989586621679061417"><a href="#local-6989586621679061417"><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-6989586621679061417"><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">-></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-6989586621679061418"><a href="#local-6989586621679061418"><span class="hs-identifier">x</span></a></a><span class="hs-glyph">:</span><span class="hs-identifier">_</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679061418"><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-6989586621679061098"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span>
|
||||
</span><a name="line-96"></a><span> </span><a name="local-8214565720323835669"><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-6989586621679061098"><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-6989586621679061098"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">ME</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">MediaType</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-98"></a><span> </span><a name="local-8214565720323835670"><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-6989586621679061098"><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-8214565720323835668"><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">"application/json"</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-8214565720323835668"><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">"application/xml"</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-8214565720323835668"><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">"application/x-www-form-urlencoded"</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-8214565720323835668"><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">"multipart/form-data"</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-8214565720323835668"><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">"text/plain"</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-8214565720323835668"><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">"application/octet-stream"</span><span>
|
||||
</span><a name="line-120"></a><span class="hs-comment">-- | @"*/*"@</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-8214565720323835668"><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">"*/*"</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-8214565720323835668"><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-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-6989586621679065529"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679065529"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-127"></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-128"></a><span>
|
||||
</span><a name="line-129"></a><span class="hs-comment">-- Default MimeRender Instances</span><span>
|
||||
</span><a name="line-130"></a><span>
|
||||
</span><a name="line-131"></a><span class="hs-comment">-- | `A.encode`</span><span>
|
||||
</span><a name="line-132"></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-6989586621679069442"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679069442"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835664"><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-133"></a><span class="hs-comment">-- | @WH.urlEncodeAsForm@</span><span>
|
||||
</span><a name="line-134"></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-6989586621679069441"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679069441"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835664"><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-135"></a><span>
|
||||
</span><a name="line-136"></a><span class="hs-comment">-- | @P.id@</span><span>
|
||||
</span><a name="line-137"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#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-8214565720323835664"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">P</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">id</span><span>
|
||||
</span><a name="line-138"></a><span class="hs-comment">-- | @BL.fromStrict . T.encodeUtf8@</span><span>
|
||||
</span><a name="line-139"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#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-8214565720323835664"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">encodeUtf8</span><span>
|
||||
</span><a name="line-140"></a><span class="hs-comment">-- | @BCL.pack@</span><span>
|
||||
</span><a name="line-141"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#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-8214565720323835664"><a href="SwaggerPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">BCL</span><span class="hs-operator hs-var">.</span><span class="hs-identifier hs-var">pack</span><span>
|
||||
</span><a name="line-142"></a><span>
|
||||
</span><a name="line-143"></a><span class="hs-comment">-- | @P.id@</span><span>
|
||||
</span><a name="line-144"></a><span class="hs-keyword">instance</span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#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-8214565720323835664"><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-comment">-- | @BL.fromStrict . T.encodeUtf8@</span><span>
|
||||
</span><a name="line-146"></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-8214565720323835664"><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-comment">-- | @BCL.pack@</span><span>
|
||||
</span><a name="line-148"></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-8214565720323835664"><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>
|
||||
</span><a name="line-150"></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-8214565720323835664"><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-151"></a><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#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-8214565720323835664"><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-153"></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-8214565720323835664"><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-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#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-8214565720323835664"><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-155"></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-8214565720323835664"><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-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#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-8214565720323835664"><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-157"></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-8214565720323835664"><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-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">String</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835664"><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-159"></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-8214565720323835664"><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>
|
||||
</span><a name="line-161"></a><span class="hs-comment">-- | @P.Right . P.const NoContent@</span><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#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-8214565720323835664"><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-163"></a><span>
|
||||
</span><a name="line-164"></a><span>
|
||||
</span><a name="line-165"></a><span class="hs-comment">-- * MimeUnrender Class</span><span>
|
||||
</span><a name="line-166"></a><span>
|
||||
</span><a name="line-167"></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-6989586621679060781"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeUnrender"><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier">MimeUnrender</span></a></a><span> </span><a name="local-6989586621679060781"><a href="#local-6989586621679060781"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679060782"><a href="#local-6989586621679060782"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-168"></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-6989586621679060781"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679060782"><span class="hs-identifier hs-type">o</span></a><span>
|
||||
</span><a name="line-169"></a><span> </span><span class="hs-identifier">mimeUnrender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679060781"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679060782"><span class="hs-identifier hs-type">o</span></a><span>
|
||||
</span><a name="line-170"></a><span> </span><a name="local-8214565720323835662"><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-6989586621679061088"><a href="#local-6989586621679061088"><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-6989586621679060781"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679061088"><span class="hs-identifier hs-var">x</span></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-6989586621679061095"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeRender"><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier">MimeRender</span></a></a><span> </span><a name="local-6989586621679061095"><a href="#local-6989586621679061095"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679061096"><a href="#local-6989586621679061096"><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-6989586621679061095"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679061096"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-130"></a><span> </span><span class="hs-identifier">mimeRender'</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679061095"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679061096"><span class="hs-identifier hs-type">x</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-131"></a><span> </span><a name="local-8214565720323835665"><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-6989586621679061097"><a href="#local-6989586621679061097"><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-6989586621679061095"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679061097"><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-6989586621679065537"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679065537"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span>
|
||||
</span><a name="line-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-6989586621679069450"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679069450"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835664"><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-6989586621679069449"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679069449"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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-8214565720323835664"><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 class="hs-comment">-- Default MimeUnrender Instances</span><span>
|
||||
</span><a name="line-173"></a><span>
|
||||
</span><a name="line-174"></a><span class="hs-comment">-- | @A.eitherDecode@</span><span>
|
||||
</span><a name="line-175"></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-6989586621679066864"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679066864"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835661"><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-176"></a><span class="hs-comment">-- | @P.left T.unpack . WH.urlDecodeAsForm@</span><span>
|
||||
</span><a name="line-177"></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-6989586621679066863"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679066863"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835661"><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-178"></a><span class="hs-comment">-- | @P.Right . P.id@</span><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-6989586621679060787"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeUnrender"><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier">MimeUnrender</span></a></a><span> </span><a name="local-6989586621679060787"><a href="#local-6989586621679060787"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679060788"><a href="#local-6989586621679060788"><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-6989586621679060787"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679060788"><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-6989586621679060787"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">BL</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P</span><span class="hs-operator hs-type">.</span><span class="hs-identifier hs-type">Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679060788"><span class="hs-identifier hs-type">o</span></a><span>
|
||||
</span><a name="line-178"></a><span> </span><a name="local-8214565720323835662"><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-6989586621679061094"><a href="#local-6989586621679061094"><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-6989586621679060787"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679061094"><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-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-8214565720323835661"><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-181"></a><span class="hs-comment">-- | @P.left P.show . TL.decodeUtf8'@</span><span>
|
||||
</span><a name="line-182"></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-8214565720323835661"><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-183"></a><span class="hs-comment">-- | @P.Right . BCL.unpack@</span><span>
|
||||
</span><a name="line-184"></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-8214565720323835661"><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-185"></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-6989586621679066872"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679066872"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835661"><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-6989586621679066871"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="SwaggerPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679066871"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323835661"><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 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-8214565720323835661"><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-comment">-- | @P.left P.show . T.decodeUtf8' . BL.toStrict@</span><span>
|
||||
</span><a name="line-189"></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-8214565720323835661"><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-comment">-- | @P.Right . BCL.unpack@</span><span>
|
||||
</span><a name="line-191"></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-8214565720323835661"><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>
|
||||
</span><a name="line-193"></a><span class="hs-comment">-- | @P.Right . P.const NoContent@</span><span>
|
||||
</span><a name="line-194"></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-8214565720323835661"><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></pre></body></html>
|
||||
</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-8214565720323835661"><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-8214565720323835661"><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-8214565720323835661"><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-8214565720323835661"><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-8214565720323835661"><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-8214565720323835661"><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-8214565720323835661"><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></pre></body></html>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -41,12 +41,12 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-41"></a><span>
|
||||
</span><a name="line-42"></a><span class="hs-comment">-- | 'additionalPropertiesClassMapProperty' Lens</span><span>
|
||||
</span><a name="line-43"></a><span class="hs-identifier">additionalPropertiesClassMapPropertyL</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.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-type">AdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </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">Text</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-44"></a><a name="additionalPropertiesClassMapPropertyL"><a href="SwaggerPetstore.ModelLens.html#additionalPropertiesClassMapPropertyL"><span class="hs-identifier">additionalPropertiesClassMapPropertyL</span></a></a><span> </span><a name="local-6989586621679148224"><a href="#local-6989586621679148224"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</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-6989586621679148227"><a href="#local-6989586621679148227"><span class="hs-identifier">additionalPropertiesClassMapProperty</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148227"><span class="hs-identifier hs-var">additionalPropertiesClassMapProperty</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148224"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148225"><span class="hs-identifier hs-var">additionalPropertiesClassMapProperty</span></a><span>
|
||||
</span><a name="line-44"></a><a name="additionalPropertiesClassMapPropertyL"><a href="SwaggerPetstore.ModelLens.html#additionalPropertiesClassMapPropertyL"><span class="hs-identifier">additionalPropertiesClassMapPropertyL</span></a></a><span> </span><a name="local-6989586621679148509"><a href="#local-6989586621679148509"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</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-6989586621679148512"><a href="#local-6989586621679148512"><span class="hs-identifier">additionalPropertiesClassMapProperty</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148512"><span class="hs-identifier hs-var">additionalPropertiesClassMapProperty</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148509"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148510"><span class="hs-identifier hs-var">additionalPropertiesClassMapProperty</span></a><span>
|
||||
</span><a name="line-45"></a><span class="hs-pragma">{-# INLINE additionalPropertiesClassMapPropertyL #-}</span><span>
|
||||
</span><a name="line-46"></a><span>
|
||||
</span><a name="line-47"></a><span class="hs-comment">-- | 'additionalPropertiesClassMapOfMapProperty' Lens</span><span>
|
||||
</span><a name="line-48"></a><span class="hs-identifier">additionalPropertiesClassMapOfMapPropertyL</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.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-type">AdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </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-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">Text</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-49"></a><a name="additionalPropertiesClassMapOfMapPropertyL"><a href="SwaggerPetstore.ModelLens.html#additionalPropertiesClassMapOfMapPropertyL"><span class="hs-identifier">additionalPropertiesClassMapOfMapPropertyL</span></a></a><span> </span><a name="local-6989586621679148228"><a href="#local-6989586621679148228"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</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-6989586621679148231"><a href="#local-6989586621679148231"><span class="hs-identifier">additionalPropertiesClassMapOfMapProperty</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148231"><span class="hs-identifier hs-var">additionalPropertiesClassMapOfMapProperty</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148228"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148230"><span class="hs-identifier hs-var">additionalPropertiesClassMapOfMapProperty</span></a><span>
|
||||
</span><a name="line-49"></a><a name="additionalPropertiesClassMapOfMapPropertyL"><a href="SwaggerPetstore.ModelLens.html#additionalPropertiesClassMapOfMapPropertyL"><span class="hs-identifier">additionalPropertiesClassMapOfMapPropertyL</span></a></a><span> </span><a name="local-6989586621679148513"><a href="#local-6989586621679148513"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</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-6989586621679148516"><a href="#local-6989586621679148516"><span class="hs-identifier">additionalPropertiesClassMapOfMapProperty</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#AdditionalPropertiesClass"><span class="hs-identifier hs-var">AdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148516"><span class="hs-identifier hs-var">additionalPropertiesClassMapOfMapProperty</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148513"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148515"><span class="hs-identifier hs-var">additionalPropertiesClassMapOfMapProperty</span></a><span>
|
||||
</span><a name="line-50"></a><span class="hs-pragma">{-# INLINE additionalPropertiesClassMapOfMapPropertyL #-}</span><span>
|
||||
</span><a name="line-51"></a><span>
|
||||
</span><a name="line-52"></a><span>
|
||||
@@ -55,12 +55,12 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-55"></a><span>
|
||||
</span><a name="line-56"></a><span class="hs-comment">-- | 'animalClassName' Lens</span><span>
|
||||
</span><a name="line-57"></a><span class="hs-identifier">animalClassNameL</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.Model.html#Animal"><span class="hs-identifier hs-type">Animal</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-58"></a><a name="animalClassNameL"><a href="SwaggerPetstore.ModelLens.html#animalClassNameL"><span class="hs-identifier">animalClassNameL</span></a></a><span> </span><a name="local-6989586621679148232"><a href="#local-6989586621679148232"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</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-6989586621679148235"><a href="#local-6989586621679148235"><span class="hs-identifier">animalClassName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148235"><span class="hs-identifier hs-var">animalClassName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148232"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148233"><span class="hs-identifier hs-var">animalClassName</span></a><span>
|
||||
</span><a name="line-58"></a><a name="animalClassNameL"><a href="SwaggerPetstore.ModelLens.html#animalClassNameL"><span class="hs-identifier">animalClassNameL</span></a></a><span> </span><a name="local-6989586621679148517"><a href="#local-6989586621679148517"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</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-6989586621679148520"><a href="#local-6989586621679148520"><span class="hs-identifier">animalClassName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148520"><span class="hs-identifier hs-var">animalClassName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148517"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148518"><span class="hs-identifier hs-var">animalClassName</span></a><span>
|
||||
</span><a name="line-59"></a><span class="hs-pragma">{-# INLINE animalClassNameL #-}</span><span>
|
||||
</span><a name="line-60"></a><span>
|
||||
</span><a name="line-61"></a><span class="hs-comment">-- | 'animalColor' Lens</span><span>
|
||||
</span><a name="line-62"></a><span class="hs-identifier">animalColorL</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.Model.html#Animal"><span class="hs-identifier hs-type">Animal</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-63"></a><a name="animalColorL"><a href="SwaggerPetstore.ModelLens.html#animalColorL"><span class="hs-identifier">animalColorL</span></a></a><span> </span><a name="local-6989586621679148236"><a href="#local-6989586621679148236"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</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-6989586621679148239"><a href="#local-6989586621679148239"><span class="hs-identifier">animalColor</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148239"><span class="hs-identifier hs-var">animalColor</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148236"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148238"><span class="hs-identifier hs-var">animalColor</span></a><span>
|
||||
</span><a name="line-63"></a><a name="animalColorL"><a href="SwaggerPetstore.ModelLens.html#animalColorL"><span class="hs-identifier">animalColorL</span></a></a><span> </span><a name="local-6989586621679148521"><a href="#local-6989586621679148521"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</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-6989586621679148524"><a href="#local-6989586621679148524"><span class="hs-identifier">animalColor</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-var">Animal</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148524"><span class="hs-identifier hs-var">animalColor</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148521"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148523"><span class="hs-identifier hs-var">animalColor</span></a><span>
|
||||
</span><a name="line-64"></a><span class="hs-pragma">{-# INLINE animalColorL #-}</span><span>
|
||||
</span><a name="line-65"></a><span>
|
||||
</span><a name="line-66"></a><span>
|
||||
@@ -73,17 +73,17 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-73"></a><span>
|
||||
</span><a name="line-74"></a><span class="hs-comment">-- | 'apiResponseCode' Lens</span><span>
|
||||
</span><a name="line-75"></a><span class="hs-identifier">apiResponseCodeL</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.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-76"></a><a name="apiResponseCodeL"><a href="SwaggerPetstore.ModelLens.html#apiResponseCodeL"><span class="hs-identifier">apiResponseCodeL</span></a></a><span> </span><a name="local-6989586621679148240"><a href="#local-6989586621679148240"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148244"><a href="#local-6989586621679148244"><span class="hs-identifier">apiResponseCode</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148244"><span class="hs-identifier hs-var">apiResponseCode</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148240"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148241"><span class="hs-identifier hs-var">apiResponseCode</span></a><span>
|
||||
</span><a name="line-76"></a><a name="apiResponseCodeL"><a href="SwaggerPetstore.ModelLens.html#apiResponseCodeL"><span class="hs-identifier">apiResponseCodeL</span></a></a><span> </span><a name="local-6989586621679148525"><a href="#local-6989586621679148525"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148529"><a href="#local-6989586621679148529"><span class="hs-identifier">apiResponseCode</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148529"><span class="hs-identifier hs-var">apiResponseCode</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148525"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148526"><span class="hs-identifier hs-var">apiResponseCode</span></a><span>
|
||||
</span><a name="line-77"></a><span class="hs-pragma">{-# INLINE apiResponseCodeL #-}</span><span>
|
||||
</span><a name="line-78"></a><span>
|
||||
</span><a name="line-79"></a><span class="hs-comment">-- | 'apiResponseType' Lens</span><span>
|
||||
</span><a name="line-80"></a><span class="hs-identifier">apiResponseTypeL</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.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-81"></a><a name="apiResponseTypeL"><a href="SwaggerPetstore.ModelLens.html#apiResponseTypeL"><span class="hs-identifier">apiResponseTypeL</span></a></a><span> </span><a name="local-6989586621679148245"><a href="#local-6989586621679148245"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148249"><a href="#local-6989586621679148249"><span class="hs-identifier">apiResponseType</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148249"><span class="hs-identifier hs-var">apiResponseType</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148245"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148247"><span class="hs-identifier hs-var">apiResponseType</span></a><span>
|
||||
</span><a name="line-81"></a><a name="apiResponseTypeL"><a href="SwaggerPetstore.ModelLens.html#apiResponseTypeL"><span class="hs-identifier">apiResponseTypeL</span></a></a><span> </span><a name="local-6989586621679148530"><a href="#local-6989586621679148530"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148534"><a href="#local-6989586621679148534"><span class="hs-identifier">apiResponseType</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148534"><span class="hs-identifier hs-var">apiResponseType</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148530"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148532"><span class="hs-identifier hs-var">apiResponseType</span></a><span>
|
||||
</span><a name="line-82"></a><span class="hs-pragma">{-# INLINE apiResponseTypeL #-}</span><span>
|
||||
</span><a name="line-83"></a><span>
|
||||
</span><a name="line-84"></a><span class="hs-comment">-- | 'apiResponseMessage' Lens</span><span>
|
||||
</span><a name="line-85"></a><span class="hs-identifier">apiResponseMessageL</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.Model.html#ApiResponse"><span class="hs-identifier hs-type">ApiResponse</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-86"></a><a name="apiResponseMessageL"><a href="SwaggerPetstore.ModelLens.html#apiResponseMessageL"><span class="hs-identifier">apiResponseMessageL</span></a></a><span> </span><a name="local-6989586621679148250"><a href="#local-6989586621679148250"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148254"><a href="#local-6989586621679148254"><span class="hs-identifier">apiResponseMessage</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148254"><span class="hs-identifier hs-var">apiResponseMessage</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148250"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148253"><span class="hs-identifier hs-var">apiResponseMessage</span></a><span>
|
||||
</span><a name="line-86"></a><a name="apiResponseMessageL"><a href="SwaggerPetstore.ModelLens.html#apiResponseMessageL"><span class="hs-identifier">apiResponseMessageL</span></a></a><span> </span><a name="local-6989586621679148535"><a href="#local-6989586621679148535"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148539"><a href="#local-6989586621679148539"><span class="hs-identifier">apiResponseMessage</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ApiResponse"><span class="hs-identifier hs-var">ApiResponse</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148539"><span class="hs-identifier hs-var">apiResponseMessage</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148535"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148538"><span class="hs-identifier hs-var">apiResponseMessage</span></a><span>
|
||||
</span><a name="line-87"></a><span class="hs-pragma">{-# INLINE apiResponseMessageL #-}</span><span>
|
||||
</span><a name="line-88"></a><span>
|
||||
</span><a name="line-89"></a><span>
|
||||
@@ -92,7 +92,7 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-92"></a><span>
|
||||
</span><a name="line-93"></a><span class="hs-comment">-- | 'arrayOfArrayOfNumberOnlyArrayArrayNumber' Lens</span><span>
|
||||
</span><a name="line-94"></a><span class="hs-identifier">arrayOfArrayOfNumberOnlyArrayArrayNumberL</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.Model.html#ArrayOfArrayOfNumberOnly"><span class="hs-identifier hs-type">ArrayOfArrayOfNumberOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-special">[</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">]</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-95"></a><a name="arrayOfArrayOfNumberOnlyArrayArrayNumberL"><a href="SwaggerPetstore.ModelLens.html#arrayOfArrayOfNumberOnlyArrayArrayNumberL"><span class="hs-identifier">arrayOfArrayOfNumberOnlyArrayArrayNumberL</span></a></a><span> </span><a name="local-6989586621679148255"><a href="#local-6989586621679148255"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfArrayOfNumberOnly</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-6989586621679148257"><a href="#local-6989586621679148257"><span class="hs-identifier">arrayOfArrayOfNumberOnlyArrayArrayNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfArrayOfNumberOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148257"><span class="hs-identifier hs-var">arrayOfArrayOfNumberOnlyArrayArrayNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148255"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148256"><span class="hs-identifier hs-var">arrayOfArrayOfNumberOnlyArrayArrayNumber</span></a><span>
|
||||
</span><a name="line-95"></a><a name="arrayOfArrayOfNumberOnlyArrayArrayNumberL"><a href="SwaggerPetstore.ModelLens.html#arrayOfArrayOfNumberOnlyArrayArrayNumberL"><span class="hs-identifier">arrayOfArrayOfNumberOnlyArrayArrayNumberL</span></a></a><span> </span><a name="local-6989586621679148540"><a href="#local-6989586621679148540"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfArrayOfNumberOnly</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-6989586621679148542"><a href="#local-6989586621679148542"><span class="hs-identifier">arrayOfArrayOfNumberOnlyArrayArrayNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfArrayOfNumberOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148542"><span class="hs-identifier hs-var">arrayOfArrayOfNumberOnlyArrayArrayNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148540"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148541"><span class="hs-identifier hs-var">arrayOfArrayOfNumberOnlyArrayArrayNumber</span></a><span>
|
||||
</span><a name="line-96"></a><span class="hs-pragma">{-# INLINE arrayOfArrayOfNumberOnlyArrayArrayNumberL #-}</span><span>
|
||||
</span><a name="line-97"></a><span>
|
||||
</span><a name="line-98"></a><span>
|
||||
@@ -101,7 +101,7 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-101"></a><span>
|
||||
</span><a name="line-102"></a><span class="hs-comment">-- | 'arrayOfNumberOnlyArrayNumber' Lens</span><span>
|
||||
</span><a name="line-103"></a><span class="hs-identifier">arrayOfNumberOnlyArrayNumberL</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.Model.html#ArrayOfNumberOnly"><span class="hs-identifier hs-type">ArrayOfNumberOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-104"></a><a name="arrayOfNumberOnlyArrayNumberL"><a href="SwaggerPetstore.ModelLens.html#arrayOfNumberOnlyArrayNumberL"><span class="hs-identifier">arrayOfNumberOnlyArrayNumberL</span></a></a><span> </span><a name="local-6989586621679148258"><a href="#local-6989586621679148258"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfNumberOnly</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-6989586621679148260"><a href="#local-6989586621679148260"><span class="hs-identifier">arrayOfNumberOnlyArrayNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfNumberOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148260"><span class="hs-identifier hs-var">arrayOfNumberOnlyArrayNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148258"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148259"><span class="hs-identifier hs-var">arrayOfNumberOnlyArrayNumber</span></a><span>
|
||||
</span><a name="line-104"></a><a name="arrayOfNumberOnlyArrayNumberL"><a href="SwaggerPetstore.ModelLens.html#arrayOfNumberOnlyArrayNumberL"><span class="hs-identifier">arrayOfNumberOnlyArrayNumberL</span></a></a><span> </span><a name="local-6989586621679148543"><a href="#local-6989586621679148543"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfNumberOnly</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-6989586621679148545"><a href="#local-6989586621679148545"><span class="hs-identifier">arrayOfNumberOnlyArrayNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayOfNumberOnly"><span class="hs-identifier hs-var">ArrayOfNumberOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148545"><span class="hs-identifier hs-var">arrayOfNumberOnlyArrayNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148543"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148544"><span class="hs-identifier hs-var">arrayOfNumberOnlyArrayNumber</span></a><span>
|
||||
</span><a name="line-105"></a><span class="hs-pragma">{-# INLINE arrayOfNumberOnlyArrayNumberL #-}</span><span>
|
||||
</span><a name="line-106"></a><span>
|
||||
</span><a name="line-107"></a><span>
|
||||
@@ -110,17 +110,17 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-110"></a><span>
|
||||
</span><a name="line-111"></a><span class="hs-comment">-- | 'arrayTestArrayOfString' Lens</span><span>
|
||||
</span><a name="line-112"></a><span class="hs-identifier">arrayTestArrayOfStringL</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.Model.html#ArrayTest"><span class="hs-identifier hs-type">ArrayTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</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-113"></a><a name="arrayTestArrayOfStringL"><a href="SwaggerPetstore.ModelLens.html#arrayTestArrayOfStringL"><span class="hs-identifier">arrayTestArrayOfStringL</span></a></a><span> </span><a name="local-6989586621679148261"><a href="#local-6989586621679148261"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</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-6989586621679148265"><a href="#local-6989586621679148265"><span class="hs-identifier">arrayTestArrayOfString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148265"><span class="hs-identifier hs-var">arrayTestArrayOfString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148261"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148262"><span class="hs-identifier hs-var">arrayTestArrayOfString</span></a><span>
|
||||
</span><a name="line-113"></a><a name="arrayTestArrayOfStringL"><a href="SwaggerPetstore.ModelLens.html#arrayTestArrayOfStringL"><span class="hs-identifier">arrayTestArrayOfStringL</span></a></a><span> </span><a name="local-6989586621679148546"><a href="#local-6989586621679148546"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</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-6989586621679148550"><a href="#local-6989586621679148550"><span class="hs-identifier">arrayTestArrayOfString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148550"><span class="hs-identifier hs-var">arrayTestArrayOfString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148546"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148547"><span class="hs-identifier hs-var">arrayTestArrayOfString</span></a><span>
|
||||
</span><a name="line-114"></a><span class="hs-pragma">{-# INLINE arrayTestArrayOfStringL #-}</span><span>
|
||||
</span><a name="line-115"></a><span>
|
||||
</span><a name="line-116"></a><span class="hs-comment">-- | 'arrayTestArrayArrayOfInteger' Lens</span><span>
|
||||
</span><a name="line-117"></a><span class="hs-identifier">arrayTestArrayArrayOfIntegerL</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.Model.html#ArrayTest"><span class="hs-identifier hs-type">ArrayTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-special">[</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">]</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-118"></a><a name="arrayTestArrayArrayOfIntegerL"><a href="SwaggerPetstore.ModelLens.html#arrayTestArrayArrayOfIntegerL"><span class="hs-identifier">arrayTestArrayArrayOfIntegerL</span></a></a><span> </span><a name="local-6989586621679148266"><a href="#local-6989586621679148266"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</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-6989586621679148270"><a href="#local-6989586621679148270"><span class="hs-identifier">arrayTestArrayArrayOfInteger</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148270"><span class="hs-identifier hs-var">arrayTestArrayArrayOfInteger</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148266"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148268"><span class="hs-identifier hs-var">arrayTestArrayArrayOfInteger</span></a><span>
|
||||
</span><a name="line-118"></a><a name="arrayTestArrayArrayOfIntegerL"><a href="SwaggerPetstore.ModelLens.html#arrayTestArrayArrayOfIntegerL"><span class="hs-identifier">arrayTestArrayArrayOfIntegerL</span></a></a><span> </span><a name="local-6989586621679148551"><a href="#local-6989586621679148551"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</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-6989586621679148555"><a href="#local-6989586621679148555"><span class="hs-identifier">arrayTestArrayArrayOfInteger</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148555"><span class="hs-identifier hs-var">arrayTestArrayArrayOfInteger</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148551"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148553"><span class="hs-identifier hs-var">arrayTestArrayArrayOfInteger</span></a><span>
|
||||
</span><a name="line-119"></a><span class="hs-pragma">{-# INLINE arrayTestArrayArrayOfIntegerL #-}</span><span>
|
||||
</span><a name="line-120"></a><span>
|
||||
</span><a name="line-121"></a><span class="hs-comment">-- | 'arrayTestArrayArrayOfModel' Lens</span><span>
|
||||
</span><a name="line-122"></a><span class="hs-identifier">arrayTestArrayArrayOfModelL</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.Model.html#ArrayTest"><span class="hs-identifier hs-type">ArrayTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-type">ReadOnlyFirst</span></a><span class="hs-special">]</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-123"></a><a name="arrayTestArrayArrayOfModelL"><a href="SwaggerPetstore.ModelLens.html#arrayTestArrayArrayOfModelL"><span class="hs-identifier">arrayTestArrayArrayOfModelL</span></a></a><span> </span><a name="local-6989586621679148271"><a href="#local-6989586621679148271"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</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-6989586621679148275"><a href="#local-6989586621679148275"><span class="hs-identifier">arrayTestArrayArrayOfModel</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148275"><span class="hs-identifier hs-var">arrayTestArrayArrayOfModel</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148271"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148274"><span class="hs-identifier hs-var">arrayTestArrayArrayOfModel</span></a><span>
|
||||
</span><a name="line-123"></a><a name="arrayTestArrayArrayOfModelL"><a href="SwaggerPetstore.ModelLens.html#arrayTestArrayArrayOfModelL"><span class="hs-identifier">arrayTestArrayArrayOfModelL</span></a></a><span> </span><a name="local-6989586621679148556"><a href="#local-6989586621679148556"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</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-6989586621679148560"><a href="#local-6989586621679148560"><span class="hs-identifier">arrayTestArrayArrayOfModel</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ArrayTest"><span class="hs-identifier hs-var">ArrayTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148560"><span class="hs-identifier hs-var">arrayTestArrayArrayOfModel</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148556"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148559"><span class="hs-identifier hs-var">arrayTestArrayArrayOfModel</span></a><span>
|
||||
</span><a name="line-124"></a><span class="hs-pragma">{-# INLINE arrayTestArrayArrayOfModelL #-}</span><span>
|
||||
</span><a name="line-125"></a><span>
|
||||
</span><a name="line-126"></a><span>
|
||||
@@ -129,32 +129,32 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-129"></a><span>
|
||||
</span><a name="line-130"></a><span class="hs-comment">-- | 'capitalizationSmallCamel' Lens</span><span>
|
||||
</span><a name="line-131"></a><span class="hs-identifier">capitalizationSmallCamelL</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.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-132"></a><a name="capitalizationSmallCamelL"><a href="SwaggerPetstore.ModelLens.html#capitalizationSmallCamelL"><span class="hs-identifier">capitalizationSmallCamelL</span></a></a><span> </span><a name="local-6989586621679148276"><a href="#local-6989586621679148276"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</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-6989586621679148283"><a href="#local-6989586621679148283"><span class="hs-identifier">capitalizationSmallCamel</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148283"><span class="hs-identifier hs-var">capitalizationSmallCamel</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148276"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148277"><span class="hs-identifier hs-var">capitalizationSmallCamel</span></a><span>
|
||||
</span><a name="line-132"></a><a name="capitalizationSmallCamelL"><a href="SwaggerPetstore.ModelLens.html#capitalizationSmallCamelL"><span class="hs-identifier">capitalizationSmallCamelL</span></a></a><span> </span><a name="local-6989586621679148561"><a href="#local-6989586621679148561"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</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-6989586621679148568"><a href="#local-6989586621679148568"><span class="hs-identifier">capitalizationSmallCamel</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148568"><span class="hs-identifier hs-var">capitalizationSmallCamel</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148561"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148562"><span class="hs-identifier hs-var">capitalizationSmallCamel</span></a><span>
|
||||
</span><a name="line-133"></a><span class="hs-pragma">{-# INLINE capitalizationSmallCamelL #-}</span><span>
|
||||
</span><a name="line-134"></a><span>
|
||||
</span><a name="line-135"></a><span class="hs-comment">-- | 'capitalizationCapitalCamel' Lens</span><span>
|
||||
</span><a name="line-136"></a><span class="hs-identifier">capitalizationCapitalCamelL</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.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-137"></a><a name="capitalizationCapitalCamelL"><a href="SwaggerPetstore.ModelLens.html#capitalizationCapitalCamelL"><span class="hs-identifier">capitalizationCapitalCamelL</span></a></a><span> </span><a name="local-6989586621679148284"><a href="#local-6989586621679148284"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</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-6989586621679148291"><a href="#local-6989586621679148291"><span class="hs-identifier">capitalizationCapitalCamel</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148291"><span class="hs-identifier hs-var">capitalizationCapitalCamel</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148284"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148286"><span class="hs-identifier hs-var">capitalizationCapitalCamel</span></a><span>
|
||||
</span><a name="line-137"></a><a name="capitalizationCapitalCamelL"><a href="SwaggerPetstore.ModelLens.html#capitalizationCapitalCamelL"><span class="hs-identifier">capitalizationCapitalCamelL</span></a></a><span> </span><a name="local-6989586621679148569"><a href="#local-6989586621679148569"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</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-6989586621679148576"><a href="#local-6989586621679148576"><span class="hs-identifier">capitalizationCapitalCamel</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148576"><span class="hs-identifier hs-var">capitalizationCapitalCamel</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148569"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148571"><span class="hs-identifier hs-var">capitalizationCapitalCamel</span></a><span>
|
||||
</span><a name="line-138"></a><span class="hs-pragma">{-# INLINE capitalizationCapitalCamelL #-}</span><span>
|
||||
</span><a name="line-139"></a><span>
|
||||
</span><a name="line-140"></a><span class="hs-comment">-- | 'capitalizationSmallSnake' Lens</span><span>
|
||||
</span><a name="line-141"></a><span class="hs-identifier">capitalizationSmallSnakeL</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.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-142"></a><a name="capitalizationSmallSnakeL"><a href="SwaggerPetstore.ModelLens.html#capitalizationSmallSnakeL"><span class="hs-identifier">capitalizationSmallSnakeL</span></a></a><span> </span><a name="local-6989586621679148292"><a href="#local-6989586621679148292"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</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-6989586621679148299"><a href="#local-6989586621679148299"><span class="hs-identifier">capitalizationSmallSnake</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148299"><span class="hs-identifier hs-var">capitalizationSmallSnake</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148292"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148295"><span class="hs-identifier hs-var">capitalizationSmallSnake</span></a><span>
|
||||
</span><a name="line-142"></a><a name="capitalizationSmallSnakeL"><a href="SwaggerPetstore.ModelLens.html#capitalizationSmallSnakeL"><span class="hs-identifier">capitalizationSmallSnakeL</span></a></a><span> </span><a name="local-6989586621679148577"><a href="#local-6989586621679148577"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</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-6989586621679148584"><a href="#local-6989586621679148584"><span class="hs-identifier">capitalizationSmallSnake</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148584"><span class="hs-identifier hs-var">capitalizationSmallSnake</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148577"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148580"><span class="hs-identifier hs-var">capitalizationSmallSnake</span></a><span>
|
||||
</span><a name="line-143"></a><span class="hs-pragma">{-# INLINE capitalizationSmallSnakeL #-}</span><span>
|
||||
</span><a name="line-144"></a><span>
|
||||
</span><a name="line-145"></a><span class="hs-comment">-- | 'capitalizationCapitalSnake' Lens</span><span>
|
||||
</span><a name="line-146"></a><span class="hs-identifier">capitalizationCapitalSnakeL</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.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-147"></a><a name="capitalizationCapitalSnakeL"><a href="SwaggerPetstore.ModelLens.html#capitalizationCapitalSnakeL"><span class="hs-identifier">capitalizationCapitalSnakeL</span></a></a><span> </span><a name="local-6989586621679148300"><a href="#local-6989586621679148300"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</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-6989586621679148307"><a href="#local-6989586621679148307"><span class="hs-identifier">capitalizationCapitalSnake</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148307"><span class="hs-identifier hs-var">capitalizationCapitalSnake</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148300"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148304"><span class="hs-identifier hs-var">capitalizationCapitalSnake</span></a><span>
|
||||
</span><a name="line-147"></a><a name="capitalizationCapitalSnakeL"><a href="SwaggerPetstore.ModelLens.html#capitalizationCapitalSnakeL"><span class="hs-identifier">capitalizationCapitalSnakeL</span></a></a><span> </span><a name="local-6989586621679148585"><a href="#local-6989586621679148585"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</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-6989586621679148592"><a href="#local-6989586621679148592"><span class="hs-identifier">capitalizationCapitalSnake</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148592"><span class="hs-identifier hs-var">capitalizationCapitalSnake</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148585"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148589"><span class="hs-identifier hs-var">capitalizationCapitalSnake</span></a><span>
|
||||
</span><a name="line-148"></a><span class="hs-pragma">{-# INLINE capitalizationCapitalSnakeL #-}</span><span>
|
||||
</span><a name="line-149"></a><span>
|
||||
</span><a name="line-150"></a><span class="hs-comment">-- | 'capitalizationScaEthFlowPoints' Lens</span><span>
|
||||
</span><a name="line-151"></a><span class="hs-identifier">capitalizationScaEthFlowPointsL</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.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-152"></a><a name="capitalizationScaEthFlowPointsL"><a href="SwaggerPetstore.ModelLens.html#capitalizationScaEthFlowPointsL"><span class="hs-identifier">capitalizationScaEthFlowPointsL</span></a></a><span> </span><a name="local-6989586621679148308"><a href="#local-6989586621679148308"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</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-6989586621679148315"><a href="#local-6989586621679148315"><span class="hs-identifier">capitalizationScaEthFlowPoints</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148315"><span class="hs-identifier hs-var">capitalizationScaEthFlowPoints</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148308"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148313"><span class="hs-identifier hs-var">capitalizationScaEthFlowPoints</span></a><span>
|
||||
</span><a name="line-152"></a><a name="capitalizationScaEthFlowPointsL"><a href="SwaggerPetstore.ModelLens.html#capitalizationScaEthFlowPointsL"><span class="hs-identifier">capitalizationScaEthFlowPointsL</span></a></a><span> </span><a name="local-6989586621679148593"><a href="#local-6989586621679148593"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</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-6989586621679148600"><a href="#local-6989586621679148600"><span class="hs-identifier">capitalizationScaEthFlowPoints</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148600"><span class="hs-identifier hs-var">capitalizationScaEthFlowPoints</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148593"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148598"><span class="hs-identifier hs-var">capitalizationScaEthFlowPoints</span></a><span>
|
||||
</span><a name="line-153"></a><span class="hs-pragma">{-# INLINE capitalizationScaEthFlowPointsL #-}</span><span>
|
||||
</span><a name="line-154"></a><span>
|
||||
</span><a name="line-155"></a><span class="hs-comment">-- | 'capitalizationAttName' Lens</span><span>
|
||||
</span><a name="line-156"></a><span class="hs-identifier">capitalizationAttNameL</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.Model.html#Capitalization"><span class="hs-identifier hs-type">Capitalization</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-157"></a><a name="capitalizationAttNameL"><a href="SwaggerPetstore.ModelLens.html#capitalizationAttNameL"><span class="hs-identifier">capitalizationAttNameL</span></a></a><span> </span><a name="local-6989586621679148316"><a href="#local-6989586621679148316"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</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-6989586621679148323"><a href="#local-6989586621679148323"><span class="hs-identifier">capitalizationAttName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148323"><span class="hs-identifier hs-var">capitalizationAttName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148316"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148322"><span class="hs-identifier hs-var">capitalizationAttName</span></a><span>
|
||||
</span><a name="line-157"></a><a name="capitalizationAttNameL"><a href="SwaggerPetstore.ModelLens.html#capitalizationAttNameL"><span class="hs-identifier">capitalizationAttNameL</span></a></a><span> </span><a name="local-6989586621679148601"><a href="#local-6989586621679148601"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</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-6989586621679148608"><a href="#local-6989586621679148608"><span class="hs-identifier">capitalizationAttName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Capitalization"><span class="hs-identifier hs-var">Capitalization</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148608"><span class="hs-identifier hs-var">capitalizationAttName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148601"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148607"><span class="hs-identifier hs-var">capitalizationAttName</span></a><span>
|
||||
</span><a name="line-158"></a><span class="hs-pragma">{-# INLINE capitalizationAttNameL #-}</span><span>
|
||||
</span><a name="line-159"></a><span>
|
||||
</span><a name="line-160"></a><span>
|
||||
@@ -163,12 +163,12 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-163"></a><span>
|
||||
</span><a name="line-164"></a><span class="hs-comment">-- | 'categoryId' Lens</span><span>
|
||||
</span><a name="line-165"></a><span class="hs-identifier">categoryIdL</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.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-166"></a><a name="categoryIdL"><a href="SwaggerPetstore.ModelLens.html#categoryIdL"><span class="hs-identifier">categoryIdL</span></a></a><span> </span><a name="local-6989586621679148324"><a href="#local-6989586621679148324"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148327"><a href="#local-6989586621679148327"><span class="hs-identifier">categoryId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148327"><span class="hs-identifier hs-var">categoryId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148324"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148325"><span class="hs-identifier hs-var">categoryId</span></a><span>
|
||||
</span><a name="line-166"></a><a name="categoryIdL"><a href="SwaggerPetstore.ModelLens.html#categoryIdL"><span class="hs-identifier">categoryIdL</span></a></a><span> </span><a name="local-6989586621679148609"><a href="#local-6989586621679148609"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148612"><a href="#local-6989586621679148612"><span class="hs-identifier">categoryId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148612"><span class="hs-identifier hs-var">categoryId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148609"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148610"><span class="hs-identifier hs-var">categoryId</span></a><span>
|
||||
</span><a name="line-167"></a><span class="hs-pragma">{-# INLINE categoryIdL #-}</span><span>
|
||||
</span><a name="line-168"></a><span>
|
||||
</span><a name="line-169"></a><span class="hs-comment">-- | 'categoryName' Lens</span><span>
|
||||
</span><a name="line-170"></a><span class="hs-identifier">categoryNameL</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.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-171"></a><a name="categoryNameL"><a href="SwaggerPetstore.ModelLens.html#categoryNameL"><span class="hs-identifier">categoryNameL</span></a></a><span> </span><a name="local-6989586621679148328"><a href="#local-6989586621679148328"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148331"><a href="#local-6989586621679148331"><span class="hs-identifier">categoryName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148331"><span class="hs-identifier hs-var">categoryName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148328"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148330"><span class="hs-identifier hs-var">categoryName</span></a><span>
|
||||
</span><a name="line-171"></a><a name="categoryNameL"><a href="SwaggerPetstore.ModelLens.html#categoryNameL"><span class="hs-identifier">categoryNameL</span></a></a><span> </span><a name="local-6989586621679148613"><a href="#local-6989586621679148613"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148616"><a href="#local-6989586621679148616"><span class="hs-identifier">categoryName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-var">Category</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148616"><span class="hs-identifier hs-var">categoryName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148613"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148615"><span class="hs-identifier hs-var">categoryName</span></a><span>
|
||||
</span><a name="line-172"></a><span class="hs-pragma">{-# INLINE categoryNameL #-}</span><span>
|
||||
</span><a name="line-173"></a><span>
|
||||
</span><a name="line-174"></a><span>
|
||||
@@ -177,7 +177,7 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-177"></a><span>
|
||||
</span><a name="line-178"></a><span class="hs-comment">-- | 'classModelClass' Lens</span><span>
|
||||
</span><a name="line-179"></a><span class="hs-identifier">classModelClassL</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.Model.html#ClassModel"><span class="hs-identifier hs-type">ClassModel</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-180"></a><a name="classModelClassL"><a href="SwaggerPetstore.ModelLens.html#classModelClassL"><span class="hs-identifier">classModelClassL</span></a></a><span> </span><a name="local-6989586621679148332"><a href="#local-6989586621679148332"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ClassModel"><span class="hs-identifier hs-var">ClassModel</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-6989586621679148334"><a href="#local-6989586621679148334"><span class="hs-identifier">classModelClass</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ClassModel"><span class="hs-identifier hs-var">ClassModel</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148334"><span class="hs-identifier hs-var">classModelClass</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148332"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148333"><span class="hs-identifier hs-var">classModelClass</span></a><span>
|
||||
</span><a name="line-180"></a><a name="classModelClassL"><a href="SwaggerPetstore.ModelLens.html#classModelClassL"><span class="hs-identifier">classModelClassL</span></a></a><span> </span><a name="local-6989586621679148617"><a href="#local-6989586621679148617"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ClassModel"><span class="hs-identifier hs-var">ClassModel</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-6989586621679148619"><a href="#local-6989586621679148619"><span class="hs-identifier">classModelClass</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ClassModel"><span class="hs-identifier hs-var">ClassModel</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148619"><span class="hs-identifier hs-var">classModelClass</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148617"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148618"><span class="hs-identifier hs-var">classModelClass</span></a><span>
|
||||
</span><a name="line-181"></a><span class="hs-pragma">{-# INLINE classModelClassL #-}</span><span>
|
||||
</span><a name="line-182"></a><span>
|
||||
</span><a name="line-183"></a><span>
|
||||
@@ -186,7 +186,7 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-186"></a><span>
|
||||
</span><a name="line-187"></a><span class="hs-comment">-- | 'clientClient' Lens</span><span>
|
||||
</span><a name="line-188"></a><span class="hs-identifier">clientClientL</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.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-189"></a><a name="clientClientL"><a href="SwaggerPetstore.ModelLens.html#clientClientL"><span class="hs-identifier">clientClientL</span></a></a><span> </span><a name="local-6989586621679148335"><a href="#local-6989586621679148335"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-var">Client</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-6989586621679148337"><a href="#local-6989586621679148337"><span class="hs-identifier">clientClient</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-var">Client</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148337"><span class="hs-identifier hs-var">clientClient</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148335"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148336"><span class="hs-identifier hs-var">clientClient</span></a><span>
|
||||
</span><a name="line-189"></a><a name="clientClientL"><a href="SwaggerPetstore.ModelLens.html#clientClientL"><span class="hs-identifier">clientClientL</span></a></a><span> </span><a name="local-6989586621679148620"><a href="#local-6989586621679148620"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-var">Client</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-6989586621679148622"><a href="#local-6989586621679148622"><span class="hs-identifier">clientClient</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Client"><span class="hs-identifier hs-var">Client</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148622"><span class="hs-identifier hs-var">clientClient</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148620"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148621"><span class="hs-identifier hs-var">clientClient</span></a><span>
|
||||
</span><a name="line-190"></a><span class="hs-pragma">{-# INLINE clientClientL #-}</span><span>
|
||||
</span><a name="line-191"></a><span>
|
||||
</span><a name="line-192"></a><span>
|
||||
@@ -195,12 +195,12 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-195"></a><span>
|
||||
</span><a name="line-196"></a><span class="hs-comment">-- | 'enumArraysJustSymbol' Lens</span><span>
|
||||
</span><a name="line-197"></a><span class="hs-identifier">enumArraysJustSymbolL</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.Model.html#EnumArrays"><span class="hs-identifier hs-type">EnumArrays</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#E%27JustSymbol"><span class="hs-identifier hs-type">E'JustSymbol</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-198"></a><a name="enumArraysJustSymbolL"><a href="SwaggerPetstore.ModelLens.html#enumArraysJustSymbolL"><span class="hs-identifier">enumArraysJustSymbolL</span></a></a><span> </span><a name="local-6989586621679148338"><a href="#local-6989586621679148338"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</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-6989586621679148341"><a href="#local-6989586621679148341"><span class="hs-identifier">enumArraysJustSymbol</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148341"><span class="hs-identifier hs-var">enumArraysJustSymbol</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148338"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148339"><span class="hs-identifier hs-var">enumArraysJustSymbol</span></a><span>
|
||||
</span><a name="line-198"></a><a name="enumArraysJustSymbolL"><a href="SwaggerPetstore.ModelLens.html#enumArraysJustSymbolL"><span class="hs-identifier">enumArraysJustSymbolL</span></a></a><span> </span><a name="local-6989586621679148623"><a href="#local-6989586621679148623"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</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-6989586621679148626"><a href="#local-6989586621679148626"><span class="hs-identifier">enumArraysJustSymbol</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148626"><span class="hs-identifier hs-var">enumArraysJustSymbol</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148623"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148624"><span class="hs-identifier hs-var">enumArraysJustSymbol</span></a><span>
|
||||
</span><a name="line-199"></a><span class="hs-pragma">{-# INLINE enumArraysJustSymbolL #-}</span><span>
|
||||
</span><a name="line-200"></a><span>
|
||||
</span><a name="line-201"></a><span class="hs-comment">-- | 'enumArraysArrayEnum' Lens</span><span>
|
||||
</span><a name="line-202"></a><span class="hs-identifier">enumArraysArrayEnumL</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.Model.html#EnumArrays"><span class="hs-identifier hs-type">EnumArrays</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#E%27ArrayEnum"><span class="hs-identifier hs-type">E'ArrayEnum</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-203"></a><a name="enumArraysArrayEnumL"><a href="SwaggerPetstore.ModelLens.html#enumArraysArrayEnumL"><span class="hs-identifier">enumArraysArrayEnumL</span></a></a><span> </span><a name="local-6989586621679148342"><a href="#local-6989586621679148342"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</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-6989586621679148345"><a href="#local-6989586621679148345"><span class="hs-identifier">enumArraysArrayEnum</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148345"><span class="hs-identifier hs-var">enumArraysArrayEnum</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148342"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148344"><span class="hs-identifier hs-var">enumArraysArrayEnum</span></a><span>
|
||||
</span><a name="line-203"></a><a name="enumArraysArrayEnumL"><a href="SwaggerPetstore.ModelLens.html#enumArraysArrayEnumL"><span class="hs-identifier">enumArraysArrayEnumL</span></a></a><span> </span><a name="local-6989586621679148627"><a href="#local-6989586621679148627"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</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-6989586621679148630"><a href="#local-6989586621679148630"><span class="hs-identifier">enumArraysArrayEnum</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumArrays"><span class="hs-identifier hs-var">EnumArrays</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148630"><span class="hs-identifier hs-var">enumArraysArrayEnum</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148627"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148629"><span class="hs-identifier hs-var">enumArraysArrayEnum</span></a><span>
|
||||
</span><a name="line-204"></a><span class="hs-pragma">{-# INLINE enumArraysArrayEnumL #-}</span><span>
|
||||
</span><a name="line-205"></a><span>
|
||||
</span><a name="line-206"></a><span>
|
||||
@@ -213,22 +213,22 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-213"></a><span>
|
||||
</span><a name="line-214"></a><span class="hs-comment">-- | 'enumTestEnumString' Lens</span><span>
|
||||
</span><a name="line-215"></a><span class="hs-identifier">enumTestEnumStringL</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.Model.html#EnumTest"><span class="hs-identifier hs-type">EnumTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#E%27EnumString"><span class="hs-identifier hs-type">E'EnumString</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-216"></a><a name="enumTestEnumStringL"><a href="SwaggerPetstore.ModelLens.html#enumTestEnumStringL"><span class="hs-identifier">enumTestEnumStringL</span></a></a><span> </span><a name="local-6989586621679148346"><a href="#local-6989586621679148346"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</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-6989586621679148351"><a href="#local-6989586621679148351"><span class="hs-identifier">enumTestEnumString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148351"><span class="hs-identifier hs-var">enumTestEnumString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148346"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148347"><span class="hs-identifier hs-var">enumTestEnumString</span></a><span>
|
||||
</span><a name="line-216"></a><a name="enumTestEnumStringL"><a href="SwaggerPetstore.ModelLens.html#enumTestEnumStringL"><span class="hs-identifier">enumTestEnumStringL</span></a></a><span> </span><a name="local-6989586621679148631"><a href="#local-6989586621679148631"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</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-6989586621679148636"><a href="#local-6989586621679148636"><span class="hs-identifier">enumTestEnumString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148636"><span class="hs-identifier hs-var">enumTestEnumString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148631"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148632"><span class="hs-identifier hs-var">enumTestEnumString</span></a><span>
|
||||
</span><a name="line-217"></a><span class="hs-pragma">{-# INLINE enumTestEnumStringL #-}</span><span>
|
||||
</span><a name="line-218"></a><span>
|
||||
</span><a name="line-219"></a><span class="hs-comment">-- | 'enumTestEnumInteger' Lens</span><span>
|
||||
</span><a name="line-220"></a><span class="hs-identifier">enumTestEnumIntegerL</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.Model.html#EnumTest"><span class="hs-identifier hs-type">EnumTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#E%27EnumInteger"><span class="hs-identifier hs-type">E'EnumInteger</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-221"></a><a name="enumTestEnumIntegerL"><a href="SwaggerPetstore.ModelLens.html#enumTestEnumIntegerL"><span class="hs-identifier">enumTestEnumIntegerL</span></a></a><span> </span><a name="local-6989586621679148352"><a href="#local-6989586621679148352"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</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-6989586621679148357"><a href="#local-6989586621679148357"><span class="hs-identifier">enumTestEnumInteger</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148357"><span class="hs-identifier hs-var">enumTestEnumInteger</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148352"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148354"><span class="hs-identifier hs-var">enumTestEnumInteger</span></a><span>
|
||||
</span><a name="line-221"></a><a name="enumTestEnumIntegerL"><a href="SwaggerPetstore.ModelLens.html#enumTestEnumIntegerL"><span class="hs-identifier">enumTestEnumIntegerL</span></a></a><span> </span><a name="local-6989586621679148637"><a href="#local-6989586621679148637"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</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-6989586621679148642"><a href="#local-6989586621679148642"><span class="hs-identifier">enumTestEnumInteger</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148642"><span class="hs-identifier hs-var">enumTestEnumInteger</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148637"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148639"><span class="hs-identifier hs-var">enumTestEnumInteger</span></a><span>
|
||||
</span><a name="line-222"></a><span class="hs-pragma">{-# INLINE enumTestEnumIntegerL #-}</span><span>
|
||||
</span><a name="line-223"></a><span>
|
||||
</span><a name="line-224"></a><span class="hs-comment">-- | 'enumTestEnumNumber' Lens</span><span>
|
||||
</span><a name="line-225"></a><span class="hs-identifier">enumTestEnumNumberL</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.Model.html#EnumTest"><span class="hs-identifier hs-type">EnumTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#E%27EnumNumber"><span class="hs-identifier hs-type">E'EnumNumber</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-226"></a><a name="enumTestEnumNumberL"><a href="SwaggerPetstore.ModelLens.html#enumTestEnumNumberL"><span class="hs-identifier">enumTestEnumNumberL</span></a></a><span> </span><a name="local-6989586621679148358"><a href="#local-6989586621679148358"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</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-6989586621679148363"><a href="#local-6989586621679148363"><span class="hs-identifier">enumTestEnumNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148363"><span class="hs-identifier hs-var">enumTestEnumNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148358"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148361"><span class="hs-identifier hs-var">enumTestEnumNumber</span></a><span>
|
||||
</span><a name="line-226"></a><a name="enumTestEnumNumberL"><a href="SwaggerPetstore.ModelLens.html#enumTestEnumNumberL"><span class="hs-identifier">enumTestEnumNumberL</span></a></a><span> </span><a name="local-6989586621679148643"><a href="#local-6989586621679148643"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</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-6989586621679148648"><a href="#local-6989586621679148648"><span class="hs-identifier">enumTestEnumNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148648"><span class="hs-identifier hs-var">enumTestEnumNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148643"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148646"><span class="hs-identifier hs-var">enumTestEnumNumber</span></a><span>
|
||||
</span><a name="line-227"></a><span class="hs-pragma">{-# INLINE enumTestEnumNumberL #-}</span><span>
|
||||
</span><a name="line-228"></a><span>
|
||||
</span><a name="line-229"></a><span class="hs-comment">-- | 'enumTestOuterEnum' Lens</span><span>
|
||||
</span><a name="line-230"></a><span class="hs-identifier">enumTestOuterEnumL</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.Model.html#EnumTest"><span class="hs-identifier hs-type">EnumTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#OuterEnum"><span class="hs-identifier hs-type">OuterEnum</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-231"></a><a name="enumTestOuterEnumL"><a href="SwaggerPetstore.ModelLens.html#enumTestOuterEnumL"><span class="hs-identifier">enumTestOuterEnumL</span></a></a><span> </span><a name="local-6989586621679148364"><a href="#local-6989586621679148364"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</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-6989586621679148369"><a href="#local-6989586621679148369"><span class="hs-identifier">enumTestOuterEnum</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148369"><span class="hs-identifier hs-var">enumTestOuterEnum</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148364"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148368"><span class="hs-identifier hs-var">enumTestOuterEnum</span></a><span>
|
||||
</span><a name="line-231"></a><a name="enumTestOuterEnumL"><a href="SwaggerPetstore.ModelLens.html#enumTestOuterEnumL"><span class="hs-identifier">enumTestOuterEnumL</span></a></a><span> </span><a name="local-6989586621679148649"><a href="#local-6989586621679148649"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</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-6989586621679148654"><a href="#local-6989586621679148654"><span class="hs-identifier">enumTestOuterEnum</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#EnumTest"><span class="hs-identifier hs-var">EnumTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148654"><span class="hs-identifier hs-var">enumTestOuterEnum</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148649"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148653"><span class="hs-identifier hs-var">enumTestOuterEnum</span></a><span>
|
||||
</span><a name="line-232"></a><span class="hs-pragma">{-# INLINE enumTestOuterEnumL #-}</span><span>
|
||||
</span><a name="line-233"></a><span>
|
||||
</span><a name="line-234"></a><span>
|
||||
@@ -237,67 +237,67 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-237"></a><span>
|
||||
</span><a name="line-238"></a><span class="hs-comment">-- | 'formatTestInteger' Lens</span><span>
|
||||
</span><a name="line-239"></a><span class="hs-identifier">formatTestIntegerL</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.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-240"></a><a name="formatTestIntegerL"><a href="SwaggerPetstore.ModelLens.html#formatTestIntegerL"><span class="hs-identifier">formatTestIntegerL</span></a></a><span> </span><a name="local-6989586621679148370"><a href="#local-6989586621679148370"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148384"><a href="#local-6989586621679148384"><span class="hs-identifier">formatTestInteger</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148384"><span class="hs-identifier hs-var">formatTestInteger</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148370"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148371"><span class="hs-identifier hs-var">formatTestInteger</span></a><span>
|
||||
</span><a name="line-240"></a><a name="formatTestIntegerL"><a href="SwaggerPetstore.ModelLens.html#formatTestIntegerL"><span class="hs-identifier">formatTestIntegerL</span></a></a><span> </span><a name="local-6989586621679148655"><a href="#local-6989586621679148655"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148669"><a href="#local-6989586621679148669"><span class="hs-identifier">formatTestInteger</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148669"><span class="hs-identifier hs-var">formatTestInteger</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148655"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148656"><span class="hs-identifier hs-var">formatTestInteger</span></a><span>
|
||||
</span><a name="line-241"></a><span class="hs-pragma">{-# INLINE formatTestIntegerL #-}</span><span>
|
||||
</span><a name="line-242"></a><span>
|
||||
</span><a name="line-243"></a><span class="hs-comment">-- | 'formatTestInt32' Lens</span><span>
|
||||
</span><a name="line-244"></a><span class="hs-identifier">formatTestInt32L</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.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-245"></a><a name="formatTestInt32L"><a href="SwaggerPetstore.ModelLens.html#formatTestInt32L"><span class="hs-identifier">formatTestInt32L</span></a></a><span> </span><a name="local-6989586621679148385"><a href="#local-6989586621679148385"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148399"><a href="#local-6989586621679148399"><span class="hs-identifier">formatTestInt32</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148399"><span class="hs-identifier hs-var">formatTestInt32</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148385"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148387"><span class="hs-identifier hs-var">formatTestInt32</span></a><span>
|
||||
</span><a name="line-245"></a><a name="formatTestInt32L"><a href="SwaggerPetstore.ModelLens.html#formatTestInt32L"><span class="hs-identifier">formatTestInt32L</span></a></a><span> </span><a name="local-6989586621679148670"><a href="#local-6989586621679148670"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148684"><a href="#local-6989586621679148684"><span class="hs-identifier">formatTestInt32</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148684"><span class="hs-identifier hs-var">formatTestInt32</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148670"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148672"><span class="hs-identifier hs-var">formatTestInt32</span></a><span>
|
||||
</span><a name="line-246"></a><span class="hs-pragma">{-# INLINE formatTestInt32L #-}</span><span>
|
||||
</span><a name="line-247"></a><span>
|
||||
</span><a name="line-248"></a><span class="hs-comment">-- | 'formatTestInt64' Lens</span><span>
|
||||
</span><a name="line-249"></a><span class="hs-identifier">formatTestInt64L</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.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-250"></a><a name="formatTestInt64L"><a href="SwaggerPetstore.ModelLens.html#formatTestInt64L"><span class="hs-identifier">formatTestInt64L</span></a></a><span> </span><a name="local-6989586621679148400"><a href="#local-6989586621679148400"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148414"><a href="#local-6989586621679148414"><span class="hs-identifier">formatTestInt64</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148414"><span class="hs-identifier hs-var">formatTestInt64</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148400"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148403"><span class="hs-identifier hs-var">formatTestInt64</span></a><span>
|
||||
</span><a name="line-250"></a><a name="formatTestInt64L"><a href="SwaggerPetstore.ModelLens.html#formatTestInt64L"><span class="hs-identifier">formatTestInt64L</span></a></a><span> </span><a name="local-6989586621679148685"><a href="#local-6989586621679148685"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148699"><a href="#local-6989586621679148699"><span class="hs-identifier">formatTestInt64</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148699"><span class="hs-identifier hs-var">formatTestInt64</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148685"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148688"><span class="hs-identifier hs-var">formatTestInt64</span></a><span>
|
||||
</span><a name="line-251"></a><span class="hs-pragma">{-# INLINE formatTestInt64L #-}</span><span>
|
||||
</span><a name="line-252"></a><span>
|
||||
</span><a name="line-253"></a><span class="hs-comment">-- | 'formatTestNumber' Lens</span><span>
|
||||
</span><a name="line-254"></a><span class="hs-identifier">formatTestNumberL</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.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-255"></a><a name="formatTestNumberL"><a href="SwaggerPetstore.ModelLens.html#formatTestNumberL"><span class="hs-identifier">formatTestNumberL</span></a></a><span> </span><a name="local-6989586621679148415"><a href="#local-6989586621679148415"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148429"><a href="#local-6989586621679148429"><span class="hs-identifier">formatTestNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148429"><span class="hs-identifier hs-var">formatTestNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148415"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148419"><span class="hs-identifier hs-var">formatTestNumber</span></a><span>
|
||||
</span><a name="line-255"></a><a name="formatTestNumberL"><a href="SwaggerPetstore.ModelLens.html#formatTestNumberL"><span class="hs-identifier">formatTestNumberL</span></a></a><span> </span><a name="local-6989586621679148700"><a href="#local-6989586621679148700"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148714"><a href="#local-6989586621679148714"><span class="hs-identifier">formatTestNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148714"><span class="hs-identifier hs-var">formatTestNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148700"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148704"><span class="hs-identifier hs-var">formatTestNumber</span></a><span>
|
||||
</span><a name="line-256"></a><span class="hs-pragma">{-# INLINE formatTestNumberL #-}</span><span>
|
||||
</span><a name="line-257"></a><span>
|
||||
</span><a name="line-258"></a><span class="hs-comment">-- | 'formatTestFloat' Lens</span><span>
|
||||
</span><a name="line-259"></a><span class="hs-identifier">formatTestFloatL</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.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Float</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-260"></a><a name="formatTestFloatL"><a href="SwaggerPetstore.ModelLens.html#formatTestFloatL"><span class="hs-identifier">formatTestFloatL</span></a></a><span> </span><a name="local-6989586621679148430"><a href="#local-6989586621679148430"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148444"><a href="#local-6989586621679148444"><span class="hs-identifier">formatTestFloat</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148444"><span class="hs-identifier hs-var">formatTestFloat</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148430"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148435"><span class="hs-identifier hs-var">formatTestFloat</span></a><span>
|
||||
</span><a name="line-260"></a><a name="formatTestFloatL"><a href="SwaggerPetstore.ModelLens.html#formatTestFloatL"><span class="hs-identifier">formatTestFloatL</span></a></a><span> </span><a name="local-6989586621679148715"><a href="#local-6989586621679148715"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148729"><a href="#local-6989586621679148729"><span class="hs-identifier">formatTestFloat</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148729"><span class="hs-identifier hs-var">formatTestFloat</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148715"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148720"><span class="hs-identifier hs-var">formatTestFloat</span></a><span>
|
||||
</span><a name="line-261"></a><span class="hs-pragma">{-# INLINE formatTestFloatL #-}</span><span>
|
||||
</span><a name="line-262"></a><span>
|
||||
</span><a name="line-263"></a><span class="hs-comment">-- | 'formatTestDouble' Lens</span><span>
|
||||
</span><a name="line-264"></a><span class="hs-identifier">formatTestDoubleL</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.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Double</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-265"></a><a name="formatTestDoubleL"><a href="SwaggerPetstore.ModelLens.html#formatTestDoubleL"><span class="hs-identifier">formatTestDoubleL</span></a></a><span> </span><a name="local-6989586621679148445"><a href="#local-6989586621679148445"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148459"><a href="#local-6989586621679148459"><span class="hs-identifier">formatTestDouble</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148459"><span class="hs-identifier hs-var">formatTestDouble</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148445"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148451"><span class="hs-identifier hs-var">formatTestDouble</span></a><span>
|
||||
</span><a name="line-265"></a><a name="formatTestDoubleL"><a href="SwaggerPetstore.ModelLens.html#formatTestDoubleL"><span class="hs-identifier">formatTestDoubleL</span></a></a><span> </span><a name="local-6989586621679148730"><a href="#local-6989586621679148730"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148744"><a href="#local-6989586621679148744"><span class="hs-identifier">formatTestDouble</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148744"><span class="hs-identifier hs-var">formatTestDouble</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148730"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148736"><span class="hs-identifier hs-var">formatTestDouble</span></a><span>
|
||||
</span><a name="line-266"></a><span class="hs-pragma">{-# INLINE formatTestDoubleL #-}</span><span>
|
||||
</span><a name="line-267"></a><span>
|
||||
</span><a name="line-268"></a><span class="hs-comment">-- | 'formatTestString' Lens</span><span>
|
||||
</span><a name="line-269"></a><span class="hs-identifier">formatTestStringL</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.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-270"></a><a name="formatTestStringL"><a href="SwaggerPetstore.ModelLens.html#formatTestStringL"><span class="hs-identifier">formatTestStringL</span></a></a><span> </span><a name="local-6989586621679148460"><a href="#local-6989586621679148460"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148474"><a href="#local-6989586621679148474"><span class="hs-identifier">formatTestString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148474"><span class="hs-identifier hs-var">formatTestString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148460"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148467"><span class="hs-identifier hs-var">formatTestString</span></a><span>
|
||||
</span><a name="line-270"></a><a name="formatTestStringL"><a href="SwaggerPetstore.ModelLens.html#formatTestStringL"><span class="hs-identifier">formatTestStringL</span></a></a><span> </span><a name="local-6989586621679148745"><a href="#local-6989586621679148745"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148759"><a href="#local-6989586621679148759"><span class="hs-identifier">formatTestString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148759"><span class="hs-identifier hs-var">formatTestString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148745"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148752"><span class="hs-identifier hs-var">formatTestString</span></a><span>
|
||||
</span><a name="line-271"></a><span class="hs-pragma">{-# INLINE formatTestStringL #-}</span><span>
|
||||
</span><a name="line-272"></a><span>
|
||||
</span><a name="line-273"></a><span class="hs-comment">-- | 'formatTestByte' Lens</span><span>
|
||||
</span><a name="line-274"></a><span class="hs-identifier">formatTestByteL</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.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#ByteArray"><span class="hs-identifier hs-type">ByteArray</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-275"></a><a name="formatTestByteL"><a href="SwaggerPetstore.ModelLens.html#formatTestByteL"><span class="hs-identifier">formatTestByteL</span></a></a><span> </span><a name="local-6989586621679148475"><a href="#local-6989586621679148475"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148489"><a href="#local-6989586621679148489"><span class="hs-identifier">formatTestByte</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148489"><span class="hs-identifier hs-var">formatTestByte</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148475"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148483"><span class="hs-identifier hs-var">formatTestByte</span></a><span>
|
||||
</span><a name="line-275"></a><a name="formatTestByteL"><a href="SwaggerPetstore.ModelLens.html#formatTestByteL"><span class="hs-identifier">formatTestByteL</span></a></a><span> </span><a name="local-6989586621679148760"><a href="#local-6989586621679148760"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148774"><a href="#local-6989586621679148774"><span class="hs-identifier">formatTestByte</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148774"><span class="hs-identifier hs-var">formatTestByte</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148760"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148768"><span class="hs-identifier hs-var">formatTestByte</span></a><span>
|
||||
</span><a name="line-276"></a><span class="hs-pragma">{-# INLINE formatTestByteL #-}</span><span>
|
||||
</span><a name="line-277"></a><span>
|
||||
</span><a name="line-278"></a><span class="hs-comment">-- | 'formatTestBinary' Lens</span><span>
|
||||
</span><a name="line-279"></a><span class="hs-identifier">formatTestBinaryL</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.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Core.html#Binary"><span class="hs-identifier hs-type">Binary</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-280"></a><a name="formatTestBinaryL"><a href="SwaggerPetstore.ModelLens.html#formatTestBinaryL"><span class="hs-identifier">formatTestBinaryL</span></a></a><span> </span><a name="local-6989586621679148490"><a href="#local-6989586621679148490"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148504"><a href="#local-6989586621679148504"><span class="hs-identifier">formatTestBinary</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148504"><span class="hs-identifier hs-var">formatTestBinary</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148490"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148499"><span class="hs-identifier hs-var">formatTestBinary</span></a><span>
|
||||
</span><a name="line-280"></a><a name="formatTestBinaryL"><a href="SwaggerPetstore.ModelLens.html#formatTestBinaryL"><span class="hs-identifier">formatTestBinaryL</span></a></a><span> </span><a name="local-6989586621679148775"><a href="#local-6989586621679148775"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148789"><a href="#local-6989586621679148789"><span class="hs-identifier">formatTestBinary</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148789"><span class="hs-identifier hs-var">formatTestBinary</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148775"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148784"><span class="hs-identifier hs-var">formatTestBinary</span></a><span>
|
||||
</span><a name="line-281"></a><span class="hs-pragma">{-# INLINE formatTestBinaryL #-}</span><span>
|
||||
</span><a name="line-282"></a><span>
|
||||
</span><a name="line-283"></a><span class="hs-comment">-- | 'formatTestDate' Lens</span><span>
|
||||
</span><a name="line-284"></a><span class="hs-identifier">formatTestDateL</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.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><a href="SwaggerPetstore.Core.html#Date"><span class="hs-identifier hs-type">Date</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-285"></a><a name="formatTestDateL"><a href="SwaggerPetstore.ModelLens.html#formatTestDateL"><span class="hs-identifier">formatTestDateL</span></a></a><span> </span><a name="local-6989586621679148505"><a href="#local-6989586621679148505"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148519"><a href="#local-6989586621679148519"><span class="hs-identifier">formatTestDate</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148519"><span class="hs-identifier hs-var">formatTestDate</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148505"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148515"><span class="hs-identifier hs-var">formatTestDate</span></a><span>
|
||||
</span><a name="line-285"></a><a name="formatTestDateL"><a href="SwaggerPetstore.ModelLens.html#formatTestDateL"><span class="hs-identifier">formatTestDateL</span></a></a><span> </span><a name="local-6989586621679148790"><a href="#local-6989586621679148790"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148804"><a href="#local-6989586621679148804"><span class="hs-identifier">formatTestDate</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148804"><span class="hs-identifier hs-var">formatTestDate</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148790"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148800"><span class="hs-identifier hs-var">formatTestDate</span></a><span>
|
||||
</span><a name="line-286"></a><span class="hs-pragma">{-# INLINE formatTestDateL #-}</span><span>
|
||||
</span><a name="line-287"></a><span>
|
||||
</span><a name="line-288"></a><span class="hs-comment">-- | 'formatTestDateTime' Lens</span><span>
|
||||
</span><a name="line-289"></a><span class="hs-identifier">formatTestDateTimeL</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.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-290"></a><a name="formatTestDateTimeL"><a href="SwaggerPetstore.ModelLens.html#formatTestDateTimeL"><span class="hs-identifier">formatTestDateTimeL</span></a></a><span> </span><a name="local-6989586621679148520"><a href="#local-6989586621679148520"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148534"><a href="#local-6989586621679148534"><span class="hs-identifier">formatTestDateTime</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148534"><span class="hs-identifier hs-var">formatTestDateTime</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148520"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148531"><span class="hs-identifier hs-var">formatTestDateTime</span></a><span>
|
||||
</span><a name="line-290"></a><a name="formatTestDateTimeL"><a href="SwaggerPetstore.ModelLens.html#formatTestDateTimeL"><span class="hs-identifier">formatTestDateTimeL</span></a></a><span> </span><a name="local-6989586621679148805"><a href="#local-6989586621679148805"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148819"><a href="#local-6989586621679148819"><span class="hs-identifier">formatTestDateTime</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148819"><span class="hs-identifier hs-var">formatTestDateTime</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148805"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148816"><span class="hs-identifier hs-var">formatTestDateTime</span></a><span>
|
||||
</span><a name="line-291"></a><span class="hs-pragma">{-# INLINE formatTestDateTimeL #-}</span><span>
|
||||
</span><a name="line-292"></a><span>
|
||||
</span><a name="line-293"></a><span class="hs-comment">-- | 'formatTestUuid' Lens</span><span>
|
||||
</span><a name="line-294"></a><span class="hs-identifier">formatTestUuidL</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.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-295"></a><a name="formatTestUuidL"><a href="SwaggerPetstore.ModelLens.html#formatTestUuidL"><span class="hs-identifier">formatTestUuidL</span></a></a><span> </span><a name="local-6989586621679148535"><a href="#local-6989586621679148535"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148549"><a href="#local-6989586621679148549"><span class="hs-identifier">formatTestUuid</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148549"><span class="hs-identifier hs-var">formatTestUuid</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148535"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148547"><span class="hs-identifier hs-var">formatTestUuid</span></a><span>
|
||||
</span><a name="line-295"></a><a name="formatTestUuidL"><a href="SwaggerPetstore.ModelLens.html#formatTestUuidL"><span class="hs-identifier">formatTestUuidL</span></a></a><span> </span><a name="local-6989586621679148820"><a href="#local-6989586621679148820"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148834"><a href="#local-6989586621679148834"><span class="hs-identifier">formatTestUuid</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148834"><span class="hs-identifier hs-var">formatTestUuid</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148820"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148832"><span class="hs-identifier hs-var">formatTestUuid</span></a><span>
|
||||
</span><a name="line-296"></a><span class="hs-pragma">{-# INLINE formatTestUuidL #-}</span><span>
|
||||
</span><a name="line-297"></a><span>
|
||||
</span><a name="line-298"></a><span class="hs-comment">-- | 'formatTestPassword' Lens</span><span>
|
||||
</span><a name="line-299"></a><span class="hs-identifier">formatTestPasswordL</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.Model.html#FormatTest"><span class="hs-identifier hs-type">FormatTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-300"></a><a name="formatTestPasswordL"><a href="SwaggerPetstore.ModelLens.html#formatTestPasswordL"><span class="hs-identifier">formatTestPasswordL</span></a></a><span> </span><a name="local-6989586621679148550"><a href="#local-6989586621679148550"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148564"><a href="#local-6989586621679148564"><span class="hs-identifier">formatTestPassword</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148564"><span class="hs-identifier hs-var">formatTestPassword</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148550"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148563"><span class="hs-identifier hs-var">formatTestPassword</span></a><span>
|
||||
</span><a name="line-300"></a><a name="formatTestPasswordL"><a href="SwaggerPetstore.ModelLens.html#formatTestPasswordL"><span class="hs-identifier">formatTestPasswordL</span></a></a><span> </span><a name="local-6989586621679148835"><a href="#local-6989586621679148835"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</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-6989586621679148849"><a href="#local-6989586621679148849"><span class="hs-identifier">formatTestPassword</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#FormatTest"><span class="hs-identifier hs-var">FormatTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148849"><span class="hs-identifier hs-var">formatTestPassword</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148835"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148848"><span class="hs-identifier hs-var">formatTestPassword</span></a><span>
|
||||
</span><a name="line-301"></a><span class="hs-pragma">{-# INLINE formatTestPasswordL #-}</span><span>
|
||||
</span><a name="line-302"></a><span>
|
||||
</span><a name="line-303"></a><span>
|
||||
@@ -306,12 +306,12 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-306"></a><span>
|
||||
</span><a name="line-307"></a><span class="hs-comment">-- | 'hasOnlyReadOnlyBar' Lens</span><span>
|
||||
</span><a name="line-308"></a><span class="hs-identifier">hasOnlyReadOnlyBarL</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.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-type">HasOnlyReadOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-309"></a><a name="hasOnlyReadOnlyBarL"><a href="SwaggerPetstore.ModelLens.html#hasOnlyReadOnlyBarL"><span class="hs-identifier">hasOnlyReadOnlyBarL</span></a></a><span> </span><a name="local-6989586621679148565"><a href="#local-6989586621679148565"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</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-6989586621679148568"><a href="#local-6989586621679148568"><span class="hs-identifier">hasOnlyReadOnlyBar</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148568"><span class="hs-identifier hs-var">hasOnlyReadOnlyBar</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148565"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148566"><span class="hs-identifier hs-var">hasOnlyReadOnlyBar</span></a><span>
|
||||
</span><a name="line-309"></a><a name="hasOnlyReadOnlyBarL"><a href="SwaggerPetstore.ModelLens.html#hasOnlyReadOnlyBarL"><span class="hs-identifier">hasOnlyReadOnlyBarL</span></a></a><span> </span><a name="local-6989586621679148850"><a href="#local-6989586621679148850"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</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-6989586621679148853"><a href="#local-6989586621679148853"><span class="hs-identifier">hasOnlyReadOnlyBar</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148853"><span class="hs-identifier hs-var">hasOnlyReadOnlyBar</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148850"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148851"><span class="hs-identifier hs-var">hasOnlyReadOnlyBar</span></a><span>
|
||||
</span><a name="line-310"></a><span class="hs-pragma">{-# INLINE hasOnlyReadOnlyBarL #-}</span><span>
|
||||
</span><a name="line-311"></a><span>
|
||||
</span><a name="line-312"></a><span class="hs-comment">-- | 'hasOnlyReadOnlyFoo' Lens</span><span>
|
||||
</span><a name="line-313"></a><span class="hs-identifier">hasOnlyReadOnlyFooL</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.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-type">HasOnlyReadOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-314"></a><a name="hasOnlyReadOnlyFooL"><a href="SwaggerPetstore.ModelLens.html#hasOnlyReadOnlyFooL"><span class="hs-identifier">hasOnlyReadOnlyFooL</span></a></a><span> </span><a name="local-6989586621679148569"><a href="#local-6989586621679148569"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</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-6989586621679148572"><a href="#local-6989586621679148572"><span class="hs-identifier">hasOnlyReadOnlyFoo</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148572"><span class="hs-identifier hs-var">hasOnlyReadOnlyFoo</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148569"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148571"><span class="hs-identifier hs-var">hasOnlyReadOnlyFoo</span></a><span>
|
||||
</span><a name="line-314"></a><a name="hasOnlyReadOnlyFooL"><a href="SwaggerPetstore.ModelLens.html#hasOnlyReadOnlyFooL"><span class="hs-identifier">hasOnlyReadOnlyFooL</span></a></a><span> </span><a name="local-6989586621679148854"><a href="#local-6989586621679148854"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</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-6989586621679148857"><a href="#local-6989586621679148857"><span class="hs-identifier">hasOnlyReadOnlyFoo</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#HasOnlyReadOnly"><span class="hs-identifier hs-var">HasOnlyReadOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148857"><span class="hs-identifier hs-var">hasOnlyReadOnlyFoo</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148854"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148856"><span class="hs-identifier hs-var">hasOnlyReadOnlyFoo</span></a><span>
|
||||
</span><a name="line-315"></a><span class="hs-pragma">{-# INLINE hasOnlyReadOnlyFooL #-}</span><span>
|
||||
</span><a name="line-316"></a><span>
|
||||
</span><a name="line-317"></a><span>
|
||||
@@ -320,12 +320,12 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-320"></a><span>
|
||||
</span><a name="line-321"></a><span class="hs-comment">-- | 'mapTestMapMapOfString' Lens</span><span>
|
||||
</span><a name="line-322"></a><span class="hs-identifier">mapTestMapMapOfStringL</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.Model.html#MapTest"><span class="hs-identifier hs-type">MapTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </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-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">Text</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-323"></a><a name="mapTestMapMapOfStringL"><a href="SwaggerPetstore.ModelLens.html#mapTestMapMapOfStringL"><span class="hs-identifier">mapTestMapMapOfStringL</span></a></a><span> </span><a name="local-6989586621679148573"><a href="#local-6989586621679148573"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</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-6989586621679148576"><a href="#local-6989586621679148576"><span class="hs-identifier">mapTestMapMapOfString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148576"><span class="hs-identifier hs-var">mapTestMapMapOfString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148573"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148574"><span class="hs-identifier hs-var">mapTestMapMapOfString</span></a><span>
|
||||
</span><a name="line-323"></a><a name="mapTestMapMapOfStringL"><a href="SwaggerPetstore.ModelLens.html#mapTestMapMapOfStringL"><span class="hs-identifier">mapTestMapMapOfStringL</span></a></a><span> </span><a name="local-6989586621679148858"><a href="#local-6989586621679148858"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</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-6989586621679148861"><a href="#local-6989586621679148861"><span class="hs-identifier">mapTestMapMapOfString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148861"><span class="hs-identifier hs-var">mapTestMapMapOfString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148858"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148859"><span class="hs-identifier hs-var">mapTestMapMapOfString</span></a><span>
|
||||
</span><a name="line-324"></a><span class="hs-pragma">{-# INLINE mapTestMapMapOfStringL #-}</span><span>
|
||||
</span><a name="line-325"></a><span>
|
||||
</span><a name="line-326"></a><span class="hs-comment">-- | 'mapTestMapOfEnumString' Lens</span><span>
|
||||
</span><a name="line-327"></a><span class="hs-identifier">mapTestMapOfEnumStringL</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.Model.html#MapTest"><span class="hs-identifier hs-type">MapTest</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </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><a href="SwaggerPetstore.Model.html#E%27Inner"><span class="hs-identifier hs-type">E'Inner</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-328"></a><a name="mapTestMapOfEnumStringL"><a href="SwaggerPetstore.ModelLens.html#mapTestMapOfEnumStringL"><span class="hs-identifier">mapTestMapOfEnumStringL</span></a></a><span> </span><a name="local-6989586621679148577"><a href="#local-6989586621679148577"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</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-6989586621679148580"><a href="#local-6989586621679148580"><span class="hs-identifier">mapTestMapOfEnumString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148580"><span class="hs-identifier hs-var">mapTestMapOfEnumString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148577"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148579"><span class="hs-identifier hs-var">mapTestMapOfEnumString</span></a><span>
|
||||
</span><a name="line-328"></a><a name="mapTestMapOfEnumStringL"><a href="SwaggerPetstore.ModelLens.html#mapTestMapOfEnumStringL"><span class="hs-identifier">mapTestMapOfEnumStringL</span></a></a><span> </span><a name="local-6989586621679148862"><a href="#local-6989586621679148862"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</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-6989586621679148865"><a href="#local-6989586621679148865"><span class="hs-identifier">mapTestMapOfEnumString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MapTest"><span class="hs-identifier hs-var">MapTest</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148865"><span class="hs-identifier hs-var">mapTestMapOfEnumString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148862"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148864"><span class="hs-identifier hs-var">mapTestMapOfEnumString</span></a><span>
|
||||
</span><a name="line-329"></a><span class="hs-pragma">{-# INLINE mapTestMapOfEnumStringL #-}</span><span>
|
||||
</span><a name="line-330"></a><span>
|
||||
</span><a name="line-331"></a><span>
|
||||
@@ -334,17 +334,17 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-334"></a><span>
|
||||
</span><a name="line-335"></a><span class="hs-comment">-- | 'mixedPropertiesAndAdditionalPropertiesClassUuid' Lens</span><span>
|
||||
</span><a name="line-336"></a><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassUuidL</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.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-type">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-337"></a><a name="mixedPropertiesAndAdditionalPropertiesClassUuidL"><a href="SwaggerPetstore.ModelLens.html#mixedPropertiesAndAdditionalPropertiesClassUuidL"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassUuidL</span></a></a><span> </span><a name="local-6989586621679148581"><a href="#local-6989586621679148581"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</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-6989586621679148585"><a href="#local-6989586621679148585"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassUuid</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148585"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassUuid</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148581"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148582"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassUuid</span></a><span>
|
||||
</span><a name="line-337"></a><a name="mixedPropertiesAndAdditionalPropertiesClassUuidL"><a href="SwaggerPetstore.ModelLens.html#mixedPropertiesAndAdditionalPropertiesClassUuidL"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassUuidL</span></a></a><span> </span><a name="local-6989586621679148866"><a href="#local-6989586621679148866"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</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-6989586621679148870"><a href="#local-6989586621679148870"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassUuid</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148870"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassUuid</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148866"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148867"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassUuid</span></a><span>
|
||||
</span><a name="line-338"></a><span class="hs-pragma">{-# INLINE mixedPropertiesAndAdditionalPropertiesClassUuidL #-}</span><span>
|
||||
</span><a name="line-339"></a><span>
|
||||
</span><a name="line-340"></a><span class="hs-comment">-- | 'mixedPropertiesAndAdditionalPropertiesClassDateTime' Lens</span><span>
|
||||
</span><a name="line-341"></a><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassDateTimeL</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.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-type">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-342"></a><a name="mixedPropertiesAndAdditionalPropertiesClassDateTimeL"><a href="SwaggerPetstore.ModelLens.html#mixedPropertiesAndAdditionalPropertiesClassDateTimeL"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassDateTimeL</span></a></a><span> </span><a name="local-6989586621679148586"><a href="#local-6989586621679148586"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</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-6989586621679148590"><a href="#local-6989586621679148590"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassDateTime</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148590"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassDateTime</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148586"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148588"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassDateTime</span></a><span>
|
||||
</span><a name="line-342"></a><a name="mixedPropertiesAndAdditionalPropertiesClassDateTimeL"><a href="SwaggerPetstore.ModelLens.html#mixedPropertiesAndAdditionalPropertiesClassDateTimeL"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassDateTimeL</span></a></a><span> </span><a name="local-6989586621679148871"><a href="#local-6989586621679148871"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</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-6989586621679148875"><a href="#local-6989586621679148875"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassDateTime</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148875"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassDateTime</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148871"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148873"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassDateTime</span></a><span>
|
||||
</span><a name="line-343"></a><span class="hs-pragma">{-# INLINE mixedPropertiesAndAdditionalPropertiesClassDateTimeL #-}</span><span>
|
||||
</span><a name="line-344"></a><span>
|
||||
</span><a name="line-345"></a><span class="hs-comment">-- | 'mixedPropertiesAndAdditionalPropertiesClassMap' Lens</span><span>
|
||||
</span><a name="line-346"></a><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassMapL</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.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-type">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </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><a href="SwaggerPetstore.Model.html#Animal"><span class="hs-identifier hs-type">Animal</span></a><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-347"></a><a name="mixedPropertiesAndAdditionalPropertiesClassMapL"><a href="SwaggerPetstore.ModelLens.html#mixedPropertiesAndAdditionalPropertiesClassMapL"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassMapL</span></a></a><span> </span><a name="local-6989586621679148591"><a href="#local-6989586621679148591"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</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-6989586621679148595"><a href="#local-6989586621679148595"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassMap</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148595"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassMap</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148591"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148594"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassMap</span></a><span>
|
||||
</span><a name="line-347"></a><a name="mixedPropertiesAndAdditionalPropertiesClassMapL"><a href="SwaggerPetstore.ModelLens.html#mixedPropertiesAndAdditionalPropertiesClassMapL"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassMapL</span></a></a><span> </span><a name="local-6989586621679148876"><a href="#local-6989586621679148876"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</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-6989586621679148880"><a href="#local-6989586621679148880"><span class="hs-identifier">mixedPropertiesAndAdditionalPropertiesClassMap</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#MixedPropertiesAndAdditionalPropertiesClass"><span class="hs-identifier hs-var">MixedPropertiesAndAdditionalPropertiesClass</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148880"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassMap</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148876"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148879"><span class="hs-identifier hs-var">mixedPropertiesAndAdditionalPropertiesClassMap</span></a><span>
|
||||
</span><a name="line-348"></a><span class="hs-pragma">{-# INLINE mixedPropertiesAndAdditionalPropertiesClassMapL #-}</span><span>
|
||||
</span><a name="line-349"></a><span>
|
||||
</span><a name="line-350"></a><span>
|
||||
@@ -353,12 +353,12 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-353"></a><span>
|
||||
</span><a name="line-354"></a><span class="hs-comment">-- | 'model200ResponseName' Lens</span><span>
|
||||
</span><a name="line-355"></a><span class="hs-identifier">model200ResponseNameL</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.Model.html#Model200Response"><span class="hs-identifier hs-type">Model200Response</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-356"></a><a name="model200ResponseNameL"><a href="SwaggerPetstore.ModelLens.html#model200ResponseNameL"><span class="hs-identifier">model200ResponseNameL</span></a></a><span> </span><a name="local-6989586621679148596"><a href="#local-6989586621679148596"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</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-6989586621679148599"><a href="#local-6989586621679148599"><span class="hs-identifier">model200ResponseName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148599"><span class="hs-identifier hs-var">model200ResponseName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148596"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148597"><span class="hs-identifier hs-var">model200ResponseName</span></a><span>
|
||||
</span><a name="line-356"></a><a name="model200ResponseNameL"><a href="SwaggerPetstore.ModelLens.html#model200ResponseNameL"><span class="hs-identifier">model200ResponseNameL</span></a></a><span> </span><a name="local-6989586621679148881"><a href="#local-6989586621679148881"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</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-6989586621679148884"><a href="#local-6989586621679148884"><span class="hs-identifier">model200ResponseName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148884"><span class="hs-identifier hs-var">model200ResponseName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148881"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148882"><span class="hs-identifier hs-var">model200ResponseName</span></a><span>
|
||||
</span><a name="line-357"></a><span class="hs-pragma">{-# INLINE model200ResponseNameL #-}</span><span>
|
||||
</span><a name="line-358"></a><span>
|
||||
</span><a name="line-359"></a><span class="hs-comment">-- | 'model200ResponseClass' Lens</span><span>
|
||||
</span><a name="line-360"></a><span class="hs-identifier">model200ResponseClassL</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.Model.html#Model200Response"><span class="hs-identifier hs-type">Model200Response</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-361"></a><a name="model200ResponseClassL"><a href="SwaggerPetstore.ModelLens.html#model200ResponseClassL"><span class="hs-identifier">model200ResponseClassL</span></a></a><span> </span><a name="local-6989586621679148600"><a href="#local-6989586621679148600"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</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-6989586621679148603"><a href="#local-6989586621679148603"><span class="hs-identifier">model200ResponseClass</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148603"><span class="hs-identifier hs-var">model200ResponseClass</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148600"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148602"><span class="hs-identifier hs-var">model200ResponseClass</span></a><span>
|
||||
</span><a name="line-361"></a><a name="model200ResponseClassL"><a href="SwaggerPetstore.ModelLens.html#model200ResponseClassL"><span class="hs-identifier">model200ResponseClassL</span></a></a><span> </span><a name="local-6989586621679148885"><a href="#local-6989586621679148885"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</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-6989586621679148888"><a href="#local-6989586621679148888"><span class="hs-identifier">model200ResponseClass</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Model200Response"><span class="hs-identifier hs-var">Model200Response</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148888"><span class="hs-identifier hs-var">model200ResponseClass</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148885"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148887"><span class="hs-identifier hs-var">model200ResponseClass</span></a><span>
|
||||
</span><a name="line-362"></a><span class="hs-pragma">{-# INLINE model200ResponseClassL #-}</span><span>
|
||||
</span><a name="line-363"></a><span>
|
||||
</span><a name="line-364"></a><span>
|
||||
@@ -367,7 +367,7 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-367"></a><span>
|
||||
</span><a name="line-368"></a><span class="hs-comment">-- | 'modelList123List' Lens</span><span>
|
||||
</span><a name="line-369"></a><span class="hs-identifier">modelList123ListL</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.Model.html#ModelList"><span class="hs-identifier hs-type">ModelList</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-370"></a><a name="modelList123ListL"><a href="SwaggerPetstore.ModelLens.html#modelList123ListL"><span class="hs-identifier">modelList123ListL</span></a></a><span> </span><a name="local-6989586621679148604"><a href="#local-6989586621679148604"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ModelList"><span class="hs-identifier hs-var">ModelList</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-6989586621679148606"><a href="#local-6989586621679148606"><span class="hs-identifier">modelList123List</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ModelList"><span class="hs-identifier hs-var">ModelList</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148606"><span class="hs-identifier hs-var">modelList123List</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148604"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148605"><span class="hs-identifier hs-var">modelList123List</span></a><span>
|
||||
</span><a name="line-370"></a><a name="modelList123ListL"><a href="SwaggerPetstore.ModelLens.html#modelList123ListL"><span class="hs-identifier">modelList123ListL</span></a></a><span> </span><a name="local-6989586621679148889"><a href="#local-6989586621679148889"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ModelList"><span class="hs-identifier hs-var">ModelList</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-6989586621679148891"><a href="#local-6989586621679148891"><span class="hs-identifier">modelList123List</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ModelList"><span class="hs-identifier hs-var">ModelList</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148891"><span class="hs-identifier hs-var">modelList123List</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148889"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148890"><span class="hs-identifier hs-var">modelList123List</span></a><span>
|
||||
</span><a name="line-371"></a><span class="hs-pragma">{-# INLINE modelList123ListL #-}</span><span>
|
||||
</span><a name="line-372"></a><span>
|
||||
</span><a name="line-373"></a><span>
|
||||
@@ -376,7 +376,7 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-376"></a><span>
|
||||
</span><a name="line-377"></a><span class="hs-comment">-- | 'modelReturnReturn' Lens</span><span>
|
||||
</span><a name="line-378"></a><span class="hs-identifier">modelReturnReturnL</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.Model.html#ModelReturn"><span class="hs-identifier hs-type">ModelReturn</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-379"></a><a name="modelReturnReturnL"><a href="SwaggerPetstore.ModelLens.html#modelReturnReturnL"><span class="hs-identifier">modelReturnReturnL</span></a></a><span> </span><a name="local-6989586621679148607"><a href="#local-6989586621679148607"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ModelReturn"><span class="hs-identifier hs-var">ModelReturn</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-6989586621679148609"><a href="#local-6989586621679148609"><span class="hs-identifier">modelReturnReturn</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ModelReturn"><span class="hs-identifier hs-var">ModelReturn</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148609"><span class="hs-identifier hs-var">modelReturnReturn</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148607"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148608"><span class="hs-identifier hs-var">modelReturnReturn</span></a><span>
|
||||
</span><a name="line-379"></a><a name="modelReturnReturnL"><a href="SwaggerPetstore.ModelLens.html#modelReturnReturnL"><span class="hs-identifier">modelReturnReturnL</span></a></a><span> </span><a name="local-6989586621679148892"><a href="#local-6989586621679148892"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ModelReturn"><span class="hs-identifier hs-var">ModelReturn</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-6989586621679148894"><a href="#local-6989586621679148894"><span class="hs-identifier">modelReturnReturn</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ModelReturn"><span class="hs-identifier hs-var">ModelReturn</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148894"><span class="hs-identifier hs-var">modelReturnReturn</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148892"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148893"><span class="hs-identifier hs-var">modelReturnReturn</span></a><span>
|
||||
</span><a name="line-380"></a><span class="hs-pragma">{-# INLINE modelReturnReturnL #-}</span><span>
|
||||
</span><a name="line-381"></a><span>
|
||||
</span><a name="line-382"></a><span>
|
||||
@@ -385,22 +385,22 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-385"></a><span>
|
||||
</span><a name="line-386"></a><span class="hs-comment">-- | 'nameName' Lens</span><span>
|
||||
</span><a name="line-387"></a><span class="hs-identifier">nameNameL</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.Model.html#Name"><span class="hs-identifier hs-type">Name</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-388"></a><a name="nameNameL"><a href="SwaggerPetstore.ModelLens.html#nameNameL"><span class="hs-identifier">nameNameL</span></a></a><span> </span><a name="local-6989586621679148610"><a href="#local-6989586621679148610"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</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-6989586621679148615"><a href="#local-6989586621679148615"><span class="hs-identifier">nameName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148615"><span class="hs-identifier hs-var">nameName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148610"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148611"><span class="hs-identifier hs-var">nameName</span></a><span>
|
||||
</span><a name="line-388"></a><a name="nameNameL"><a href="SwaggerPetstore.ModelLens.html#nameNameL"><span class="hs-identifier">nameNameL</span></a></a><span> </span><a name="local-6989586621679148895"><a href="#local-6989586621679148895"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</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-6989586621679148900"><a href="#local-6989586621679148900"><span class="hs-identifier">nameName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148900"><span class="hs-identifier hs-var">nameName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148895"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148896"><span class="hs-identifier hs-var">nameName</span></a><span>
|
||||
</span><a name="line-389"></a><span class="hs-pragma">{-# INLINE nameNameL #-}</span><span>
|
||||
</span><a name="line-390"></a><span>
|
||||
</span><a name="line-391"></a><span class="hs-comment">-- | 'nameSnakeCase' Lens</span><span>
|
||||
</span><a name="line-392"></a><span class="hs-identifier">nameSnakeCaseL</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.Model.html#Name"><span class="hs-identifier hs-type">Name</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-393"></a><a name="nameSnakeCaseL"><a href="SwaggerPetstore.ModelLens.html#nameSnakeCaseL"><span class="hs-identifier">nameSnakeCaseL</span></a></a><span> </span><a name="local-6989586621679148616"><a href="#local-6989586621679148616"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</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-6989586621679148621"><a href="#local-6989586621679148621"><span class="hs-identifier">nameSnakeCase</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148621"><span class="hs-identifier hs-var">nameSnakeCase</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148616"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148618"><span class="hs-identifier hs-var">nameSnakeCase</span></a><span>
|
||||
</span><a name="line-393"></a><a name="nameSnakeCaseL"><a href="SwaggerPetstore.ModelLens.html#nameSnakeCaseL"><span class="hs-identifier">nameSnakeCaseL</span></a></a><span> </span><a name="local-6989586621679148901"><a href="#local-6989586621679148901"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</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-6989586621679148906"><a href="#local-6989586621679148906"><span class="hs-identifier">nameSnakeCase</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148906"><span class="hs-identifier hs-var">nameSnakeCase</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148901"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148903"><span class="hs-identifier hs-var">nameSnakeCase</span></a><span>
|
||||
</span><a name="line-394"></a><span class="hs-pragma">{-# INLINE nameSnakeCaseL #-}</span><span>
|
||||
</span><a name="line-395"></a><span>
|
||||
</span><a name="line-396"></a><span class="hs-comment">-- | 'nameProperty' Lens</span><span>
|
||||
</span><a name="line-397"></a><span class="hs-identifier">namePropertyL</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.Model.html#Name"><span class="hs-identifier hs-type">Name</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-398"></a><a name="namePropertyL"><a href="SwaggerPetstore.ModelLens.html#namePropertyL"><span class="hs-identifier">namePropertyL</span></a></a><span> </span><a name="local-6989586621679148622"><a href="#local-6989586621679148622"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</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-6989586621679148627"><a href="#local-6989586621679148627"><span class="hs-identifier">nameProperty</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148627"><span class="hs-identifier hs-var">nameProperty</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148622"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148625"><span class="hs-identifier hs-var">nameProperty</span></a><span>
|
||||
</span><a name="line-398"></a><a name="namePropertyL"><a href="SwaggerPetstore.ModelLens.html#namePropertyL"><span class="hs-identifier">namePropertyL</span></a></a><span> </span><a name="local-6989586621679148907"><a href="#local-6989586621679148907"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</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-6989586621679148912"><a href="#local-6989586621679148912"><span class="hs-identifier">nameProperty</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148912"><span class="hs-identifier hs-var">nameProperty</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148907"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148910"><span class="hs-identifier hs-var">nameProperty</span></a><span>
|
||||
</span><a name="line-399"></a><span class="hs-pragma">{-# INLINE namePropertyL #-}</span><span>
|
||||
</span><a name="line-400"></a><span>
|
||||
</span><a name="line-401"></a><span class="hs-comment">-- | 'name123Number' Lens</span><span>
|
||||
</span><a name="line-402"></a><span class="hs-identifier">name123NumberL</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.Model.html#Name"><span class="hs-identifier hs-type">Name</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-403"></a><a name="name123NumberL"><a href="SwaggerPetstore.ModelLens.html#name123NumberL"><span class="hs-identifier">name123NumberL</span></a></a><span> </span><a name="local-6989586621679148628"><a href="#local-6989586621679148628"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</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-6989586621679148633"><a href="#local-6989586621679148633"><span class="hs-identifier">name123Number</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148633"><span class="hs-identifier hs-var">name123Number</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148628"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148632"><span class="hs-identifier hs-var">name123Number</span></a><span>
|
||||
</span><a name="line-403"></a><a name="name123NumberL"><a href="SwaggerPetstore.ModelLens.html#name123NumberL"><span class="hs-identifier">name123NumberL</span></a></a><span> </span><a name="local-6989586621679148913"><a href="#local-6989586621679148913"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</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-6989586621679148918"><a href="#local-6989586621679148918"><span class="hs-identifier">name123Number</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Name"><span class="hs-identifier hs-var">Name</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148918"><span class="hs-identifier hs-var">name123Number</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148913"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148917"><span class="hs-identifier hs-var">name123Number</span></a><span>
|
||||
</span><a name="line-404"></a><span class="hs-pragma">{-# INLINE name123NumberL #-}</span><span>
|
||||
</span><a name="line-405"></a><span>
|
||||
</span><a name="line-406"></a><span>
|
||||
@@ -409,7 +409,7 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-409"></a><span>
|
||||
</span><a name="line-410"></a><span class="hs-comment">-- | 'numberOnlyJustNumber' Lens</span><span>
|
||||
</span><a name="line-411"></a><span class="hs-identifier">numberOnlyJustNumberL</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.Model.html#NumberOnly"><span class="hs-identifier hs-type">NumberOnly</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Double</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-412"></a><a name="numberOnlyJustNumberL"><a href="SwaggerPetstore.ModelLens.html#numberOnlyJustNumberL"><span class="hs-identifier">numberOnlyJustNumberL</span></a></a><span> </span><a name="local-6989586621679148634"><a href="#local-6989586621679148634"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#NumberOnly"><span class="hs-identifier hs-var">NumberOnly</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-6989586621679148636"><a href="#local-6989586621679148636"><span class="hs-identifier">numberOnlyJustNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#NumberOnly"><span class="hs-identifier hs-var">NumberOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148636"><span class="hs-identifier hs-var">numberOnlyJustNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148634"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148635"><span class="hs-identifier hs-var">numberOnlyJustNumber</span></a><span>
|
||||
</span><a name="line-412"></a><a name="numberOnlyJustNumberL"><a href="SwaggerPetstore.ModelLens.html#numberOnlyJustNumberL"><span class="hs-identifier">numberOnlyJustNumberL</span></a></a><span> </span><a name="local-6989586621679148919"><a href="#local-6989586621679148919"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#NumberOnly"><span class="hs-identifier hs-var">NumberOnly</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-6989586621679148921"><a href="#local-6989586621679148921"><span class="hs-identifier">numberOnlyJustNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#NumberOnly"><span class="hs-identifier hs-var">NumberOnly</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148921"><span class="hs-identifier hs-var">numberOnlyJustNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148919"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148920"><span class="hs-identifier hs-var">numberOnlyJustNumber</span></a><span>
|
||||
</span><a name="line-413"></a><span class="hs-pragma">{-# INLINE numberOnlyJustNumberL #-}</span><span>
|
||||
</span><a name="line-414"></a><span>
|
||||
</span><a name="line-415"></a><span>
|
||||
@@ -418,32 +418,32 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-418"></a><span>
|
||||
</span><a name="line-419"></a><span class="hs-comment">-- | 'orderId' Lens</span><span>
|
||||
</span><a name="line-420"></a><span class="hs-identifier">orderIdL</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.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-421"></a><a name="orderIdL"><a href="SwaggerPetstore.ModelLens.html#orderIdL"><span class="hs-identifier">orderIdL</span></a></a><span> </span><a name="local-6989586621679148637"><a href="#local-6989586621679148637"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148644"><a href="#local-6989586621679148644"><span class="hs-identifier">orderId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148644"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148637"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148638"><span class="hs-identifier hs-var">orderId</span></a><span>
|
||||
</span><a name="line-421"></a><a name="orderIdL"><a href="SwaggerPetstore.ModelLens.html#orderIdL"><span class="hs-identifier">orderIdL</span></a></a><span> </span><a name="local-6989586621679148922"><a href="#local-6989586621679148922"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148929"><a href="#local-6989586621679148929"><span class="hs-identifier">orderId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148929"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148922"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148923"><span class="hs-identifier hs-var">orderId</span></a><span>
|
||||
</span><a name="line-422"></a><span class="hs-pragma">{-# INLINE orderIdL #-}</span><span>
|
||||
</span><a name="line-423"></a><span>
|
||||
</span><a name="line-424"></a><span class="hs-comment">-- | 'orderPetId' Lens</span><span>
|
||||
</span><a name="line-425"></a><span class="hs-identifier">orderPetIdL</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.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-426"></a><a name="orderPetIdL"><a href="SwaggerPetstore.ModelLens.html#orderPetIdL"><span class="hs-identifier">orderPetIdL</span></a></a><span> </span><a name="local-6989586621679148645"><a href="#local-6989586621679148645"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148652"><a href="#local-6989586621679148652"><span class="hs-identifier">orderPetId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148652"><span class="hs-identifier hs-var">orderPetId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148645"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148647"><span class="hs-identifier hs-var">orderPetId</span></a><span>
|
||||
</span><a name="line-426"></a><a name="orderPetIdL"><a href="SwaggerPetstore.ModelLens.html#orderPetIdL"><span class="hs-identifier">orderPetIdL</span></a></a><span> </span><a name="local-6989586621679148930"><a href="#local-6989586621679148930"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148937"><a href="#local-6989586621679148937"><span class="hs-identifier">orderPetId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148937"><span class="hs-identifier hs-var">orderPetId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148930"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148932"><span class="hs-identifier hs-var">orderPetId</span></a><span>
|
||||
</span><a name="line-427"></a><span class="hs-pragma">{-# INLINE orderPetIdL #-}</span><span>
|
||||
</span><a name="line-428"></a><span>
|
||||
</span><a name="line-429"></a><span class="hs-comment">-- | 'orderQuantity' Lens</span><span>
|
||||
</span><a name="line-430"></a><span class="hs-identifier">orderQuantityL</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.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-431"></a><a name="orderQuantityL"><a href="SwaggerPetstore.ModelLens.html#orderQuantityL"><span class="hs-identifier">orderQuantityL</span></a></a><span> </span><a name="local-6989586621679148653"><a href="#local-6989586621679148653"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148660"><a href="#local-6989586621679148660"><span class="hs-identifier">orderQuantity</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148660"><span class="hs-identifier hs-var">orderQuantity</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148653"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148656"><span class="hs-identifier hs-var">orderQuantity</span></a><span>
|
||||
</span><a name="line-431"></a><a name="orderQuantityL"><a href="SwaggerPetstore.ModelLens.html#orderQuantityL"><span class="hs-identifier">orderQuantityL</span></a></a><span> </span><a name="local-6989586621679148938"><a href="#local-6989586621679148938"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148945"><a href="#local-6989586621679148945"><span class="hs-identifier">orderQuantity</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148945"><span class="hs-identifier hs-var">orderQuantity</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148938"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148941"><span class="hs-identifier hs-var">orderQuantity</span></a><span>
|
||||
</span><a name="line-432"></a><span class="hs-pragma">{-# INLINE orderQuantityL #-}</span><span>
|
||||
</span><a name="line-433"></a><span>
|
||||
</span><a name="line-434"></a><span class="hs-comment">-- | 'orderShipDate' Lens</span><span>
|
||||
</span><a name="line-435"></a><span class="hs-identifier">orderShipDateL</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.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Core.html#DateTime"><span class="hs-identifier hs-type">DateTime</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-436"></a><a name="orderShipDateL"><a href="SwaggerPetstore.ModelLens.html#orderShipDateL"><span class="hs-identifier">orderShipDateL</span></a></a><span> </span><a name="local-6989586621679148661"><a href="#local-6989586621679148661"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148668"><a href="#local-6989586621679148668"><span class="hs-identifier">orderShipDate</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148668"><span class="hs-identifier hs-var">orderShipDate</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148661"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148665"><span class="hs-identifier hs-var">orderShipDate</span></a><span>
|
||||
</span><a name="line-436"></a><a name="orderShipDateL"><a href="SwaggerPetstore.ModelLens.html#orderShipDateL"><span class="hs-identifier">orderShipDateL</span></a></a><span> </span><a name="local-6989586621679148946"><a href="#local-6989586621679148946"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148953"><a href="#local-6989586621679148953"><span class="hs-identifier">orderShipDate</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148953"><span class="hs-identifier hs-var">orderShipDate</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148946"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148950"><span class="hs-identifier hs-var">orderShipDate</span></a><span>
|
||||
</span><a name="line-437"></a><span class="hs-pragma">{-# INLINE orderShipDateL #-}</span><span>
|
||||
</span><a name="line-438"></a><span>
|
||||
</span><a name="line-439"></a><span class="hs-comment">-- | 'orderStatus' Lens</span><span>
|
||||
</span><a name="line-440"></a><span class="hs-identifier">orderStatusL</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.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#E%27Status"><span class="hs-identifier hs-type">E'Status</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-441"></a><a name="orderStatusL"><a href="SwaggerPetstore.ModelLens.html#orderStatusL"><span class="hs-identifier">orderStatusL</span></a></a><span> </span><a name="local-6989586621679148669"><a href="#local-6989586621679148669"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148676"><a href="#local-6989586621679148676"><span class="hs-identifier">orderStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148676"><span class="hs-identifier hs-var">orderStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148669"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148674"><span class="hs-identifier hs-var">orderStatus</span></a><span>
|
||||
</span><a name="line-441"></a><a name="orderStatusL"><a href="SwaggerPetstore.ModelLens.html#orderStatusL"><span class="hs-identifier">orderStatusL</span></a></a><span> </span><a name="local-6989586621679148954"><a href="#local-6989586621679148954"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148961"><a href="#local-6989586621679148961"><span class="hs-identifier">orderStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148961"><span class="hs-identifier hs-var">orderStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148954"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148959"><span class="hs-identifier hs-var">orderStatus</span></a><span>
|
||||
</span><a name="line-442"></a><span class="hs-pragma">{-# INLINE orderStatusL #-}</span><span>
|
||||
</span><a name="line-443"></a><span>
|
||||
</span><a name="line-444"></a><span class="hs-comment">-- | 'orderComplete' Lens</span><span>
|
||||
</span><a name="line-445"></a><span class="hs-identifier">orderCompleteL</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.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-446"></a><a name="orderCompleteL"><a href="SwaggerPetstore.ModelLens.html#orderCompleteL"><span class="hs-identifier">orderCompleteL</span></a></a><span> </span><a name="local-6989586621679148677"><a href="#local-6989586621679148677"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148684"><a href="#local-6989586621679148684"><span class="hs-identifier">orderComplete</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148684"><span class="hs-identifier hs-var">orderComplete</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148677"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148683"><span class="hs-identifier hs-var">orderComplete</span></a><span>
|
||||
</span><a name="line-446"></a><a name="orderCompleteL"><a href="SwaggerPetstore.ModelLens.html#orderCompleteL"><span class="hs-identifier">orderCompleteL</span></a></a><span> </span><a name="local-6989586621679148962"><a href="#local-6989586621679148962"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148969"><a href="#local-6989586621679148969"><span class="hs-identifier">orderComplete</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Order"><span class="hs-identifier hs-var">Order</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148969"><span class="hs-identifier hs-var">orderComplete</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148962"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148968"><span class="hs-identifier hs-var">orderComplete</span></a><span>
|
||||
</span><a name="line-447"></a><span class="hs-pragma">{-# INLINE orderCompleteL #-}</span><span>
|
||||
</span><a name="line-448"></a><span>
|
||||
</span><a name="line-449"></a><span>
|
||||
@@ -456,17 +456,17 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-456"></a><span>
|
||||
</span><a name="line-457"></a><span class="hs-comment">-- | 'outerCompositeMyNumber' Lens</span><span>
|
||||
</span><a name="line-458"></a><span class="hs-identifier">outerCompositeMyNumberL</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.Model.html#OuterComposite"><span class="hs-identifier hs-type">OuterComposite</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#OuterNumber"><span class="hs-identifier hs-type">OuterNumber</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-459"></a><a name="outerCompositeMyNumberL"><a href="SwaggerPetstore.ModelLens.html#outerCompositeMyNumberL"><span class="hs-identifier">outerCompositeMyNumberL</span></a></a><span> </span><a name="local-6989586621679148685"><a href="#local-6989586621679148685"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</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-6989586621679148689"><a href="#local-6989586621679148689"><span class="hs-identifier">outerCompositeMyNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148689"><span class="hs-identifier hs-var">outerCompositeMyNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148685"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148686"><span class="hs-identifier hs-var">outerCompositeMyNumber</span></a><span>
|
||||
</span><a name="line-459"></a><a name="outerCompositeMyNumberL"><a href="SwaggerPetstore.ModelLens.html#outerCompositeMyNumberL"><span class="hs-identifier">outerCompositeMyNumberL</span></a></a><span> </span><a name="local-6989586621679148970"><a href="#local-6989586621679148970"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</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-6989586621679148974"><a href="#local-6989586621679148974"><span class="hs-identifier">outerCompositeMyNumber</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148974"><span class="hs-identifier hs-var">outerCompositeMyNumber</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148970"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148971"><span class="hs-identifier hs-var">outerCompositeMyNumber</span></a><span>
|
||||
</span><a name="line-460"></a><span class="hs-pragma">{-# INLINE outerCompositeMyNumberL #-}</span><span>
|
||||
</span><a name="line-461"></a><span>
|
||||
</span><a name="line-462"></a><span class="hs-comment">-- | 'outerCompositeMyString' Lens</span><span>
|
||||
</span><a name="line-463"></a><span class="hs-identifier">outerCompositeMyStringL</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.Model.html#OuterComposite"><span class="hs-identifier hs-type">OuterComposite</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#OuterString"><span class="hs-identifier hs-type">OuterString</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-464"></a><a name="outerCompositeMyStringL"><a href="SwaggerPetstore.ModelLens.html#outerCompositeMyStringL"><span class="hs-identifier">outerCompositeMyStringL</span></a></a><span> </span><a name="local-6989586621679148690"><a href="#local-6989586621679148690"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</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-6989586621679148694"><a href="#local-6989586621679148694"><span class="hs-identifier">outerCompositeMyString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148694"><span class="hs-identifier hs-var">outerCompositeMyString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148690"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148692"><span class="hs-identifier hs-var">outerCompositeMyString</span></a><span>
|
||||
</span><a name="line-464"></a><a name="outerCompositeMyStringL"><a href="SwaggerPetstore.ModelLens.html#outerCompositeMyStringL"><span class="hs-identifier">outerCompositeMyStringL</span></a></a><span> </span><a name="local-6989586621679148975"><a href="#local-6989586621679148975"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</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-6989586621679148979"><a href="#local-6989586621679148979"><span class="hs-identifier">outerCompositeMyString</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148979"><span class="hs-identifier hs-var">outerCompositeMyString</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148975"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148977"><span class="hs-identifier hs-var">outerCompositeMyString</span></a><span>
|
||||
</span><a name="line-465"></a><span class="hs-pragma">{-# INLINE outerCompositeMyStringL #-}</span><span>
|
||||
</span><a name="line-466"></a><span>
|
||||
</span><a name="line-467"></a><span class="hs-comment">-- | 'outerCompositeMyBoolean' Lens</span><span>
|
||||
</span><a name="line-468"></a><span class="hs-identifier">outerCompositeMyBooleanL</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.Model.html#OuterComposite"><span class="hs-identifier hs-type">OuterComposite</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#OuterBoolean"><span class="hs-identifier hs-type">OuterBoolean</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-469"></a><a name="outerCompositeMyBooleanL"><a href="SwaggerPetstore.ModelLens.html#outerCompositeMyBooleanL"><span class="hs-identifier">outerCompositeMyBooleanL</span></a></a><span> </span><a name="local-6989586621679148695"><a href="#local-6989586621679148695"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</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-6989586621679148699"><a href="#local-6989586621679148699"><span class="hs-identifier">outerCompositeMyBoolean</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148699"><span class="hs-identifier hs-var">outerCompositeMyBoolean</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148695"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148698"><span class="hs-identifier hs-var">outerCompositeMyBoolean</span></a><span>
|
||||
</span><a name="line-469"></a><a name="outerCompositeMyBooleanL"><a href="SwaggerPetstore.ModelLens.html#outerCompositeMyBooleanL"><span class="hs-identifier">outerCompositeMyBooleanL</span></a></a><span> </span><a name="local-6989586621679148980"><a href="#local-6989586621679148980"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</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-6989586621679148984"><a href="#local-6989586621679148984"><span class="hs-identifier">outerCompositeMyBoolean</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#OuterComposite"><span class="hs-identifier hs-var">OuterComposite</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148984"><span class="hs-identifier hs-var">outerCompositeMyBoolean</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148980"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148983"><span class="hs-identifier hs-var">outerCompositeMyBoolean</span></a><span>
|
||||
</span><a name="line-470"></a><span class="hs-pragma">{-# INLINE outerCompositeMyBooleanL #-}</span><span>
|
||||
</span><a name="line-471"></a><span>
|
||||
</span><a name="line-472"></a><span>
|
||||
@@ -487,32 +487,32 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-487"></a><span>
|
||||
</span><a name="line-488"></a><span class="hs-comment">-- | 'petId' Lens</span><span>
|
||||
</span><a name="line-489"></a><span class="hs-identifier">petIdL</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.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-490"></a><a name="petIdL"><a href="SwaggerPetstore.ModelLens.html#petIdL"><span class="hs-identifier">petIdL</span></a></a><span> </span><a name="local-6989586621679148700"><a href="#local-6989586621679148700"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148707"><a href="#local-6989586621679148707"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148707"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148700"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148701"><span class="hs-identifier hs-var">petId</span></a><span>
|
||||
</span><a name="line-490"></a><a name="petIdL"><a href="SwaggerPetstore.ModelLens.html#petIdL"><span class="hs-identifier">petIdL</span></a></a><span> </span><a name="local-6989586621679148985"><a href="#local-6989586621679148985"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148992"><a href="#local-6989586621679148992"><span class="hs-identifier">petId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148992"><span class="hs-identifier hs-var">petId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148985"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148986"><span class="hs-identifier hs-var">petId</span></a><span>
|
||||
</span><a name="line-491"></a><span class="hs-pragma">{-# INLINE petIdL #-}</span><span>
|
||||
</span><a name="line-492"></a><span>
|
||||
</span><a name="line-493"></a><span class="hs-comment">-- | 'petCategory' Lens</span><span>
|
||||
</span><a name="line-494"></a><span class="hs-identifier">petCategoryL</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.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#Category"><span class="hs-identifier hs-type">Category</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-495"></a><a name="petCategoryL"><a href="SwaggerPetstore.ModelLens.html#petCategoryL"><span class="hs-identifier">petCategoryL</span></a></a><span> </span><a name="local-6989586621679148708"><a href="#local-6989586621679148708"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148715"><a href="#local-6989586621679148715"><span class="hs-identifier">petCategory</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148715"><span class="hs-identifier hs-var">petCategory</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148708"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148710"><span class="hs-identifier hs-var">petCategory</span></a><span>
|
||||
</span><a name="line-495"></a><a name="petCategoryL"><a href="SwaggerPetstore.ModelLens.html#petCategoryL"><span class="hs-identifier">petCategoryL</span></a></a><span> </span><a name="local-6989586621679148993"><a href="#local-6989586621679148993"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149000"><a href="#local-6989586621679149000"><span class="hs-identifier">petCategory</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149000"><span class="hs-identifier hs-var">petCategory</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148993"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148995"><span class="hs-identifier hs-var">petCategory</span></a><span>
|
||||
</span><a name="line-496"></a><span class="hs-pragma">{-# INLINE petCategoryL #-}</span><span>
|
||||
</span><a name="line-497"></a><span>
|
||||
</span><a name="line-498"></a><span class="hs-comment">-- | 'petName' Lens</span><span>
|
||||
</span><a name="line-499"></a><span class="hs-identifier">petNameL</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.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-500"></a><a name="petNameL"><a href="SwaggerPetstore.ModelLens.html#petNameL"><span class="hs-identifier">petNameL</span></a></a><span> </span><a name="local-6989586621679148716"><a href="#local-6989586621679148716"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148723"><a href="#local-6989586621679148723"><span class="hs-identifier">petName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148723"><span class="hs-identifier hs-var">petName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148716"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148719"><span class="hs-identifier hs-var">petName</span></a><span>
|
||||
</span><a name="line-500"></a><a name="petNameL"><a href="SwaggerPetstore.ModelLens.html#petNameL"><span class="hs-identifier">petNameL</span></a></a><span> </span><a name="local-6989586621679149001"><a href="#local-6989586621679149001"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149008"><a href="#local-6989586621679149008"><span class="hs-identifier">petName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149008"><span class="hs-identifier hs-var">petName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149001"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149004"><span class="hs-identifier hs-var">petName</span></a><span>
|
||||
</span><a name="line-501"></a><span class="hs-pragma">{-# INLINE petNameL #-}</span><span>
|
||||
</span><a name="line-502"></a><span>
|
||||
</span><a name="line-503"></a><span class="hs-comment">-- | 'petPhotoUrls' Lens</span><span>
|
||||
</span><a name="line-504"></a><span class="hs-identifier">petPhotoUrlsL</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.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">[</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-505"></a><a name="petPhotoUrlsL"><a href="SwaggerPetstore.ModelLens.html#petPhotoUrlsL"><span class="hs-identifier">petPhotoUrlsL</span></a></a><span> </span><a name="local-6989586621679148724"><a href="#local-6989586621679148724"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148731"><a href="#local-6989586621679148731"><span class="hs-identifier">petPhotoUrls</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148731"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148724"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148728"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span>
|
||||
</span><a name="line-505"></a><a name="petPhotoUrlsL"><a href="SwaggerPetstore.ModelLens.html#petPhotoUrlsL"><span class="hs-identifier">petPhotoUrlsL</span></a></a><span> </span><a name="local-6989586621679149009"><a href="#local-6989586621679149009"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149016"><a href="#local-6989586621679149016"><span class="hs-identifier">petPhotoUrls</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149016"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149009"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149013"><span class="hs-identifier hs-var">petPhotoUrls</span></a><span>
|
||||
</span><a name="line-506"></a><span class="hs-pragma">{-# INLINE petPhotoUrlsL #-}</span><span>
|
||||
</span><a name="line-507"></a><span>
|
||||
</span><a name="line-508"></a><span class="hs-comment">-- | 'petTags' Lens</span><span>
|
||||
</span><a name="line-509"></a><span class="hs-identifier">petTagsL</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.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-special">[</span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-510"></a><a name="petTagsL"><a href="SwaggerPetstore.ModelLens.html#petTagsL"><span class="hs-identifier">petTagsL</span></a></a><span> </span><a name="local-6989586621679148732"><a href="#local-6989586621679148732"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148739"><a href="#local-6989586621679148739"><span class="hs-identifier">petTags</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148739"><span class="hs-identifier hs-var">petTags</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148732"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148737"><span class="hs-identifier hs-var">petTags</span></a><span>
|
||||
</span><a name="line-510"></a><a name="petTagsL"><a href="SwaggerPetstore.ModelLens.html#petTagsL"><span class="hs-identifier">petTagsL</span></a></a><span> </span><a name="local-6989586621679149017"><a href="#local-6989586621679149017"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149024"><a href="#local-6989586621679149024"><span class="hs-identifier">petTags</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149024"><span class="hs-identifier hs-var">petTags</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149017"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149022"><span class="hs-identifier hs-var">petTags</span></a><span>
|
||||
</span><a name="line-511"></a><span class="hs-pragma">{-# INLINE petTagsL #-}</span><span>
|
||||
</span><a name="line-512"></a><span>
|
||||
</span><a name="line-513"></a><span class="hs-comment">-- | 'petStatus' Lens</span><span>
|
||||
</span><a name="line-514"></a><span class="hs-identifier">petStatusL</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.Model.html#Pet"><span class="hs-identifier hs-type">Pet</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><a href="SwaggerPetstore.Model.html#E%27Status2"><span class="hs-identifier hs-type">E'Status2</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-515"></a><a name="petStatusL"><a href="SwaggerPetstore.ModelLens.html#petStatusL"><span class="hs-identifier">petStatusL</span></a></a><span> </span><a name="local-6989586621679148740"><a href="#local-6989586621679148740"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148747"><a href="#local-6989586621679148747"><span class="hs-identifier">petStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148747"><span class="hs-identifier hs-var">petStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148740"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148746"><span class="hs-identifier hs-var">petStatus</span></a><span>
|
||||
</span><a name="line-515"></a><a name="petStatusL"><a href="SwaggerPetstore.ModelLens.html#petStatusL"><span class="hs-identifier">petStatusL</span></a></a><span> </span><a name="local-6989586621679149025"><a href="#local-6989586621679149025"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149032"><a href="#local-6989586621679149032"><span class="hs-identifier">petStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Pet"><span class="hs-identifier hs-var">Pet</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149032"><span class="hs-identifier hs-var">petStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149025"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149031"><span class="hs-identifier hs-var">petStatus</span></a><span>
|
||||
</span><a name="line-516"></a><span class="hs-pragma">{-# INLINE petStatusL #-}</span><span>
|
||||
</span><a name="line-517"></a><span>
|
||||
</span><a name="line-518"></a><span>
|
||||
@@ -521,12 +521,12 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-521"></a><span>
|
||||
</span><a name="line-522"></a><span class="hs-comment">-- | 'readOnlyFirstBar' Lens</span><span>
|
||||
</span><a name="line-523"></a><span class="hs-identifier">readOnlyFirstBarL</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.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-type">ReadOnlyFirst</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-524"></a><a name="readOnlyFirstBarL"><a href="SwaggerPetstore.ModelLens.html#readOnlyFirstBarL"><span class="hs-identifier">readOnlyFirstBarL</span></a></a><span> </span><a name="local-6989586621679148748"><a href="#local-6989586621679148748"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</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-6989586621679148751"><a href="#local-6989586621679148751"><span class="hs-identifier">readOnlyFirstBar</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148751"><span class="hs-identifier hs-var">readOnlyFirstBar</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148748"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148749"><span class="hs-identifier hs-var">readOnlyFirstBar</span></a><span>
|
||||
</span><a name="line-524"></a><a name="readOnlyFirstBarL"><a href="SwaggerPetstore.ModelLens.html#readOnlyFirstBarL"><span class="hs-identifier">readOnlyFirstBarL</span></a></a><span> </span><a name="local-6989586621679149033"><a href="#local-6989586621679149033"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</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-6989586621679149036"><a href="#local-6989586621679149036"><span class="hs-identifier">readOnlyFirstBar</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149036"><span class="hs-identifier hs-var">readOnlyFirstBar</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149033"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149034"><span class="hs-identifier hs-var">readOnlyFirstBar</span></a><span>
|
||||
</span><a name="line-525"></a><span class="hs-pragma">{-# INLINE readOnlyFirstBarL #-}</span><span>
|
||||
</span><a name="line-526"></a><span>
|
||||
</span><a name="line-527"></a><span class="hs-comment">-- | 'readOnlyFirstBaz' Lens</span><span>
|
||||
</span><a name="line-528"></a><span class="hs-identifier">readOnlyFirstBazL</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.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-type">ReadOnlyFirst</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-529"></a><a name="readOnlyFirstBazL"><a href="SwaggerPetstore.ModelLens.html#readOnlyFirstBazL"><span class="hs-identifier">readOnlyFirstBazL</span></a></a><span> </span><a name="local-6989586621679148752"><a href="#local-6989586621679148752"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</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-6989586621679148755"><a href="#local-6989586621679148755"><span class="hs-identifier">readOnlyFirstBaz</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148755"><span class="hs-identifier hs-var">readOnlyFirstBaz</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148752"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148754"><span class="hs-identifier hs-var">readOnlyFirstBaz</span></a><span>
|
||||
</span><a name="line-529"></a><a name="readOnlyFirstBazL"><a href="SwaggerPetstore.ModelLens.html#readOnlyFirstBazL"><span class="hs-identifier">readOnlyFirstBazL</span></a></a><span> </span><a name="local-6989586621679149037"><a href="#local-6989586621679149037"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</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-6989586621679149040"><a href="#local-6989586621679149040"><span class="hs-identifier">readOnlyFirstBaz</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#ReadOnlyFirst"><span class="hs-identifier hs-var">ReadOnlyFirst</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149040"><span class="hs-identifier hs-var">readOnlyFirstBaz</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149037"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149039"><span class="hs-identifier hs-var">readOnlyFirstBaz</span></a><span>
|
||||
</span><a name="line-530"></a><span class="hs-pragma">{-# INLINE readOnlyFirstBazL #-}</span><span>
|
||||
</span><a name="line-531"></a><span>
|
||||
</span><a name="line-532"></a><span>
|
||||
@@ -535,7 +535,7 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-535"></a><span>
|
||||
</span><a name="line-536"></a><span class="hs-comment">-- | 'specialModelNameSpecialPropertyName' Lens</span><span>
|
||||
</span><a name="line-537"></a><span class="hs-identifier">specialModelNameSpecialPropertyNameL</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.Model.html#SpecialModelName"><span class="hs-identifier hs-type">SpecialModelName</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-538"></a><a name="specialModelNameSpecialPropertyNameL"><a href="SwaggerPetstore.ModelLens.html#specialModelNameSpecialPropertyNameL"><span class="hs-identifier">specialModelNameSpecialPropertyNameL</span></a></a><span> </span><a name="local-6989586621679148756"><a href="#local-6989586621679148756"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#SpecialModelName"><span class="hs-identifier hs-var">SpecialModelName</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-6989586621679148758"><a href="#local-6989586621679148758"><span class="hs-identifier">specialModelNameSpecialPropertyName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#SpecialModelName"><span class="hs-identifier hs-var">SpecialModelName</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148758"><span class="hs-identifier hs-var">specialModelNameSpecialPropertyName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148756"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148757"><span class="hs-identifier hs-var">specialModelNameSpecialPropertyName</span></a><span>
|
||||
</span><a name="line-538"></a><a name="specialModelNameSpecialPropertyNameL"><a href="SwaggerPetstore.ModelLens.html#specialModelNameSpecialPropertyNameL"><span class="hs-identifier">specialModelNameSpecialPropertyNameL</span></a></a><span> </span><a name="local-6989586621679149041"><a href="#local-6989586621679149041"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#SpecialModelName"><span class="hs-identifier hs-var">SpecialModelName</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-6989586621679149043"><a href="#local-6989586621679149043"><span class="hs-identifier">specialModelNameSpecialPropertyName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#SpecialModelName"><span class="hs-identifier hs-var">SpecialModelName</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149043"><span class="hs-identifier hs-var">specialModelNameSpecialPropertyName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149041"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149042"><span class="hs-identifier hs-var">specialModelNameSpecialPropertyName</span></a><span>
|
||||
</span><a name="line-539"></a><span class="hs-pragma">{-# INLINE specialModelNameSpecialPropertyNameL #-}</span><span>
|
||||
</span><a name="line-540"></a><span>
|
||||
</span><a name="line-541"></a><span>
|
||||
@@ -544,12 +544,12 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-544"></a><span>
|
||||
</span><a name="line-545"></a><span class="hs-comment">-- | 'tagId' Lens</span><span>
|
||||
</span><a name="line-546"></a><span class="hs-identifier">tagIdL</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.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-547"></a><a name="tagIdL"><a href="SwaggerPetstore.ModelLens.html#tagIdL"><span class="hs-identifier">tagIdL</span></a></a><span> </span><a name="local-6989586621679148759"><a href="#local-6989586621679148759"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148762"><a href="#local-6989586621679148762"><span class="hs-identifier">tagId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148762"><span class="hs-identifier hs-var">tagId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148759"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148760"><span class="hs-identifier hs-var">tagId</span></a><span>
|
||||
</span><a name="line-547"></a><a name="tagIdL"><a href="SwaggerPetstore.ModelLens.html#tagIdL"><span class="hs-identifier">tagIdL</span></a></a><span> </span><a name="local-6989586621679149044"><a href="#local-6989586621679149044"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149047"><a href="#local-6989586621679149047"><span class="hs-identifier">tagId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149047"><span class="hs-identifier hs-var">tagId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149044"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149045"><span class="hs-identifier hs-var">tagId</span></a><span>
|
||||
</span><a name="line-548"></a><span class="hs-pragma">{-# INLINE tagIdL #-}</span><span>
|
||||
</span><a name="line-549"></a><span>
|
||||
</span><a name="line-550"></a><span class="hs-comment">-- | 'tagName' Lens</span><span>
|
||||
</span><a name="line-551"></a><span class="hs-identifier">tagNameL</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.Model.html#Tag"><span class="hs-identifier hs-type">Tag</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-552"></a><a name="tagNameL"><a href="SwaggerPetstore.ModelLens.html#tagNameL"><span class="hs-identifier">tagNameL</span></a></a><span> </span><a name="local-6989586621679148763"><a href="#local-6989586621679148763"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148766"><a href="#local-6989586621679148766"><span class="hs-identifier">tagName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148766"><span class="hs-identifier hs-var">tagName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148763"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148765"><span class="hs-identifier hs-var">tagName</span></a><span>
|
||||
</span><a name="line-552"></a><a name="tagNameL"><a href="SwaggerPetstore.ModelLens.html#tagNameL"><span class="hs-identifier">tagNameL</span></a></a><span> </span><a name="local-6989586621679149048"><a href="#local-6989586621679149048"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149051"><a href="#local-6989586621679149051"><span class="hs-identifier">tagName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Tag"><span class="hs-identifier hs-var">Tag</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149051"><span class="hs-identifier hs-var">tagName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149048"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149050"><span class="hs-identifier hs-var">tagName</span></a><span>
|
||||
</span><a name="line-553"></a><span class="hs-pragma">{-# INLINE tagNameL #-}</span><span>
|
||||
</span><a name="line-554"></a><span>
|
||||
</span><a name="line-555"></a><span>
|
||||
@@ -558,42 +558,42 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-558"></a><span>
|
||||
</span><a name="line-559"></a><span class="hs-comment">-- | 'userId' Lens</span><span>
|
||||
</span><a name="line-560"></a><span class="hs-identifier">userIdL</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.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-561"></a><a name="userIdL"><a href="SwaggerPetstore.ModelLens.html#userIdL"><span class="hs-identifier">userIdL</span></a></a><span> </span><a name="local-6989586621679148767"><a href="#local-6989586621679148767"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148776"><a href="#local-6989586621679148776"><span class="hs-identifier">userId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148776"><span class="hs-identifier hs-var">userId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148767"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148768"><span class="hs-identifier hs-var">userId</span></a><span>
|
||||
</span><a name="line-561"></a><a name="userIdL"><a href="SwaggerPetstore.ModelLens.html#userIdL"><span class="hs-identifier">userIdL</span></a></a><span> </span><a name="local-6989586621679149052"><a href="#local-6989586621679149052"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149061"><a href="#local-6989586621679149061"><span class="hs-identifier">userId</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149061"><span class="hs-identifier hs-var">userId</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149052"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149053"><span class="hs-identifier hs-var">userId</span></a><span>
|
||||
</span><a name="line-562"></a><span class="hs-pragma">{-# INLINE userIdL #-}</span><span>
|
||||
</span><a name="line-563"></a><span>
|
||||
</span><a name="line-564"></a><span class="hs-comment">-- | 'userUsername' Lens</span><span>
|
||||
</span><a name="line-565"></a><span class="hs-identifier">userUsernameL</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.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-566"></a><a name="userUsernameL"><a href="SwaggerPetstore.ModelLens.html#userUsernameL"><span class="hs-identifier">userUsernameL</span></a></a><span> </span><a name="local-6989586621679148777"><a href="#local-6989586621679148777"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148786"><a href="#local-6989586621679148786"><span class="hs-identifier">userUsername</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148786"><span class="hs-identifier hs-var">userUsername</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148777"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148779"><span class="hs-identifier hs-var">userUsername</span></a><span>
|
||||
</span><a name="line-566"></a><a name="userUsernameL"><a href="SwaggerPetstore.ModelLens.html#userUsernameL"><span class="hs-identifier">userUsernameL</span></a></a><span> </span><a name="local-6989586621679149062"><a href="#local-6989586621679149062"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149071"><a href="#local-6989586621679149071"><span class="hs-identifier">userUsername</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149071"><span class="hs-identifier hs-var">userUsername</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149062"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149064"><span class="hs-identifier hs-var">userUsername</span></a><span>
|
||||
</span><a name="line-567"></a><span class="hs-pragma">{-# INLINE userUsernameL #-}</span><span>
|
||||
</span><a name="line-568"></a><span>
|
||||
</span><a name="line-569"></a><span class="hs-comment">-- | 'userFirstName' Lens</span><span>
|
||||
</span><a name="line-570"></a><span class="hs-identifier">userFirstNameL</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.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-571"></a><a name="userFirstNameL"><a href="SwaggerPetstore.ModelLens.html#userFirstNameL"><span class="hs-identifier">userFirstNameL</span></a></a><span> </span><a name="local-6989586621679148787"><a href="#local-6989586621679148787"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148796"><a href="#local-6989586621679148796"><span class="hs-identifier">userFirstName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148796"><span class="hs-identifier hs-var">userFirstName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148787"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148790"><span class="hs-identifier hs-var">userFirstName</span></a><span>
|
||||
</span><a name="line-571"></a><a name="userFirstNameL"><a href="SwaggerPetstore.ModelLens.html#userFirstNameL"><span class="hs-identifier">userFirstNameL</span></a></a><span> </span><a name="local-6989586621679149072"><a href="#local-6989586621679149072"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149081"><a href="#local-6989586621679149081"><span class="hs-identifier">userFirstName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149081"><span class="hs-identifier hs-var">userFirstName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149072"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149075"><span class="hs-identifier hs-var">userFirstName</span></a><span>
|
||||
</span><a name="line-572"></a><span class="hs-pragma">{-# INLINE userFirstNameL #-}</span><span>
|
||||
</span><a name="line-573"></a><span>
|
||||
</span><a name="line-574"></a><span class="hs-comment">-- | 'userLastName' Lens</span><span>
|
||||
</span><a name="line-575"></a><span class="hs-identifier">userLastNameL</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.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-576"></a><a name="userLastNameL"><a href="SwaggerPetstore.ModelLens.html#userLastNameL"><span class="hs-identifier">userLastNameL</span></a></a><span> </span><a name="local-6989586621679148797"><a href="#local-6989586621679148797"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148806"><a href="#local-6989586621679148806"><span class="hs-identifier">userLastName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148806"><span class="hs-identifier hs-var">userLastName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148797"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148801"><span class="hs-identifier hs-var">userLastName</span></a><span>
|
||||
</span><a name="line-576"></a><a name="userLastNameL"><a href="SwaggerPetstore.ModelLens.html#userLastNameL"><span class="hs-identifier">userLastNameL</span></a></a><span> </span><a name="local-6989586621679149082"><a href="#local-6989586621679149082"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149091"><a href="#local-6989586621679149091"><span class="hs-identifier">userLastName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149091"><span class="hs-identifier hs-var">userLastName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149082"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149086"><span class="hs-identifier hs-var">userLastName</span></a><span>
|
||||
</span><a name="line-577"></a><span class="hs-pragma">{-# INLINE userLastNameL #-}</span><span>
|
||||
</span><a name="line-578"></a><span>
|
||||
</span><a name="line-579"></a><span class="hs-comment">-- | 'userEmail' Lens</span><span>
|
||||
</span><a name="line-580"></a><span class="hs-identifier">userEmailL</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.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-581"></a><a name="userEmailL"><a href="SwaggerPetstore.ModelLens.html#userEmailL"><span class="hs-identifier">userEmailL</span></a></a><span> </span><a name="local-6989586621679148807"><a href="#local-6989586621679148807"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148816"><a href="#local-6989586621679148816"><span class="hs-identifier">userEmail</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148816"><span class="hs-identifier hs-var">userEmail</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148807"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148812"><span class="hs-identifier hs-var">userEmail</span></a><span>
|
||||
</span><a name="line-581"></a><a name="userEmailL"><a href="SwaggerPetstore.ModelLens.html#userEmailL"><span class="hs-identifier">userEmailL</span></a></a><span> </span><a name="local-6989586621679149092"><a href="#local-6989586621679149092"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149101"><a href="#local-6989586621679149101"><span class="hs-identifier">userEmail</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149101"><span class="hs-identifier hs-var">userEmail</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149092"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149097"><span class="hs-identifier hs-var">userEmail</span></a><span>
|
||||
</span><a name="line-582"></a><span class="hs-pragma">{-# INLINE userEmailL #-}</span><span>
|
||||
</span><a name="line-583"></a><span>
|
||||
</span><a name="line-584"></a><span class="hs-comment">-- | 'userPassword' Lens</span><span>
|
||||
</span><a name="line-585"></a><span class="hs-identifier">userPasswordL</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.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-586"></a><a name="userPasswordL"><a href="SwaggerPetstore.ModelLens.html#userPasswordL"><span class="hs-identifier">userPasswordL</span></a></a><span> </span><a name="local-6989586621679148817"><a href="#local-6989586621679148817"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148826"><a href="#local-6989586621679148826"><span class="hs-identifier">userPassword</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148826"><span class="hs-identifier hs-var">userPassword</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148817"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148823"><span class="hs-identifier hs-var">userPassword</span></a><span>
|
||||
</span><a name="line-586"></a><a name="userPasswordL"><a href="SwaggerPetstore.ModelLens.html#userPasswordL"><span class="hs-identifier">userPasswordL</span></a></a><span> </span><a name="local-6989586621679149102"><a href="#local-6989586621679149102"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149111"><a href="#local-6989586621679149111"><span class="hs-identifier">userPassword</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149111"><span class="hs-identifier hs-var">userPassword</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149102"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149108"><span class="hs-identifier hs-var">userPassword</span></a><span>
|
||||
</span><a name="line-587"></a><span class="hs-pragma">{-# INLINE userPasswordL #-}</span><span>
|
||||
</span><a name="line-588"></a><span>
|
||||
</span><a name="line-589"></a><span class="hs-comment">-- | 'userPhone' Lens</span><span>
|
||||
</span><a name="line-590"></a><span class="hs-identifier">userPhoneL</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.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-591"></a><a name="userPhoneL"><a href="SwaggerPetstore.ModelLens.html#userPhoneL"><span class="hs-identifier">userPhoneL</span></a></a><span> </span><a name="local-6989586621679148827"><a href="#local-6989586621679148827"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148836"><a href="#local-6989586621679148836"><span class="hs-identifier">userPhone</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148836"><span class="hs-identifier hs-var">userPhone</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148827"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148834"><span class="hs-identifier hs-var">userPhone</span></a><span>
|
||||
</span><a name="line-591"></a><a name="userPhoneL"><a href="SwaggerPetstore.ModelLens.html#userPhoneL"><span class="hs-identifier">userPhoneL</span></a></a><span> </span><a name="local-6989586621679149112"><a href="#local-6989586621679149112"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149121"><a href="#local-6989586621679149121"><span class="hs-identifier">userPhone</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149121"><span class="hs-identifier hs-var">userPhone</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149112"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149119"><span class="hs-identifier hs-var">userPhone</span></a><span>
|
||||
</span><a name="line-592"></a><span class="hs-pragma">{-# INLINE userPhoneL #-}</span><span>
|
||||
</span><a name="line-593"></a><span>
|
||||
</span><a name="line-594"></a><span class="hs-comment">-- | 'userUserStatus' Lens</span><span>
|
||||
</span><a name="line-595"></a><span class="hs-identifier">userUserStatusL</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.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-596"></a><a name="userUserStatusL"><a href="SwaggerPetstore.ModelLens.html#userUserStatusL"><span class="hs-identifier">userUserStatusL</span></a></a><span> </span><a name="local-6989586621679148837"><a href="#local-6989586621679148837"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679148846"><a href="#local-6989586621679148846"><span class="hs-identifier">userUserStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148846"><span class="hs-identifier hs-var">userUserStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148837"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148845"><span class="hs-identifier hs-var">userUserStatus</span></a><span>
|
||||
</span><a name="line-596"></a><a name="userUserStatusL"><a href="SwaggerPetstore.ModelLens.html#userUserStatusL"><span class="hs-identifier">userUserStatusL</span></a></a><span> </span><a name="local-6989586621679149122"><a href="#local-6989586621679149122"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span class="hs-special">{</span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><a name="local-6989586621679149131"><a href="#local-6989586621679149131"><span class="hs-identifier">userUserStatus</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#User"><span class="hs-identifier hs-var">User</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149131"><span class="hs-identifier hs-var">userUserStatus</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149122"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149130"><span class="hs-identifier hs-var">userUserStatus</span></a><span>
|
||||
</span><a name="line-597"></a><span class="hs-pragma">{-# INLINE userUserStatusL #-}</span><span>
|
||||
</span><a name="line-598"></a><span>
|
||||
</span><a name="line-599"></a><span>
|
||||
@@ -602,17 +602,17 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-602"></a><span>
|
||||
</span><a name="line-603"></a><span class="hs-comment">-- | 'catClassName' Lens</span><span>
|
||||
</span><a name="line-604"></a><span class="hs-identifier">catClassNameL</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.Model.html#Cat"><span class="hs-identifier hs-type">Cat</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-605"></a><a name="catClassNameL"><a href="SwaggerPetstore.ModelLens.html#catClassNameL"><span class="hs-identifier">catClassNameL</span></a></a><span> </span><a name="local-6989586621679148847"><a href="#local-6989586621679148847"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</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-6989586621679148851"><a href="#local-6989586621679148851"><span class="hs-identifier">catClassName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148851"><span class="hs-identifier hs-var">catClassName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148847"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148848"><span class="hs-identifier hs-var">catClassName</span></a><span>
|
||||
</span><a name="line-605"></a><a name="catClassNameL"><a href="SwaggerPetstore.ModelLens.html#catClassNameL"><span class="hs-identifier">catClassNameL</span></a></a><span> </span><a name="local-6989586621679149132"><a href="#local-6989586621679149132"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</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-6989586621679149136"><a href="#local-6989586621679149136"><span class="hs-identifier">catClassName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149136"><span class="hs-identifier hs-var">catClassName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149132"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149133"><span class="hs-identifier hs-var">catClassName</span></a><span>
|
||||
</span><a name="line-606"></a><span class="hs-pragma">{-# INLINE catClassNameL #-}</span><span>
|
||||
</span><a name="line-607"></a><span>
|
||||
</span><a name="line-608"></a><span class="hs-comment">-- | 'catColor' Lens</span><span>
|
||||
</span><a name="line-609"></a><span class="hs-identifier">catColorL</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.Model.html#Cat"><span class="hs-identifier hs-type">Cat</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-610"></a><a name="catColorL"><a href="SwaggerPetstore.ModelLens.html#catColorL"><span class="hs-identifier">catColorL</span></a></a><span> </span><a name="local-6989586621679148852"><a href="#local-6989586621679148852"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</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-6989586621679148856"><a href="#local-6989586621679148856"><span class="hs-identifier">catColor</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148856"><span class="hs-identifier hs-var">catColor</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148852"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148854"><span class="hs-identifier hs-var">catColor</span></a><span>
|
||||
</span><a name="line-610"></a><a name="catColorL"><a href="SwaggerPetstore.ModelLens.html#catColorL"><span class="hs-identifier">catColorL</span></a></a><span> </span><a name="local-6989586621679149137"><a href="#local-6989586621679149137"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</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-6989586621679149141"><a href="#local-6989586621679149141"><span class="hs-identifier">catColor</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149141"><span class="hs-identifier hs-var">catColor</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149137"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149139"><span class="hs-identifier hs-var">catColor</span></a><span>
|
||||
</span><a name="line-611"></a><span class="hs-pragma">{-# INLINE catColorL #-}</span><span>
|
||||
</span><a name="line-612"></a><span>
|
||||
</span><a name="line-613"></a><span class="hs-comment">-- | 'catDeclawed' Lens</span><span>
|
||||
</span><a name="line-614"></a><span class="hs-identifier">catDeclawedL</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.Model.html#Cat"><span class="hs-identifier hs-type">Cat</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-615"></a><a name="catDeclawedL"><a href="SwaggerPetstore.ModelLens.html#catDeclawedL"><span class="hs-identifier">catDeclawedL</span></a></a><span> </span><a name="local-6989586621679148857"><a href="#local-6989586621679148857"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</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-6989586621679148861"><a href="#local-6989586621679148861"><span class="hs-identifier">catDeclawed</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148861"><span class="hs-identifier hs-var">catDeclawed</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148857"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148860"><span class="hs-identifier hs-var">catDeclawed</span></a><span>
|
||||
</span><a name="line-615"></a><a name="catDeclawedL"><a href="SwaggerPetstore.ModelLens.html#catDeclawedL"><span class="hs-identifier">catDeclawedL</span></a></a><span> </span><a name="local-6989586621679149142"><a href="#local-6989586621679149142"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</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-6989586621679149146"><a href="#local-6989586621679149146"><span class="hs-identifier">catDeclawed</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Cat"><span class="hs-identifier hs-var">Cat</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149146"><span class="hs-identifier hs-var">catDeclawed</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149142"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149145"><span class="hs-identifier hs-var">catDeclawed</span></a><span>
|
||||
</span><a name="line-616"></a><span class="hs-pragma">{-# INLINE catDeclawedL #-}</span><span>
|
||||
</span><a name="line-617"></a><span>
|
||||
</span><a name="line-618"></a><span>
|
||||
@@ -621,17 +621,17 @@ Module : SwaggerPetstore.Lens
|
||||
</span><a name="line-621"></a><span>
|
||||
</span><a name="line-622"></a><span class="hs-comment">-- | 'dogClassName' Lens</span><span>
|
||||
</span><a name="line-623"></a><span class="hs-identifier">dogClassNameL</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.Model.html#Dog"><span class="hs-identifier hs-type">Dog</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-624"></a><a name="dogClassNameL"><a href="SwaggerPetstore.ModelLens.html#dogClassNameL"><span class="hs-identifier">dogClassNameL</span></a></a><span> </span><a name="local-6989586621679148862"><a href="#local-6989586621679148862"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</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-6989586621679148866"><a href="#local-6989586621679148866"><span class="hs-identifier">dogClassName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148866"><span class="hs-identifier hs-var">dogClassName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148862"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148863"><span class="hs-identifier hs-var">dogClassName</span></a><span>
|
||||
</span><a name="line-624"></a><a name="dogClassNameL"><a href="SwaggerPetstore.ModelLens.html#dogClassNameL"><span class="hs-identifier">dogClassNameL</span></a></a><span> </span><a name="local-6989586621679149147"><a href="#local-6989586621679149147"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</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-6989586621679149151"><a href="#local-6989586621679149151"><span class="hs-identifier">dogClassName</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149151"><span class="hs-identifier hs-var">dogClassName</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149147"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149148"><span class="hs-identifier hs-var">dogClassName</span></a><span>
|
||||
</span><a name="line-625"></a><span class="hs-pragma">{-# INLINE dogClassNameL #-}</span><span>
|
||||
</span><a name="line-626"></a><span>
|
||||
</span><a name="line-627"></a><span class="hs-comment">-- | 'dogColor' Lens</span><span>
|
||||
</span><a name="line-628"></a><span class="hs-identifier">dogColorL</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.Model.html#Dog"><span class="hs-identifier hs-type">Dog</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-629"></a><a name="dogColorL"><a href="SwaggerPetstore.ModelLens.html#dogColorL"><span class="hs-identifier">dogColorL</span></a></a><span> </span><a name="local-6989586621679148867"><a href="#local-6989586621679148867"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</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-6989586621679148871"><a href="#local-6989586621679148871"><span class="hs-identifier">dogColor</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148871"><span class="hs-identifier hs-var">dogColor</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148867"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148869"><span class="hs-identifier hs-var">dogColor</span></a><span>
|
||||
</span><a name="line-629"></a><a name="dogColorL"><a href="SwaggerPetstore.ModelLens.html#dogColorL"><span class="hs-identifier">dogColorL</span></a></a><span> </span><a name="local-6989586621679149152"><a href="#local-6989586621679149152"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</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-6989586621679149156"><a href="#local-6989586621679149156"><span class="hs-identifier">dogColor</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149156"><span class="hs-identifier hs-var">dogColor</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149152"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149154"><span class="hs-identifier hs-var">dogColor</span></a><span>
|
||||
</span><a name="line-630"></a><span class="hs-pragma">{-# INLINE dogColorL #-}</span><span>
|
||||
</span><a name="line-631"></a><span>
|
||||
</span><a name="line-632"></a><span class="hs-comment">-- | 'dogBreed' Lens</span><span>
|
||||
</span><a name="line-633"></a><span class="hs-identifier">dogBreedL</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.Model.html#Dog"><span class="hs-identifier hs-type">Dog</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Maybe</span><span> </span><span class="hs-identifier hs-type">Text</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-634"></a><a name="dogBreedL"><a href="SwaggerPetstore.ModelLens.html#dogBreedL"><span class="hs-identifier">dogBreedL</span></a></a><span> </span><a name="local-6989586621679148872"><a href="#local-6989586621679148872"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</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-6989586621679148876"><a href="#local-6989586621679148876"><span class="hs-identifier">dogBreed</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679148876"><span class="hs-identifier hs-var">dogBreed</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679148872"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679148875"><span class="hs-identifier hs-var">dogBreed</span></a><span>
|
||||
</span><a name="line-634"></a><a name="dogBreedL"><a href="SwaggerPetstore.ModelLens.html#dogBreedL"><span class="hs-identifier">dogBreedL</span></a></a><span> </span><a name="local-6989586621679149157"><a href="#local-6989586621679149157"><span class="hs-identifier">f</span></a></a><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</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-6989586621679149161"><a href="#local-6989586621679149161"><span class="hs-identifier">dogBreed</span></a></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="SwaggerPetstore.Model.html#Dog"><span class="hs-identifier hs-var">Dog</span></a><span> </span><span class="hs-special">{</span><span> </span><a href="#local-6989586621679149161"><span class="hs-identifier hs-var">dogBreed</span></a><span class="hs-special">,</span><span> </span><span class="hs-glyph">..</span><span class="hs-special">}</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-operator hs-var"><$></span><span> </span><a href="#local-6989586621679149157"><span class="hs-identifier hs-var">f</span></a><span> </span><a href="#local-6989586621679149160"><span class="hs-identifier hs-var">dogBreed</span></a><span>
|
||||
</span><a name="line-635"></a><span class="hs-pragma">{-# INLINE dogBreedL #-}</span><span>
|
||||
</span><a name="line-636"></a><span>
|
||||
</span><a name="line-637"></a><span>
|
||||
|
||||
Reference in New Issue
Block a user