mirror of
https://github.com/OpenAPITools/openapi-generator.git
synced 2025-12-19 22:27:07 +00:00
[haskell-http-client] fixes for GHC 9 (#10400)
- update stack/deps to LTS 18.10 for ghc-8.10.7 - fixes for GHC 9 - update samples
This commit is contained in:
Jon Schoning
GitHub
@@ -7,81 +7,106 @@
|
||||
OpenAPI Petstore API version: 1.0.0
|
||||
Generated by OpenAPI Generator (https://openapi-generator.tech)
|
||||
-}</span><span>
|
||||
</span><a name="line-10"></a><span>
|
||||
</span><a name="line-11"></a><span class="hs-comment">{-|
|
||||
</span><span id="line-10"></span><span>
|
||||
</span><span id="line-11"></span><span class="hs-comment">{-|
|
||||
Module : OpenAPIPetstore.API.AnotherFake
|
||||
-}</span><span>
|
||||
</span><a name="line-14"></a><span>
|
||||
</span><a name="line-15"></a><span class="hs-pragma">{-# LANGUAGE FlexibleContexts #-}</span><span>
|
||||
</span><a name="line-16"></a><span class="hs-pragma">{-# LANGUAGE FlexibleInstances #-}</span><span>
|
||||
</span><a name="line-17"></a><span class="hs-pragma">{-# LANGUAGE MonoLocalBinds #-}</span><span>
|
||||
</span><a name="line-18"></a><span class="hs-pragma">{-# LANGUAGE MultiParamTypeClasses #-}</span><span>
|
||||
</span><a name="line-19"></a><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><a name="line-20"></a><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><a name="line-21"></a><span>
|
||||
</span><a name="line-22"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.API.AnotherFake</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-23"></a><span>
|
||||
</span><a name="line-24"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.Core.html"><span class="hs-identifier">OpenAPIPetstore.Core</span></a><span>
|
||||
</span><a name="line-25"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html"><span class="hs-identifier">OpenAPIPetstore.MimeTypes</span></a><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.Model.html"><span class="hs-identifier">OpenAPIPetstore.Model</span></a><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">M</span><span>
|
||||
</span><a name="line-27"></a><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.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.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.ByteString.Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL</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.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><span class="hs-identifier hs-type">TypeRep</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">typeOf</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-32"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data.Foldable</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data.Map</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Map</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.Maybe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</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.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.Set</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Set</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.String</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</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.Text</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">Data.Text.Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</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.Text.Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TL</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.Text.Lazy.Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TL</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.Time</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</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">Network.HTTP.Client.MultipartFormData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</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">Network.HTTP.Media</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">ME</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">Network.HTTP.Types</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</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">Web.FormUrlEncoded</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</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">Web.HttpApiData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-48"></a><span>
|
||||
</span><a name="line-49"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data.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-50"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">GHC.Base</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-51"></a><span>
|
||||
</span><a name="line-52"></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 class="hs-special">(</span><span class="hs-operator hs-var">/=</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">>>=</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">,</span><span class="hs-identifier hs-type">FilePath</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Float</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">,</span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span class="hs-identifier hs-var">undefined</span><span class="hs-special">,</span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">,</span><span class="hs-identifier hs-var">maybe</span><span class="hs-special">,</span><span class="hs-identifier hs-var">pure</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Monad</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Applicative</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-53"></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-54"></a><span>
|
||||
</span><a name="line-55"></a><span class="hs-comment">-- * Operations</span><span>
|
||||
</span><a name="line-56"></a><span>
|
||||
</span><a name="line-57"></a><span>
|
||||
</span><a name="line-58"></a><span class="hs-comment">-- ** AnotherFake</span><span>
|
||||
</span><a name="line-59"></a><span>
|
||||
</span><a name="line-60"></a><span class="hs-comment">-- *** op123testSpecialTags</span><span>
|
||||
</span><a name="line-61"></a><span>
|
||||
</span><a name="line-62"></a><span class="hs-comment">-- | @PATCH \/another-fake\/dummy@</span><span>
|
||||
</span><a name="line-63"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-64"></a><span class="hs-comment">-- To test special tags</span><span>
|
||||
</span><a name="line-65"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-66"></a><span class="hs-comment">-- To test special tags and operation ID starting with number</span><span>
|
||||
</span><a name="line-67"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-68"></a><span class="hs-identifier">op123testSpecialTags</span><span>
|
||||
</span><a name="line-69"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="OpenAPIPetstore.API.AnotherFake.html#Op123testSpecialTags"><span class="hs-identifier hs-type">Op123testSpecialTags</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span class="hs-special">,</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-70"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span class="hs-comment">-- ^ "body" - client model</span><span>
|
||||
</span><a name="line-71"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a><span> </span><a href="OpenAPIPetstore.API.AnotherFake.html#Op123testSpecialTags"><span class="hs-identifier hs-type">Op123testSpecialTags</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
|
||||
</span><a name="line-72"></a><a name="op123testSpecialTags"><a href="OpenAPIPetstore.API.AnotherFake.html#op123testSpecialTags"><span class="hs-identifier">op123testSpecialTags</span></a></a><span> </span><a name="local-6989586621679189127"><a href="#local-6989586621679189127"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-73"></a><span> </span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">"PATCH"</span><span> </span><span class="hs-special">[</span><span class="hs-string">"/another-fake/dummy"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-74"></a><span> </span><span class="hs-special">`</span><a href="OpenAPIPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679189127"><span class="hs-identifier hs-var">body</span></a><span>
|
||||
</span><a name="line-75"></a><span>
|
||||
</span><a name="line-76"></a><span class="hs-keyword">data</span><span> </span><a name="Op123testSpecialTags"><a href="OpenAPIPetstore.API.AnotherFake.html#Op123testSpecialTags"><span class="hs-identifier">Op123testSpecialTags</span></a></a><span>
|
||||
</span><a name="line-77"></a><span>
|
||||
</span><a name="line-78"></a><span class="hs-comment">-- | /Body Param/ "body" - client model</span><span>
|
||||
</span><a name="line-79"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="OpenAPIPetstore.API.AnotherFake.html#Op123testSpecialTags"><span class="hs-identifier hs-type">Op123testSpecialTags</span></a><span> </span><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span>
|
||||
</span><a name="line-80"></a><span>
|
||||
</span><a name="line-81"></a><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><a name="line-82"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="OpenAPIPetstore.API.AnotherFake.html#Op123testSpecialTags"><span class="hs-identifier hs-type">Op123testSpecialTags</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
|
||||
</span><a name="line-83"></a><span>
|
||||
</span><a name="line-84"></a><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><a name="line-85"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.AnotherFake.html#Op123testSpecialTags"><span class="hs-identifier hs-type">Op123testSpecialTags</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
|
||||
</span><a name="line-86"></a><span>
|
||||
</span><a name="line-87"></a></pre></body></html>
|
||||
</span><span id="line-14"></span><span>
|
||||
</span><span id="line-15"></span><span class="hs-pragma">{-# LANGUAGE FlexibleContexts #-}</span><span>
|
||||
</span><span id="line-16"></span><span class="hs-pragma">{-# LANGUAGE FlexibleInstances #-}</span><span>
|
||||
</span><span id="line-17"></span><span class="hs-pragma">{-# LANGUAGE MonoLocalBinds #-}</span><span>
|
||||
</span><span id="line-18"></span><span class="hs-pragma">{-# LANGUAGE MultiParamTypeClasses #-}</span><span>
|
||||
</span><span id="line-19"></span><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><span id="line-20"></span><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><span id="line-21"></span><span>
|
||||
</span><span id="line-22"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.API.AnotherFake</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-23"></span><span>
|
||||
</span><span id="line-24"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html"><span class="hs-identifier">OpenAPIPetstore.Core</span></a></span><span>
|
||||
</span><span id="line-25"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html"><span class="hs-identifier">OpenAPIPetstore.MimeTypes</span></a></span><span>
|
||||
</span><span id="line-26"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html"><span class="hs-identifier">OpenAPIPetstore.Model</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">M</span></span><span>
|
||||
</span><span id="line-27"></span><span>
|
||||
</span><span id="line-28"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Aeson</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">A</span></span><span>
|
||||
</span><span id="line-29"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.ByteString</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">B</span></span><span>
|
||||
</span><span id="line-30"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.ByteString.Lazy</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">BL</span></span><span>
|
||||
</span><span id="line-31"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Data</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Typeable</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier">TypeRep</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier">typeOf</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier">typeRep</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-32"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Foldable</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-33"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Map</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Map</span></span><span>
|
||||
</span><span id="line-34"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Maybe</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-35"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Proxy</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Proxy</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-36"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Set</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Set</span></span><span>
|
||||
</span><span id="line-37"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.String</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-38"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">T</span></span><span>
|
||||
</span><span id="line-39"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text.Encoding</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">T</span></span><span>
|
||||
</span><span id="line-40"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text.Lazy</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">TL</span></span><span>
|
||||
</span><span id="line-41"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text.Lazy.Encoding</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">TL</span></span><span>
|
||||
</span><span id="line-42"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Time</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">TI</span></span><span>
|
||||
</span><span id="line-43"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Network.HTTP.Client.MultipartFormData</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">NH</span></span><span>
|
||||
</span><span id="line-44"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Network.HTTP.Media</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">ME</span></span><span>
|
||||
</span><span id="line-45"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Network.HTTP.Types</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">NH</span></span><span>
|
||||
</span><span id="line-46"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Web.FormUrlEncoded</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">WH</span></span><span>
|
||||
</span><span id="line-47"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Web.HttpApiData</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">WH</span></span><span>
|
||||
</span><span id="line-48"></span><span>
|
||||
</span><span id="line-49"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Text</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-50"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">GHC.Base</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-operator">(<|>)</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-51"></span><span>
|
||||
</span><span id="line-52"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Prelude</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-operator">(==)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(/=)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">($)</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-operator">(.)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(<$>)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(<*>)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(>>=)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Maybe</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Bool</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Char</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Double</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">FilePath</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Float</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Int</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Integer</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">String</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">fmap</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">undefined</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">mempty</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">maybe</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">pure</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Monad</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Applicative</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Functor</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-53"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Prelude</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-54"></span><span>
|
||||
</span><span id="line-55"></span><span class="hs-comment">-- * Operations</span><span>
|
||||
</span><span id="line-56"></span><span>
|
||||
</span><span id="line-57"></span><span>
|
||||
</span><span id="line-58"></span><span class="hs-comment">-- ** AnotherFake</span><span>
|
||||
</span><span id="line-59"></span><span>
|
||||
</span><span id="line-60"></span><span class="hs-comment">-- *** op123testSpecialTags</span><span>
|
||||
</span><span id="line-61"></span><span>
|
||||
</span><span id="line-62"></span><span class="hs-comment">-- | @PATCH \/another-fake\/dummy@</span><span>
|
||||
</span><span id="line-63"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-64"></span><span class="hs-comment">-- To test special tags</span><span>
|
||||
</span><span id="line-65"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-66"></span><span class="hs-comment">-- To test special tags and operation ID starting with number</span><span>
|
||||
</span><span id="line-67"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-68"></span><span class="annot"><a href="OpenAPIPetstore.API.AnotherFake.html#op123testSpecialTags"><span class="hs-identifier hs-type">op123testSpecialTags</span></a></span><span>
|
||||
</span><span id="line-69"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.AnotherFake.html#Op123testSpecialTags"><span class="hs-identifier hs-type">Op123testSpecialTags</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-70"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a></span><span> </span><span class="hs-comment">-- ^ "body" - client model</span><span>
|
||||
</span><span id="line-71"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.AnotherFake.html#Op123testSpecialTags"><span class="hs-identifier hs-type">Op123testSpecialTags</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span>
|
||||
</span><span id="line-72"></span><span id="op123testSpecialTags"><span class="annot"><span class="annottext">op123testSpecialTags :: Client
|
||||
-> OpenAPIPetstoreRequest
|
||||
Op123testSpecialTags MimeJSON Client MimeJSON
|
||||
</span><a href="OpenAPIPetstore.API.AnotherFake.html#op123testSpecialTags"><span class="hs-identifier hs-var hs-var">op123testSpecialTags</span></a></span></span><span> </span><span id="local-6989586621679152751"><span class="annot"><span class="annottext">Client
|
||||
</span><a href="#local-6989586621679152751"><span class="hs-identifier hs-var">body</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-73"></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest
|
||||
Op123testSpecialTags MimeJSON Client MimeJSON
|
||||
forall req contentType res accept.
|
||||
Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"PATCH"</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-string">"/another-fake/dummy"</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-74"></span><span> </span><span class="annot"><span class="annottext">OpenAPIPetstoreRequest
|
||||
Op123testSpecialTags MimeJSON Client MimeJSON
|
||||
-> Client
|
||||
-> OpenAPIPetstoreRequest
|
||||
Op123testSpecialTags MimeJSON Client MimeJSON
|
||||
forall req param contentType res accept.
|
||||
(HasBodyParam req param, Consumes req contentType,
|
||||
MimeRender contentType param) =>
|
||||
OpenAPIPetstoreRequest req contentType res accept
|
||||
-> param -> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#setBodyParam"><span class="hs-operator hs-var">`setBodyParam`</span></a></span><span> </span><span class="annot"><span class="annottext">Client
|
||||
</span><a href="#local-6989586621679152751"><span class="hs-identifier hs-var">body</span></a></span><span>
|
||||
</span><span id="line-75"></span><span>
|
||||
</span><span id="line-76"></span><span class="hs-keyword">data</span><span> </span><span id="Op123testSpecialTags"><span class="annot"><a href="OpenAPIPetstore.API.AnotherFake.html#Op123testSpecialTags"><span class="hs-identifier hs-var">Op123testSpecialTags</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-77"></span><span>
|
||||
</span><span id="line-78"></span><span class="hs-comment">-- | /Body Param/ "body" - client model</span><span>
|
||||
</span><span id="line-79"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679152747"><span class="annot"><a href="OpenAPIPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.AnotherFake.html#Op123testSpecialTags"><span class="hs-identifier hs-type">Op123testSpecialTags</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-80"></span><span>
|
||||
</span><span id="line-81"></span><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><span id="line-82"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.AnotherFake.html#Op123testSpecialTags"><span class="hs-identifier hs-type">Op123testSpecialTags</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span>
|
||||
</span><span id="line-83"></span><span>
|
||||
</span><span id="line-84"></span><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><span id="line-85"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.AnotherFake.html#Op123testSpecialTags"><span class="hs-identifier hs-type">Op123testSpecialTags</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span>
|
||||
</span><span id="line-86"></span><span>
|
||||
</span><span id="line-87"></span></pre></body></html>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -7,84 +7,115 @@
|
||||
OpenAPI Petstore API version: 1.0.0
|
||||
Generated by OpenAPI Generator (https://openapi-generator.tech)
|
||||
-}</span><span>
|
||||
</span><a name="line-10"></a><span>
|
||||
</span><a name="line-11"></a><span class="hs-comment">{-|
|
||||
</span><span id="line-10"></span><span>
|
||||
</span><span id="line-11"></span><span class="hs-comment">{-|
|
||||
Module : OpenAPIPetstore.API.FakeClassnameTags123
|
||||
-}</span><span>
|
||||
</span><a name="line-14"></a><span>
|
||||
</span><a name="line-15"></a><span class="hs-pragma">{-# LANGUAGE FlexibleContexts #-}</span><span>
|
||||
</span><a name="line-16"></a><span class="hs-pragma">{-# LANGUAGE FlexibleInstances #-}</span><span>
|
||||
</span><a name="line-17"></a><span class="hs-pragma">{-# LANGUAGE MonoLocalBinds #-}</span><span>
|
||||
</span><a name="line-18"></a><span class="hs-pragma">{-# LANGUAGE MultiParamTypeClasses #-}</span><span>
|
||||
</span><a name="line-19"></a><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><a name="line-20"></a><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><a name="line-21"></a><span>
|
||||
</span><a name="line-22"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.API.FakeClassnameTags123</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-23"></a><span>
|
||||
</span><a name="line-24"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.Core.html"><span class="hs-identifier">OpenAPIPetstore.Core</span></a><span>
|
||||
</span><a name="line-25"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html"><span class="hs-identifier">OpenAPIPetstore.MimeTypes</span></a><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.Model.html"><span class="hs-identifier">OpenAPIPetstore.Model</span></a><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">M</span><span>
|
||||
</span><a name="line-27"></a><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.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.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.ByteString.Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL</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.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><span class="hs-identifier hs-type">TypeRep</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">typeOf</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-32"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data.Foldable</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data.Map</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Map</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.Maybe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</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.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.Set</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Set</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.String</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</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.Text</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">Data.Text.Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</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.Text.Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TL</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.Text.Lazy.Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TL</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.Time</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</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">Network.HTTP.Client.MultipartFormData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</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">Network.HTTP.Media</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">ME</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">Network.HTTP.Types</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</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">Web.FormUrlEncoded</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</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">Web.HttpApiData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-48"></a><span>
|
||||
</span><a name="line-49"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data.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-50"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">GHC.Base</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-51"></a><span>
|
||||
</span><a name="line-52"></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 class="hs-special">(</span><span class="hs-operator hs-var">/=</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">>>=</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">,</span><span class="hs-identifier hs-type">FilePath</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Float</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">,</span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span class="hs-identifier hs-var">undefined</span><span class="hs-special">,</span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">,</span><span class="hs-identifier hs-var">maybe</span><span class="hs-special">,</span><span class="hs-identifier hs-var">pure</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Monad</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Applicative</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-53"></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-54"></a><span>
|
||||
</span><a name="line-55"></a><span class="hs-comment">-- * Operations</span><span>
|
||||
</span><a name="line-56"></a><span>
|
||||
</span><a name="line-57"></a><span>
|
||||
</span><a name="line-58"></a><span class="hs-comment">-- ** FakeClassnameTags123</span><span>
|
||||
</span><a name="line-59"></a><span>
|
||||
</span><a name="line-60"></a><span class="hs-comment">-- *** testClassname</span><span>
|
||||
</span><a name="line-61"></a><span>
|
||||
</span><a name="line-62"></a><span class="hs-comment">-- | @PATCH \/fake_classname_test@</span><span>
|
||||
</span><a name="line-63"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-64"></a><span class="hs-comment">-- To test class name in snake case</span><span>
|
||||
</span><a name="line-65"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-66"></a><span class="hs-comment">-- To test class name in snake case</span><span>
|
||||
</span><a name="line-67"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-68"></a><span class="hs-comment">-- AuthMethod: 'AuthApiKeyApiKeyQuery'</span><span>
|
||||
</span><a name="line-69"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-70"></a><span class="hs-identifier">testClassname</span><span>
|
||||
</span><a name="line-71"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span class="hs-special">,</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-72"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><span class="hs-comment">-- ^ "body" - client model</span><span>
|
||||
</span><a name="line-73"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a><span> </span><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
|
||||
</span><a name="line-74"></a><a name="testClassname"><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#testClassname"><span class="hs-identifier">testClassname</span></a></a><span> </span><a name="local-6989586621679186693"><a href="#local-6989586621679186693"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-75"></a><span> </span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">"PATCH"</span><span> </span><span class="hs-special">[</span><span class="hs-string">"/fake_classname_test"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-76"></a><span> </span><span class="hs-special">`</span><a href="OpenAPIPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P.Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P.Proxy</span><span> </span><a href="OpenAPIPetstore.Model.html#AuthApiKeyApiKeyQuery"><span class="hs-identifier hs-type">AuthApiKeyApiKeyQuery</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-77"></a><span> </span><span class="hs-special">`</span><a href="OpenAPIPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679186693"><span class="hs-identifier hs-var">body</span></a><span>
|
||||
</span><a name="line-78"></a><span>
|
||||
</span><a name="line-79"></a><span class="hs-keyword">data</span><span> </span><a name="TestClassname"><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier">TestClassname</span></a></a><span>
|
||||
</span><a name="line-80"></a><span>
|
||||
</span><a name="line-81"></a><span class="hs-comment">-- | /Body Param/ "body" - client model</span><span>
|
||||
</span><a name="line-82"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a><span>
|
||||
</span><a name="line-83"></a><span>
|
||||
</span><a name="line-84"></a><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><a name="line-85"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
|
||||
</span><a name="line-86"></a><span>
|
||||
</span><a name="line-87"></a><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><a name="line-88"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
|
||||
</span><a name="line-89"></a><span>
|
||||
</span><a name="line-90"></a></pre></body></html>
|
||||
</span><span id="line-14"></span><span>
|
||||
</span><span id="line-15"></span><span class="hs-pragma">{-# LANGUAGE FlexibleContexts #-}</span><span>
|
||||
</span><span id="line-16"></span><span class="hs-pragma">{-# LANGUAGE FlexibleInstances #-}</span><span>
|
||||
</span><span id="line-17"></span><span class="hs-pragma">{-# LANGUAGE MonoLocalBinds #-}</span><span>
|
||||
</span><span id="line-18"></span><span class="hs-pragma">{-# LANGUAGE MultiParamTypeClasses #-}</span><span>
|
||||
</span><span id="line-19"></span><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><span id="line-20"></span><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><span id="line-21"></span><span>
|
||||
</span><span id="line-22"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.API.FakeClassnameTags123</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-23"></span><span>
|
||||
</span><span id="line-24"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html"><span class="hs-identifier">OpenAPIPetstore.Core</span></a></span><span>
|
||||
</span><span id="line-25"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html"><span class="hs-identifier">OpenAPIPetstore.MimeTypes</span></a></span><span>
|
||||
</span><span id="line-26"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html"><span class="hs-identifier">OpenAPIPetstore.Model</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">M</span></span><span>
|
||||
</span><span id="line-27"></span><span>
|
||||
</span><span id="line-28"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Aeson</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">A</span></span><span>
|
||||
</span><span id="line-29"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.ByteString</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">B</span></span><span>
|
||||
</span><span id="line-30"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.ByteString.Lazy</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">BL</span></span><span>
|
||||
</span><span id="line-31"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Data</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Typeable</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier">TypeRep</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier">typeOf</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier">typeRep</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-32"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Foldable</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-33"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Map</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Map</span></span><span>
|
||||
</span><span id="line-34"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Maybe</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-35"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Proxy</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Proxy</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-36"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Set</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Set</span></span><span>
|
||||
</span><span id="line-37"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.String</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-38"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">T</span></span><span>
|
||||
</span><span id="line-39"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text.Encoding</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">T</span></span><span>
|
||||
</span><span id="line-40"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text.Lazy</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">TL</span></span><span>
|
||||
</span><span id="line-41"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text.Lazy.Encoding</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">TL</span></span><span>
|
||||
</span><span id="line-42"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Time</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">TI</span></span><span>
|
||||
</span><span id="line-43"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Network.HTTP.Client.MultipartFormData</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">NH</span></span><span>
|
||||
</span><span id="line-44"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Network.HTTP.Media</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">ME</span></span><span>
|
||||
</span><span id="line-45"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Network.HTTP.Types</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">NH</span></span><span>
|
||||
</span><span id="line-46"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Web.FormUrlEncoded</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">WH</span></span><span>
|
||||
</span><span id="line-47"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Web.HttpApiData</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">WH</span></span><span>
|
||||
</span><span id="line-48"></span><span>
|
||||
</span><span id="line-49"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Text</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-50"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">GHC.Base</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-operator">(<|>)</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-51"></span><span>
|
||||
</span><span id="line-52"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Prelude</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-operator">(==)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(/=)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">($)</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-operator">(.)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(<$>)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(<*>)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(>>=)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Maybe</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Bool</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Char</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Double</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">FilePath</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Float</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Int</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Integer</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">String</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">fmap</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">undefined</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">mempty</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">maybe</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">pure</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Monad</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Applicative</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Functor</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-53"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Prelude</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-54"></span><span>
|
||||
</span><span id="line-55"></span><span class="hs-comment">-- * Operations</span><span>
|
||||
</span><span id="line-56"></span><span>
|
||||
</span><span id="line-57"></span><span>
|
||||
</span><span id="line-58"></span><span class="hs-comment">-- ** FakeClassnameTags123</span><span>
|
||||
</span><span id="line-59"></span><span>
|
||||
</span><span id="line-60"></span><span class="hs-comment">-- *** testClassname</span><span>
|
||||
</span><span id="line-61"></span><span>
|
||||
</span><span id="line-62"></span><span class="hs-comment">-- | @PATCH \/fake_classname_test@</span><span>
|
||||
</span><span id="line-63"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-64"></span><span class="hs-comment">-- To test class name in snake case</span><span>
|
||||
</span><span id="line-65"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-66"></span><span class="hs-comment">-- To test class name in snake case</span><span>
|
||||
</span><span id="line-67"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-68"></span><span class="hs-comment">-- AuthMethod: 'AuthApiKeyApiKeyQuery'</span><span>
|
||||
</span><span id="line-69"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-70"></span><span class="annot"><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#testClassname"><span class="hs-identifier hs-type">testClassname</span></a></span><span>
|
||||
</span><span id="line-71"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-72"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a></span><span> </span><span class="hs-comment">-- ^ "body" - client model</span><span>
|
||||
</span><span id="line-73"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span>
|
||||
</span><span id="line-74"></span><span id="testClassname"><span class="annot"><span class="annottext">testClassname :: Client
|
||||
-> OpenAPIPetstoreRequest TestClassname MimeJSON Client MimeJSON
|
||||
</span><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#testClassname"><span class="hs-identifier hs-var hs-var">testClassname</span></a></span></span><span> </span><span id="local-6989586621679152079"><span class="annot"><span class="annottext">Client
|
||||
</span><a href="#local-6989586621679152079"><span class="hs-identifier hs-var">body</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-75"></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest TestClassname MimeJSON Client MimeJSON
|
||||
forall req contentType res accept.
|
||||
Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"PATCH"</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-string">"/fake_classname_test"</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-76"></span><span> </span><span class="annot"><span class="annottext">OpenAPIPetstoreRequest TestClassname MimeJSON Client MimeJSON
|
||||
-> Proxy AuthApiKeyApiKeyQuery
|
||||
-> OpenAPIPetstoreRequest TestClassname MimeJSON Client MimeJSON
|
||||
forall authMethod req contentType res accept.
|
||||
AuthMethod authMethod =>
|
||||
OpenAPIPetstoreRequest req contentType res accept
|
||||
-> Proxy authMethod
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_hasAuthType"><span class="hs-operator hs-var">`_hasAuthType`</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy AuthApiKeyApiKeyQuery
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">P.Proxy</span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.Proxy</span></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#AuthApiKeyApiKeyQuery"><span class="hs-identifier hs-type">AuthApiKeyApiKeyQuery</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-77"></span><span> </span><span class="annot"><span class="annottext">OpenAPIPetstoreRequest TestClassname MimeJSON Client MimeJSON
|
||||
-> Client
|
||||
-> OpenAPIPetstoreRequest TestClassname MimeJSON Client MimeJSON
|
||||
forall req param contentType res accept.
|
||||
(HasBodyParam req param, Consumes req contentType,
|
||||
MimeRender contentType param) =>
|
||||
OpenAPIPetstoreRequest req contentType res accept
|
||||
-> param -> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#setBodyParam"><span class="hs-operator hs-var">`setBodyParam`</span></a></span><span> </span><span class="annot"><span class="annottext">Client
|
||||
</span><a href="#local-6989586621679152079"><span class="hs-identifier hs-var">body</span></a></span><span>
|
||||
</span><span id="line-78"></span><span>
|
||||
</span><span id="line-79"></span><span class="hs-keyword">data</span><span> </span><span id="TestClassname"><span class="annot"><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-var">TestClassname</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-80"></span><span>
|
||||
</span><span id="line-81"></span><span class="hs-comment">-- | /Body Param/ "body" - client model</span><span>
|
||||
</span><span id="line-82"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679152073"><span class="annot"><a href="OpenAPIPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Client"><span class="hs-identifier hs-type">Client</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-83"></span><span>
|
||||
</span><span id="line-84"></span><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><span id="line-85"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span>
|
||||
</span><span id="line-86"></span><span>
|
||||
</span><span id="line-87"></span><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><span id="line-88"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.FakeClassnameTags123.html#TestClassname"><span class="hs-identifier hs-type">TestClassname</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span>
|
||||
</span><span id="line-89"></span><span>
|
||||
</span><span id="line-90"></span></pre></body></html>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -7,144 +7,227 @@
|
||||
OpenAPI Petstore API version: 1.0.0
|
||||
Generated by OpenAPI Generator (https://openapi-generator.tech)
|
||||
-}</span><span>
|
||||
</span><a name="line-10"></a><span>
|
||||
</span><a name="line-11"></a><span class="hs-comment">{-|
|
||||
</span><span id="line-10"></span><span>
|
||||
</span><span id="line-11"></span><span class="hs-comment">{-|
|
||||
Module : OpenAPIPetstore.API.Store
|
||||
-}</span><span>
|
||||
</span><a name="line-14"></a><span>
|
||||
</span><a name="line-15"></a><span class="hs-pragma">{-# LANGUAGE FlexibleContexts #-}</span><span>
|
||||
</span><a name="line-16"></a><span class="hs-pragma">{-# LANGUAGE FlexibleInstances #-}</span><span>
|
||||
</span><a name="line-17"></a><span class="hs-pragma">{-# LANGUAGE MonoLocalBinds #-}</span><span>
|
||||
</span><a name="line-18"></a><span class="hs-pragma">{-# LANGUAGE MultiParamTypeClasses #-}</span><span>
|
||||
</span><a name="line-19"></a><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><a name="line-20"></a><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><a name="line-21"></a><span>
|
||||
</span><a name="line-22"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.API.Store</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-23"></a><span>
|
||||
</span><a name="line-24"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.Core.html"><span class="hs-identifier">OpenAPIPetstore.Core</span></a><span>
|
||||
</span><a name="line-25"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html"><span class="hs-identifier">OpenAPIPetstore.MimeTypes</span></a><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.Model.html"><span class="hs-identifier">OpenAPIPetstore.Model</span></a><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">M</span><span>
|
||||
</span><a name="line-27"></a><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.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.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.ByteString.Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL</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.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><span class="hs-identifier hs-type">TypeRep</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">typeOf</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-32"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data.Foldable</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data.Map</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Map</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.Maybe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</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.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.Set</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Set</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.String</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</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.Text</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">Data.Text.Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</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.Text.Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TL</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.Text.Lazy.Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TL</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.Time</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</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">Network.HTTP.Client.MultipartFormData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</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">Network.HTTP.Media</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">ME</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">Network.HTTP.Types</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</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">Web.FormUrlEncoded</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</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">Web.HttpApiData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-48"></a><span>
|
||||
</span><a name="line-49"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data.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-50"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">GHC.Base</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-51"></a><span>
|
||||
</span><a name="line-52"></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 class="hs-special">(</span><span class="hs-operator hs-var">/=</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">>>=</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">,</span><span class="hs-identifier hs-type">FilePath</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Float</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">,</span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span class="hs-identifier hs-var">undefined</span><span class="hs-special">,</span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">,</span><span class="hs-identifier hs-var">maybe</span><span class="hs-special">,</span><span class="hs-identifier hs-var">pure</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Monad</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Applicative</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-53"></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-54"></a><span>
|
||||
</span><a name="line-55"></a><span class="hs-comment">-- * Operations</span><span>
|
||||
</span><a name="line-56"></a><span>
|
||||
</span><a name="line-57"></a><span>
|
||||
</span><a name="line-58"></a><span class="hs-comment">-- ** Store</span><span>
|
||||
</span><a name="line-59"></a><span>
|
||||
</span><a name="line-60"></a><span class="hs-comment">-- *** deleteOrder</span><span>
|
||||
</span><a name="line-61"></a><span>
|
||||
</span><a name="line-62"></a><span class="hs-comment">-- | @DELETE \/store\/order\/{order_id}@</span><span>
|
||||
</span><a name="line-63"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-64"></a><span class="hs-comment">-- Delete purchase order by ID</span><span>
|
||||
</span><a name="line-65"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-66"></a><span class="hs-comment">-- For valid response try integer IDs with value < 1000. Anything above 1000 or nonintegers will generate API errors</span><span>
|
||||
</span><a name="line-67"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-68"></a><span class="hs-identifier">deleteOrder</span><span>
|
||||
</span><a name="line-69"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.Model.html#OrderIdText"><span class="hs-identifier hs-type">OrderIdText</span></a><span> </span><span class="hs-comment">-- ^ "orderId" - ID of the order that needs to be deleted</span><span>
|
||||
</span><a name="line-70"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a><span> </span><a href="OpenAPIPetstore.API.Store.html#DeleteOrder"><span class="hs-identifier hs-type">DeleteOrder</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
|
||||
</span><a name="line-71"></a><a name="deleteOrder"><a href="OpenAPIPetstore.API.Store.html#deleteOrder"><span class="hs-identifier">deleteOrder</span></a></a><span> </span><span class="hs-special">(</span><a href="OpenAPIPetstore.Model.html#OrderIdText"><span class="hs-identifier hs-var">OrderIdText</span></a><span> </span><a name="local-6989586621679185324"><a href="#local-6989586621679185324"><span class="hs-identifier">orderId</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-72"></a><span> </span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">"DELETE"</span><span> </span><span class="hs-special">[</span><span class="hs-string">"/store/order/"</span><span class="hs-special">,</span><a href="OpenAPIPetstore.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679185324"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-73"></a><span>
|
||||
</span><a name="line-74"></a><span class="hs-keyword">data</span><span> </span><a name="DeleteOrder"><a href="OpenAPIPetstore.API.Store.html#DeleteOrder"><span class="hs-identifier">DeleteOrder</span></a></a><span>
|
||||
</span><a name="line-75"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.Store.html#DeleteOrder"><span class="hs-identifier hs-type">DeleteOrder</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><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">-- *** getInventory</span><span>
|
||||
</span><a name="line-79"></a><span>
|
||||
</span><a name="line-80"></a><span class="hs-comment">-- | @GET \/store\/inventory@</span><span>
|
||||
</span><a name="line-81"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-82"></a><span class="hs-comment">-- Returns pet inventories by status</span><span>
|
||||
</span><a name="line-83"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-84"></a><span class="hs-comment">-- Returns a map of status codes to quantities</span><span>
|
||||
</span><a name="line-85"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-86"></a><span class="hs-comment">-- AuthMethod: 'AuthApiKeyApiKey'</span><span>
|
||||
</span><a name="line-87"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-88"></a><span class="hs-identifier">getInventory</span><span>
|
||||
</span><a name="line-89"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a><span> </span><a href="OpenAPIPetstore.API.Store.html#GetInventory"><span class="hs-identifier hs-type">GetInventory</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-identifier hs-type">Map.Map</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><span class="hs-identifier hs-type">Int</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
|
||||
</span><a name="line-90"></a><a name="getInventory"><a href="OpenAPIPetstore.API.Store.html#getInventory"><span class="hs-identifier">getInventory</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-91"></a><span> </span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">"GET"</span><span> </span><span class="hs-special">[</span><span class="hs-string">"/store/inventory"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-92"></a><span> </span><span class="hs-special">`</span><a href="OpenAPIPetstore.Core.html#_hasAuthType"><span class="hs-identifier hs-var">_hasAuthType</span></a><span class="hs-special">`</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">P.Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P.Proxy</span><span> </span><a href="OpenAPIPetstore.Model.html#AuthApiKeyApiKey"><span class="hs-identifier hs-type">AuthApiKeyApiKey</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-93"></a><span>
|
||||
</span><a name="line-94"></a><span class="hs-keyword">data</span><span> </span><a name="GetInventory"><a href="OpenAPIPetstore.API.Store.html#GetInventory"><span class="hs-identifier">GetInventory</span></a></a><span>
|
||||
</span><a name="line-95"></a><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><a name="line-96"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.Store.html#GetInventory"><span class="hs-identifier hs-type">GetInventory</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
|
||||
</span><a name="line-97"></a><span>
|
||||
</span><a name="line-98"></a><span>
|
||||
</span><a name="line-99"></a><span class="hs-comment">-- *** getOrderById</span><span>
|
||||
</span><a name="line-100"></a><span>
|
||||
</span><a name="line-101"></a><span class="hs-comment">-- | @GET \/store\/order\/{order_id}@</span><span>
|
||||
</span><a name="line-102"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-103"></a><span class="hs-comment">-- Find purchase order by ID</span><span>
|
||||
</span><a name="line-104"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-105"></a><span class="hs-comment">-- For valid response try integer IDs with value <= 5 or > 10. Other values will generated exceptions</span><span>
|
||||
</span><a name="line-106"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-107"></a><span class="hs-identifier">getOrderById</span><span>
|
||||
</span><a name="line-108"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679185323"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
|
||||
</span><a name="line-109"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Model.html#OrderId"><span class="hs-identifier hs-type">OrderId</span></a><span> </span><span class="hs-comment">-- ^ "orderId" - ID of pet that needs to be fetched</span><span>
|
||||
</span><a name="line-110"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a><span> </span><a href="OpenAPIPetstore.API.Store.html#GetOrderById"><span class="hs-identifier hs-type">GetOrderById</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="OpenAPIPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><a href="#local-6989586621679185323"><span class="hs-identifier hs-type">accept</span></a><span>
|
||||
</span><a name="line-111"></a><a name="getOrderById"><a href="OpenAPIPetstore.API.Store.html#getOrderById"><span class="hs-identifier">getOrderById</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="OpenAPIPetstore.Model.html#OrderId"><span class="hs-identifier hs-var">OrderId</span></a><span> </span><a name="local-6989586621679185325"><a href="#local-6989586621679185325"><span class="hs-identifier">orderId</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-112"></a><span> </span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">"GET"</span><span> </span><span class="hs-special">[</span><span class="hs-string">"/store/order/"</span><span class="hs-special">,</span><a href="OpenAPIPetstore.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679185325"><span class="hs-identifier hs-var">orderId</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-113"></a><span>
|
||||
</span><a name="line-114"></a><span class="hs-keyword">data</span><span> </span><a name="GetOrderById"><a href="OpenAPIPetstore.API.Store.html#GetOrderById"><span class="hs-identifier">GetOrderById</span></a></a><span>
|
||||
</span><a name="line-115"></a><span class="hs-comment">-- | @application/xml@</span><span>
|
||||
</span><a name="line-116"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.Store.html#GetOrderById"><span class="hs-identifier hs-type">GetOrderById</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
|
||||
</span><a name="line-117"></a><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><a name="line-118"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.Store.html#GetOrderById"><span class="hs-identifier hs-type">GetOrderById</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
|
||||
</span><a name="line-119"></a><span>
|
||||
</span><a name="line-120"></a><span>
|
||||
</span><a name="line-121"></a><span class="hs-comment">-- *** placeOrder</span><span>
|
||||
</span><a name="line-122"></a><span>
|
||||
</span><a name="line-123"></a><span class="hs-comment">-- | @POST \/store\/order@</span><span>
|
||||
</span><a name="line-124"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-125"></a><span class="hs-comment">-- Place an order for a pet</span><span>
|
||||
</span><a name="line-126"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-127"></a><span class="hs-identifier">placeOrder</span><span>
|
||||
</span><a name="line-128"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="OpenAPIPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="#local-6989586621679185321"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679185321"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="OpenAPIPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-129"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679185321"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
|
||||
</span><a name="line-130"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679185322"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
|
||||
</span><a name="line-131"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><span class="hs-comment">-- ^ "body" - order placed for purchasing the pet</span><span>
|
||||
</span><a name="line-132"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a><span> </span><a href="OpenAPIPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="#local-6989586621679185321"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="OpenAPIPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span> </span><a href="#local-6989586621679185322"><span class="hs-identifier hs-type">accept</span></a><span>
|
||||
</span><a name="line-133"></a><a name="placeOrder"><a href="OpenAPIPetstore.API.Store.html#placeOrder"><span class="hs-identifier">placeOrder</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679185326"><a href="#local-6989586621679185326"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-134"></a><span> </span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">"POST"</span><span> </span><span class="hs-special">[</span><span class="hs-string">"/store/order"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-135"></a><span> </span><span class="hs-special">`</span><a href="OpenAPIPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679185326"><span class="hs-identifier hs-var">body</span></a><span>
|
||||
</span><a name="line-136"></a><span>
|
||||
</span><a name="line-137"></a><span class="hs-keyword">data</span><span> </span><a name="PlaceOrder"><a href="OpenAPIPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier">PlaceOrder</span></a></a><span>
|
||||
</span><a name="line-138"></a><span>
|
||||
</span><a name="line-139"></a><span class="hs-comment">-- | /Body Param/ "body" - order placed for purchasing the pet</span><span>
|
||||
</span><a name="line-140"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="OpenAPIPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="OpenAPIPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a><span>
|
||||
</span><a name="line-141"></a><span>
|
||||
</span><a name="line-142"></a><span class="hs-comment">-- | @*/*@</span><span>
|
||||
</span><a name="line-143"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679185320"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="OpenAPIPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="#local-6989586621679185320"><span class="hs-identifier hs-type">mtype</span></a><span>
|
||||
</span><a name="line-144"></a><span>
|
||||
</span><a name="line-145"></a><span class="hs-comment">-- | @application/xml@</span><span>
|
||||
</span><a name="line-146"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
|
||||
</span><a name="line-147"></a><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><a name="line-148"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
|
||||
</span><a name="line-149"></a><span>
|
||||
</span><a name="line-150"></a></pre></body></html>
|
||||
</span><span id="line-14"></span><span>
|
||||
</span><span id="line-15"></span><span class="hs-pragma">{-# LANGUAGE FlexibleContexts #-}</span><span>
|
||||
</span><span id="line-16"></span><span class="hs-pragma">{-# LANGUAGE FlexibleInstances #-}</span><span>
|
||||
</span><span id="line-17"></span><span class="hs-pragma">{-# LANGUAGE MonoLocalBinds #-}</span><span>
|
||||
</span><span id="line-18"></span><span class="hs-pragma">{-# LANGUAGE MultiParamTypeClasses #-}</span><span>
|
||||
</span><span id="line-19"></span><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><span id="line-20"></span><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><span id="line-21"></span><span>
|
||||
</span><span id="line-22"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.API.Store</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-23"></span><span>
|
||||
</span><span id="line-24"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html"><span class="hs-identifier">OpenAPIPetstore.Core</span></a></span><span>
|
||||
</span><span id="line-25"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html"><span class="hs-identifier">OpenAPIPetstore.MimeTypes</span></a></span><span>
|
||||
</span><span id="line-26"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html"><span class="hs-identifier">OpenAPIPetstore.Model</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">M</span></span><span>
|
||||
</span><span id="line-27"></span><span>
|
||||
</span><span id="line-28"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Aeson</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">A</span></span><span>
|
||||
</span><span id="line-29"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.ByteString</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">B</span></span><span>
|
||||
</span><span id="line-30"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.ByteString.Lazy</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">BL</span></span><span>
|
||||
</span><span id="line-31"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Data</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Typeable</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier">TypeRep</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier">typeOf</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier">typeRep</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-32"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Foldable</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-33"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Map</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Map</span></span><span>
|
||||
</span><span id="line-34"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Maybe</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-35"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Proxy</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Proxy</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-36"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Set</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Set</span></span><span>
|
||||
</span><span id="line-37"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.String</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-38"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">T</span></span><span>
|
||||
</span><span id="line-39"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text.Encoding</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">T</span></span><span>
|
||||
</span><span id="line-40"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text.Lazy</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">TL</span></span><span>
|
||||
</span><span id="line-41"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text.Lazy.Encoding</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">TL</span></span><span>
|
||||
</span><span id="line-42"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Time</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">TI</span></span><span>
|
||||
</span><span id="line-43"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Network.HTTP.Client.MultipartFormData</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">NH</span></span><span>
|
||||
</span><span id="line-44"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Network.HTTP.Media</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">ME</span></span><span>
|
||||
</span><span id="line-45"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Network.HTTP.Types</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">NH</span></span><span>
|
||||
</span><span id="line-46"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Web.FormUrlEncoded</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">WH</span></span><span>
|
||||
</span><span id="line-47"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Web.HttpApiData</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">WH</span></span><span>
|
||||
</span><span id="line-48"></span><span>
|
||||
</span><span id="line-49"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Text</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-50"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">GHC.Base</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-operator">(<|>)</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-51"></span><span>
|
||||
</span><span id="line-52"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Prelude</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-operator">(==)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(/=)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">($)</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-operator">(.)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(<$>)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(<*>)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(>>=)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Maybe</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Bool</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Char</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Double</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">FilePath</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Float</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Int</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Integer</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">String</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">fmap</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">undefined</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">mempty</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">maybe</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">pure</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Monad</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Applicative</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Functor</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-53"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Prelude</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-54"></span><span>
|
||||
</span><span id="line-55"></span><span class="hs-comment">-- * Operations</span><span>
|
||||
</span><span id="line-56"></span><span>
|
||||
</span><span id="line-57"></span><span>
|
||||
</span><span id="line-58"></span><span class="hs-comment">-- ** Store</span><span>
|
||||
</span><span id="line-59"></span><span>
|
||||
</span><span id="line-60"></span><span class="hs-comment">-- *** deleteOrder</span><span>
|
||||
</span><span id="line-61"></span><span>
|
||||
</span><span id="line-62"></span><span class="hs-comment">-- | @DELETE \/store\/order\/{order_id}@</span><span>
|
||||
</span><span id="line-63"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-64"></span><span class="hs-comment">-- Delete purchase order by ID</span><span>
|
||||
</span><span id="line-65"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-66"></span><span class="hs-comment">-- For valid response try integer IDs with value < 1000. Anything above 1000 or nonintegers will generate API errors</span><span>
|
||||
</span><span id="line-67"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-68"></span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#deleteOrder"><span class="hs-identifier hs-type">deleteOrder</span></a></span><span>
|
||||
</span><span id="line-69"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#OrderIdText"><span class="hs-identifier hs-type">OrderIdText</span></a></span><span> </span><span class="hs-comment">-- ^ "orderId" - ID of the order that needs to be deleted</span><span>
|
||||
</span><span id="line-70"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#DeleteOrder"><span class="hs-identifier hs-type">DeleteOrder</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span>
|
||||
</span><span id="line-71"></span><span id="deleteOrder"><span class="annot"><span class="annottext">deleteOrder :: OrderIdText
|
||||
-> OpenAPIPetstoreRequest
|
||||
DeleteOrder MimeNoContent NoContent MimeNoContent
|
||||
</span><a href="OpenAPIPetstore.API.Store.html#deleteOrder"><span class="hs-identifier hs-var hs-var">deleteOrder</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="OpenAPIPetstore.Model.html#OrderIdText"><span class="hs-identifier hs-type">OrderIdText</span></a></span><span> </span><span id="local-6989586621679151727"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679151727"><span class="hs-identifier hs-var">orderId</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-72"></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest
|
||||
DeleteOrder MimeNoContent NoContent MimeNoContent
|
||||
forall req contentType res accept.
|
||||
Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"DELETE"</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-string">"/store/order/"</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Text -> ByteString
|
||||
forall a. ToHttpApiData a => a -> ByteString
|
||||
</span><a href="OpenAPIPetstore.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679151727"><span class="hs-identifier hs-var">orderId</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-73"></span><span>
|
||||
</span><span id="line-74"></span><span class="hs-keyword">data</span><span> </span><span id="DeleteOrder"><span class="annot"><a href="OpenAPIPetstore.API.Store.html#DeleteOrder"><span class="hs-identifier hs-var">DeleteOrder</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-75"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#DeleteOrder"><span class="hs-identifier hs-type">DeleteOrder</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span>
|
||||
</span><span id="line-76"></span><span>
|
||||
</span><span id="line-77"></span><span>
|
||||
</span><span id="line-78"></span><span class="hs-comment">-- *** getInventory</span><span>
|
||||
</span><span id="line-79"></span><span>
|
||||
</span><span id="line-80"></span><span class="hs-comment">-- | @GET \/store\/inventory@</span><span>
|
||||
</span><span id="line-81"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-82"></span><span class="hs-comment">-- Returns pet inventories by status</span><span>
|
||||
</span><span id="line-83"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-84"></span><span class="hs-comment">-- Returns a map of status codes to quantities</span><span>
|
||||
</span><span id="line-85"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-86"></span><span class="hs-comment">-- AuthMethod: 'AuthApiKeyApiKey'</span><span>
|
||||
</span><span id="line-87"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-88"></span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#getInventory"><span class="hs-identifier hs-type">getInventory</span></a></span><span>
|
||||
</span><span id="line-89"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#GetInventory"><span class="hs-identifier hs-type">GetInventory</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Map.Map</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span>
|
||||
</span><span id="line-90"></span><span id="getInventory"><span class="annot"><span class="annottext">getInventory :: OpenAPIPetstoreRequest
|
||||
GetInventory MimeNoContent (Map String Int) MimeJSON
|
||||
</span><a href="OpenAPIPetstore.API.Store.html#getInventory"><span class="hs-identifier hs-var hs-var">getInventory</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-91"></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest
|
||||
GetInventory MimeNoContent (Map String Int) MimeJSON
|
||||
forall req contentType res accept.
|
||||
Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"GET"</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-string">"/store/inventory"</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-92"></span><span> </span><span class="annot"><span class="annottext">OpenAPIPetstoreRequest
|
||||
GetInventory MimeNoContent (Map String Int) MimeJSON
|
||||
-> Proxy AuthApiKeyApiKey
|
||||
-> OpenAPIPetstoreRequest
|
||||
GetInventory MimeNoContent (Map String Int) MimeJSON
|
||||
forall authMethod req contentType res accept.
|
||||
AuthMethod authMethod =>
|
||||
OpenAPIPetstoreRequest req contentType res accept
|
||||
-> Proxy authMethod
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_hasAuthType"><span class="hs-operator hs-var">`_hasAuthType`</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy AuthApiKeyApiKey
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">P.Proxy</span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.Proxy</span></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#AuthApiKeyApiKey"><span class="hs-identifier hs-type">AuthApiKeyApiKey</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-93"></span><span>
|
||||
</span><span id="line-94"></span><span class="hs-keyword">data</span><span> </span><span id="GetInventory"><span class="annot"><a href="OpenAPIPetstore.API.Store.html#GetInventory"><span class="hs-identifier hs-var">GetInventory</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-95"></span><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><span id="line-96"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#GetInventory"><span class="hs-identifier hs-type">GetInventory</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span>
|
||||
</span><span id="line-97"></span><span>
|
||||
</span><span id="line-98"></span><span>
|
||||
</span><span id="line-99"></span><span class="hs-comment">-- *** getOrderById</span><span>
|
||||
</span><span id="line-100"></span><span>
|
||||
</span><span id="line-101"></span><span class="hs-comment">-- | @GET \/store\/order\/{order_id}@</span><span>
|
||||
</span><span id="line-102"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-103"></span><span class="hs-comment">-- Find purchase order by ID</span><span>
|
||||
</span><span id="line-104"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-105"></span><span class="hs-comment">-- For valid response try integer IDs with value <= 5 or > 10. Other values will generated exceptions</span><span>
|
||||
</span><span id="line-106"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-107"></span><span id="local-6989586621679151718"><span class="annot"><a href="OpenAPIPetstore.API.Store.html#getOrderById"><span class="hs-identifier hs-type">getOrderById</span></a></span><span>
|
||||
</span><span id="line-108"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151718"><span class="hs-identifier hs-type">accept</span></a></span><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
|
||||
</span><span id="line-109"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#OrderId"><span class="hs-identifier hs-type">OrderId</span></a></span><span> </span><span class="hs-comment">-- ^ "orderId" - ID of pet that needs to be fetched</span><span>
|
||||
</span><span id="line-110"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#GetOrderById"><span class="hs-identifier hs-type">GetOrderById</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151718"><span class="hs-identifier hs-type">accept</span></a></span></span><span>
|
||||
</span><span id="line-111"></span><span id="getOrderById"><span class="annot"><span class="annottext">getOrderById :: Accept accept
|
||||
-> OrderId
|
||||
-> OpenAPIPetstoreRequest GetOrderById MimeNoContent Order accept
|
||||
</span><a href="OpenAPIPetstore.API.Store.html#getOrderById"><span class="hs-identifier hs-var hs-var">getOrderById</span></a></span></span><span> </span><span class="annot"><span class="annottext">Accept accept
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="OpenAPIPetstore.Model.html#OrderId"><span class="hs-identifier hs-type">OrderId</span></a></span><span> </span><span id="local-6989586621679151715"><span class="annot"><span class="annottext">Integer
|
||||
</span><a href="#local-6989586621679151715"><span class="hs-identifier hs-var">orderId</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-112"></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest GetOrderById MimeNoContent Order accept
|
||||
forall req contentType res accept.
|
||||
Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"GET"</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-string">"/store/order/"</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Integer -> ByteString
|
||||
forall a. ToHttpApiData a => a -> ByteString
|
||||
</span><a href="OpenAPIPetstore.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
|
||||
</span><a href="#local-6989586621679151715"><span class="hs-identifier hs-var">orderId</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-113"></span><span>
|
||||
</span><span id="line-114"></span><span class="hs-keyword">data</span><span> </span><span id="GetOrderById"><span class="annot"><a href="OpenAPIPetstore.API.Store.html#GetOrderById"><span class="hs-identifier hs-var">GetOrderById</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-115"></span><span class="hs-comment">-- | @application/xml@</span><span>
|
||||
</span><span id="line-116"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#GetOrderById"><span class="hs-identifier hs-type">GetOrderById</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a></span><span>
|
||||
</span><span id="line-117"></span><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><span id="line-118"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#GetOrderById"><span class="hs-identifier hs-type">GetOrderById</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span>
|
||||
</span><span id="line-119"></span><span>
|
||||
</span><span id="line-120"></span><span>
|
||||
</span><span id="line-121"></span><span class="hs-comment">-- *** placeOrder</span><span>
|
||||
</span><span id="line-122"></span><span>
|
||||
</span><span id="line-123"></span><span class="hs-comment">-- | @POST \/store\/order@</span><span>
|
||||
</span><span id="line-124"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-125"></span><span class="hs-comment">-- Place an order for a pet</span><span>
|
||||
</span><span id="line-126"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-127"></span><span id="local-6989586621679151711"><span id="local-6989586621679151712"><span class="annot"><a href="OpenAPIPetstore.API.Store.html#placeOrder"><span class="hs-identifier hs-type">placeOrder</span></a></span><span>
|
||||
</span><span id="line-128"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151712"><span class="hs-identifier hs-type">contentType</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151712"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-129"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151712"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
|
||||
</span><span id="line-130"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151711"><span class="hs-identifier hs-type">accept</span></a></span><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
|
||||
</span><span id="line-131"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a></span><span> </span><span class="hs-comment">-- ^ "body" - order placed for purchasing the pet</span><span>
|
||||
</span><span id="line-132"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151712"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151711"><span class="hs-identifier hs-type">accept</span></a></span></span></span><span>
|
||||
</span><span id="line-133"></span><span id="placeOrder"><span class="annot"><span class="annottext">placeOrder :: ContentType contentType
|
||||
-> Accept accept
|
||||
-> Order
|
||||
-> OpenAPIPetstoreRequest PlaceOrder contentType Order accept
|
||||
</span><a href="OpenAPIPetstore.API.Store.html#placeOrder"><span class="hs-identifier hs-var hs-var">placeOrder</span></a></span></span><span> </span><span class="annot"><span class="annottext">ContentType contentType
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Accept accept
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679151709"><span class="annot"><span class="annottext">Order
|
||||
</span><a href="#local-6989586621679151709"><span class="hs-identifier hs-var">body</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-134"></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest PlaceOrder contentType Order accept
|
||||
forall req contentType res accept.
|
||||
Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"POST"</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-string">"/store/order"</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-135"></span><span> </span><span class="annot"><span class="annottext">OpenAPIPetstoreRequest PlaceOrder contentType Order accept
|
||||
-> Order
|
||||
-> OpenAPIPetstoreRequest PlaceOrder contentType Order accept
|
||||
forall req param contentType res accept.
|
||||
(HasBodyParam req param, Consumes req contentType,
|
||||
MimeRender contentType param) =>
|
||||
OpenAPIPetstoreRequest req contentType res accept
|
||||
-> param -> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#setBodyParam"><span class="hs-operator hs-var">`setBodyParam`</span></a></span><span> </span><span class="annot"><span class="annottext">Order
|
||||
</span><a href="#local-6989586621679151709"><span class="hs-identifier hs-var">body</span></a></span><span>
|
||||
</span><span id="line-136"></span><span>
|
||||
</span><span id="line-137"></span><span class="hs-keyword">data</span><span> </span><span id="PlaceOrder"><span class="annot"><a href="OpenAPIPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-var">PlaceOrder</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-138"></span><span>
|
||||
</span><span id="line-139"></span><span class="hs-comment">-- | /Body Param/ "body" - order placed for purchasing the pet</span><span>
|
||||
</span><span id="line-140"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679151706"><span class="annot"><a href="OpenAPIPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Order"><span class="hs-identifier hs-type">Order</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-141"></span><span>
|
||||
</span><span id="line-142"></span><span class="hs-comment">-- | @*/*@</span><span>
|
||||
</span><span id="line-143"></span><span id="local-6989586621679151704"><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151704"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151704"><span class="hs-identifier hs-type">mtype</span></a></span></span><span>
|
||||
</span><span id="line-144"></span><span>
|
||||
</span><span id="line-145"></span><span class="hs-comment">-- | @application/xml@</span><span>
|
||||
</span><span id="line-146"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a></span><span>
|
||||
</span><span id="line-147"></span><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><span id="line-148"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html#PlaceOrder"><span class="hs-identifier hs-type">PlaceOrder</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span>
|
||||
</span><span id="line-149"></span><span>
|
||||
</span><span id="line-150"></span></pre></body></html>
|
||||
@@ -7,238 +7,437 @@
|
||||
OpenAPI Petstore API version: 1.0.0
|
||||
Generated by OpenAPI Generator (https://openapi-generator.tech)
|
||||
-}</span><span>
|
||||
</span><a name="line-10"></a><span>
|
||||
</span><a name="line-11"></a><span class="hs-comment">{-|
|
||||
</span><span id="line-10"></span><span>
|
||||
</span><span id="line-11"></span><span class="hs-comment">{-|
|
||||
Module : OpenAPIPetstore.API.User
|
||||
-}</span><span>
|
||||
</span><a name="line-14"></a><span>
|
||||
</span><a name="line-15"></a><span class="hs-pragma">{-# LANGUAGE FlexibleContexts #-}</span><span>
|
||||
</span><a name="line-16"></a><span class="hs-pragma">{-# LANGUAGE FlexibleInstances #-}</span><span>
|
||||
</span><a name="line-17"></a><span class="hs-pragma">{-# LANGUAGE MonoLocalBinds #-}</span><span>
|
||||
</span><a name="line-18"></a><span class="hs-pragma">{-# LANGUAGE MultiParamTypeClasses #-}</span><span>
|
||||
</span><a name="line-19"></a><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><a name="line-20"></a><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><a name="line-21"></a><span>
|
||||
</span><a name="line-22"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.API.User</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-23"></a><span>
|
||||
</span><a name="line-24"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.Core.html"><span class="hs-identifier">OpenAPIPetstore.Core</span></a><span>
|
||||
</span><a name="line-25"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html"><span class="hs-identifier">OpenAPIPetstore.MimeTypes</span></a><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.Model.html"><span class="hs-identifier">OpenAPIPetstore.Model</span></a><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">M</span><span>
|
||||
</span><a name="line-27"></a><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.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.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.ByteString.Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">BL</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.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><span class="hs-identifier hs-type">TypeRep</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">typeOf</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-32"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data.Foldable</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-33"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data.Map</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Map</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.Maybe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</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.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.Set</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Set</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.String</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</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.Text</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">Data.Text.Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</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.Text.Lazy</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TL</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.Text.Lazy.Encoding</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TL</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.Time</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">TI</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">Network.HTTP.Client.MultipartFormData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</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">Network.HTTP.Media</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">ME</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">Network.HTTP.Types</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">NH</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">Web.FormUrlEncoded</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</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">Web.HttpApiData</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">WH</span><span>
|
||||
</span><a name="line-48"></a><span>
|
||||
</span><a name="line-49"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data.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-50"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">GHC.Base</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-51"></a><span>
|
||||
</span><a name="line-52"></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 class="hs-special">(</span><span class="hs-operator hs-var">/=</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">$</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="hs-operator hs-var">.</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><$></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var"><*></span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-special">(</span><span class="hs-operator hs-var">>>=</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Maybe</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Bool</span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Char</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Double</span><span class="hs-special">,</span><span class="hs-identifier hs-type">FilePath</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Float</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Int</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Integer</span><span class="hs-special">,</span><span class="hs-identifier hs-type">String</span><span class="hs-special">,</span><span class="hs-identifier hs-var">fmap</span><span class="hs-special">,</span><span class="hs-identifier hs-var">undefined</span><span class="hs-special">,</span><span class="hs-identifier hs-var">mempty</span><span class="hs-special">,</span><span class="hs-identifier hs-var">maybe</span><span class="hs-special">,</span><span class="hs-identifier hs-var">pure</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Monad</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Applicative</span><span class="hs-special">,</span><span class="hs-identifier hs-type">Functor</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-53"></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-54"></a><span>
|
||||
</span><a name="line-55"></a><span class="hs-comment">-- * Operations</span><span>
|
||||
</span><a name="line-56"></a><span>
|
||||
</span><a name="line-57"></a><span>
|
||||
</span><a name="line-58"></a><span class="hs-comment">-- ** User</span><span>
|
||||
</span><a name="line-59"></a><span>
|
||||
</span><a name="line-60"></a><span class="hs-comment">-- *** createUser</span><span>
|
||||
</span><a name="line-61"></a><span>
|
||||
</span><a name="line-62"></a><span class="hs-comment">-- | @POST \/user@</span><span>
|
||||
</span><a name="line-63"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-64"></a><span class="hs-comment">-- Create user</span><span>
|
||||
</span><a name="line-65"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-66"></a><span class="hs-comment">-- This can only be done by the logged in user.</span><span>
|
||||
</span><a name="line-67"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-68"></a><span class="hs-identifier">createUser</span><span>
|
||||
</span><a name="line-69"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="#local-6989586621679184620"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679184620"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="OpenAPIPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-70"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679184620"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
|
||||
</span><a name="line-71"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-comment">-- ^ "body" - Created user object</span><span>
|
||||
</span><a name="line-72"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="#local-6989586621679184620"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
|
||||
</span><a name="line-73"></a><a name="createUser"><a href="OpenAPIPetstore.API.User.html#createUser"><span class="hs-identifier">createUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679184621"><a href="#local-6989586621679184621"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-74"></a><span> </span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">"POST"</span><span> </span><span class="hs-special">[</span><span class="hs-string">"/user"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-75"></a><span> </span><span class="hs-special">`</span><a href="OpenAPIPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679184621"><span class="hs-identifier hs-var">body</span></a><span>
|
||||
</span><a name="line-76"></a><span>
|
||||
</span><a name="line-77"></a><span class="hs-keyword">data</span><span> </span><a name="CreateUser"><a href="OpenAPIPetstore.API.User.html#CreateUser"><span class="hs-identifier">CreateUser</span></a></a><span>
|
||||
</span><a name="line-78"></a><span>
|
||||
</span><a name="line-79"></a><span class="hs-comment">-- | /Body Param/ "body" - Created user object</span><span>
|
||||
</span><a name="line-80"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="OpenAPIPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span>
|
||||
</span><a name="line-81"></a><span>
|
||||
</span><a name="line-82"></a><span class="hs-comment">-- | @*/*@</span><span>
|
||||
</span><a name="line-83"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679184614"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="#local-6989586621679184614"><span class="hs-identifier hs-type">mtype</span></a><span>
|
||||
</span><a name="line-84"></a><span>
|
||||
</span><a name="line-85"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
|
||||
</span><a name="line-86"></a><span>
|
||||
</span><a name="line-87"></a><span>
|
||||
</span><a name="line-88"></a><span class="hs-comment">-- *** createUsersWithArrayInput</span><span>
|
||||
</span><a name="line-89"></a><span>
|
||||
</span><a name="line-90"></a><span class="hs-comment">-- | @POST \/user\/createWithArray@</span><span>
|
||||
</span><a name="line-91"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-92"></a><span class="hs-comment">-- Creates list of users with given input array</span><span>
|
||||
</span><a name="line-93"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-94"></a><span class="hs-identifier">createUsersWithArrayInput</span><span>
|
||||
</span><a name="line-95"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="#local-6989586621679184619"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679184619"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="OpenAPIPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-96"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679184619"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
|
||||
</span><a name="line-97"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a><span> </span><span class="hs-comment">-- ^ "body" - List of user object</span><span>
|
||||
</span><a name="line-98"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="#local-6989586621679184619"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
|
||||
</span><a name="line-99"></a><a name="createUsersWithArrayInput"><a href="OpenAPIPetstore.API.User.html#createUsersWithArrayInput"><span class="hs-identifier">createUsersWithArrayInput</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679184622"><a href="#local-6989586621679184622"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-100"></a><span> </span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">"POST"</span><span> </span><span class="hs-special">[</span><span class="hs-string">"/user/createWithArray"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-101"></a><span> </span><span class="hs-special">`</span><a href="OpenAPIPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679184622"><span class="hs-identifier hs-var">body</span></a><span>
|
||||
</span><a name="line-102"></a><span>
|
||||
</span><a name="line-103"></a><span class="hs-keyword">data</span><span> </span><a name="CreateUsersWithArrayInput"><a href="OpenAPIPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier">CreateUsersWithArrayInput</span></a></a><span>
|
||||
</span><a name="line-104"></a><span>
|
||||
</span><a name="line-105"></a><span class="hs-comment">-- | /Body Param/ "body" - List of user object</span><span>
|
||||
</span><a name="line-106"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="OpenAPIPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a><span>
|
||||
</span><a name="line-107"></a><span>
|
||||
</span><a name="line-108"></a><span class="hs-comment">-- | @*/*@</span><span>
|
||||
</span><a name="line-109"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679184613"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="#local-6989586621679184613"><span class="hs-identifier hs-type">mtype</span></a><span>
|
||||
</span><a name="line-110"></a><span>
|
||||
</span><a name="line-111"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
|
||||
</span><a name="line-112"></a><span>
|
||||
</span><a name="line-113"></a><span>
|
||||
</span><a name="line-114"></a><span class="hs-comment">-- *** createUsersWithListInput</span><span>
|
||||
</span><a name="line-115"></a><span>
|
||||
</span><a name="line-116"></a><span class="hs-comment">-- | @POST \/user\/createWithList@</span><span>
|
||||
</span><a name="line-117"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-118"></a><span class="hs-comment">-- Creates list of users with given input array</span><span>
|
||||
</span><a name="line-119"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-120"></a><span class="hs-identifier">createUsersWithListInput</span><span>
|
||||
</span><a name="line-121"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="#local-6989586621679184618"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679184618"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="OpenAPIPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-122"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679184618"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
|
||||
</span><a name="line-123"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a><span> </span><span class="hs-comment">-- ^ "body" - List of user object</span><span>
|
||||
</span><a name="line-124"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="#local-6989586621679184618"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
|
||||
</span><a name="line-125"></a><a name="createUsersWithListInput"><a href="OpenAPIPetstore.API.User.html#createUsersWithListInput"><span class="hs-identifier">createUsersWithListInput</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679184623"><a href="#local-6989586621679184623"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-126"></a><span> </span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">"POST"</span><span> </span><span class="hs-special">[</span><span class="hs-string">"/user/createWithList"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-127"></a><span> </span><span class="hs-special">`</span><a href="OpenAPIPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679184623"><span class="hs-identifier hs-var">body</span></a><span>
|
||||
</span><a name="line-128"></a><span>
|
||||
</span><a name="line-129"></a><span class="hs-keyword">data</span><span> </span><a name="CreateUsersWithListInput"><a href="OpenAPIPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier">CreateUsersWithListInput</span></a></a><span>
|
||||
</span><a name="line-130"></a><span>
|
||||
</span><a name="line-131"></a><span class="hs-comment">-- | /Body Param/ "body" - List of user object</span><span>
|
||||
</span><a name="line-132"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="OpenAPIPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a><span>
|
||||
</span><a name="line-133"></a><span>
|
||||
</span><a name="line-134"></a><span class="hs-comment">-- | @*/*@</span><span>
|
||||
</span><a name="line-135"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679184612"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="#local-6989586621679184612"><span class="hs-identifier hs-type">mtype</span></a><span>
|
||||
</span><a name="line-136"></a><span>
|
||||
</span><a name="line-137"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
|
||||
</span><a name="line-138"></a><span>
|
||||
</span><a name="line-139"></a><span>
|
||||
</span><a name="line-140"></a><span class="hs-comment">-- *** deleteUser</span><span>
|
||||
</span><a name="line-141"></a><span>
|
||||
</span><a name="line-142"></a><span class="hs-comment">-- | @DELETE \/user\/{username}@</span><span>
|
||||
</span><a name="line-143"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-144"></a><span class="hs-comment">-- Delete user</span><span>
|
||||
</span><a name="line-145"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-146"></a><span class="hs-comment">-- This can only be done by the logged in user.</span><span>
|
||||
</span><a name="line-147"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-148"></a><span class="hs-identifier">deleteUser</span><span>
|
||||
</span><a name="line-149"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a><span> </span><span class="hs-comment">-- ^ "username" - The name that needs to be deleted</span><span>
|
||||
</span><a name="line-150"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#DeleteUser"><span class="hs-identifier hs-type">DeleteUser</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
|
||||
</span><a name="line-151"></a><a name="deleteUser"><a href="OpenAPIPetstore.API.User.html#deleteUser"><span class="hs-identifier">deleteUser</span></a></a><span> </span><span class="hs-special">(</span><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-var">Username</span></a><span> </span><a name="local-6989586621679184624"><a href="#local-6989586621679184624"><span class="hs-identifier">username</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-152"></a><span> </span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">"DELETE"</span><span> </span><span class="hs-special">[</span><span class="hs-string">"/user/"</span><span class="hs-special">,</span><a href="OpenAPIPetstore.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679184624"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-153"></a><span>
|
||||
</span><a name="line-154"></a><span class="hs-keyword">data</span><span> </span><a name="DeleteUser"><a href="OpenAPIPetstore.API.User.html#DeleteUser"><span class="hs-identifier">DeleteUser</span></a></a><span>
|
||||
</span><a name="line-155"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#DeleteUser"><span class="hs-identifier hs-type">DeleteUser</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
|
||||
</span><a name="line-156"></a><span>
|
||||
</span><a name="line-157"></a><span>
|
||||
</span><a name="line-158"></a><span class="hs-comment">-- *** getUserByName</span><span>
|
||||
</span><a name="line-159"></a><span>
|
||||
</span><a name="line-160"></a><span class="hs-comment">-- | @GET \/user\/{username}@</span><span>
|
||||
</span><a name="line-161"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-162"></a><span class="hs-comment">-- Get user by user name</span><span>
|
||||
</span><a name="line-163"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-164"></a><span class="hs-identifier">getUserByName</span><span>
|
||||
</span><a name="line-165"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679184617"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
|
||||
</span><a name="line-166"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a><span> </span><span class="hs-comment">-- ^ "username" - The name that needs to be fetched. Use user1 for testing.</span><span>
|
||||
</span><a name="line-167"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#GetUserByName"><span class="hs-identifier hs-type">GetUserByName</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="OpenAPIPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><a href="#local-6989586621679184617"><span class="hs-identifier hs-type">accept</span></a><span>
|
||||
</span><a name="line-168"></a><a name="getUserByName"><a href="OpenAPIPetstore.API.User.html#getUserByName"><span class="hs-identifier">getUserByName</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-var">Username</span></a><span> </span><a name="local-6989586621679184625"><a href="#local-6989586621679184625"><span class="hs-identifier">username</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-169"></a><span> </span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">"GET"</span><span> </span><span class="hs-special">[</span><span class="hs-string">"/user/"</span><span class="hs-special">,</span><a href="OpenAPIPetstore.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679184625"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-170"></a><span>
|
||||
</span><a name="line-171"></a><span class="hs-keyword">data</span><span> </span><a name="GetUserByName"><a href="OpenAPIPetstore.API.User.html#GetUserByName"><span class="hs-identifier">GetUserByName</span></a></a><span>
|
||||
</span><a name="line-172"></a><span class="hs-comment">-- | @application/xml@</span><span>
|
||||
</span><a name="line-173"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#GetUserByName"><span class="hs-identifier hs-type">GetUserByName</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
|
||||
</span><a name="line-174"></a><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><a name="line-175"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#GetUserByName"><span class="hs-identifier hs-type">GetUserByName</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
|
||||
</span><a name="line-176"></a><span>
|
||||
</span><a name="line-177"></a><span>
|
||||
</span><a name="line-178"></a><span class="hs-comment">-- *** loginUser</span><span>
|
||||
</span><a name="line-179"></a><span>
|
||||
</span><a name="line-180"></a><span class="hs-comment">-- | @GET \/user\/login@</span><span>
|
||||
</span><a name="line-181"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-182"></a><span class="hs-comment">-- Logs user into the system</span><span>
|
||||
</span><a name="line-183"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-184"></a><span class="hs-identifier">loginUser</span><span>
|
||||
</span><a name="line-185"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a><span> </span><a href="#local-6989586621679184616"><span class="hs-identifier hs-type">accept</span></a><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
|
||||
</span><a name="line-186"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a><span> </span><span class="hs-comment">-- ^ "username" - The user name for login</span><span>
|
||||
</span><a name="line-187"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Model.html#Password"><span class="hs-identifier hs-type">Password</span></a><span> </span><span class="hs-comment">-- ^ "password" - The password for login in clear text</span><span>
|
||||
</span><a name="line-188"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#LoginUser"><span class="hs-identifier hs-type">LoginUser</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><span class="hs-identifier hs-type">Text</span><span> </span><a href="#local-6989586621679184616"><span class="hs-identifier hs-type">accept</span></a><span>
|
||||
</span><a name="line-189"></a><a name="loginUser"><a href="OpenAPIPetstore.API.User.html#loginUser"><span class="hs-identifier">loginUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-special">(</span><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-var">Username</span></a><span> </span><a name="local-6989586621679184626"><a href="#local-6989586621679184626"><span class="hs-identifier">username</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><a href="OpenAPIPetstore.Model.html#Password"><span class="hs-identifier hs-var">Password</span></a><span> </span><a name="local-6989586621679184627"><a href="#local-6989586621679184627"><span class="hs-identifier">password</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-190"></a><span> </span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">"GET"</span><span> </span><span class="hs-special">[</span><span class="hs-string">"/user/login"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-191"></a><span> </span><span class="hs-special">`</span><a href="OpenAPIPetstore.Core.html#addQuery"><span class="hs-identifier hs-var">addQuery</span></a><span class="hs-special">`</span><span> </span><a href="OpenAPIPetstore.Core.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">"username"</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679184626"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-192"></a><span> </span><span class="hs-special">`</span><a href="OpenAPIPetstore.Core.html#addQuery"><span class="hs-identifier hs-var">addQuery</span></a><span class="hs-special">`</span><span> </span><a href="OpenAPIPetstore.Core.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a><span> </span><span class="hs-special">(</span><span class="hs-string">"password"</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a href="#local-6989586621679184627"><span class="hs-identifier hs-var">password</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-193"></a><span>
|
||||
</span><a name="line-194"></a><span class="hs-keyword">data</span><span> </span><a name="LoginUser"><a href="OpenAPIPetstore.API.User.html#LoginUser"><span class="hs-identifier">LoginUser</span></a></a><span>
|
||||
</span><a name="line-195"></a><span class="hs-comment">-- | @application/xml@</span><span>
|
||||
</span><a name="line-196"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#LoginUser"><span class="hs-identifier hs-type">LoginUser</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a><span>
|
||||
</span><a name="line-197"></a><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><a name="line-198"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#LoginUser"><span class="hs-identifier hs-type">LoginUser</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span>
|
||||
</span><a name="line-199"></a><span>
|
||||
</span><a name="line-200"></a><span>
|
||||
</span><a name="line-201"></a><span class="hs-comment">-- *** logoutUser</span><span>
|
||||
</span><a name="line-202"></a><span>
|
||||
</span><a name="line-203"></a><span class="hs-comment">-- | @GET \/user\/logout@</span><span>
|
||||
</span><a name="line-204"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-205"></a><span class="hs-comment">-- Logs out current logged in user session</span><span>
|
||||
</span><a name="line-206"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-207"></a><span class="hs-identifier">logoutUser</span><span>
|
||||
</span><a name="line-208"></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#LogoutUser"><span class="hs-identifier hs-type">LogoutUser</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
|
||||
</span><a name="line-209"></a><a name="logoutUser"><a href="OpenAPIPetstore.API.User.html#logoutUser"><span class="hs-identifier">logoutUser</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-210"></a><span> </span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">"GET"</span><span> </span><span class="hs-special">[</span><span class="hs-string">"/user/logout"</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-211"></a><span>
|
||||
</span><a name="line-212"></a><span class="hs-keyword">data</span><span> </span><a name="LogoutUser"><a href="OpenAPIPetstore.API.User.html#LogoutUser"><span class="hs-identifier">LogoutUser</span></a></a><span>
|
||||
</span><a name="line-213"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#LogoutUser"><span class="hs-identifier hs-type">LogoutUser</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
|
||||
</span><a name="line-214"></a><span>
|
||||
</span><a name="line-215"></a><span>
|
||||
</span><a name="line-216"></a><span class="hs-comment">-- *** updateUser</span><span>
|
||||
</span><a name="line-217"></a><span>
|
||||
</span><a name="line-218"></a><span class="hs-comment">-- | @PUT \/user\/{username}@</span><span>
|
||||
</span><a name="line-219"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-220"></a><span class="hs-comment">-- Updated user</span><span>
|
||||
</span><a name="line-221"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-222"></a><span class="hs-comment">-- This can only be done by the logged in user.</span><span>
|
||||
</span><a name="line-223"></a><span class="hs-comment">-- </span><span>
|
||||
</span><a name="line-224"></a><span class="hs-identifier">updateUser</span><span>
|
||||
</span><a name="line-225"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="#local-6989586621679184615"><span class="hs-identifier hs-type">contentType</span></a><span class="hs-special">,</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="#local-6989586621679184615"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="OpenAPIPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-226"></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a><span> </span><a href="#local-6989586621679184615"><span class="hs-identifier hs-type">contentType</span></a><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
|
||||
</span><a name="line-227"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span> </span><span class="hs-comment">-- ^ "body" - Updated user object</span><span>
|
||||
</span><a name="line-228"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a><span> </span><span class="hs-comment">-- ^ "username" - name that need to be deleted</span><span>
|
||||
</span><a name="line-229"></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="#local-6989586621679184615"><span class="hs-identifier hs-type">contentType</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
|
||||
</span><a name="line-230"></a><a name="updateUser"><a href="OpenAPIPetstore.API.User.html#updateUser"><span class="hs-identifier">updateUser</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679184628"><a href="#local-6989586621679184628"><span class="hs-identifier">body</span></a></a><span> </span><span class="hs-special">(</span><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-var">Username</span></a><span> </span><a name="local-6989586621679184629"><a href="#local-6989586621679184629"><span class="hs-identifier">username</span></a></a><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-231"></a><span> </span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a><span> </span><span class="hs-string">"PUT"</span><span> </span><span class="hs-special">[</span><span class="hs-string">"/user/"</span><span class="hs-special">,</span><a href="OpenAPIPetstore.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a><span> </span><a href="#local-6989586621679184629"><span class="hs-identifier hs-var">username</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-232"></a><span> </span><span class="hs-special">`</span><a href="OpenAPIPetstore.Core.html#setBodyParam"><span class="hs-identifier hs-var">setBodyParam</span></a><span class="hs-special">`</span><span> </span><a href="#local-6989586621679184628"><span class="hs-identifier hs-var">body</span></a><span>
|
||||
</span><a name="line-233"></a><span>
|
||||
</span><a name="line-234"></a><span class="hs-keyword">data</span><span> </span><a name="UpdateUser"><a href="OpenAPIPetstore.API.User.html#UpdateUser"><span class="hs-identifier">UpdateUser</span></a></a><span>
|
||||
</span><a name="line-235"></a><span>
|
||||
</span><a name="line-236"></a><span class="hs-comment">-- | /Body Param/ "body" - Updated user object</span><span>
|
||||
</span><a name="line-237"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="OpenAPIPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a><span>
|
||||
</span><a name="line-238"></a><span>
|
||||
</span><a name="line-239"></a><span class="hs-comment">-- | @*/*@</span><span>
|
||||
</span><a name="line-240"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679184611"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="#local-6989586621679184611"><span class="hs-identifier hs-type">mtype</span></a><span>
|
||||
</span><a name="line-241"></a><span>
|
||||
</span><a name="line-242"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a><span> </span><a href="OpenAPIPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span>
|
||||
</span><a name="line-243"></a><span>
|
||||
</span><a name="line-244"></a></pre></body></html>
|
||||
</span><span id="line-14"></span><span>
|
||||
</span><span id="line-15"></span><span class="hs-pragma">{-# LANGUAGE FlexibleContexts #-}</span><span>
|
||||
</span><span id="line-16"></span><span class="hs-pragma">{-# LANGUAGE FlexibleInstances #-}</span><span>
|
||||
</span><span id="line-17"></span><span class="hs-pragma">{-# LANGUAGE MonoLocalBinds #-}</span><span>
|
||||
</span><span id="line-18"></span><span class="hs-pragma">{-# LANGUAGE MultiParamTypeClasses #-}</span><span>
|
||||
</span><span id="line-19"></span><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><span id="line-20"></span><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><span id="line-21"></span><span>
|
||||
</span><span id="line-22"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.API.User</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-23"></span><span>
|
||||
</span><span id="line-24"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html"><span class="hs-identifier">OpenAPIPetstore.Core</span></a></span><span>
|
||||
</span><span id="line-25"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html"><span class="hs-identifier">OpenAPIPetstore.MimeTypes</span></a></span><span>
|
||||
</span><span id="line-26"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html"><span class="hs-identifier">OpenAPIPetstore.Model</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">M</span></span><span>
|
||||
</span><span id="line-27"></span><span>
|
||||
</span><span id="line-28"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Aeson</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">A</span></span><span>
|
||||
</span><span id="line-29"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.ByteString</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">B</span></span><span>
|
||||
</span><span id="line-30"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.ByteString.Lazy</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">BL</span></span><span>
|
||||
</span><span id="line-31"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Data</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Typeable</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier">TypeRep</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier">typeOf</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier">typeRep</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-32"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Foldable</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-33"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Map</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Map</span></span><span>
|
||||
</span><span id="line-34"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Maybe</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-35"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Proxy</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Proxy</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-36"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Set</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Set</span></span><span>
|
||||
</span><span id="line-37"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.String</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-38"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">T</span></span><span>
|
||||
</span><span id="line-39"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text.Encoding</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">T</span></span><span>
|
||||
</span><span id="line-40"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text.Lazy</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">TL</span></span><span>
|
||||
</span><span id="line-41"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text.Lazy.Encoding</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">TL</span></span><span>
|
||||
</span><span id="line-42"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Time</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">TI</span></span><span>
|
||||
</span><span id="line-43"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Network.HTTP.Client.MultipartFormData</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">NH</span></span><span>
|
||||
</span><span id="line-44"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Network.HTTP.Media</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">ME</span></span><span>
|
||||
</span><span id="line-45"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Network.HTTP.Types</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">NH</span></span><span>
|
||||
</span><span id="line-46"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Web.FormUrlEncoded</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">WH</span></span><span>
|
||||
</span><span id="line-47"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Web.HttpApiData</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">WH</span></span><span>
|
||||
</span><span id="line-48"></span><span>
|
||||
</span><span id="line-49"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Text</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-50"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">GHC.Base</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-operator">(<|>)</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-51"></span><span>
|
||||
</span><span id="line-52"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Prelude</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-operator">(==)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(/=)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">($)</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-operator">(.)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(<$>)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(<*>)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(>>=)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Maybe</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Bool</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Char</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Double</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">FilePath</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Float</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Int</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Integer</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">String</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">fmap</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">undefined</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">mempty</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">maybe</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">pure</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Monad</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Applicative</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Functor</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-53"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Prelude</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-54"></span><span>
|
||||
</span><span id="line-55"></span><span class="hs-comment">-- * Operations</span><span>
|
||||
</span><span id="line-56"></span><span>
|
||||
</span><span id="line-57"></span><span>
|
||||
</span><span id="line-58"></span><span class="hs-comment">-- ** User</span><span>
|
||||
</span><span id="line-59"></span><span>
|
||||
</span><span id="line-60"></span><span class="hs-comment">-- *** createUser</span><span>
|
||||
</span><span id="line-61"></span><span>
|
||||
</span><span id="line-62"></span><span class="hs-comment">-- | @POST \/user@</span><span>
|
||||
</span><span id="line-63"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-64"></span><span class="hs-comment">-- Create user</span><span>
|
||||
</span><span id="line-65"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-66"></span><span class="hs-comment">-- This can only be done by the logged in user.</span><span>
|
||||
</span><span id="line-67"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-68"></span><span id="local-6989586621679151616"><span class="annot"><a href="OpenAPIPetstore.API.User.html#createUser"><span class="hs-identifier hs-type">createUser</span></a></span><span>
|
||||
</span><span id="line-69"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151616"><span class="hs-identifier hs-type">contentType</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151616"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-70"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151616"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
|
||||
</span><span id="line-71"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a></span><span> </span><span class="hs-comment">-- ^ "body" - Created user object</span><span>
|
||||
</span><span id="line-72"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151616"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span></span><span>
|
||||
</span><span id="line-73"></span><span id="createUser"><span class="annot"><span class="annottext">createUser :: ContentType contentType
|
||||
-> User
|
||||
-> OpenAPIPetstoreRequest
|
||||
CreateUser contentType NoContent MimeNoContent
|
||||
</span><a href="OpenAPIPetstore.API.User.html#createUser"><span class="hs-identifier hs-var hs-var">createUser</span></a></span></span><span> </span><span class="annot"><span class="annottext">ContentType contentType
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679151614"><span class="annot"><span class="annottext">User
|
||||
</span><a href="#local-6989586621679151614"><span class="hs-identifier hs-var">body</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-74"></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest
|
||||
CreateUser contentType NoContent MimeNoContent
|
||||
forall req contentType res accept.
|
||||
Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"POST"</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-string">"/user"</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-75"></span><span> </span><span class="annot"><span class="annottext">OpenAPIPetstoreRequest
|
||||
CreateUser contentType NoContent MimeNoContent
|
||||
-> User
|
||||
-> OpenAPIPetstoreRequest
|
||||
CreateUser contentType NoContent MimeNoContent
|
||||
forall req param contentType res accept.
|
||||
(HasBodyParam req param, Consumes req contentType,
|
||||
MimeRender contentType param) =>
|
||||
OpenAPIPetstoreRequest req contentType res accept
|
||||
-> param -> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#setBodyParam"><span class="hs-operator hs-var">`setBodyParam`</span></a></span><span> </span><span class="annot"><span class="annottext">User
|
||||
</span><a href="#local-6989586621679151614"><span class="hs-identifier hs-var">body</span></a></span><span>
|
||||
</span><span id="line-76"></span><span>
|
||||
</span><span id="line-77"></span><span class="hs-keyword">data</span><span> </span><span id="CreateUser"><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-var">CreateUser</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-78"></span><span>
|
||||
</span><span id="line-79"></span><span class="hs-comment">-- | /Body Param/ "body" - Created user object</span><span>
|
||||
</span><span id="line-80"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679151610"><span class="annot"><a href="OpenAPIPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-81"></span><span>
|
||||
</span><span id="line-82"></span><span class="hs-comment">-- | @*/*@</span><span>
|
||||
</span><span id="line-83"></span><span id="local-6989586621679151608"><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151608"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151608"><span class="hs-identifier hs-type">mtype</span></a></span></span><span>
|
||||
</span><span id="line-84"></span><span>
|
||||
</span><span id="line-85"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUser"><span class="hs-identifier hs-type">CreateUser</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span>
|
||||
</span><span id="line-86"></span><span>
|
||||
</span><span id="line-87"></span><span>
|
||||
</span><span id="line-88"></span><span class="hs-comment">-- *** createUsersWithArrayInput</span><span>
|
||||
</span><span id="line-89"></span><span>
|
||||
</span><span id="line-90"></span><span class="hs-comment">-- | @POST \/user\/createWithArray@</span><span>
|
||||
</span><span id="line-91"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-92"></span><span class="hs-comment">-- Creates list of users with given input array</span><span>
|
||||
</span><span id="line-93"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-94"></span><span id="local-6989586621679151603"><span class="annot"><a href="OpenAPIPetstore.API.User.html#createUsersWithArrayInput"><span class="hs-identifier hs-type">createUsersWithArrayInput</span></a></span><span>
|
||||
</span><span id="line-95"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151603"><span class="hs-identifier hs-type">contentType</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151603"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-96"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151603"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
|
||||
</span><span id="line-97"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a></span><span> </span><span class="hs-comment">-- ^ "body" - List of user object</span><span>
|
||||
</span><span id="line-98"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151603"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span></span><span>
|
||||
</span><span id="line-99"></span><span id="createUsersWithArrayInput"><span class="annot"><span class="annottext">createUsersWithArrayInput :: ContentType contentType
|
||||
-> Body
|
||||
-> OpenAPIPetstoreRequest
|
||||
CreateUsersWithArrayInput contentType NoContent MimeNoContent
|
||||
</span><a href="OpenAPIPetstore.API.User.html#createUsersWithArrayInput"><span class="hs-identifier hs-var hs-var">createUsersWithArrayInput</span></a></span></span><span> </span><span class="annot"><span class="annottext">ContentType contentType
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679151601"><span class="annot"><span class="annottext">Body
|
||||
</span><a href="#local-6989586621679151601"><span class="hs-identifier hs-var">body</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-100"></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest
|
||||
CreateUsersWithArrayInput contentType NoContent MimeNoContent
|
||||
forall req contentType res accept.
|
||||
Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"POST"</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-string">"/user/createWithArray"</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-101"></span><span> </span><span class="annot"><span class="annottext">OpenAPIPetstoreRequest
|
||||
CreateUsersWithArrayInput contentType NoContent MimeNoContent
|
||||
-> Body
|
||||
-> OpenAPIPetstoreRequest
|
||||
CreateUsersWithArrayInput contentType NoContent MimeNoContent
|
||||
forall req param contentType res accept.
|
||||
(HasBodyParam req param, Consumes req contentType,
|
||||
MimeRender contentType param) =>
|
||||
OpenAPIPetstoreRequest req contentType res accept
|
||||
-> param -> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#setBodyParam"><span class="hs-operator hs-var">`setBodyParam`</span></a></span><span> </span><span class="annot"><span class="annottext">Body
|
||||
</span><a href="#local-6989586621679151601"><span class="hs-identifier hs-var">body</span></a></span><span>
|
||||
</span><span id="line-102"></span><span>
|
||||
</span><span id="line-103"></span><span class="hs-keyword">data</span><span> </span><span id="CreateUsersWithArrayInput"><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-var">CreateUsersWithArrayInput</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-104"></span><span>
|
||||
</span><span id="line-105"></span><span class="hs-comment">-- | /Body Param/ "body" - List of user object</span><span>
|
||||
</span><span id="line-106"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679151599"><span class="annot"><a href="OpenAPIPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-107"></span><span>
|
||||
</span><span id="line-108"></span><span class="hs-comment">-- | @*/*@</span><span>
|
||||
</span><span id="line-109"></span><span id="local-6989586621679151598"><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151598"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151598"><span class="hs-identifier hs-type">mtype</span></a></span></span><span>
|
||||
</span><span id="line-110"></span><span>
|
||||
</span><span id="line-111"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUsersWithArrayInput"><span class="hs-identifier hs-type">CreateUsersWithArrayInput</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span>
|
||||
</span><span id="line-112"></span><span>
|
||||
</span><span id="line-113"></span><span>
|
||||
</span><span id="line-114"></span><span class="hs-comment">-- *** createUsersWithListInput</span><span>
|
||||
</span><span id="line-115"></span><span>
|
||||
</span><span id="line-116"></span><span class="hs-comment">-- | @POST \/user\/createWithList@</span><span>
|
||||
</span><span id="line-117"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-118"></span><span class="hs-comment">-- Creates list of users with given input array</span><span>
|
||||
</span><span id="line-119"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-120"></span><span id="local-6989586621679151595"><span class="annot"><a href="OpenAPIPetstore.API.User.html#createUsersWithListInput"><span class="hs-identifier hs-type">createUsersWithListInput</span></a></span><span>
|
||||
</span><span id="line-121"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151595"><span class="hs-identifier hs-type">contentType</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151595"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-122"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151595"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
|
||||
</span><span id="line-123"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a></span><span> </span><span class="hs-comment">-- ^ "body" - List of user object</span><span>
|
||||
</span><span id="line-124"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151595"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span></span><span>
|
||||
</span><span id="line-125"></span><span id="createUsersWithListInput"><span class="annot"><span class="annottext">createUsersWithListInput :: ContentType contentType
|
||||
-> Body
|
||||
-> OpenAPIPetstoreRequest
|
||||
CreateUsersWithListInput contentType NoContent MimeNoContent
|
||||
</span><a href="OpenAPIPetstore.API.User.html#createUsersWithListInput"><span class="hs-identifier hs-var hs-var">createUsersWithListInput</span></a></span></span><span> </span><span class="annot"><span class="annottext">ContentType contentType
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679151593"><span class="annot"><span class="annottext">Body
|
||||
</span><a href="#local-6989586621679151593"><span class="hs-identifier hs-var">body</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-126"></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest
|
||||
CreateUsersWithListInput contentType NoContent MimeNoContent
|
||||
forall req contentType res accept.
|
||||
Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"POST"</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-string">"/user/createWithList"</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-127"></span><span> </span><span class="annot"><span class="annottext">OpenAPIPetstoreRequest
|
||||
CreateUsersWithListInput contentType NoContent MimeNoContent
|
||||
-> Body
|
||||
-> OpenAPIPetstoreRequest
|
||||
CreateUsersWithListInput contentType NoContent MimeNoContent
|
||||
forall req param contentType res accept.
|
||||
(HasBodyParam req param, Consumes req contentType,
|
||||
MimeRender contentType param) =>
|
||||
OpenAPIPetstoreRequest req contentType res accept
|
||||
-> param -> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#setBodyParam"><span class="hs-operator hs-var">`setBodyParam`</span></a></span><span> </span><span class="annot"><span class="annottext">Body
|
||||
</span><a href="#local-6989586621679151593"><span class="hs-identifier hs-var">body</span></a></span><span>
|
||||
</span><span id="line-128"></span><span>
|
||||
</span><span id="line-129"></span><span class="hs-keyword">data</span><span> </span><span id="CreateUsersWithListInput"><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-var">CreateUsersWithListInput</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-130"></span><span>
|
||||
</span><span id="line-131"></span><span class="hs-comment">-- | /Body Param/ "body" - List of user object</span><span>
|
||||
</span><span id="line-132"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679151591"><span class="annot"><a href="OpenAPIPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Body"><span class="hs-identifier hs-type">Body</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-133"></span><span>
|
||||
</span><span id="line-134"></span><span class="hs-comment">-- | @*/*@</span><span>
|
||||
</span><span id="line-135"></span><span id="local-6989586621679151590"><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151590"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151590"><span class="hs-identifier hs-type">mtype</span></a></span></span><span>
|
||||
</span><span id="line-136"></span><span>
|
||||
</span><span id="line-137"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#CreateUsersWithListInput"><span class="hs-identifier hs-type">CreateUsersWithListInput</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span>
|
||||
</span><span id="line-138"></span><span>
|
||||
</span><span id="line-139"></span><span>
|
||||
</span><span id="line-140"></span><span class="hs-comment">-- *** deleteUser</span><span>
|
||||
</span><span id="line-141"></span><span>
|
||||
</span><span id="line-142"></span><span class="hs-comment">-- | @DELETE \/user\/{username}@</span><span>
|
||||
</span><span id="line-143"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-144"></span><span class="hs-comment">-- Delete user</span><span>
|
||||
</span><span id="line-145"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-146"></span><span class="hs-comment">-- This can only be done by the logged in user.</span><span>
|
||||
</span><span id="line-147"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-148"></span><span class="annot"><a href="OpenAPIPetstore.API.User.html#deleteUser"><span class="hs-identifier hs-type">deleteUser</span></a></span><span>
|
||||
</span><span id="line-149"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a></span><span> </span><span class="hs-comment">-- ^ "username" - The name that needs to be deleted</span><span>
|
||||
</span><span id="line-150"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#DeleteUser"><span class="hs-identifier hs-type">DeleteUser</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span>
|
||||
</span><span id="line-151"></span><span id="deleteUser"><span class="annot"><span class="annottext">deleteUser :: Username
|
||||
-> OpenAPIPetstoreRequest
|
||||
DeleteUser MimeNoContent NoContent MimeNoContent
|
||||
</span><a href="OpenAPIPetstore.API.User.html#deleteUser"><span class="hs-identifier hs-var hs-var">deleteUser</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a></span><span> </span><span id="local-6989586621679151585"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679151585"><span class="hs-identifier hs-var">username</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-152"></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest
|
||||
DeleteUser MimeNoContent NoContent MimeNoContent
|
||||
forall req contentType res accept.
|
||||
Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"DELETE"</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-string">"/user/"</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Text -> ByteString
|
||||
forall a. ToHttpApiData a => a -> ByteString
|
||||
</span><a href="OpenAPIPetstore.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679151585"><span class="hs-identifier hs-var">username</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-153"></span><span>
|
||||
</span><span id="line-154"></span><span class="hs-keyword">data</span><span> </span><span id="DeleteUser"><span class="annot"><a href="OpenAPIPetstore.API.User.html#DeleteUser"><span class="hs-identifier hs-var">DeleteUser</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-155"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#DeleteUser"><span class="hs-identifier hs-type">DeleteUser</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span>
|
||||
</span><span id="line-156"></span><span>
|
||||
</span><span id="line-157"></span><span>
|
||||
</span><span id="line-158"></span><span class="hs-comment">-- *** getUserByName</span><span>
|
||||
</span><span id="line-159"></span><span>
|
||||
</span><span id="line-160"></span><span class="hs-comment">-- | @GET \/user\/{username}@</span><span>
|
||||
</span><span id="line-161"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-162"></span><span class="hs-comment">-- Get user by user name</span><span>
|
||||
</span><span id="line-163"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-164"></span><span id="local-6989586621679151582"><span class="annot"><a href="OpenAPIPetstore.API.User.html#getUserByName"><span class="hs-identifier hs-type">getUserByName</span></a></span><span>
|
||||
</span><span id="line-165"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151582"><span class="hs-identifier hs-type">accept</span></a></span><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
|
||||
</span><span id="line-166"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a></span><span> </span><span class="hs-comment">-- ^ "username" - The name that needs to be fetched. Use user1 for testing.</span><span>
|
||||
</span><span id="line-167"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#GetUserByName"><span class="hs-identifier hs-type">GetUserByName</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151582"><span class="hs-identifier hs-type">accept</span></a></span></span><span>
|
||||
</span><span id="line-168"></span><span id="getUserByName"><span class="annot"><span class="annottext">getUserByName :: Accept accept
|
||||
-> Username
|
||||
-> OpenAPIPetstoreRequest GetUserByName MimeNoContent User accept
|
||||
</span><a href="OpenAPIPetstore.API.User.html#getUserByName"><span class="hs-identifier hs-var hs-var">getUserByName</span></a></span></span><span> </span><span class="annot"><span class="annottext">Accept accept
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a></span><span> </span><span id="local-6989586621679151580"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679151580"><span class="hs-identifier hs-var">username</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-169"></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest GetUserByName MimeNoContent User accept
|
||||
forall req contentType res accept.
|
||||
Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"GET"</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-string">"/user/"</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Text -> ByteString
|
||||
forall a. ToHttpApiData a => a -> ByteString
|
||||
</span><a href="OpenAPIPetstore.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679151580"><span class="hs-identifier hs-var">username</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-170"></span><span>
|
||||
</span><span id="line-171"></span><span class="hs-keyword">data</span><span> </span><span id="GetUserByName"><span class="annot"><a href="OpenAPIPetstore.API.User.html#GetUserByName"><span class="hs-identifier hs-var">GetUserByName</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-172"></span><span class="hs-comment">-- | @application/xml@</span><span>
|
||||
</span><span id="line-173"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#GetUserByName"><span class="hs-identifier hs-type">GetUserByName</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a></span><span>
|
||||
</span><span id="line-174"></span><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><span id="line-175"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#GetUserByName"><span class="hs-identifier hs-type">GetUserByName</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span>
|
||||
</span><span id="line-176"></span><span>
|
||||
</span><span id="line-177"></span><span>
|
||||
</span><span id="line-178"></span><span class="hs-comment">-- *** loginUser</span><span>
|
||||
</span><span id="line-179"></span><span>
|
||||
</span><span id="line-180"></span><span class="hs-comment">-- | @GET \/user\/login@</span><span>
|
||||
</span><span id="line-181"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-182"></span><span class="hs-comment">-- Logs user into the system</span><span>
|
||||
</span><span id="line-183"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-184"></span><span id="local-6989586621679151577"><span class="annot"><a href="OpenAPIPetstore.API.User.html#loginUser"><span class="hs-identifier hs-type">loginUser</span></a></span><span>
|
||||
</span><span id="line-185"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-type">Accept</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151577"><span class="hs-identifier hs-type">accept</span></a></span><span> </span><span class="hs-comment">-- ^ request accept ('MimeType')</span><span>
|
||||
</span><span id="line-186"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a></span><span> </span><span class="hs-comment">-- ^ "username" - The user name for login</span><span>
|
||||
</span><span id="line-187"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Password"><span class="hs-identifier hs-type">Password</span></a></span><span> </span><span class="hs-comment">-- ^ "password" - The password for login in clear text</span><span>
|
||||
</span><span id="line-188"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#LoginUser"><span class="hs-identifier hs-type">LoginUser</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Text</span></span><span> </span><span class="annot"><a href="#local-6989586621679151577"><span class="hs-identifier hs-type">accept</span></a></span></span><span>
|
||||
</span><span id="line-189"></span><span id="loginUser"><span class="annot"><span class="annottext">loginUser :: Accept accept
|
||||
-> Username
|
||||
-> Password
|
||||
-> OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
|
||||
</span><a href="OpenAPIPetstore.API.User.html#loginUser"><span class="hs-identifier hs-var hs-var">loginUser</span></a></span></span><span> </span><span class="annot"><span class="annottext">Accept accept
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a></span><span> </span><span id="local-6989586621679151575"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679151575"><span class="hs-identifier hs-var">username</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="OpenAPIPetstore.Model.html#Password"><span class="hs-identifier hs-type">Password</span></a></span><span> </span><span id="local-6989586621679151573"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679151573"><span class="hs-identifier hs-var">password</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-190"></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
|
||||
forall req contentType res accept.
|
||||
Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"GET"</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-string">"/user/login"</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-191"></span><span> </span><span class="annot"><span class="annottext">OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
|
||||
-> [QueryItem]
|
||||
-> OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
|
||||
forall req contentType res accept.
|
||||
OpenAPIPetstoreRequest req contentType res accept
|
||||
-> [QueryItem] -> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#addQuery"><span class="hs-operator hs-var">`addQuery`</span></a></span><span> </span><span class="annot"><span class="annottext">(Method, Maybe Text) -> [QueryItem]
|
||||
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
|
||||
</span><a href="OpenAPIPetstore.Core.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"username"</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Text -> Maybe Text
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679151575"><span class="hs-identifier hs-var">username</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-192"></span><span> </span><span class="annot"><span class="annottext">OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
|
||||
-> [QueryItem]
|
||||
-> OpenAPIPetstoreRequest LoginUser MimeNoContent Text accept
|
||||
forall req contentType res accept.
|
||||
OpenAPIPetstoreRequest req contentType res accept
|
||||
-> [QueryItem] -> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#addQuery"><span class="hs-operator hs-var">`addQuery`</span></a></span><span> </span><span class="annot"><span class="annottext">(Method, Maybe Text) -> [QueryItem]
|
||||
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
|
||||
</span><a href="OpenAPIPetstore.Core.html#toQuery"><span class="hs-identifier hs-var">toQuery</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"password"</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Text -> Maybe Text
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679151573"><span class="hs-identifier hs-var">password</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-193"></span><span>
|
||||
</span><span id="line-194"></span><span class="hs-keyword">data</span><span> </span><span id="LoginUser"><span class="annot"><a href="OpenAPIPetstore.API.User.html#LoginUser"><span class="hs-identifier hs-var">LoginUser</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-195"></span><span class="hs-comment">-- | @application/xml@</span><span>
|
||||
</span><span id="line-196"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#LoginUser"><span class="hs-identifier hs-type">LoginUser</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a></span><span>
|
||||
</span><span id="line-197"></span><span class="hs-comment">-- | @application/json@</span><span>
|
||||
</span><span id="line-198"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#LoginUser"><span class="hs-identifier hs-type">LoginUser</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span>
|
||||
</span><span id="line-199"></span><span>
|
||||
</span><span id="line-200"></span><span>
|
||||
</span><span id="line-201"></span><span class="hs-comment">-- *** logoutUser</span><span>
|
||||
</span><span id="line-202"></span><span>
|
||||
</span><span id="line-203"></span><span class="hs-comment">-- | @GET \/user\/logout@</span><span>
|
||||
</span><span id="line-204"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-205"></span><span class="hs-comment">-- Logs out current logged in user session</span><span>
|
||||
</span><span id="line-206"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-207"></span><span class="annot"><a href="OpenAPIPetstore.API.User.html#logoutUser"><span class="hs-identifier hs-type">logoutUser</span></a></span><span>
|
||||
</span><span id="line-208"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#LogoutUser"><span class="hs-identifier hs-type">LogoutUser</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span>
|
||||
</span><span id="line-209"></span><span id="logoutUser"><span class="annot"><span class="annottext">logoutUser :: OpenAPIPetstoreRequest
|
||||
LogoutUser MimeNoContent NoContent MimeNoContent
|
||||
</span><a href="OpenAPIPetstore.API.User.html#logoutUser"><span class="hs-identifier hs-var hs-var">logoutUser</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-210"></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest
|
||||
LogoutUser MimeNoContent NoContent MimeNoContent
|
||||
forall req contentType res accept.
|
||||
Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"GET"</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-string">"/user/logout"</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-211"></span><span>
|
||||
</span><span id="line-212"></span><span class="hs-keyword">data</span><span> </span><span id="LogoutUser"><span class="annot"><a href="OpenAPIPetstore.API.User.html#LogoutUser"><span class="hs-identifier hs-var">LogoutUser</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-213"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#LogoutUser"><span class="hs-identifier hs-type">LogoutUser</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span>
|
||||
</span><span id="line-214"></span><span>
|
||||
</span><span id="line-215"></span><span>
|
||||
</span><span id="line-216"></span><span class="hs-comment">-- *** updateUser</span><span>
|
||||
</span><span id="line-217"></span><span>
|
||||
</span><span id="line-218"></span><span class="hs-comment">-- | @PUT \/user\/{username}@</span><span>
|
||||
</span><span id="line-219"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-220"></span><span class="hs-comment">-- Updated user</span><span>
|
||||
</span><span id="line-221"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-222"></span><span class="hs-comment">-- This can only be done by the logged in user.</span><span>
|
||||
</span><span id="line-223"></span><span class="hs-comment">-- </span><span>
|
||||
</span><span id="line-224"></span><span id="local-6989586621679151566"><span class="annot"><a href="OpenAPIPetstore.API.User.html#updateUser"><span class="hs-identifier hs-type">updateUser</span></a></span><span>
|
||||
</span><span id="line-225"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151566"><span class="hs-identifier hs-type">contentType</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151566"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-226"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-type">ContentType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151566"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="hs-comment">-- ^ request content-type ('MimeType')</span><span>
|
||||
</span><span id="line-227"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a></span><span> </span><span class="hs-comment">-- ^ "body" - Updated user object</span><span>
|
||||
</span><span id="line-228"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a></span><span> </span><span class="hs-comment">-- ^ "username" - name that need to be deleted</span><span>
|
||||
</span><span id="line-229"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html#OpenAPIPetstoreRequest"><span class="hs-identifier hs-type">OpenAPIPetstoreRequest</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151566"><span class="hs-identifier hs-type">contentType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span></span><span>
|
||||
</span><span id="line-230"></span><span id="updateUser"><span class="annot"><span class="annottext">updateUser :: ContentType contentType
|
||||
-> User
|
||||
-> Username
|
||||
-> OpenAPIPetstoreRequest
|
||||
UpdateUser contentType NoContent MimeNoContent
|
||||
</span><a href="OpenAPIPetstore.API.User.html#updateUser"><span class="hs-identifier hs-var hs-var">updateUser</span></a></span></span><span> </span><span class="annot"><span class="annottext">ContentType contentType
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679151564"><span class="annot"><span class="annottext">User
|
||||
</span><a href="#local-6989586621679151564"><span class="hs-identifier hs-var">body</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="OpenAPIPetstore.Model.html#Username"><span class="hs-identifier hs-type">Username</span></a></span><span> </span><span id="local-6989586621679151563"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679151563"><span class="hs-identifier hs-var">username</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-231"></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest
|
||||
UpdateUser contentType NoContent MimeNoContent
|
||||
forall req contentType res accept.
|
||||
Method
|
||||
-> [ByteString]
|
||||
-> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#_mkRequest"><span class="hs-identifier hs-var">_mkRequest</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"PUT"</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-string">"/user/"</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Text -> ByteString
|
||||
forall a. ToHttpApiData a => a -> ByteString
|
||||
</span><a href="OpenAPIPetstore.Core.html#toPath"><span class="hs-identifier hs-var">toPath</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679151563"><span class="hs-identifier hs-var">username</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-232"></span><span> </span><span class="annot"><span class="annottext">OpenAPIPetstoreRequest
|
||||
UpdateUser contentType NoContent MimeNoContent
|
||||
-> User
|
||||
-> OpenAPIPetstoreRequest
|
||||
UpdateUser contentType NoContent MimeNoContent
|
||||
forall req param contentType res accept.
|
||||
(HasBodyParam req param, Consumes req contentType,
|
||||
MimeRender contentType param) =>
|
||||
OpenAPIPetstoreRequest req contentType res accept
|
||||
-> param -> OpenAPIPetstoreRequest req contentType res accept
|
||||
</span><a href="OpenAPIPetstore.Core.html#setBodyParam"><span class="hs-operator hs-var">`setBodyParam`</span></a></span><span> </span><span class="annot"><span class="annottext">User
|
||||
</span><a href="#local-6989586621679151564"><span class="hs-identifier hs-var">body</span></a></span><span>
|
||||
</span><span id="line-233"></span><span>
|
||||
</span><span id="line-234"></span><span class="hs-keyword">data</span><span> </span><span id="UpdateUser"><span class="annot"><a href="OpenAPIPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-var">UpdateUser</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-235"></span><span>
|
||||
</span><span id="line-236"></span><span class="hs-comment">-- | /Body Param/ "body" - Updated user object</span><span>
|
||||
</span><span id="line-237"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679151561"><span class="annot"><a href="OpenAPIPetstore.Core.html#HasBodyParam"><span class="hs-identifier hs-type">HasBodyParam</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html#User"><span class="hs-identifier hs-type">User</span></a></span></span><span> </span><span>
|
||||
</span><span id="line-238"></span><span>
|
||||
</span><span id="line-239"></span><span class="hs-comment">-- | @*/*@</span><span>
|
||||
</span><span id="line-240"></span><span id="local-6989586621679151560"><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151560"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-type">Consumes</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679151560"><span class="hs-identifier hs-type">mtype</span></a></span></span><span>
|
||||
</span><span id="line-241"></span><span>
|
||||
</span><span id="line-242"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-type">Produces</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html#UpdateUser"><span class="hs-identifier hs-type">UpdateUser</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span>
|
||||
</span><span id="line-243"></span><span>
|
||||
</span><span id="line-244"></span></pre></body></html>
|
||||
@@ -7,23 +7,23 @@
|
||||
OpenAPI Petstore API version: 1.0.0
|
||||
Generated by OpenAPI Generator (https://openapi-generator.tech)
|
||||
-}</span><span>
|
||||
</span><a name="line-10"></a><span>
|
||||
</span><a name="line-11"></a><span class="hs-comment">{-|
|
||||
</span><span id="line-10"></span><span>
|
||||
</span><span id="line-11"></span><span class="hs-comment">{-|
|
||||
Module : OpenAPIPetstore.API
|
||||
-}</span><span>
|
||||
</span><a name="line-14"></a><span>
|
||||
</span><a name="line-15"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.API</span><span>
|
||||
</span><a name="line-16"></a><span> </span><span class="hs-special">(</span><span> </span><span class="hs-keyword">module</span><span> </span><a href="OpenAPIPetstore.API.AnotherFake.html"><span class="hs-identifier">OpenAPIPetstore.API.AnotherFake</span></a><span>
|
||||
</span><a name="line-17"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><a href="OpenAPIPetstore.API.Fake.html"><span class="hs-identifier">OpenAPIPetstore.API.Fake</span></a><span>
|
||||
</span><a name="line-18"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><a href="OpenAPIPetstore.API.FakeClassnameTags123.html"><span class="hs-identifier">OpenAPIPetstore.API.FakeClassnameTags123</span></a><span>
|
||||
</span><a name="line-19"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><a href="OpenAPIPetstore.API.Pet.html"><span class="hs-identifier">OpenAPIPetstore.API.Pet</span></a><span>
|
||||
</span><a name="line-20"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><a href="OpenAPIPetstore.API.Store.html"><span class="hs-identifier">OpenAPIPetstore.API.Store</span></a><span>
|
||||
</span><a name="line-21"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><a href="OpenAPIPetstore.API.User.html"><span class="hs-identifier">OpenAPIPetstore.API.User</span></a><span>
|
||||
</span><a name="line-22"></a><span> </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-23"></a><span>
|
||||
</span><a name="line-24"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.API.AnotherFake.html"><span class="hs-identifier">OpenAPIPetstore.API.AnotherFake</span></a><span>
|
||||
</span><a name="line-25"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.API.Fake.html"><span class="hs-identifier">OpenAPIPetstore.API.Fake</span></a><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.API.FakeClassnameTags123.html"><span class="hs-identifier">OpenAPIPetstore.API.FakeClassnameTags123</span></a><span>
|
||||
</span><a name="line-27"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.API.Pet.html"><span class="hs-identifier">OpenAPIPetstore.API.Pet</span></a><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.API.Store.html"><span class="hs-identifier">OpenAPIPetstore.API.Store</span></a><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.API.User.html"><span class="hs-identifier">OpenAPIPetstore.API.User</span></a></pre></body></html>
|
||||
</span><span id="line-14"></span><span>
|
||||
</span><span id="line-15"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.API</span><span>
|
||||
</span><span id="line-16"></span><span> </span><span class="hs-special">(</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.AnotherFake.html"><span class="hs-identifier">OpenAPIPetstore.API.AnotherFake</span></a></span><span>
|
||||
</span><span id="line-17"></span><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Fake.html"><span class="hs-identifier">OpenAPIPetstore.API.Fake</span></a></span><span>
|
||||
</span><span id="line-18"></span><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.FakeClassnameTags123.html"><span class="hs-identifier">OpenAPIPetstore.API.FakeClassnameTags123</span></a></span><span>
|
||||
</span><span id="line-19"></span><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Pet.html"><span class="hs-identifier">OpenAPIPetstore.API.Pet</span></a></span><span>
|
||||
</span><span id="line-20"></span><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html"><span class="hs-identifier">OpenAPIPetstore.API.Store</span></a></span><span>
|
||||
</span><span id="line-21"></span><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html"><span class="hs-identifier">OpenAPIPetstore.API.User</span></a></span><span>
|
||||
</span><span id="line-22"></span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-23"></span><span>
|
||||
</span><span id="line-24"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.AnotherFake.html"><span class="hs-identifier">OpenAPIPetstore.API.AnotherFake</span></a></span><span>
|
||||
</span><span id="line-25"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Fake.html"><span class="hs-identifier">OpenAPIPetstore.API.Fake</span></a></span><span>
|
||||
</span><span id="line-26"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.FakeClassnameTags123.html"><span class="hs-identifier">OpenAPIPetstore.API.FakeClassnameTags123</span></a></span><span>
|
||||
</span><span id="line-27"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Pet.html"><span class="hs-identifier">OpenAPIPetstore.API.Pet</span></a></span><span>
|
||||
</span><span id="line-28"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.Store.html"><span class="hs-identifier">OpenAPIPetstore.API.Store</span></a></span><span>
|
||||
</span><span id="line-29"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.User.html"><span class="hs-identifier">OpenAPIPetstore.API.User</span></a></span></pre></body></html>
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -7,28 +7,28 @@
|
||||
OpenAPI Petstore API version: 1.0.0
|
||||
Generated by OpenAPI Generator (https://openapi-generator.tech)
|
||||
-}</span><span>
|
||||
</span><a name="line-10"></a><span>
|
||||
</span><a name="line-11"></a><span class="hs-comment">{-|
|
||||
</span><span id="line-10"></span><span>
|
||||
</span><span id="line-11"></span><span class="hs-comment">{-|
|
||||
Module : OpenAPIPetstore.Logging
|
||||
Logging functions
|
||||
-}</span><span>
|
||||
</span><a name="line-15"></a><span class="hs-pragma">{-# LANGUAGE CPP #-}</span><span>
|
||||
</span><a name="line-16"></a><span>
|
||||
</span><a name="line-17"></a><span class="hs-cpp">#ifdef USE_KATIP
|
||||
</span><span id="line-15"></span><span class="hs-pragma">{-# LANGUAGE CPP #-}</span><span class="hs-cpp">
|
||||
|
||||
#ifdef USE_KATIP
|
||||
</span><span>
|
||||
</span><a name="line-19"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.Logging</span><span>
|
||||
</span><a name="line-20"></a><span> </span><span class="hs-special">(</span><span> </span><span class="hs-keyword">module</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html"><span class="hs-identifier">OpenAPIPetstore.LoggingKatip</span></a><span>
|
||||
</span><a name="line-21"></a><span> </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-22"></a><span>
|
||||
</span><a name="line-23"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html"><span class="hs-identifier">OpenAPIPetstore.LoggingKatip</span></a><span>
|
||||
</span><a name="line-24"></a><span>
|
||||
</span><a name="line-25"></a><span class="hs-cpp">#else
|
||||
</span><span id="line-19"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.Logging</span><span>
|
||||
</span><span id="line-20"></span><span> </span><span class="hs-special">(</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html"><span class="hs-identifier">OpenAPIPetstore.LoggingKatip</span></a></span><span>
|
||||
</span><span id="line-21"></span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-22"></span><span>
|
||||
</span><span id="line-23"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html"><span class="hs-identifier">OpenAPIPetstore.LoggingKatip</span></a></span><span class="hs-cpp">
|
||||
|
||||
#else
|
||||
</span><span>
|
||||
</span><a name="line-27"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.Logging</span><span>
|
||||
</span><a name="line-28"></a><span> </span><span class="hs-special">(</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.LoggingMonadLogger</span><span>
|
||||
</span><a name="line-29"></a><span> </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-30"></a><span>
|
||||
</span><a name="line-31"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">OpenAPIPetstore.LoggingMonadLogger</span><span>
|
||||
</span><a name="line-32"></a><span>
|
||||
</span><a name="line-33"></a><span class="hs-cpp">#endif
|
||||
</span><span id="line-27"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.Logging</span><span>
|
||||
</span><span id="line-28"></span><span> </span><span class="hs-special">(</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.LoggingMonadLogger</span><span>
|
||||
</span><span id="line-29"></span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-30"></span><span>
|
||||
</span><span id="line-31"></span><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">OpenAPIPetstore.LoggingMonadLogger</span><span class="hs-cpp">
|
||||
|
||||
#endif
|
||||
</span></pre></body></html>
|
||||
@@ -7,113 +7,224 @@
|
||||
OpenAPI Petstore API version: 1.0.0
|
||||
Generated by OpenAPI Generator (https://openapi-generator.tech)
|
||||
-}</span><span>
|
||||
</span><a name="line-10"></a><span>
|
||||
</span><a name="line-11"></a><span class="hs-comment">{-|
|
||||
</span><span id="line-10"></span><span>
|
||||
</span><span id="line-11"></span><span class="hs-comment">{-|
|
||||
Module : OpenAPIPetstore.LoggingKatip
|
||||
Katip Logging functions
|
||||
-}</span><span>
|
||||
</span><a name="line-15"></a><span>
|
||||
</span><a name="line-16"></a><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><a name="line-17"></a><span class="hs-pragma">{-# LANGUAGE RankNTypes #-}</span><span>
|
||||
</span><a name="line-18"></a><span class="hs-pragma">{-# LANGUAGE ScopedTypeVariables #-}</span><span>
|
||||
</span><a name="line-19"></a><span>
|
||||
</span><a name="line-20"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.LoggingKatip</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-21"></a><span>
|
||||
</span><a name="line-22"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control.Exception.Safe</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">E</span><span>
|
||||
</span><a name="line-23"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control.Monad.IO.Class</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-24"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control.Monad.Trans.Reader</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">P</span><span>
|
||||
</span><a name="line-25"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Data.Text</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">T</span><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Lens.Micro</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">L</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">System.IO</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">IO</span><span>
|
||||
</span><a name="line-28"></a><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data.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-30"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">GHC.Exts</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">IsString</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-31"></a><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">Katip</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">LG</span><span>
|
||||
</span><a name="line-33"></a><span>
|
||||
</span><a name="line-34"></a><span class="hs-comment">-- * Type Aliases (for compatibility)</span><span>
|
||||
</span><a name="line-35"></a><span>
|
||||
</span><a name="line-36"></a><span class="hs-comment">-- | Runs a Katip logging block with the Log environment</span><span>
|
||||
</span><a name="line-37"></a><span class="hs-keyword">type</span><span> </span><a name="LogExecWithContext"><a href="OpenAPIPetstore.LoggingKatip.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-6989586621679044534"><a href="#local-6989586621679044534"><span class="hs-identifier">m</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">P.MonadIO</span><span> </span><a href="#local-6989586621679044534"><span class="hs-identifier hs-type">m</span></a><span> </span><span class="hs-glyph">=></span><span>
|
||||
</span><a name="line-38"></a><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a><span> </span><a href="#local-6989586621679044534"><span class="hs-identifier hs-type">m</span></a><span>
|
||||
</span><a name="line-39"></a><span>
|
||||
</span><a name="line-40"></a><span class="hs-comment">-- | A Katip logging block</span><span>
|
||||
</span><a name="line-41"></a><span class="hs-keyword">type</span><span> </span><a name="LogExec"><a href="OpenAPIPetstore.LoggingKatip.html#LogExec"><span class="hs-identifier">LogExec</span></a></a><span> </span><a name="local-6989586621679044532"><a href="#local-6989586621679044532"><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-6989586621679044533"><a href="#local-6989586621679044533"><span class="hs-identifier">a</span></a></a><span class="hs-operator">.</span><span> </span><span class="hs-identifier hs-type">LG.KatipT</span><span> </span><a href="#local-6989586621679044532"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679044533"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679044532"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679044533"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-42"></a><span>
|
||||
</span><a name="line-43"></a><span class="hs-comment">-- | A Katip Log environment</span><span>
|
||||
</span><a name="line-44"></a><span class="hs-keyword">type</span><span> </span><a name="LogContext"><a href="OpenAPIPetstore.LoggingKatip.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.LogEnv</span><span>
|
||||
</span><a name="line-45"></a><span>
|
||||
</span><a name="line-46"></a><span class="hs-comment">-- | A Katip Log severity</span><span>
|
||||
</span><a name="line-47"></a><span class="hs-keyword">type</span><span> </span><a name="LogLevel"><a href="OpenAPIPetstore.LoggingKatip.html#LogLevel"><span class="hs-identifier">LogLevel</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-type">LG.Severity</span><span>
|
||||
</span><a name="line-48"></a><span>
|
||||
</span><a name="line-49"></a><span class="hs-comment">-- * default logger</span><span>
|
||||
</span><a name="line-50"></a><span>
|
||||
</span><a name="line-51"></a><span class="hs-comment">-- | the default log environment</span><span>
|
||||
</span><a name="line-52"></a><span class="hs-identifier">initLogContext</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span>
|
||||
</span><a name="line-53"></a><a name="initLogContext"><a href="OpenAPIPetstore.LoggingKatip.html#initLogContext"><span class="hs-identifier">initLogContext</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">LG.initLogEnv</span><span> </span><span class="hs-string">"OpenAPIPetstore"</span><span> </span><span class="hs-string">"dev"</span><span>
|
||||
</span><a name="line-54"></a><span>
|
||||
</span><a name="line-55"></a><span class="hs-comment">-- | Runs a Katip logging block with the Log environment</span><span>
|
||||
</span><a name="line-56"></a><span class="hs-identifier">runDefaultLogExecWithContext</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a><span>
|
||||
</span><a name="line-57"></a><a name="runDefaultLogExecWithContext"><a href="OpenAPIPetstore.LoggingKatip.html#runDefaultLogExecWithContext"><span class="hs-identifier">runDefaultLogExecWithContext</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">LG.runKatipT</span><span>
|
||||
</span><a name="line-58"></a><span>
|
||||
</span><a name="line-59"></a><span class="hs-comment">-- * stdout logger</span><span>
|
||||
</span><a name="line-60"></a><span>
|
||||
</span><a name="line-61"></a><span class="hs-comment">-- | Runs a Katip logging block with the Log environment</span><span>
|
||||
</span><a name="line-62"></a><span class="hs-identifier">stdoutLoggingExec</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a><span>
|
||||
</span><a name="line-63"></a><a name="stdoutLoggingExec"><a href="OpenAPIPetstore.LoggingKatip.html#stdoutLoggingExec"><span class="hs-identifier">stdoutLoggingExec</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#runDefaultLogExecWithContext"><span class="hs-identifier hs-var">runDefaultLogExecWithContext</span></a><span>
|
||||
</span><a name="line-64"></a><span>
|
||||
</span><a name="line-65"></a><span class="hs-comment">-- | A Katip Log environment which targets stdout</span><span>
|
||||
</span><a name="line-66"></a><span class="hs-identifier">stdoutLoggingContext</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.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="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span>
|
||||
</span><a name="line-67"></a><a name="stdoutLoggingContext"><a href="OpenAPIPetstore.LoggingKatip.html#stdoutLoggingContext"><span class="hs-identifier">stdoutLoggingContext</span></a></a><span> </span><a name="local-6989586621679046972"><a href="#local-6989586621679046972"><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-68"></a><span> </span><a name="local-6989586621679047207"><a href="#local-6989586621679047207"><span class="hs-identifier">handleScribe</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">LG.mkHandleScribe</span><span> </span><span class="hs-identifier hs-var">LG.ColorIfTerminal</span><span> </span><span class="hs-identifier hs-var">IO.stdout</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG.permitItem</span><span> </span><span class="hs-identifier hs-var">LG.InfoS</span><span class="hs-special">)</span><span> </span><span class="hs-identifier hs-var">LG.V2</span><span>
|
||||
</span><a name="line-69"></a><span> </span><span class="hs-identifier hs-var">LG.registerScribe</span><span> </span><span class="hs-string">"stdout"</span><span> </span><a href="#local-6989586621679047207"><span class="hs-identifier hs-var">handleScribe</span></a><span> </span><span class="hs-identifier hs-var">LG.defaultScribeSettings</span><span> </span><a href="#local-6989586621679046972"><span class="hs-identifier hs-var">cxt</span></a><span>
|
||||
</span><a name="line-70"></a><span>
|
||||
</span><a name="line-71"></a><span class="hs-comment">-- * stderr logger</span><span>
|
||||
</span><a name="line-72"></a><span>
|
||||
</span><a name="line-73"></a><span class="hs-comment">-- | Runs a Katip logging block with the Log environment</span><span>
|
||||
</span><a name="line-74"></a><span class="hs-identifier">stderrLoggingExec</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a><span>
|
||||
</span><a name="line-75"></a><a name="stderrLoggingExec"><a href="OpenAPIPetstore.LoggingKatip.html#stderrLoggingExec"><span class="hs-identifier">stderrLoggingExec</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#runDefaultLogExecWithContext"><span class="hs-identifier hs-var">runDefaultLogExecWithContext</span></a><span>
|
||||
</span><a name="line-76"></a><span>
|
||||
</span><a name="line-77"></a><span class="hs-comment">-- | A Katip Log environment which targets stderr</span><span>
|
||||
</span><a name="line-78"></a><span class="hs-identifier">stderrLoggingContext</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.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="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a><span>
|
||||
</span><a name="line-79"></a><a name="stderrLoggingContext"><a href="OpenAPIPetstore.LoggingKatip.html#stderrLoggingContext"><span class="hs-identifier">stderrLoggingContext</span></a></a><span> </span><a name="local-6989586621679047208"><a href="#local-6989586621679047208"><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-80"></a><span> </span><a name="local-6989586621679047209"><a href="#local-6989586621679047209"><span class="hs-identifier">handleScribe</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-identifier hs-var">LG.mkHandleScribe</span><span> </span><span class="hs-identifier hs-var">LG.ColorIfTerminal</span><span> </span><span class="hs-identifier hs-var">IO.stderr</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG.permitItem</span><span> </span><span class="hs-identifier hs-var">LG.InfoS</span><span class="hs-special">)</span><span> </span><span class="hs-identifier hs-var">LG.V2</span><span>
|
||||
</span><a name="line-81"></a><span> </span><span class="hs-identifier hs-var">LG.registerScribe</span><span> </span><span class="hs-string">"stderr"</span><span> </span><a href="#local-6989586621679047209"><span class="hs-identifier hs-var">handleScribe</span></a><span> </span><span class="hs-identifier hs-var">LG.defaultScribeSettings</span><span> </span><a href="#local-6989586621679047208"><span class="hs-identifier hs-var">cxt</span></a><span>
|
||||
</span><a name="line-82"></a><span>
|
||||
</span><a name="line-83"></a><span class="hs-comment">-- * Null logger</span><span>
|
||||
</span><a name="line-84"></a><span>
|
||||
</span><a name="line-85"></a><span class="hs-comment">-- | Disables Katip logging</span><span>
|
||||
</span><a name="line-86"></a><span class="hs-identifier">runNullLogExec</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a><span>
|
||||
</span><a name="line-87"></a><a name="runNullLogExec"><a href="OpenAPIPetstore.LoggingKatip.html#runNullLogExec"><span class="hs-identifier">runNullLogExec</span></a></a><span> </span><a name="local-6989586621679047210"><a href="#local-6989586621679047210"><span class="hs-identifier">le</span></a></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG.KatipT</span><span> </span><a name="local-6989586621679047211"><a href="#local-6989586621679047211"><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.runReaderT</span><span> </span><a href="#local-6989586621679047211"><span class="hs-identifier hs-var">f</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">L.set</span><span> </span><span class="hs-identifier hs-var">LG.logEnvScribes</span><span> </span><span class="hs-identifier hs-var">mempty</span><span> </span><a href="#local-6989586621679047210"><span class="hs-identifier hs-var">le</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-88"></a><span>
|
||||
</span><a name="line-89"></a><span class="hs-comment">-- * Log Msg</span><span>
|
||||
</span><a name="line-90"></a><span>
|
||||
</span><a name="line-91"></a><span class="hs-comment">-- | Log a katip message</span><span>
|
||||
</span><a name="line-92"></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-6989586621679045131"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">LG.Katip</span><span> </span><a href="#local-6989586621679045131"><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="OpenAPIPetstore.LoggingKatip.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-6989586621679045131"><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-93"></a><a name="_log"><a href="OpenAPIPetstore.LoggingKatip.html#_log"><span class="hs-identifier">_log</span></a></a><span> </span><a name="local-6989586621679047212"><a href="#local-6989586621679047212"><span class="hs-identifier">src</span></a></a><span> </span><a name="local-6989586621679047213"><a href="#local-6989586621679047213"><span class="hs-identifier">level</span></a></a><span> </span><a name="local-6989586621679047214"><a href="#local-6989586621679047214"><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-94"></a><span> </span><span class="hs-identifier hs-var">LG.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.unpack</span><span> </span><a href="#local-6989586621679047212"><span class="hs-identifier hs-var">src</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679047213"><span class="hs-identifier hs-var">level</span></a><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">LG.logStr</span><span> </span><a href="#local-6989586621679047214"><span class="hs-identifier hs-var">msg</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-95"></a><span>
|
||||
</span><a name="line-96"></a><span class="hs-comment">-- * Log Exceptions</span><span>
|
||||
</span><a name="line-97"></a><span>
|
||||
</span><a name="line-98"></a><span class="hs-comment">-- | re-throws exceptions after logging them</span><span>
|
||||
</span><a name="line-99"></a><span class="hs-identifier">logExceptions</span><span>
|
||||
</span><a name="line-100"></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">LG.Katip</span><span> </span><a href="#local-6989586621679044535"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">E.MonadCatch</span><span> </span><a href="#local-6989586621679044535"><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-6989586621679044535"><span class="hs-identifier hs-type">m</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-101"></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-6989586621679044535"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679044536"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679044535"><span class="hs-identifier hs-type">m</span></a><span> </span><a href="#local-6989586621679044536"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-102"></a><a name="logExceptions"><a href="OpenAPIPetstore.LoggingKatip.html#logExceptions"><span class="hs-identifier">logExceptions</span></a></a><span> </span><a name="local-6989586621679047252"><a href="#local-6989586621679047252"><span class="hs-identifier">src</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-103"></a><span> </span><span class="hs-identifier hs-var">E.handle</span><span>
|
||||
</span><a name="line-104"></a><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><a name="local-6989586621679047440"><a href="#local-6989586621679047440"><span class="hs-identifier">e</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">E.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-105"></a><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#_log"><span class="hs-identifier hs-var">_log</span></a><span> </span><a href="#local-6989586621679047252"><span class="hs-identifier hs-var">src</span></a><span> </span><span class="hs-identifier hs-var">LG.ErrorS</span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="hs-identifier hs-var">T.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-6989586621679047440"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-106"></a><span> </span><span class="hs-identifier hs-var">E.throw</span><span> </span><a href="#local-6989586621679047440"><span class="hs-identifier hs-var">e</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-107"></a><span>
|
||||
</span><a name="line-108"></a><span class="hs-comment">-- * Log Level</span><span>
|
||||
</span><a name="line-109"></a><span>
|
||||
</span><a name="line-110"></a><span class="hs-identifier">levelInfo</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a><span>
|
||||
</span><a name="line-111"></a><a name="levelInfo"><a href="OpenAPIPetstore.LoggingKatip.html#levelInfo"><span class="hs-identifier">levelInfo</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">LG.InfoS</span><span>
|
||||
</span><a name="line-112"></a><span>
|
||||
</span><a name="line-113"></a><span class="hs-identifier">levelError</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a><span>
|
||||
</span><a name="line-114"></a><a name="levelError"><a href="OpenAPIPetstore.LoggingKatip.html#levelError"><span class="hs-identifier">levelError</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">LG.ErrorS</span><span>
|
||||
</span><a name="line-115"></a><span>
|
||||
</span><a name="line-116"></a><span class="hs-identifier">levelDebug</span><span> </span><span class="hs-glyph">::</span><span> </span><a href="OpenAPIPetstore.LoggingKatip.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a><span>
|
||||
</span><a name="line-117"></a><a name="levelDebug"><a href="OpenAPIPetstore.LoggingKatip.html#levelDebug"><span class="hs-identifier">levelDebug</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">LG.DebugS</span><span>
|
||||
</span><a name="line-118"></a><span>
|
||||
</span><a name="line-119"></a></pre></body></html>
|
||||
</span><span id="line-15"></span><span>
|
||||
</span><span id="line-16"></span><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><span id="line-17"></span><span class="hs-pragma">{-# LANGUAGE RankNTypes #-}</span><span>
|
||||
</span><span id="line-18"></span><span class="hs-pragma">{-# LANGUAGE ScopedTypeVariables #-}</span><span>
|
||||
</span><span id="line-19"></span><span>
|
||||
</span><span id="line-20"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.LoggingKatip</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-21"></span><span>
|
||||
</span><span id="line-22"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Control.Exception.Safe</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">E</span></span><span>
|
||||
</span><span id="line-23"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Control.Monad.IO.Class</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-24"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Control.Monad.Trans.Reader</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-25"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">T</span></span><span>
|
||||
</span><span id="line-26"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Lens.Micro</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">L</span></span><span>
|
||||
</span><span id="line-27"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">System.IO</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">IO</span></span><span>
|
||||
</span><span id="line-28"></span><span>
|
||||
</span><span id="line-29"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Text</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-30"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">GHC.Exts</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">IsString</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-31"></span><span>
|
||||
</span><span id="line-32"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Katip</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">LG</span></span><span>
|
||||
</span><span id="line-33"></span><span>
|
||||
</span><span id="line-34"></span><span class="hs-comment">-- * Type Aliases (for compatibility)</span><span>
|
||||
</span><span id="line-35"></span><span>
|
||||
</span><span id="line-36"></span><span class="hs-comment">-- | Runs a Katip logging block with the Log environment</span><span>
|
||||
</span><span id="line-37"></span><span class="hs-keyword">type</span><span> </span><span id="LogExecWithContext"><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogExecWithContext"><span class="hs-identifier hs-var">LogExecWithContext</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679145572"><span class="annot"><a href="#local-6989586621679145572"><span class="hs-identifier hs-type">m</span></a></span></span><span> </span><span id="local-6989586621679145571"><span class="annot"><a href="#local-6989586621679145571"><span class="hs-identifier hs-type">a</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.MonadIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679145572"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="hs-glyph">=></span><span>
|
||||
</span><span id="line-38"></span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogExec"><span class="hs-identifier hs-type">LogExec</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145572"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145571"><span class="hs-identifier hs-type">a</span></a></span><span>
|
||||
</span><span id="line-39"></span><span>
|
||||
</span><span id="line-40"></span><span class="hs-comment">-- | A Katip logging block</span><span>
|
||||
</span><span id="line-41"></span><span class="hs-keyword">type</span><span> </span><span id="LogExec"><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogExec"><span class="hs-identifier hs-var">LogExec</span></a></span></span><span> </span><span id="local-6989586621679145569"><span class="annot"><a href="#local-6989586621679145569"><span class="hs-identifier hs-type">m</span></a></span></span><span> </span><span id="local-6989586621679145568"><span class="annot"><a href="#local-6989586621679145568"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="hs-identifier hs-type">LG.KatipT</span></span><span> </span><span class="annot"><a href="#local-6989586621679145569"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145568"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679145569"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145568"><span class="hs-identifier hs-type">a</span></a></span><span>
|
||||
</span><span id="line-42"></span><span>
|
||||
</span><span id="line-43"></span><span class="hs-comment">-- | A Katip Log environment</span><span>
|
||||
</span><span id="line-44"></span><span class="hs-keyword">type</span><span> </span><span id="LogContext"><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-var">LogContext</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="hs-identifier hs-type">LG.LogEnv</span></span><span>
|
||||
</span><span id="line-45"></span><span>
|
||||
</span><span id="line-46"></span><span class="hs-comment">-- | A Katip Log severity</span><span>
|
||||
</span><span id="line-47"></span><span class="hs-keyword">type</span><span> </span><span id="LogLevel"><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogLevel"><span class="hs-identifier hs-var">LogLevel</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="hs-identifier hs-type">LG.Severity</span></span><span>
|
||||
</span><span id="line-48"></span><span>
|
||||
</span><span id="line-49"></span><span class="hs-comment">-- * default logger</span><span>
|
||||
</span><span id="line-50"></span><span>
|
||||
</span><span id="line-51"></span><span class="hs-comment">-- | the default log environment</span><span>
|
||||
</span><span id="line-52"></span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#initLogContext"><span class="hs-identifier hs-type">initLogContext</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a></span><span>
|
||||
</span><span id="line-53"></span><span id="initLogContext"><span class="annot"><span class="annottext">initLogContext :: IO LogContext
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#initLogContext"><span class="hs-identifier hs-var hs-var">initLogContext</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Namespace -> Environment -> IO LogContext
|
||||
</span><span class="hs-identifier hs-var">LG.initLogEnv</span></span><span> </span><span class="annot"><span class="annottext">Namespace
|
||||
</span><span class="hs-string">"OpenAPIPetstore"</span></span><span> </span><span class="annot"><span class="annottext">Environment
|
||||
</span><span class="hs-string">"dev"</span></span><span>
|
||||
</span><span id="line-54"></span><span>
|
||||
</span><span id="line-55"></span><span class="hs-comment">-- | Runs a Katip logging block with the Log environment</span><span>
|
||||
</span><span id="line-56"></span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#runDefaultLogExecWithContext"><span class="hs-identifier hs-type">runDefaultLogExecWithContext</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a></span><span>
|
||||
</span><span id="line-57"></span><span id="runDefaultLogExecWithContext"><span class="annot"><span class="annottext">runDefaultLogExecWithContext :: LogContext -> LogExec m a
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#runDefaultLogExecWithContext"><span class="hs-identifier hs-var hs-var">runDefaultLogExecWithContext</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">LogContext -> LogExec m a
|
||||
forall (m :: * -> *) a. LogContext -> KatipT m a -> m a
|
||||
</span><span class="hs-identifier hs-var">LG.runKatipT</span></span><span>
|
||||
</span><span id="line-58"></span><span>
|
||||
</span><span id="line-59"></span><span class="hs-comment">-- * stdout logger</span><span>
|
||||
</span><span id="line-60"></span><span>
|
||||
</span><span id="line-61"></span><span class="hs-comment">-- | Runs a Katip logging block with the Log environment</span><span>
|
||||
</span><span id="line-62"></span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#stdoutLoggingExec"><span class="hs-identifier hs-type">stdoutLoggingExec</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a></span><span>
|
||||
</span><span id="line-63"></span><span id="stdoutLoggingExec"><span class="annot"><span class="annottext">stdoutLoggingExec :: LogContext -> LogExec m a
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#stdoutLoggingExec"><span class="hs-identifier hs-var hs-var">stdoutLoggingExec</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">LogContext -> LogExec m a
|
||||
LogExecWithContext
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#runDefaultLogExecWithContext"><span class="hs-identifier hs-var">runDefaultLogExecWithContext</span></a></span><span>
|
||||
</span><span id="line-64"></span><span>
|
||||
</span><span id="line-65"></span><span class="hs-comment">-- | A Katip Log environment which targets stdout</span><span>
|
||||
</span><span id="line-66"></span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#stdoutLoggingContext"><span class="hs-identifier hs-type">stdoutLoggingContext</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a></span><span>
|
||||
</span><span id="line-67"></span><span id="stdoutLoggingContext"><span class="annot"><span class="annottext">stdoutLoggingContext :: LogContext -> IO LogContext
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#stdoutLoggingContext"><span class="hs-identifier hs-var hs-var">stdoutLoggingContext</span></a></span></span><span> </span><span id="local-6989586621679145559"><span class="annot"><span class="annottext">LogContext
|
||||
</span><a href="#local-6989586621679145559"><span class="hs-identifier hs-var">cxt</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-68"></span><span> </span><span id="local-6989586621679145558"><span class="annot"><span class="annottext">Scribe
|
||||
</span><a href="#local-6989586621679145558"><span class="hs-identifier hs-var">handleScribe</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">ColorStrategy -> Handle -> PermitFunc -> Verbosity -> IO Scribe
|
||||
</span><span class="hs-identifier hs-var">LG.mkHandleScribe</span></span><span> </span><span class="annot"><span class="annottext">ColorStrategy
|
||||
</span><span class="hs-identifier hs-var">LG.ColorIfTerminal</span></span><span> </span><span class="annot"><span class="annottext">Handle
|
||||
</span><span class="hs-identifier hs-var">IO.stdout</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Severity -> Item a -> IO Bool
|
||||
forall (m :: * -> *) a. Monad m => Severity -> Item a -> m Bool
|
||||
</span><span class="hs-identifier hs-var">LG.permitItem</span></span><span> </span><span class="annot"><span class="annottext">Severity
|
||||
</span><span class="hs-identifier hs-var">LG.InfoS</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Verbosity
|
||||
</span><span class="hs-identifier hs-var">LG.V2</span></span><span>
|
||||
</span><span id="line-69"></span><span> </span><span class="annot"><span class="annottext">Text -> Scribe -> ScribeSettings -> LogContext -> IO LogContext
|
||||
</span><span class="hs-identifier hs-var">LG.registerScribe</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"stdout"</span></span><span> </span><span class="annot"><span class="annottext">Scribe
|
||||
</span><a href="#local-6989586621679145558"><span class="hs-identifier hs-var">handleScribe</span></a></span><span> </span><span class="annot"><span class="annottext">ScribeSettings
|
||||
</span><span class="hs-identifier hs-var">LG.defaultScribeSettings</span></span><span> </span><span class="annot"><span class="annottext">LogContext
|
||||
</span><a href="#local-6989586621679145559"><span class="hs-identifier hs-var">cxt</span></a></span><span>
|
||||
</span><span id="line-70"></span><span>
|
||||
</span><span id="line-71"></span><span class="hs-comment">-- * stderr logger</span><span>
|
||||
</span><span id="line-72"></span><span>
|
||||
</span><span id="line-73"></span><span class="hs-comment">-- | Runs a Katip logging block with the Log environment</span><span>
|
||||
</span><span id="line-74"></span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#stderrLoggingExec"><span class="hs-identifier hs-type">stderrLoggingExec</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a></span><span>
|
||||
</span><span id="line-75"></span><span id="stderrLoggingExec"><span class="annot"><span class="annottext">stderrLoggingExec :: LogContext -> LogExec m a
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#stderrLoggingExec"><span class="hs-identifier hs-var hs-var">stderrLoggingExec</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">LogContext -> LogExec m a
|
||||
LogExecWithContext
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#runDefaultLogExecWithContext"><span class="hs-identifier hs-var">runDefaultLogExecWithContext</span></a></span><span>
|
||||
</span><span id="line-76"></span><span>
|
||||
</span><span id="line-77"></span><span class="hs-comment">-- | A Katip Log environment which targets stderr</span><span>
|
||||
</span><span id="line-78"></span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#stderrLoggingContext"><span class="hs-identifier hs-type">stderrLoggingContext</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogContext"><span class="hs-identifier hs-type">LogContext</span></a></span><span>
|
||||
</span><span id="line-79"></span><span id="stderrLoggingContext"><span class="annot"><span class="annottext">stderrLoggingContext :: LogContext -> IO LogContext
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#stderrLoggingContext"><span class="hs-identifier hs-var hs-var">stderrLoggingContext</span></a></span></span><span> </span><span id="local-6989586621679145547"><span class="annot"><span class="annottext">LogContext
|
||||
</span><a href="#local-6989586621679145547"><span class="hs-identifier hs-var">cxt</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-80"></span><span> </span><span id="local-6989586621679145546"><span class="annot"><span class="annottext">Scribe
|
||||
</span><a href="#local-6989586621679145546"><span class="hs-identifier hs-var">handleScribe</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">ColorStrategy -> Handle -> PermitFunc -> Verbosity -> IO Scribe
|
||||
</span><span class="hs-identifier hs-var">LG.mkHandleScribe</span></span><span> </span><span class="annot"><span class="annottext">ColorStrategy
|
||||
</span><span class="hs-identifier hs-var">LG.ColorIfTerminal</span></span><span> </span><span class="annot"><span class="annottext">Handle
|
||||
</span><span class="hs-identifier hs-var">IO.stderr</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Severity -> Item a -> IO Bool
|
||||
forall (m :: * -> *) a. Monad m => Severity -> Item a -> m Bool
|
||||
</span><span class="hs-identifier hs-var">LG.permitItem</span></span><span> </span><span class="annot"><span class="annottext">Severity
|
||||
</span><span class="hs-identifier hs-var">LG.InfoS</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Verbosity
|
||||
</span><span class="hs-identifier hs-var">LG.V2</span></span><span>
|
||||
</span><span id="line-81"></span><span> </span><span class="annot"><span class="annottext">Text -> Scribe -> ScribeSettings -> LogContext -> IO LogContext
|
||||
</span><span class="hs-identifier hs-var">LG.registerScribe</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"stderr"</span></span><span> </span><span class="annot"><span class="annottext">Scribe
|
||||
</span><a href="#local-6989586621679145546"><span class="hs-identifier hs-var">handleScribe</span></a></span><span> </span><span class="annot"><span class="annottext">ScribeSettings
|
||||
</span><span class="hs-identifier hs-var">LG.defaultScribeSettings</span></span><span> </span><span class="annot"><span class="annottext">LogContext
|
||||
</span><a href="#local-6989586621679145547"><span class="hs-identifier hs-var">cxt</span></a></span><span>
|
||||
</span><span id="line-82"></span><span>
|
||||
</span><span id="line-83"></span><span class="hs-comment">-- * Null logger</span><span>
|
||||
</span><span id="line-84"></span><span>
|
||||
</span><span id="line-85"></span><span class="hs-comment">-- | Disables Katip logging</span><span>
|
||||
</span><span id="line-86"></span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#runNullLogExec"><span class="hs-identifier hs-type">runNullLogExec</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogExecWithContext"><span class="hs-identifier hs-type">LogExecWithContext</span></a></span><span>
|
||||
</span><span id="line-87"></span><span id="runNullLogExec"><span class="annot"><span class="annottext">runNullLogExec :: LogContext -> LogExec m a
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#runNullLogExec"><span class="hs-identifier hs-var hs-var">runNullLogExec</span></a></span></span><span> </span><span id="local-6989586621679145543"><span class="annot"><span class="annottext">LogContext
|
||||
</span><a href="#local-6989586621679145543"><span class="hs-identifier hs-var">le</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LG.KatipT</span></span><span> </span><span id="local-6989586621679145541"><span class="annot"><span class="annottext">ReaderT LogContext m a
|
||||
</span><a href="#local-6989586621679145541"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ReaderT LogContext m a -> LogContext -> m a
|
||||
forall r (m :: * -> *) a. ReaderT r m a -> r -> m a
|
||||
</span><span class="hs-identifier hs-var hs-var">P.runReaderT</span></span><span> </span><span class="annot"><span class="annottext">ReaderT LogContext m a
|
||||
</span><a href="#local-6989586621679145541"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ASetter
|
||||
LogContext
|
||||
LogContext
|
||||
(Map Text ScribeHandle)
|
||||
(Map Text ScribeHandle)
|
||||
-> Map Text ScribeHandle -> LogContext -> LogContext
|
||||
forall s t a b. ASetter s t a b -> b -> s -> t
|
||||
</span><span class="hs-identifier hs-var">L.set</span></span><span> </span><span class="annot"><span class="annottext">ASetter
|
||||
LogContext
|
||||
LogContext
|
||||
(Map Text ScribeHandle)
|
||||
(Map Text ScribeHandle)
|
||||
Lens' LogContext (Map Text ScribeHandle)
|
||||
</span><span class="hs-identifier hs-var">LG.logEnvScribes</span></span><span> </span><span class="annot"><span class="annottext">Map Text ScribeHandle
|
||||
forall a. Monoid a => a
|
||||
</span><span class="hs-identifier hs-var">mempty</span></span><span> </span><span class="annot"><span class="annottext">LogContext
|
||||
</span><a href="#local-6989586621679145543"><span class="hs-identifier hs-var">le</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-88"></span><span>
|
||||
</span><span id="line-89"></span><span class="hs-comment">-- * Log Msg</span><span>
|
||||
</span><span id="line-90"></span><span>
|
||||
</span><span id="line-91"></span><span class="hs-comment">-- | Log a katip message</span><span>
|
||||
</span><span id="line-92"></span><span id="local-6989586621679145581"><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#_log"><span class="hs-identifier hs-type">_log</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Applicative</span></span><span> </span><span class="annot"><a href="#local-6989586621679145581"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">LG.Katip</span></span><span> </span><span class="annot"><a href="#local-6989586621679145581"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Text</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Text</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679145581"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-93"></span><span id="_log"><span class="annot"><span class="annottext">_log :: Text -> Severity -> Text -> m ()
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#_log"><span class="hs-identifier hs-var hs-var">_log</span></a></span></span><span> </span><span id="local-6989586621679145536"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679145536"><span class="hs-identifier hs-var">src</span></a></span></span><span> </span><span id="local-6989586621679145535"><span class="annot"><span class="annottext">Severity
|
||||
</span><a href="#local-6989586621679145535"><span class="hs-identifier hs-var">level</span></a></span></span><span> </span><span id="local-6989586621679145534"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679145534"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-94"></span><span> </span><span class="annot"><span class="annottext">Namespace -> Severity -> LogStr -> m ()
|
||||
forall (m :: * -> *).
|
||||
(Applicative m, Katip m) =>
|
||||
Namespace -> Severity -> LogStr -> m ()
|
||||
</span><span class="hs-identifier hs-var">LG.logMsg</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -> Namespace
|
||||
forall a. IsString a => String -> a
|
||||
</span><span class="hs-identifier hs-var">fromString</span></span><span> </span><span class="annot"><span class="annottext">(String -> Namespace) -> String -> Namespace
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">Text -> String
|
||||
</span><span class="hs-identifier hs-var">T.unpack</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679145536"><span class="hs-identifier hs-var">src</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Severity
|
||||
</span><a href="#local-6989586621679145535"><span class="hs-identifier hs-var">level</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> LogStr
|
||||
forall a. StringConv a Text => a -> LogStr
|
||||
</span><span class="hs-identifier hs-var">LG.logStr</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679145534"><span class="hs-identifier hs-var">msg</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-95"></span><span>
|
||||
</span><span id="line-96"></span><span class="hs-comment">-- * Log Exceptions</span><span>
|
||||
</span><span id="line-97"></span><span>
|
||||
</span><span id="line-98"></span><span class="hs-comment">-- | re-throws exceptions after logging them</span><span>
|
||||
</span><span id="line-99"></span><span id="local-6989586621679145529"><span id="local-6989586621679145530"><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#logExceptions"><span class="hs-identifier hs-type">logExceptions</span></a></span><span>
|
||||
</span><span id="line-100"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LG.Katip</span></span><span> </span><span class="annot"><a href="#local-6989586621679145530"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">E.MonadCatch</span></span><span> </span><span class="annot"><a href="#local-6989586621679145530"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Applicative</span></span><span> </span><span class="annot"><a href="#local-6989586621679145530"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-101"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Text</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679145530"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145529"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679145530"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145529"><span class="hs-identifier hs-type">a</span></a></span></span></span><span>
|
||||
</span><span id="line-102"></span><span id="logExceptions"><span class="annot"><span class="annottext">logExceptions :: Text -> m a -> m a
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#logExceptions"><span class="hs-identifier hs-var hs-var">logExceptions</span></a></span></span><span> </span><span id="local-6989586621679145527"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679145527"><span class="hs-identifier hs-var">src</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-103"></span><span> </span><span class="annot"><span class="annottext">(SomeException -> m a) -> m a -> m a
|
||||
forall (m :: * -> *) e a.
|
||||
(MonadCatch m, Exception e) =>
|
||||
(e -> m a) -> m a -> m a
|
||||
</span><span class="hs-identifier hs-var">E.handle</span></span><span>
|
||||
</span><span id="line-104"></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679145525"><span class="annot"><span class="annottext">SomeException
|
||||
</span><a href="#local-6989586621679145525"><span class="hs-identifier hs-var">e</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">E.SomeException</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-105"></span><span> </span><span class="annot"><span class="annottext">Text -> Severity -> Text -> m ()
|
||||
forall (m :: * -> *).
|
||||
(Applicative m, Katip m) =>
|
||||
Text -> Severity -> Text -> m ()
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#_log"><span class="hs-identifier hs-var">_log</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679145527"><span class="hs-identifier hs-var">src</span></a></span><span> </span><span class="annot"><span class="annottext">Severity
|
||||
</span><span class="hs-identifier hs-var">LG.ErrorS</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -> Text
|
||||
</span><span class="hs-identifier hs-var">T.pack</span></span><span> </span><span class="annot"><span class="annottext">(String -> Text)
|
||||
-> (SomeException -> String) -> SomeException -> Text
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">SomeException -> String
|
||||
forall a. Show a => a -> String
|
||||
</span><span class="hs-identifier hs-var">show</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">SomeException
|
||||
</span><a href="#local-6989586621679145525"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-106"></span><span> </span><span class="annot"><span class="annottext">SomeException -> m a
|
||||
forall (m :: * -> *) e a. (MonadThrow m, Exception e) => e -> m a
|
||||
</span><span class="hs-identifier hs-var">E.throw</span></span><span> </span><span class="annot"><span class="annottext">SomeException
|
||||
</span><a href="#local-6989586621679145525"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-107"></span><span>
|
||||
</span><span id="line-108"></span><span class="hs-comment">-- * Log Level</span><span>
|
||||
</span><span id="line-109"></span><span>
|
||||
</span><span id="line-110"></span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#levelInfo"><span class="hs-identifier hs-type">levelInfo</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a></span><span>
|
||||
</span><span id="line-111"></span><span id="levelInfo"><span class="annot"><span class="annottext">levelInfo :: Severity
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#levelInfo"><span class="hs-identifier hs-var hs-var">levelInfo</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Severity
|
||||
</span><span class="hs-identifier hs-var">LG.InfoS</span></span><span>
|
||||
</span><span id="line-112"></span><span>
|
||||
</span><span id="line-113"></span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#levelError"><span class="hs-identifier hs-type">levelError</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a></span><span>
|
||||
</span><span id="line-114"></span><span id="levelError"><span class="annot"><span class="annottext">levelError :: Severity
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#levelError"><span class="hs-identifier hs-var hs-var">levelError</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Severity
|
||||
</span><span class="hs-identifier hs-var">LG.ErrorS</span></span><span>
|
||||
</span><span id="line-115"></span><span>
|
||||
</span><span id="line-116"></span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#levelDebug"><span class="hs-identifier hs-type">levelDebug</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="OpenAPIPetstore.LoggingKatip.html#LogLevel"><span class="hs-identifier hs-type">LogLevel</span></a></span><span>
|
||||
</span><span id="line-117"></span><span id="levelDebug"><span class="annot"><span class="annottext">levelDebug :: Severity
|
||||
</span><a href="OpenAPIPetstore.LoggingKatip.html#levelDebug"><span class="hs-identifier hs-var hs-var">levelDebug</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Severity
|
||||
</span><span class="hs-identifier hs-var">LG.DebugS</span></span><span>
|
||||
</span><span id="line-118"></span></pre></body></html>
|
||||
@@ -7,250 +7,627 @@
|
||||
OpenAPI Petstore API version: 1.0.0
|
||||
Generated by OpenAPI Generator (https://openapi-generator.tech)
|
||||
-}</span><span>
|
||||
</span><a name="line-10"></a><span>
|
||||
</span><a name="line-11"></a><span class="hs-comment">{-|
|
||||
</span><span id="line-10"></span><span>
|
||||
</span><span id="line-11"></span><span class="hs-comment">{-|
|
||||
Module : OpenAPIPetstore.MimeTypes
|
||||
-}</span><span>
|
||||
</span><a name="line-14"></a><span>
|
||||
</span><a name="line-15"></a><span class="hs-pragma">{-# LANGUAGE ConstraintKinds #-}</span><span>
|
||||
</span><a name="line-16"></a><span class="hs-pragma">{-# LANGUAGE ExistentialQuantification #-}</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">OpenAPIPetstore.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.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.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.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.ByteString.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.ByteString.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.ByteString.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.ByteString.Lazy.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.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.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.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.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.Text.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.HTTP.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.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.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-45"></a><span class="hs-comment">-- * ContentType MimeType</span><span>
|
||||
</span><a name="line-46"></a><span>
|
||||
</span><a name="line-47"></a><span class="hs-keyword">data</span><span> </span><a name="ContentType"><a href="OpenAPIPetstore.MimeTypes.html#ContentType"><span class="hs-identifier">ContentType</span></a></a><span> </span><a name="local-6989586621679089319"><a href="#local-6989586621679089319"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679089319"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="ContentType"><a href="OpenAPIPetstore.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="OpenAPIPetstore.MimeTypes.html#unContentType"><span class="hs-identifier">unContentType</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679089319"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-48"></a><span>
|
||||
</span><a name="line-49"></a><span class="hs-comment">-- * Accept MimeType</span><span>
|
||||
</span><a name="line-50"></a><span>
|
||||
</span><a name="line-51"></a><span class="hs-keyword">data</span><span> </span><a name="Accept"><a href="OpenAPIPetstore.MimeTypes.html#Accept"><span class="hs-identifier">Accept</span></a></a><span> </span><a name="local-6989586621679089318"><a href="#local-6989586621679089318"><span class="hs-identifier">a</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679089318"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Accept"><a href="OpenAPIPetstore.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="OpenAPIPetstore.MimeTypes.html#unAccept"><span class="hs-identifier">unAccept</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679089318"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-special">}</span><span>
|
||||
</span><a name="line-52"></a><span>
|
||||
</span><a name="line-53"></a><span class="hs-comment">-- * Consumes Class</span><span>
|
||||
</span><a name="line-54"></a><span>
|
||||
</span><a name="line-55"></a><span class="hs-keyword">class</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679089317"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Consumes"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier">Consumes</span></a></a><span> </span><a name="local-6989586621679089316"><a href="#local-6989586621679089316"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679089317"><a href="#local-6989586621679089317"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-56"></a><span>
|
||||
</span><a name="line-57"></a><span class="hs-comment">-- * Produces Class</span><span>
|
||||
</span><a name="line-58"></a><span>
|
||||
</span><a name="line-59"></a><span class="hs-keyword">class</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679089315"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="Produces"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier">Produces</span></a></a><span> </span><a name="local-6989586621679089314"><a href="#local-6989586621679089314"><span class="hs-identifier">req</span></a></a><span> </span><a name="local-6989586621679089315"><a href="#local-6989586621679089315"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-60"></a><span>
|
||||
</span><a name="line-61"></a><span class="hs-comment">-- * Default Mime Types</span><span>
|
||||
</span><a name="line-62"></a><span>
|
||||
</span><a name="line-63"></a><span class="hs-keyword">data</span><span> </span><a name="MimeJSON"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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.Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-64"></a><span class="hs-keyword">data</span><span> </span><a name="MimeXML"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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.Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-65"></a><span class="hs-keyword">data</span><span> </span><a name="MimePlainText"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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.Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-66"></a><span class="hs-keyword">data</span><span> </span><a name="MimeFormUrlEncoded"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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.Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-67"></a><span class="hs-keyword">data</span><span> </span><a name="MimeMultipartFormData"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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.Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-68"></a><span class="hs-keyword">data</span><span> </span><a name="MimeOctetStream"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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.Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-69"></a><span class="hs-keyword">data</span><span> </span><a name="MimeNoContent"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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.Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-70"></a><span class="hs-keyword">data</span><span> </span><a name="MimeAny"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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.Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-71"></a><span>
|
||||
</span><a name="line-72"></a><span class="hs-comment">-- | A type for responses without content-body.</span><span>
|
||||
</span><a name="line-73"></a><span class="hs-keyword">data</span><span> </span><a name="NoContent"><a href="OpenAPIPetstore.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="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier">NoContent</span></a></a><span>
|
||||
</span><a name="line-74"></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P.Show</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P.Eq</span><span class="hs-special">,</span><span> </span><span class="hs-identifier hs-type">P.Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-75"></a><span>
|
||||
</span><a name="line-76"></a><span>
|
||||
</span><a name="line-77"></a><span class="hs-comment">-- * MimeType Class</span><span>
|
||||
</span><a name="line-78"></a><span>
|
||||
</span><a name="line-79"></a><span class="hs-keyword">class</span><span> </span><span class="hs-identifier hs-type">P.Typeable</span><span> </span><a href="#local-6989586621679089177"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeType"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier">MimeType</span></a></a><span> </span><a name="local-6989586621679089177"><a href="#local-6989586621679089177"><span class="hs-identifier">mtype</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-80"></a><span> </span><span class="hs-pragma">{-# MINIMAL</span><span> </span><span class="hs-pragma">mimeType</span><span> </span><span class="hs-pragma">|</span><span> </span><span class="hs-pragma">mimeTypes</span><span> </span><span class="hs-pragma">#-}</span><span>
|
||||
</span><a name="line-81"></a><span>
|
||||
</span><a name="line-82"></a><span> </span><a name="mimeTypes"><a href="OpenAPIPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier">mimeTypes</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P.Proxy</span><span> </span><a href="#local-6989586621679089177"><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.MediaType</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-83"></a><span> </span><a name="local-8214565720323863383"><a href="OpenAPIPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier">mimeTypes</span></a></a><span> </span><a name="local-6989586621679089310"><a href="#local-6989586621679089310"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-84"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a><span> </span><a href="#local-6989586621679089310"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-85"></a><span> </span><span class="hs-identifier hs-var">Just</span><span> </span><a name="local-6989586621679089311"><a href="#local-6989586621679089311"><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-6989586621679089311"><span class="hs-identifier hs-var">x</span></a><span class="hs-special">]</span><span>
|
||||
</span><a name="line-86"></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-87"></a><span>
|
||||
</span><a name="line-88"></a><span> </span><a name="mimeType"><a href="OpenAPIPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P.Proxy</span><span> </span><a href="#local-6989586621679089177"><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.MediaType</span><span>
|
||||
</span><a name="line-89"></a><span> </span><a name="local-8214565720323863384"><a href="OpenAPIPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><a name="local-6989586621679089312"><a href="#local-6989586621679089312"><span class="hs-identifier">p</span></a></a><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a name="line-90"></a><span> </span><span class="hs-keyword">case</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a><span> </span><a href="#local-6989586621679089312"><span class="hs-identifier hs-var">p</span></a><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a name="line-91"></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-92"></a><span> </span><span class="hs-special">(</span><a name="local-6989586621679089313"><a href="#local-6989586621679089313"><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-6989586621679089313"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-93"></a><span>
|
||||
</span><a name="line-94"></a><span> </span><a name="mimeType%27"><a href="OpenAPIPetstore.MimeTypes.html#mimeType%27"><span class="hs-identifier">mimeType'</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679089177"><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.MediaType</span><span>
|
||||
</span><a name="line-95"></a><span> </span><a name="local-8214565720323863385"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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.Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P.Proxy</span><span> </span><a href="#local-6989586621679089177"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-96"></a><span> </span><a name="mimeTypes%27"><a href="OpenAPIPetstore.MimeTypes.html#mimeTypes%27"><span class="hs-identifier">mimeTypes'</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679089177"><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.MediaType</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-97"></a><span> </span><a name="local-8214565720323863386"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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.Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P.Proxy</span><span> </span><a href="#local-6989586621679089177"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-98"></a><span>
|
||||
</span><a name="line-99"></a><span class="hs-comment">-- Default MimeType Instances</span><span>
|
||||
</span><a name="line-100"></a><span>
|
||||
</span><a name="line-101"></a><span class="hs-comment">-- | @application/json; charset=utf-8@</span><span>
|
||||
</span><a name="line-102"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="OpenAPIPetstore.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-103"></a><span> </span><a name="local-8214565720323863384"><a href="OpenAPIPetstore.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.fromString</span><span> </span><span class="hs-string">"application/json"</span><span>
|
||||
</span><a name="line-104"></a><span class="hs-comment">-- | @application/xml; charset=utf-8@</span><span>
|
||||
</span><a name="line-105"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="OpenAPIPetstore.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-106"></a><span> </span><a name="local-8214565720323863384"><a href="OpenAPIPetstore.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.fromString</span><span> </span><span class="hs-string">"application/xml"</span><span>
|
||||
</span><a name="line-107"></a><span class="hs-comment">-- | @application/x-www-form-urlencoded@</span><span>
|
||||
</span><a name="line-108"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="OpenAPIPetstore.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-109"></a><span> </span><a name="local-8214565720323863384"><a href="OpenAPIPetstore.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.fromString</span><span> </span><span class="hs-string">"application/x-www-form-urlencoded"</span><span>
|
||||
</span><a name="line-110"></a><span class="hs-comment">-- | @multipart/form-data@</span><span>
|
||||
</span><a name="line-111"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="OpenAPIPetstore.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-112"></a><span> </span><a name="local-8214565720323863384"><a href="OpenAPIPetstore.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.fromString</span><span> </span><span class="hs-string">"multipart/form-data"</span><span>
|
||||
</span><a name="line-113"></a><span class="hs-comment">-- | @text/plain; charset=utf-8@</span><span>
|
||||
</span><a name="line-114"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="OpenAPIPetstore.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-115"></a><span> </span><a name="local-8214565720323863384"><a href="OpenAPIPetstore.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.fromString</span><span> </span><span class="hs-string">"text/plain"</span><span>
|
||||
</span><a name="line-116"></a><span class="hs-comment">-- | @application/octet-stream@</span><span>
|
||||
</span><a name="line-117"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="OpenAPIPetstore.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-118"></a><span> </span><a name="local-8214565720323863384"><a href="OpenAPIPetstore.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.fromString</span><span> </span><span class="hs-string">"application/octet-stream"</span><span>
|
||||
</span><a name="line-119"></a><span class="hs-comment">-- | @"*/*"@</span><span>
|
||||
</span><a name="line-120"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="OpenAPIPetstore.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-121"></a><span> </span><a name="local-8214565720323863384"><a href="OpenAPIPetstore.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.fromString</span><span> </span><span class="hs-string">"*/*"</span><span>
|
||||
</span><a name="line-122"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="OpenAPIPetstore.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-123"></a><span> </span><a name="local-8214565720323863384"><a href="OpenAPIPetstore.MimeTypes.html#mimeType"><span class="hs-identifier">mimeType</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Nothing</span><span>
|
||||
</span><a name="line-124"></a><span>
|
||||
</span><a name="line-125"></a><span class="hs-comment">-- * MimeRender Class</span><span>
|
||||
</span><a name="line-126"></a><span>
|
||||
</span><a name="line-127"></a><span class="hs-keyword">class</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679089174"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeRender"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier">MimeRender</span></a></a><span> </span><a name="local-6989586621679089174"><a href="#local-6989586621679089174"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679089175"><a href="#local-6989586621679089175"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-128"></a><span> </span><a name="mimeRender"><a href="OpenAPIPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier">mimeRender</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P.Proxy</span><span> </span><a href="#local-6989586621679089174"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679089175"><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.ByteString</span><span>
|
||||
</span><a name="line-129"></a><span> </span><a name="mimeRender%27"><a href="OpenAPIPetstore.MimeTypes.html#mimeRender%27"><span class="hs-identifier">mimeRender'</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679089174"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">-></span><span> </span><a href="#local-6989586621679089175"><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.ByteString</span><span>
|
||||
</span><a name="line-130"></a><span> </span><a name="local-8214565720323863381"><a href="OpenAPIPetstore.MimeTypes.html#mimeRender%27"><span class="hs-identifier">mimeRender'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679089176"><a href="#local-6989586621679089176"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="OpenAPIPetstore.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.Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P.Proxy</span><span> </span><a href="#local-6989586621679089174"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679089176"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-131"></a><span>
|
||||
</span><a name="line-132"></a><span>
|
||||
</span><a name="line-133"></a><span class="hs-identifier">mimeRenderDefaultMultipartFormData</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">WH.ToHttpApiData</span><span> </span><a href="#local-6989586621679095142"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="#local-6989586621679095142"><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.ByteString</span><span>
|
||||
</span><a name="line-134"></a><a name="mimeRenderDefaultMultipartFormData"><a href="OpenAPIPetstore.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.fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T.encodeUtf8</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH.toQueryParam</span><span>
|
||||
</span><a name="line-135"></a><span>
|
||||
</span><a name="line-136"></a><span class="hs-comment">-- Default MimeRender Instances</span><span>
|
||||
</span><a name="line-137"></a><span>
|
||||
</span><a name="line-138"></a><span class="hs-comment">-- | `A.encode`</span><span>
|
||||
</span><a name="line-139"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A.ToJSON</span><span> </span><a href="#local-6989586621679091980"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679091980"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323863380"><a href="OpenAPIPetstore.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.encode</span><span>
|
||||
</span><a name="line-140"></a><span class="hs-comment">-- | @WH.urlEncodeAsForm@</span><span>
|
||||
</span><a name="line-141"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH.ToForm</span><span> </span><a href="#local-6989586621679091979"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679091979"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323863380"><a href="OpenAPIPetstore.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.urlEncodeAsForm</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="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">BL.ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323863380"><a href="OpenAPIPetstore.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.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="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">T.Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323863380"><a href="OpenAPIPetstore.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.fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T.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="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.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-8214565720323863380"><a href="OpenAPIPetstore.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.pack</span><span>
|
||||
</span><a name="line-149"></a><span>
|
||||
</span><a name="line-150"></a><span class="hs-comment">-- | @P.id@</span><span>
|
||||
</span><a name="line-151"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">BL.ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323863380"><a href="OpenAPIPetstore.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.id</span><span>
|
||||
</span><a name="line-152"></a><span class="hs-comment">-- | @BL.fromStrict . T.encodeUtf8@</span><span>
|
||||
</span><a name="line-153"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">T.Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323863380"><a href="OpenAPIPetstore.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.fromStrict</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T.encodeUtf8</span><span>
|
||||
</span><a name="line-154"></a><span class="hs-comment">-- | @BCL.pack@</span><span>
|
||||
</span><a name="line-155"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.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-8214565720323863380"><a href="OpenAPIPetstore.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.pack</span><span>
|
||||
</span><a name="line-156"></a><span>
|
||||
</span><a name="line-157"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">BL.ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323863380"><a href="OpenAPIPetstore.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.id</span><span>
|
||||
</span><a name="line-158"></a><span>
|
||||
</span><a name="line-159"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.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-8214565720323863380"><a href="OpenAPIPetstore.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="OpenAPIPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-160"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.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-8214565720323863380"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.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-8214565720323863380"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.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-8214565720323863380"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.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-8214565720323863380"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.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-8214565720323863380"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.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-8214565720323863380"><a href="OpenAPIPetstore.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="OpenAPIPetstore.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="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a><span> </span><span class="hs-identifier hs-type">T.Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323863380"><a href="OpenAPIPetstore.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="OpenAPIPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a><span>
|
||||
</span><a name="line-167"></a><span>
|
||||
</span><a name="line-168"></a><span class="hs-comment">-- | @P.Right . P.const NoContent@</span><span>
|
||||
</span><a name="line-169"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="OpenAPIPetstore.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-8214565720323863380"><a href="OpenAPIPetstore.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.const</span><span> </span><span class="hs-identifier hs-var">BCL.empty</span><span>
|
||||
</span><a name="line-170"></a><span>
|
||||
</span><a name="line-171"></a><span>
|
||||
</span><a name="line-172"></a><span class="hs-comment">-- * MimeUnrender Class</span><span>
|
||||
</span><a name="line-173"></a><span>
|
||||
</span><a name="line-174"></a><span class="hs-keyword">class</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="#local-6989586621679088954"><span class="hs-identifier hs-type">mtype</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a name="MimeUnrender"><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier">MimeUnrender</span></a></a><span> </span><a name="local-6989586621679088954"><a href="#local-6989586621679088954"><span class="hs-identifier">mtype</span></a></a><span> </span><a name="local-6989586621679088955"><a href="#local-6989586621679088955"><span class="hs-identifier">o</span></a></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-175"></a><span> </span><a name="mimeUnrender"><a href="OpenAPIPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier">mimeUnrender</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P.Proxy</span><span> </span><a href="#local-6989586621679088954"><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.ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P.Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679088955"><span class="hs-identifier hs-type">o</span></a><span>
|
||||
</span><a name="line-176"></a><span> </span><a name="mimeUnrender%27"><a href="OpenAPIPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier">mimeUnrender'</span></a></a><span> </span><span class="hs-glyph">::</span><span> </span><a href="#local-6989586621679088954"><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.ByteString</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">P.Either</span><span> </span><span class="hs-identifier hs-type">String</span><span> </span><a href="#local-6989586621679088955"><span class="hs-identifier hs-type">o</span></a><span>
|
||||
</span><a name="line-177"></a><span> </span><a name="local-8214565720323863378"><a href="OpenAPIPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier">mimeUnrender'</span></a></a><span> </span><span class="hs-identifier">_</span><span> </span><a name="local-6989586621679089173"><a href="#local-6989586621679089173"><span class="hs-identifier">x</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="OpenAPIPetstore.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.Proxy</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">P.Proxy</span><span> </span><a href="#local-6989586621679088954"><span class="hs-identifier hs-type">mtype</span></a><span class="hs-special">)</span><span> </span><a href="#local-6989586621679089173"><span class="hs-identifier hs-var">x</span></a><span>
|
||||
</span><a name="line-178"></a><span>
|
||||
</span><a name="line-179"></a><span class="hs-comment">-- Default MimeUnrender Instances</span><span>
|
||||
</span><a name="line-180"></a><span>
|
||||
</span><a name="line-181"></a><span class="hs-comment">-- | @A.eitherDecode@</span><span>
|
||||
</span><a name="line-182"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">A.FromJSON</span><span> </span><a href="#local-6989586621679089321"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a><span> </span><a href="#local-6989586621679089321"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323863377"><a href="OpenAPIPetstore.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.eitherDecode</span><span>
|
||||
</span><a name="line-183"></a><span class="hs-comment">-- | @P.left T.unpack . WH.urlDecodeAsForm@</span><span>
|
||||
</span><a name="line-184"></a><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier hs-type">WH.FromForm</span><span> </span><a href="#local-6989586621679089320"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-glyph">=></span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a><span> </span><a href="#local-6989586621679089320"><span class="hs-identifier hs-type">a</span></a><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323863377"><a href="OpenAPIPetstore.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.left</span><span> </span><span class="hs-identifier hs-var">T.unpack</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">WH.urlDecodeAsForm</span><span>
|
||||
</span><a name="line-185"></a><span class="hs-comment">-- | @P.Right . P.id@</span><span>
|
||||
</span><a name="line-186"></a><span>
|
||||
</span><a name="line-187"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">BL.ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323863377"><a href="OpenAPIPetstore.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.Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P.id</span><span>
|
||||
</span><a name="line-188"></a><span class="hs-comment">-- | @P.left P.show . TL.decodeUtf8'@</span><span>
|
||||
</span><a name="line-189"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a><span> </span><span class="hs-identifier hs-type">T.Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323863377"><a href="OpenAPIPetstore.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.left</span><span> </span><span class="hs-identifier hs-var">P.show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T.decodeUtf8'</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL.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="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="OpenAPIPetstore.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-8214565720323863377"><a href="OpenAPIPetstore.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.Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BCL.unpack</span><span>
|
||||
</span><a name="line-192"></a><span>
|
||||
</span><a name="line-193"></a><span class="hs-comment">-- | @P.Right . P.id@</span><span>
|
||||
</span><a name="line-194"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">BL.ByteString</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323863377"><a href="OpenAPIPetstore.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.Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P.id</span><span>
|
||||
</span><a name="line-195"></a><span class="hs-comment">-- | @P.left P.show . T.decodeUtf8' . BL.toStrict@</span><span>
|
||||
</span><a name="line-196"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a><span> </span><span class="hs-identifier hs-type">T.Text</span><span> </span><span class="hs-keyword">where</span><span> </span><a name="local-8214565720323863377"><a href="OpenAPIPetstore.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.left</span><span> </span><span class="hs-identifier hs-var">P.show</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">T.decodeUtf8'</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BL.toStrict</span><span>
|
||||
</span><a name="line-197"></a><span class="hs-comment">-- | @P.Right . BCL.unpack@</span><span>
|
||||
</span><a name="line-198"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="OpenAPIPetstore.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-8214565720323863377"><a href="OpenAPIPetstore.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.Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">BCL.unpack</span><span>
|
||||
</span><a name="line-199"></a><span>
|
||||
</span><a name="line-200"></a><span class="hs-comment">-- | @P.Right . P.const NoContent@</span><span>
|
||||
</span><a name="line-201"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a><span> </span><a href="OpenAPIPetstore.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-8214565720323863377"><a href="OpenAPIPetstore.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.Right</span><span> </span><span class="hs-operator hs-var">.</span><span> </span><span class="hs-identifier hs-var">P.const</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-var">NoContent</span></a><span>
|
||||
</span><a name="line-202"></a><span>
|
||||
</span><a name="line-203"></a><span>
|
||||
</span><a name="line-204"></a><span class="hs-comment">-- * Custom Mime Types</span><span>
|
||||
</span><a name="line-205"></a><span>
|
||||
</span><a name="line-206"></a><span class="hs-comment">-- ** MimeXmlCharsetutf16</span><span>
|
||||
</span><a name="line-207"></a><span>
|
||||
</span><a name="line-208"></a><span class="hs-keyword">data</span><span> </span><a name="MimeXmlCharsetutf16"><a href="OpenAPIPetstore.MimeTypes.html#MimeXmlCharsetutf16"><span class="hs-identifier">MimeXmlCharsetutf16</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeXmlCharsetutf16"><a href="OpenAPIPetstore.MimeTypes.html#MimeXmlCharsetutf16"><span class="hs-identifier">MimeXmlCharsetutf16</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.Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-209"></a><span>
|
||||
</span><a name="line-210"></a><span class="hs-comment">-- | @application/xml; charset=utf-16@</span><span>
|
||||
</span><a name="line-211"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeXmlCharsetutf16"><span class="hs-identifier hs-type">MimeXmlCharsetutf16</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-212"></a><span> </span><a name="local-8214565720323863384"><a href="OpenAPIPetstore.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.fromString</span><span> </span><span class="hs-string">"application/xml; charset=utf-16"</span><span>
|
||||
</span><a name="line-213"></a><span class="hs-comment">-- instance MimeRender MimeXmlCharsetutf16 T.Text where mimeRender _ = undefined</span><span>
|
||||
</span><a name="line-214"></a><span class="hs-comment">-- instance MimeUnrender MimeXmlCharsetutf16 T.Text where mimeUnrender _ = undefined</span><span>
|
||||
</span><a name="line-215"></a><span>
|
||||
</span><a name="line-216"></a><span class="hs-comment">-- ** MimeXmlCharsetutf8</span><span>
|
||||
</span><a name="line-217"></a><span>
|
||||
</span><a name="line-218"></a><span class="hs-keyword">data</span><span> </span><a name="MimeXmlCharsetutf8"><a href="OpenAPIPetstore.MimeTypes.html#MimeXmlCharsetutf8"><span class="hs-identifier">MimeXmlCharsetutf8</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeXmlCharsetutf8"><a href="OpenAPIPetstore.MimeTypes.html#MimeXmlCharsetutf8"><span class="hs-identifier">MimeXmlCharsetutf8</span></a></a><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">P.Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-219"></a><span>
|
||||
</span><a name="line-220"></a><span class="hs-comment">-- | @application/xml; charset=utf-8@</span><span>
|
||||
</span><a name="line-221"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeXmlCharsetutf8"><span class="hs-identifier hs-type">MimeXmlCharsetutf8</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-222"></a><span> </span><a name="local-8214565720323863384"><a href="OpenAPIPetstore.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.fromString</span><span> </span><span class="hs-string">"application/xml; charset=utf-8"</span><span>
|
||||
</span><a name="line-223"></a><span class="hs-comment">-- instance MimeRender MimeXmlCharsetutf8 T.Text where mimeRender _ = undefined</span><span>
|
||||
</span><a name="line-224"></a><span class="hs-comment">-- instance MimeUnrender MimeXmlCharsetutf8 T.Text where mimeUnrender _ = undefined</span><span>
|
||||
</span><a name="line-225"></a><span>
|
||||
</span><a name="line-226"></a><span class="hs-comment">-- ** MimeTextXml</span><span>
|
||||
</span><a name="line-227"></a><span>
|
||||
</span><a name="line-228"></a><span class="hs-keyword">data</span><span> </span><a name="MimeTextXml"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXml"><span class="hs-identifier">MimeTextXml</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeTextXml"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXml"><span class="hs-identifier">MimeTextXml</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.Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-229"></a><span>
|
||||
</span><a name="line-230"></a><span class="hs-comment">-- | @text/xml@</span><span>
|
||||
</span><a name="line-231"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXml"><span class="hs-identifier hs-type">MimeTextXml</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-232"></a><span> </span><a name="local-8214565720323863384"><a href="OpenAPIPetstore.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.fromString</span><span> </span><span class="hs-string">"text/xml"</span><span>
|
||||
</span><a name="line-233"></a><span class="hs-comment">-- instance MimeRender MimeTextXml T.Text where mimeRender _ = undefined</span><span>
|
||||
</span><a name="line-234"></a><span class="hs-comment">-- instance MimeUnrender MimeTextXml T.Text where mimeUnrender _ = undefined</span><span>
|
||||
</span><a name="line-235"></a><span>
|
||||
</span><a name="line-236"></a><span class="hs-comment">-- ** MimeTextXmlCharsetutf16</span><span>
|
||||
</span><a name="line-237"></a><span>
|
||||
</span><a name="line-238"></a><span class="hs-keyword">data</span><span> </span><a name="MimeTextXmlCharsetutf16"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXmlCharsetutf16"><span class="hs-identifier">MimeTextXmlCharsetutf16</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeTextXmlCharsetutf16"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXmlCharsetutf16"><span class="hs-identifier">MimeTextXmlCharsetutf16</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.Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-239"></a><span>
|
||||
</span><a name="line-240"></a><span class="hs-comment">-- | @text/xml; charset=utf-16@</span><span>
|
||||
</span><a name="line-241"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXmlCharsetutf16"><span class="hs-identifier hs-type">MimeTextXmlCharsetutf16</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-242"></a><span> </span><a name="local-8214565720323863384"><a href="OpenAPIPetstore.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.fromString</span><span> </span><span class="hs-string">"text/xml; charset=utf-16"</span><span>
|
||||
</span><a name="line-243"></a><span class="hs-comment">-- instance MimeRender MimeTextXmlCharsetutf16 T.Text where mimeRender _ = undefined</span><span>
|
||||
</span><a name="line-244"></a><span class="hs-comment">-- instance MimeUnrender MimeTextXmlCharsetutf16 T.Text where mimeUnrender _ = undefined</span><span>
|
||||
</span><a name="line-245"></a><span>
|
||||
</span><a name="line-246"></a><span class="hs-comment">-- ** MimeTextXmlCharsetutf8</span><span>
|
||||
</span><a name="line-247"></a><span>
|
||||
</span><a name="line-248"></a><span class="hs-keyword">data</span><span> </span><a name="MimeTextXmlCharsetutf8"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXmlCharsetutf8"><span class="hs-identifier">MimeTextXmlCharsetutf8</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a name="MimeTextXmlCharsetutf8"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXmlCharsetutf8"><span class="hs-identifier">MimeTextXmlCharsetutf8</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.Typeable</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-249"></a><span>
|
||||
</span><a name="line-250"></a><span class="hs-comment">-- | @text/xml; charset=utf-8@</span><span>
|
||||
</span><a name="line-251"></a><span class="hs-keyword">instance</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a><span> </span><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXmlCharsetutf8"><span class="hs-identifier hs-type">MimeTextXmlCharsetutf8</span></a><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-252"></a><span> </span><a name="local-8214565720323863384"><a href="OpenAPIPetstore.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.fromString</span><span> </span><span class="hs-string">"text/xml; charset=utf-8"</span><span>
|
||||
</span><a name="line-253"></a><span class="hs-comment">-- instance MimeRender MimeTextXmlCharsetutf8 T.Text where mimeRender _ = undefined</span><span>
|
||||
</span><a name="line-254"></a><span class="hs-comment">-- instance MimeUnrender MimeTextXmlCharsetutf8 T.Text where mimeUnrender _ = undefined</span><span>
|
||||
</span><a name="line-255"></a><span>
|
||||
</span><a name="line-256"></a></pre></body></html>
|
||||
</span><span id="line-14"></span><span>
|
||||
</span><span id="line-15"></span><span class="hs-pragma">{-# LANGUAGE ConstraintKinds #-}</span><span>
|
||||
</span><span id="line-16"></span><span class="hs-pragma">{-# LANGUAGE ExistentialQuantification #-}</span><span>
|
||||
</span><span id="line-17"></span><span class="hs-pragma">{-# LANGUAGE FlexibleContexts #-}</span><span>
|
||||
</span><span id="line-18"></span><span class="hs-pragma">{-# LANGUAGE FlexibleInstances #-}</span><span>
|
||||
</span><span id="line-19"></span><span class="hs-pragma">{-# LANGUAGE MultiParamTypeClasses #-}</span><span>
|
||||
</span><span id="line-20"></span><span class="hs-pragma">{-# LANGUAGE OverloadedStrings #-}</span><span>
|
||||
</span><span id="line-21"></span><span class="hs-pragma">{-# LANGUAGE ScopedTypeVariables #-}</span><span>
|
||||
</span><span id="line-22"></span><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-}</span><span>
|
||||
</span><span id="line-23"></span><span>
|
||||
</span><span id="line-24"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore.MimeTypes</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-25"></span><span>
|
||||
</span><span id="line-26"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Control.Arrow</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">left</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-27"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Aeson</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">A</span></span><span>
|
||||
</span><span id="line-28"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.ByteString</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">B</span></span><span>
|
||||
</span><span id="line-29"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.ByteString.Builder</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">BB</span></span><span>
|
||||
</span><span id="line-30"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.ByteString.Char8</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">BC</span></span><span>
|
||||
</span><span id="line-31"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.ByteString.Lazy</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">BL</span></span><span>
|
||||
</span><span id="line-32"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.ByteString.Lazy.Char8</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">BCL</span></span><span>
|
||||
</span><span id="line-33"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Data</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-34"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Proxy</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Proxy</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-35"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.String</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-36"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">T</span></span><span>
|
||||
</span><span id="line-37"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Data.Text.Encoding</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">T</span></span><span>
|
||||
</span><span id="line-38"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Network.HTTP.Media</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">ME</span></span><span>
|
||||
</span><span id="line-39"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Web.FormUrlEncoded</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">WH</span></span><span>
|
||||
</span><span id="line-40"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Web.HttpApiData</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">WH</span></span><span>
|
||||
</span><span id="line-41"></span><span>
|
||||
</span><span id="line-42"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Prelude</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-operator">($)</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-operator">(.)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(<$>)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-operator">(<*>)</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Maybe</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Bool</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Char</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Double</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">FilePath</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Float</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Int</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">Integer</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">String</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">fmap</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">undefined</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier">mempty</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-43"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Prelude</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">P</span></span><span>
|
||||
</span><span id="line-44"></span><span>
|
||||
</span><span id="line-45"></span><span class="hs-comment">-- * ContentType MimeType</span><span>
|
||||
</span><span id="line-46"></span><span>
|
||||
</span><span id="line-47"></span><span class="hs-keyword">data</span><span> </span><span id="ContentType"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-var">ContentType</span></a></span></span><span> </span><span id="local-6989586621679145977"><span class="annot"><a href="#local-6989586621679145977"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145977"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span id="ContentType"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#ContentType"><span class="hs-identifier hs-var">ContentType</span></a></span></span><span> </span><span class="hs-special">{</span><span> </span><span id="unContentType"><span class="annot"><span class="annottext">ContentType a -> a
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#unContentType"><span class="hs-identifier hs-var hs-var">unContentType</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679145977"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><span id="line-48"></span><span>
|
||||
</span><span id="line-49"></span><span class="hs-comment">-- * Accept MimeType</span><span>
|
||||
</span><span id="line-50"></span><span>
|
||||
</span><span id="line-51"></span><span class="hs-keyword">data</span><span> </span><span id="Accept"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-var">Accept</span></a></span></span><span> </span><span id="local-6989586621679145974"><span class="annot"><a href="#local-6989586621679145974"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145974"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span id="Accept"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Accept"><span class="hs-identifier hs-var">Accept</span></a></span></span><span> </span><span class="hs-special">{</span><span> </span><span id="unAccept"><span class="annot"><span class="annottext">Accept a -> a
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#unAccept"><span class="hs-identifier hs-var hs-var">unAccept</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679145974"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><span id="line-52"></span><span>
|
||||
</span><span id="line-53"></span><span class="hs-comment">-- * Consumes Class</span><span>
|
||||
</span><span id="line-54"></span><span>
|
||||
</span><span id="line-55"></span><span class="hs-keyword">class</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145971"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span id="Consumes"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Consumes"><span class="hs-identifier hs-var">Consumes</span></a></span></span><span> </span><span id="local-6989586621679145969"><span class="annot"><a href="#local-6989586621679145969"><span class="hs-identifier hs-type">req</span></a></span></span><span> </span><span id="local-6989586621679145971"><span class="annot"><a href="#local-6989586621679145971"><span class="hs-identifier hs-type">mtype</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-56"></span><span>
|
||||
</span><span id="line-57"></span><span class="hs-comment">-- * Produces Class</span><span>
|
||||
</span><span id="line-58"></span><span>
|
||||
</span><span id="line-59"></span><span class="hs-keyword">class</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145968"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span id="Produces"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#Produces"><span class="hs-identifier hs-var">Produces</span></a></span></span><span> </span><span id="local-6989586621679145966"><span class="annot"><a href="#local-6989586621679145966"><span class="hs-identifier hs-type">req</span></a></span></span><span> </span><span id="local-6989586621679145968"><span class="annot"><a href="#local-6989586621679145968"><span class="hs-identifier hs-type">mtype</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-60"></span><span>
|
||||
</span><span id="line-61"></span><span class="hs-comment">-- * Default Mime Types</span><span>
|
||||
</span><span id="line-62"></span><span>
|
||||
</span><span id="line-63"></span><span class="hs-keyword">data</span><span> </span><span id="MimeJSON"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-var">MimeJSON</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MimeJSON"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-var">MimeJSON</span></a></span></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-64"></span><span class="hs-keyword">data</span><span> </span><span id="MimeXML"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-var">MimeXML</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MimeXML"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-var">MimeXML</span></a></span></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-65"></span><span class="hs-keyword">data</span><span> </span><span id="MimePlainText"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-var">MimePlainText</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MimePlainText"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-var">MimePlainText</span></a></span></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-66"></span><span class="hs-keyword">data</span><span> </span><span id="MimeFormUrlEncoded"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-var">MimeFormUrlEncoded</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MimeFormUrlEncoded"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-var">MimeFormUrlEncoded</span></a></span></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-67"></span><span class="hs-keyword">data</span><span> </span><span id="MimeMultipartFormData"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-var">MimeMultipartFormData</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MimeMultipartFormData"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-var">MimeMultipartFormData</span></a></span></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-68"></span><span class="hs-keyword">data</span><span> </span><span id="MimeOctetStream"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-var">MimeOctetStream</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MimeOctetStream"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-var">MimeOctetStream</span></a></span></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-69"></span><span class="hs-keyword">data</span><span> </span><span id="MimeNoContent"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-var">MimeNoContent</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MimeNoContent"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-var">MimeNoContent</span></a></span></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-70"></span><span class="hs-keyword">data</span><span> </span><span id="MimeAny"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeAny"><span class="hs-identifier hs-var">MimeAny</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MimeAny"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeAny"><span class="hs-identifier hs-var">MimeAny</span></a></span></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-71"></span><span>
|
||||
</span><span id="line-72"></span><span class="hs-comment">-- | A type for responses without content-body.</span><span>
|
||||
</span><span id="line-73"></span><span class="hs-keyword">data</span><span> </span><span id="NoContent"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-var">NoContent</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="NoContent"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-var">NoContent</span></a></span></span><span>
|
||||
</span><span id="line-74"></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145951"><span id="local-6989586621679145953"><span id="local-6989586621679145955"><span class="annot"><span class="annottext">Int -> NoContent -> ShowS
|
||||
[NoContent] -> ShowS
|
||||
NoContent -> String
|
||||
(Int -> NoContent -> ShowS)
|
||||
-> (NoContent -> String)
|
||||
-> ([NoContent] -> ShowS)
|
||||
-> Show NoContent
|
||||
forall a.
|
||||
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
|
||||
showList :: [NoContent] -> ShowS
|
||||
$cshowList :: [NoContent] -> ShowS
|
||||
show :: NoContent -> String
|
||||
$cshow :: NoContent -> String
|
||||
showsPrec :: Int -> NoContent -> ShowS
|
||||
$cshowsPrec :: Int -> NoContent -> ShowS
|
||||
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">P.Show</span></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679145946"><span id="local-6989586621679145948"><span class="annot"><span class="annottext">NoContent -> NoContent -> Bool
|
||||
(NoContent -> NoContent -> Bool)
|
||||
-> (NoContent -> NoContent -> Bool) -> Eq NoContent
|
||||
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
|
||||
/= :: NoContent -> NoContent -> Bool
|
||||
$c/= :: NoContent -> NoContent -> Bool
|
||||
== :: NoContent -> NoContent -> Bool
|
||||
$c== :: NoContent -> NoContent -> Bool
|
||||
</span><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var">P.Eq</span></span></span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-75"></span><span>
|
||||
</span><span id="line-76"></span><span>
|
||||
</span><span id="line-77"></span><span class="hs-comment">-- * MimeType Class</span><span>
|
||||
</span><span id="line-78"></span><span>
|
||||
</span><span id="line-79"></span><span class="hs-keyword">class</span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span> </span><span class="annot"><a href="#local-6989586621679146045"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span id="MimeType"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-var">MimeType</span></a></span></span><span> </span><span id="local-6989586621679146045"><span class="annot"><a href="#local-6989586621679146045"><span class="hs-identifier hs-type">mtype</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-80"></span><span> </span><span class="hs-pragma">{-# MINIMAL</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeType"><span class="hs-pragma hs-type">mimeType</span></a></span><span> </span><span class="hs-pragma">|</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeTypes"><span class="hs-pragma hs-type">mimeTypes</span></a></span><span> </span><span class="hs-pragma">#-}</span><span>
|
||||
</span><span id="line-81"></span><span>
|
||||
</span><span id="line-82"></span><span> </span><span id="mimeTypes"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-type">mimeTypes</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146045"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">ME.MediaType</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-83"></span><span> </span><span id="local-6989586621679145942"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var hs-var">mimeTypes</span></a></span><span> </span><span id="local-6989586621679145941"><span class="annot"><span class="annottext">Proxy mtype
|
||||
</span><a href="#local-6989586621679145941"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-84"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Proxy mtype -> Maybe MediaType
|
||||
forall mtype. MimeType mtype => Proxy mtype -> Maybe MediaType
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mtype
|
||||
</span><a href="#local-6989586621679145941"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-85"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span id="local-6989586621679145940"><span class="annot"><span class="annottext">MediaType
|
||||
</span><a href="#local-6989586621679145940"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">MediaType
|
||||
</span><a href="#local-6989586621679145940"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-86"></span><span> </span><span class="annot"><span class="annottext">Maybe MediaType
|
||||
</span><span class="hs-identifier hs-var">Nothing</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span></span><span>
|
||||
</span><span id="line-87"></span><span>
|
||||
</span><span id="line-88"></span><span> </span><span id="mimeType"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-type">mimeType</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146045"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Maybe</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ME.MediaType</span></span><span>
|
||||
</span><span id="line-89"></span><span> </span><span id="local-6989586621679145939"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var hs-var">mimeType</span></a></span><span> </span><span id="local-6989586621679145938"><span class="annot"><span class="annottext">Proxy mtype
|
||||
</span><a href="#local-6989586621679145938"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-90"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Proxy mtype -> [MediaType]
|
||||
forall mtype. MimeType mtype => Proxy mtype -> [MediaType]
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mtype
|
||||
</span><a href="#local-6989586621679145938"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-91"></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Maybe MediaType
|
||||
forall a. Maybe a
|
||||
</span><span class="hs-identifier hs-var">Nothing</span></span><span>
|
||||
</span><span id="line-92"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145937"><span class="annot"><span class="annottext">MediaType
|
||||
</span><a href="#local-6989586621679145937"><span class="hs-identifier hs-var">x</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span class="annot"><span class="annottext">[MediaType]
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">MediaType -> Maybe MediaType
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">MediaType
|
||||
</span><a href="#local-6989586621679145937"><span class="hs-identifier hs-var">x</span></a></span></span><span>
|
||||
</span><span id="line-93"></span><span>
|
||||
</span><span id="line-94"></span><span> </span><span id="mimeType%27"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeType%27"><span class="hs-identifier hs-type">mimeType'</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679146045"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Maybe</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ME.MediaType</span></span><span>
|
||||
</span><span id="line-95"></span><span> </span><span id="local-6989586621679145935"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeType%27"><span class="hs-identifier hs-var hs-var">mimeType'</span></a></span><span> </span><span class="annot"><span class="annottext">mtype
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Proxy mtype -> Maybe MediaType
|
||||
forall mtype. MimeType mtype => Proxy mtype -> Maybe MediaType
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeType"><span class="hs-identifier hs-var">mimeType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy mtype
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">P.Proxy</span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146045"><span class="hs-identifier hs-type">mtype</span></a></span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-96"></span><span> </span><span id="mimeTypes%27"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeTypes%27"><span class="hs-identifier hs-type">mimeTypes'</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679146045"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">ME.MediaType</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-97"></span><span> </span><span id="local-6989586621679145932"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeTypes%27"><span class="hs-identifier hs-var hs-var">mimeTypes'</span></a></span><span> </span><span class="annot"><span class="annottext">mtype
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Proxy mtype -> [MediaType]
|
||||
forall mtype. MimeType mtype => Proxy mtype -> [MediaType]
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeTypes"><span class="hs-identifier hs-var">mimeTypes</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy mtype
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">P.Proxy</span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146045"><span class="hs-identifier hs-type">mtype</span></a></span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-98"></span><span>
|
||||
</span><span id="line-99"></span><span class="hs-comment">-- Default MimeType Instances</span><span>
|
||||
</span><span id="line-100"></span><span>
|
||||
</span><span id="line-101"></span><span class="hs-comment">-- | @application/json; charset=utf-8@</span><span>
|
||||
</span><span id="line-102"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145924"><span id="local-6989586621679145926"><span id="local-6989586621679145929"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-103"></span><span> </span><span id="local-6989586621679145922"><span class="annot"><span class="annottext">mimeType :: Proxy MimeJSON -> Maybe MediaType
|
||||
</span><a href="#local-6989586621679145922"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeType</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeJSON
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">MediaType -> Maybe MediaType
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">(MediaType -> Maybe MediaType) -> MediaType -> Maybe MediaType
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">String -> MediaType
|
||||
forall a. IsString a => String -> a
|
||||
</span><span class="hs-identifier hs-var">P.fromString</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"application/json"</span></span><span>
|
||||
</span><span id="line-104"></span><span class="hs-comment">-- | @application/xml; charset=utf-8@</span><span>
|
||||
</span><span id="line-105"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145914"><span id="local-6989586621679145916"><span id="local-6989586621679145919"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeXML"><span class="hs-identifier hs-type">MimeXML</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-106"></span><span> </span><span id="local-6989586621679145913"><span class="annot"><span class="annottext">mimeType :: Proxy MimeXML -> Maybe MediaType
|
||||
</span><a href="#local-6989586621679145913"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeType</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeXML
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">MediaType -> Maybe MediaType
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">(MediaType -> Maybe MediaType) -> MediaType -> Maybe MediaType
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">String -> MediaType
|
||||
forall a. IsString a => String -> a
|
||||
</span><span class="hs-identifier hs-var">P.fromString</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"application/xml"</span></span><span>
|
||||
</span><span id="line-107"></span><span class="hs-comment">-- | @application/x-www-form-urlencoded@</span><span>
|
||||
</span><span id="line-108"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145905"><span id="local-6989586621679145907"><span id="local-6989586621679145910"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-109"></span><span> </span><span id="local-6989586621679145904"><span class="annot"><span class="annottext">mimeType :: Proxy MimeFormUrlEncoded -> Maybe MediaType
|
||||
</span><a href="#local-6989586621679145904"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeType</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeFormUrlEncoded
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">MediaType -> Maybe MediaType
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">(MediaType -> Maybe MediaType) -> MediaType -> Maybe MediaType
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">String -> MediaType
|
||||
forall a. IsString a => String -> a
|
||||
</span><span class="hs-identifier hs-var">P.fromString</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"application/x-www-form-urlencoded"</span></span><span>
|
||||
</span><span id="line-110"></span><span class="hs-comment">-- | @multipart/form-data@</span><span>
|
||||
</span><span id="line-111"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145896"><span id="local-6989586621679145898"><span id="local-6989586621679145901"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-112"></span><span> </span><span id="local-6989586621679145895"><span class="annot"><span class="annottext">mimeType :: Proxy MimeMultipartFormData -> Maybe MediaType
|
||||
</span><a href="#local-6989586621679145895"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeType</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeMultipartFormData
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">MediaType -> Maybe MediaType
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">(MediaType -> Maybe MediaType) -> MediaType -> Maybe MediaType
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">String -> MediaType
|
||||
forall a. IsString a => String -> a
|
||||
</span><span class="hs-identifier hs-var">P.fromString</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"multipart/form-data"</span></span><span>
|
||||
</span><span id="line-113"></span><span class="hs-comment">-- | @text/plain; charset=utf-8@</span><span>
|
||||
</span><span id="line-114"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145887"><span id="local-6989586621679145889"><span id="local-6989586621679145892"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-115"></span><span> </span><span id="local-6989586621679145886"><span class="annot"><span class="annottext">mimeType :: Proxy MimePlainText -> Maybe MediaType
|
||||
</span><a href="#local-6989586621679145886"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeType</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimePlainText
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">MediaType -> Maybe MediaType
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">(MediaType -> Maybe MediaType) -> MediaType -> Maybe MediaType
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">String -> MediaType
|
||||
forall a. IsString a => String -> a
|
||||
</span><span class="hs-identifier hs-var">P.fromString</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"text/plain"</span></span><span>
|
||||
</span><span id="line-116"></span><span class="hs-comment">-- | @application/octet-stream@</span><span>
|
||||
</span><span id="line-117"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145878"><span id="local-6989586621679145880"><span id="local-6989586621679145883"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-118"></span><span> </span><span id="local-6989586621679145877"><span class="annot"><span class="annottext">mimeType :: Proxy MimeOctetStream -> Maybe MediaType
|
||||
</span><a href="#local-6989586621679145877"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeType</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeOctetStream
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">MediaType -> Maybe MediaType
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">(MediaType -> Maybe MediaType) -> MediaType -> Maybe MediaType
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">String -> MediaType
|
||||
forall a. IsString a => String -> a
|
||||
</span><span class="hs-identifier hs-var">P.fromString</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"application/octet-stream"</span></span><span>
|
||||
</span><span id="line-119"></span><span class="hs-comment">-- | @"*/*"@</span><span>
|
||||
</span><span id="line-120"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145869"><span id="local-6989586621679145871"><span id="local-6989586621679145874"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeAny"><span class="hs-identifier hs-type">MimeAny</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-121"></span><span> </span><span id="local-6989586621679145868"><span class="annot"><span class="annottext">mimeType :: Proxy MimeAny -> Maybe MediaType
|
||||
</span><a href="#local-6989586621679145868"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeType</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeAny
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">MediaType -> Maybe MediaType
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">(MediaType -> Maybe MediaType) -> MediaType -> Maybe MediaType
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">String -> MediaType
|
||||
forall a. IsString a => String -> a
|
||||
</span><span class="hs-identifier hs-var">P.fromString</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"*/*"</span></span><span>
|
||||
</span><span id="line-122"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145860"><span id="local-6989586621679145862"><span id="local-6989586621679145865"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-123"></span><span> </span><span id="local-6989586621679145859"><span class="annot"><span class="annottext">mimeType :: Proxy MimeNoContent -> Maybe MediaType
|
||||
</span><a href="#local-6989586621679145859"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeType</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeNoContent
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe MediaType
|
||||
forall a. Maybe a
|
||||
</span><span class="hs-identifier hs-var">Nothing</span></span><span>
|
||||
</span><span id="line-124"></span><span>
|
||||
</span><span id="line-125"></span><span class="hs-comment">-- * MimeRender Class</span><span>
|
||||
</span><span id="line-126"></span><span>
|
||||
</span><span id="line-127"></span><span class="hs-keyword">class</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146026"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span id="MimeRender"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-var">MimeRender</span></a></span></span><span> </span><span id="local-6989586621679146026"><span class="annot"><a href="#local-6989586621679146026"><span class="hs-identifier hs-type">mtype</span></a></span></span><span> </span><span id="local-6989586621679146025"><span class="annot"><a href="#local-6989586621679146025"><span class="hs-identifier hs-type">x</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-128"></span><span> </span><span id="mimeRender"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier hs-type">mimeRender</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146026"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679146025"><span class="hs-identifier hs-type">x</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">BL.ByteString</span></span><span>
|
||||
</span><span id="line-129"></span><span> </span><span id="mimeRender%27"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeRender%27"><span class="hs-identifier hs-type">mimeRender'</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679146026"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679146025"><span class="hs-identifier hs-type">x</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">BL.ByteString</span></span><span>
|
||||
</span><span id="line-130"></span><span> </span><span id="local-6989586621679145856"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeRender%27"><span class="hs-identifier hs-var hs-var">mimeRender'</span></a></span><span> </span><span class="annot"><span class="annottext">mtype
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679145855"><span class="annot"><span class="annottext">x
|
||||
</span><a href="#local-6989586621679145855"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Proxy mtype -> x -> ByteString
|
||||
forall mtype x.
|
||||
MimeRender mtype x =>
|
||||
Proxy mtype -> x -> ByteString
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeRender"><span class="hs-identifier hs-var">mimeRender</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy mtype
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">P.Proxy</span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146026"><span class="hs-identifier hs-type">mtype</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">x
|
||||
</span><a href="#local-6989586621679145855"><span class="hs-identifier hs-var">x</span></a></span></span><span>
|
||||
</span><span id="line-131"></span><span>
|
||||
</span><span id="line-132"></span><span>
|
||||
</span><span id="line-133"></span><span id="local-6989586621679146007"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-type">mimeRenderDefaultMultipartFormData</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">WH.ToHttpApiData</span></span><span> </span><span class="annot"><a href="#local-6989586621679146007"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="#local-6989586621679146007"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">BL.ByteString</span></span></span><span>
|
||||
</span><span id="line-134"></span><span id="mimeRenderDefaultMultipartFormData"><span class="annot"><span class="annottext">mimeRenderDefaultMultipartFormData :: a -> ByteString
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var hs-var">mimeRenderDefaultMultipartFormData</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ByteString -> ByteString
|
||||
</span><span class="hs-identifier hs-var">BL.fromStrict</span></span><span> </span><span class="annot"><span class="annottext">(ByteString -> ByteString) -> (a -> ByteString) -> a -> ByteString
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">Text -> ByteString
|
||||
</span><span class="hs-identifier hs-var">T.encodeUtf8</span></span><span> </span><span class="annot"><span class="annottext">(Text -> ByteString) -> (a -> Text) -> a -> ByteString
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">a -> Text
|
||||
forall a. ToHttpApiData a => a -> Text
|
||||
</span><span class="hs-identifier hs-var">WH.toQueryParam</span></span><span>
|
||||
</span><span id="line-135"></span><span>
|
||||
</span><span id="line-136"></span><span class="hs-comment">-- Default MimeRender Instances</span><span>
|
||||
</span><span id="line-137"></span><span>
|
||||
</span><span id="line-138"></span><span class="hs-comment">-- | `A.encode`</span><span>
|
||||
</span><span id="line-139"></span><span id="local-6989586621679145850"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145846"><span class="annot"><span class="hs-identifier hs-type">A.ToJSON</span></span><span> </span><span class="annot"><a href="#local-6989586621679145850"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145850"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145844"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeJSON -> a -> ByteString
|
||||
</span><a href="#local-6989586621679145844"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeJSON
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">a -> ByteString
|
||||
forall a. ToJSON a => a -> ByteString
|
||||
</span><span class="hs-identifier hs-var">A.encode</span></span></span><span>
|
||||
</span><span id="line-140"></span><span class="hs-comment">-- | @WH.urlEncodeAsForm@</span><span>
|
||||
</span><span id="line-141"></span><span id="local-6989586621679145842"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145838"><span class="annot"><span class="hs-identifier hs-type">WH.ToForm</span></span><span> </span><span class="annot"><a href="#local-6989586621679145842"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145842"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145837"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeFormUrlEncoded -> a -> ByteString
|
||||
</span><a href="#local-6989586621679145837"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeFormUrlEncoded
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">a -> ByteString
|
||||
forall a. ToForm a => a -> ByteString
|
||||
</span><span class="hs-identifier hs-var">WH.urlEncodeAsForm</span></span></span><span>
|
||||
</span><span id="line-142"></span><span>
|
||||
</span><span id="line-143"></span><span class="hs-comment">-- | @P.id@</span><span>
|
||||
</span><span id="line-144"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145832"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">BL.ByteString</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145831"><span class="annot"><span class="annottext">mimeRender :: Proxy MimePlainText -> ByteString -> ByteString
|
||||
</span><a href="#local-6989586621679145831"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimePlainText
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ByteString -> ByteString
|
||||
forall a. a -> a
|
||||
</span><span class="hs-identifier hs-var">P.id</span></span><span>
|
||||
</span><span id="line-145"></span><span class="hs-comment">-- | @BL.fromStrict . T.encodeUtf8@</span><span>
|
||||
</span><span id="line-146"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145826"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145825"><span class="annot"><span class="annottext">mimeRender :: Proxy MimePlainText -> Text -> ByteString
|
||||
</span><a href="#local-6989586621679145825"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimePlainText
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ByteString -> ByteString
|
||||
</span><span class="hs-identifier hs-var">BL.fromStrict</span></span><span> </span><span class="annot"><span class="annottext">(ByteString -> ByteString)
|
||||
-> (Text -> ByteString) -> Text -> ByteString
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">Text -> ByteString
|
||||
</span><span class="hs-identifier hs-var">T.encodeUtf8</span></span><span>
|
||||
</span><span id="line-147"></span><span class="hs-comment">-- | @BCL.pack@</span><span>
|
||||
</span><span id="line-148"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145821"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145820"><span class="annot"><span class="annottext">mimeRender :: Proxy MimePlainText -> String -> ByteString
|
||||
</span><a href="#local-6989586621679145820"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimePlainText
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -> ByteString
|
||||
</span><span class="hs-identifier hs-var">BCL.pack</span></span><span>
|
||||
</span><span id="line-149"></span><span>
|
||||
</span><span id="line-150"></span><span class="hs-comment">-- | @P.id@</span><span>
|
||||
</span><span id="line-151"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145815"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">BL.ByteString</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145814"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeOctetStream -> ByteString -> ByteString
|
||||
</span><a href="#local-6989586621679145814"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeOctetStream
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ByteString -> ByteString
|
||||
forall a. a -> a
|
||||
</span><span class="hs-identifier hs-var">P.id</span></span><span>
|
||||
</span><span id="line-152"></span><span class="hs-comment">-- | @BL.fromStrict . T.encodeUtf8@</span><span>
|
||||
</span><span id="line-153"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145810"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145809"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeOctetStream -> Text -> ByteString
|
||||
</span><a href="#local-6989586621679145809"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeOctetStream
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ByteString -> ByteString
|
||||
</span><span class="hs-identifier hs-var">BL.fromStrict</span></span><span> </span><span class="annot"><span class="annottext">(ByteString -> ByteString)
|
||||
-> (Text -> ByteString) -> Text -> ByteString
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">Text -> ByteString
|
||||
</span><span class="hs-identifier hs-var">T.encodeUtf8</span></span><span>
|
||||
</span><span id="line-154"></span><span class="hs-comment">-- | @BCL.pack@</span><span>
|
||||
</span><span id="line-155"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145805"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145804"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeOctetStream -> String -> ByteString
|
||||
</span><a href="#local-6989586621679145804"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeOctetStream
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -> ByteString
|
||||
</span><span class="hs-identifier hs-var">BCL.pack</span></span><span>
|
||||
</span><span id="line-156"></span><span>
|
||||
</span><span id="line-157"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145800"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">BL.ByteString</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145799"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeMultipartFormData -> ByteString -> ByteString
|
||||
</span><a href="#local-6989586621679145799"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeMultipartFormData
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ByteString -> ByteString
|
||||
forall a. a -> a
|
||||
</span><span class="hs-identifier hs-var">P.id</span></span><span>
|
||||
</span><span id="line-158"></span><span>
|
||||
</span><span id="line-159"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145795"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145794"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeMultipartFormData -> Bool -> ByteString
|
||||
</span><a href="#local-6989586621679145794"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeMultipartFormData
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -> ByteString
|
||||
forall a. ToHttpApiData a => a -> ByteString
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a></span><span>
|
||||
</span><span id="line-160"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145790"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145789"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeMultipartFormData -> Char -> ByteString
|
||||
</span><a href="#local-6989586621679145789"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeMultipartFormData
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char -> ByteString
|
||||
forall a. ToHttpApiData a => a -> ByteString
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a></span><span>
|
||||
</span><span id="line-161"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145785"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Double</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145784"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeMultipartFormData -> Double -> ByteString
|
||||
</span><a href="#local-6989586621679145784"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeMultipartFormData
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Double -> ByteString
|
||||
forall a. ToHttpApiData a => a -> ByteString
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a></span><span>
|
||||
</span><span id="line-162"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145780"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Float</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145779"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeMultipartFormData -> Float -> ByteString
|
||||
</span><a href="#local-6989586621679145779"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeMultipartFormData
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Float -> ByteString
|
||||
forall a. ToHttpApiData a => a -> ByteString
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a></span><span>
|
||||
</span><span id="line-163"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145775"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145774"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeMultipartFormData -> Int -> ByteString
|
||||
</span><a href="#local-6989586621679145774"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeMultipartFormData
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -> ByteString
|
||||
forall a. ToHttpApiData a => a -> ByteString
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a></span><span>
|
||||
</span><span id="line-164"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145770"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145769"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeMultipartFormData -> Integer -> ByteString
|
||||
</span><a href="#local-6989586621679145769"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeMultipartFormData
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -> ByteString
|
||||
forall a. ToHttpApiData a => a -> ByteString
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a></span><span>
|
||||
</span><span id="line-165"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145765"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145764"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeMultipartFormData -> String -> ByteString
|
||||
</span><a href="#local-6989586621679145764"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeMultipartFormData
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -> ByteString
|
||||
forall a. ToHttpApiData a => a -> ByteString
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a></span><span>
|
||||
</span><span id="line-166"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145760"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeMultipartFormData"><span class="hs-identifier hs-type">MimeMultipartFormData</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145759"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeMultipartFormData -> Text -> ByteString
|
||||
</span><a href="#local-6989586621679145759"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeMultipartFormData
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Text -> ByteString
|
||||
forall a. ToHttpApiData a => a -> ByteString
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeRenderDefaultMultipartFormData"><span class="hs-identifier hs-var">mimeRenderDefaultMultipartFormData</span></a></span><span>
|
||||
</span><span id="line-167"></span><span>
|
||||
</span><span id="line-168"></span><span class="hs-comment">-- | @P.Right . P.const NoContent@</span><span>
|
||||
</span><span id="line-169"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145755"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeRender"><span class="hs-identifier hs-type">MimeRender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145754"><span class="annot"><span class="annottext">mimeRender :: Proxy MimeNoContent -> NoContent -> ByteString
|
||||
</span><a href="#local-6989586621679145754"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeRender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeNoContent
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ByteString -> NoContent -> ByteString
|
||||
forall a b. a -> b -> a
|
||||
</span><span class="hs-identifier hs-var">P.const</span></span><span> </span><span class="annot"><span class="annottext">ByteString
|
||||
</span><span class="hs-identifier hs-var">BCL.empty</span></span><span>
|
||||
</span><span id="line-170"></span><span>
|
||||
</span><span id="line-171"></span><span>
|
||||
</span><span id="line-172"></span><span class="hs-comment">-- * MimeUnrender Class</span><span>
|
||||
</span><span id="line-173"></span><span>
|
||||
</span><span id="line-174"></span><span class="hs-keyword">class</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span id="MimeUnrender"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-var">MimeUnrender</span></a></span></span><span> </span><span id="local-6989586621679146004"><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">mtype</span></a></span></span><span> </span><span id="local-6989586621679146003"><span class="annot"><a href="#local-6989586621679146003"><span class="hs-identifier hs-type">o</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-175"></span><span> </span><span id="mimeUnrender"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier hs-type">mimeUnrender</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">BL.ByteString</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.Either</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span><span> </span><span class="annot"><a href="#local-6989586621679146003"><span class="hs-identifier hs-type">o</span></a></span><span>
|
||||
</span><span id="line-176"></span><span> </span><span id="mimeUnrender%27"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier hs-type">mimeUnrender'</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">mtype</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">BL.ByteString</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.Either</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span><span> </span><span class="annot"><a href="#local-6989586621679146003"><span class="hs-identifier hs-type">o</span></a></span><span>
|
||||
</span><span id="line-177"></span><span> </span><span id="local-6989586621679145749"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#mimeUnrender%27"><span class="hs-identifier hs-var hs-var">mimeUnrender'</span></a></span><span> </span><span class="annot"><span class="annottext">mtype
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679145748"><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679145748"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Proxy mtype -> ByteString -> Either String o
|
||||
forall mtype o.
|
||||
MimeUnrender mtype o =>
|
||||
Proxy mtype -> ByteString -> Either String o
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#mimeUnrender"><span class="hs-identifier hs-var">mimeUnrender</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy mtype
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">P.Proxy</span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">P.Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">mtype</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679145748"><span class="hs-identifier hs-var">x</span></a></span></span><span>
|
||||
</span><span id="line-178"></span><span>
|
||||
</span><span id="line-179"></span><span class="hs-comment">-- Default MimeUnrender Instances</span><span>
|
||||
</span><span id="line-180"></span><span>
|
||||
</span><span id="line-181"></span><span class="hs-comment">-- | @A.eitherDecode@</span><span>
|
||||
</span><span id="line-182"></span><span id="local-6989586621679145747"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145743"><span class="annot"><span class="hs-identifier hs-type">A.FromJSON</span></span><span> </span><span class="annot"><a href="#local-6989586621679145747"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeJSON"><span class="hs-identifier hs-type">MimeJSON</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145747"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145741"><span class="annot"><span class="annottext">mimeUnrender :: Proxy MimeJSON -> ByteString -> Either String a
|
||||
</span><a href="#local-6989586621679145741"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeUnrender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeJSON
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ByteString -> Either String a
|
||||
forall a. FromJSON a => ByteString -> Either String a
|
||||
</span><span class="hs-identifier hs-var">A.eitherDecode</span></span></span><span>
|
||||
</span><span id="line-183"></span><span class="hs-comment">-- | @P.left T.unpack . WH.urlDecodeAsForm@</span><span>
|
||||
</span><span id="line-184"></span><span id="local-6989586621679145739"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145735"><span class="annot"><span class="hs-identifier hs-type">WH.FromForm</span></span><span> </span><span class="annot"><a href="#local-6989586621679145739"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeFormUrlEncoded"><span class="hs-identifier hs-type">MimeFormUrlEncoded</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145739"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145734"><span class="annot"><span class="annottext">mimeUnrender :: Proxy MimeFormUrlEncoded -> ByteString -> Either String a
|
||||
</span><a href="#local-6989586621679145734"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeUnrender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeFormUrlEncoded
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Text -> String) -> Either Text a -> Either String a
|
||||
forall (a :: * -> * -> *) b c d.
|
||||
ArrowChoice a =>
|
||||
a b c -> a (Either b d) (Either c d)
|
||||
</span><span class="hs-identifier hs-var">P.left</span></span><span> </span><span class="annot"><span class="annottext">Text -> String
|
||||
</span><span class="hs-identifier hs-var">T.unpack</span></span><span> </span><span class="annot"><span class="annottext">(Either Text a -> Either String a)
|
||||
-> (ByteString -> Either Text a) -> ByteString -> Either String a
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">ByteString -> Either Text a
|
||||
forall a. FromForm a => ByteString -> Either Text a
|
||||
</span><span class="hs-identifier hs-var">WH.urlDecodeAsForm</span></span></span><span>
|
||||
</span><span id="line-185"></span><span class="hs-comment">-- | @P.Right . P.id@</span><span>
|
||||
</span><span id="line-186"></span><span>
|
||||
</span><span id="line-187"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145728"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">BL.ByteString</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145727"><span class="annot"><span class="annottext">mimeUnrender :: Proxy MimePlainText -> ByteString -> Either String ByteString
|
||||
</span><a href="#local-6989586621679145727"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeUnrender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimePlainText
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ByteString -> Either String ByteString
|
||||
forall a b. b -> Either a b
|
||||
</span><span class="hs-identifier hs-var">P.Right</span></span><span> </span><span class="annot"><span class="annottext">(ByteString -> Either String ByteString)
|
||||
-> (ByteString -> ByteString)
|
||||
-> ByteString
|
||||
-> Either String ByteString
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">ByteString -> ByteString
|
||||
forall a. a -> a
|
||||
</span><span class="hs-identifier hs-var">P.id</span></span><span>
|
||||
</span><span id="line-188"></span><span class="hs-comment">-- | @P.left P.show . TL.decodeUtf8'@</span><span>
|
||||
</span><span id="line-189"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145723"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145722"><span class="annot"><span class="annottext">mimeUnrender :: Proxy MimePlainText -> ByteString -> Either String Text
|
||||
</span><a href="#local-6989586621679145722"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeUnrender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimePlainText
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(UnicodeException -> String)
|
||||
-> Either UnicodeException Text -> Either String Text
|
||||
forall (a :: * -> * -> *) b c d.
|
||||
ArrowChoice a =>
|
||||
a b c -> a (Either b d) (Either c d)
|
||||
</span><span class="hs-identifier hs-var">P.left</span></span><span> </span><span class="annot"><span class="annottext">UnicodeException -> String
|
||||
forall a. Show a => a -> String
|
||||
</span><span class="hs-identifier hs-var">P.show</span></span><span> </span><span class="annot"><span class="annottext">(Either UnicodeException Text -> Either String Text)
|
||||
-> (ByteString -> Either UnicodeException Text)
|
||||
-> ByteString
|
||||
-> Either String Text
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">ByteString -> Either UnicodeException Text
|
||||
</span><span class="hs-identifier hs-var">T.decodeUtf8'</span></span><span> </span><span class="annot"><span class="annottext">(ByteString -> Either UnicodeException Text)
|
||||
-> (ByteString -> ByteString)
|
||||
-> ByteString
|
||||
-> Either UnicodeException Text
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">ByteString -> ByteString
|
||||
</span><span class="hs-identifier hs-var">BL.toStrict</span></span><span>
|
||||
</span><span id="line-190"></span><span class="hs-comment">-- | @P.Right . BCL.unpack@</span><span>
|
||||
</span><span id="line-191"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145715"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimePlainText"><span class="hs-identifier hs-type">MimePlainText</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145714"><span class="annot"><span class="annottext">mimeUnrender :: Proxy MimePlainText -> ByteString -> Either String String
|
||||
</span><a href="#local-6989586621679145714"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeUnrender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimePlainText
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -> Either String String
|
||||
forall a b. b -> Either a b
|
||||
</span><span class="hs-identifier hs-var">P.Right</span></span><span> </span><span class="annot"><span class="annottext">(String -> Either String String)
|
||||
-> (ByteString -> String) -> ByteString -> Either String String
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">ByteString -> String
|
||||
</span><span class="hs-identifier hs-var">BCL.unpack</span></span><span>
|
||||
</span><span id="line-192"></span><span>
|
||||
</span><span id="line-193"></span><span class="hs-comment">-- | @P.Right . P.id@</span><span>
|
||||
</span><span id="line-194"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145709"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">BL.ByteString</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145708"><span class="annot"><span class="annottext">mimeUnrender :: Proxy MimeOctetStream -> ByteString -> Either String ByteString
|
||||
</span><a href="#local-6989586621679145708"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeUnrender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeOctetStream
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ByteString -> Either String ByteString
|
||||
forall a b. b -> Either a b
|
||||
</span><span class="hs-identifier hs-var">P.Right</span></span><span> </span><span class="annot"><span class="annottext">(ByteString -> Either String ByteString)
|
||||
-> (ByteString -> ByteString)
|
||||
-> ByteString
|
||||
-> Either String ByteString
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">ByteString -> ByteString
|
||||
forall a. a -> a
|
||||
</span><span class="hs-identifier hs-var">P.id</span></span><span>
|
||||
</span><span id="line-195"></span><span class="hs-comment">-- | @P.left P.show . T.decodeUtf8' . BL.toStrict@</span><span>
|
||||
</span><span id="line-196"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145704"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145703"><span class="annot"><span class="annottext">mimeUnrender :: Proxy MimeOctetStream -> ByteString -> Either String Text
|
||||
</span><a href="#local-6989586621679145703"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeUnrender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeOctetStream
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(UnicodeException -> String)
|
||||
-> Either UnicodeException Text -> Either String Text
|
||||
forall (a :: * -> * -> *) b c d.
|
||||
ArrowChoice a =>
|
||||
a b c -> a (Either b d) (Either c d)
|
||||
</span><span class="hs-identifier hs-var">P.left</span></span><span> </span><span class="annot"><span class="annottext">UnicodeException -> String
|
||||
forall a. Show a => a -> String
|
||||
</span><span class="hs-identifier hs-var">P.show</span></span><span> </span><span class="annot"><span class="annottext">(Either UnicodeException Text -> Either String Text)
|
||||
-> (ByteString -> Either UnicodeException Text)
|
||||
-> ByteString
|
||||
-> Either String Text
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">ByteString -> Either UnicodeException Text
|
||||
</span><span class="hs-identifier hs-var">T.decodeUtf8'</span></span><span> </span><span class="annot"><span class="annottext">(ByteString -> Either UnicodeException Text)
|
||||
-> (ByteString -> ByteString)
|
||||
-> ByteString
|
||||
-> Either UnicodeException Text
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">ByteString -> ByteString
|
||||
</span><span class="hs-identifier hs-var">BL.toStrict</span></span><span>
|
||||
</span><span id="line-197"></span><span class="hs-comment">-- | @P.Right . BCL.unpack@</span><span>
|
||||
</span><span id="line-198"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145699"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeOctetStream"><span class="hs-identifier hs-type">MimeOctetStream</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145698"><span class="annot"><span class="annottext">mimeUnrender :: Proxy MimeOctetStream -> ByteString -> Either String String
|
||||
</span><a href="#local-6989586621679145698"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeUnrender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeOctetStream
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -> Either String String
|
||||
forall a b. b -> Either a b
|
||||
</span><span class="hs-identifier hs-var">P.Right</span></span><span> </span><span class="annot"><span class="annottext">(String -> Either String String)
|
||||
-> (ByteString -> String) -> ByteString -> Either String String
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">ByteString -> String
|
||||
</span><span class="hs-identifier hs-var">BCL.unpack</span></span><span>
|
||||
</span><span id="line-199"></span><span>
|
||||
</span><span id="line-200"></span><span class="hs-comment">-- | @P.Right . P.const NoContent@</span><span>
|
||||
</span><span id="line-201"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145694"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeUnrender"><span class="hs-identifier hs-type">MimeUnrender</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeNoContent"><span class="hs-identifier hs-type">MimeNoContent</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-type">NoContent</span></a></span></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145693"><span class="annot"><span class="annottext">mimeUnrender :: Proxy MimeNoContent -> ByteString -> Either String NoContent
|
||||
</span><a href="#local-6989586621679145693"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeUnrender</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeNoContent
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">NoContent -> Either String NoContent
|
||||
forall a b. b -> Either a b
|
||||
</span><span class="hs-identifier hs-var">P.Right</span></span><span> </span><span class="annot"><span class="annottext">(NoContent -> Either String NoContent)
|
||||
-> (ByteString -> NoContent)
|
||||
-> ByteString
|
||||
-> Either String NoContent
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="annot"><span class="annottext">NoContent -> ByteString -> NoContent
|
||||
forall a b. a -> b -> a
|
||||
</span><span class="hs-identifier hs-var">P.const</span></span><span> </span><span class="annot"><span class="annottext">NoContent
|
||||
</span><a href="OpenAPIPetstore.MimeTypes.html#NoContent"><span class="hs-identifier hs-var">NoContent</span></a></span><span>
|
||||
</span><span id="line-202"></span><span>
|
||||
</span><span id="line-203"></span><span>
|
||||
</span><span id="line-204"></span><span class="hs-comment">-- * Custom Mime Types</span><span>
|
||||
</span><span id="line-205"></span><span>
|
||||
</span><span id="line-206"></span><span class="hs-comment">-- ** MimeXmlCharsetutf16</span><span>
|
||||
</span><span id="line-207"></span><span>
|
||||
</span><span id="line-208"></span><span class="hs-keyword">data</span><span> </span><span id="MimeXmlCharsetutf16"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeXmlCharsetutf16"><span class="hs-identifier hs-var">MimeXmlCharsetutf16</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MimeXmlCharsetutf16"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeXmlCharsetutf16"><span class="hs-identifier hs-var">MimeXmlCharsetutf16</span></a></span></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-209"></span><span>
|
||||
</span><span id="line-210"></span><span class="hs-comment">-- | @application/xml; charset=utf-16@</span><span>
|
||||
</span><span id="line-211"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145684"><span id="local-6989586621679145686"><span id="local-6989586621679145689"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeXmlCharsetutf16"><span class="hs-identifier hs-type">MimeXmlCharsetutf16</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-212"></span><span> </span><span id="local-6989586621679145683"><span class="annot"><span class="annottext">mimeType :: Proxy MimeXmlCharsetutf16 -> Maybe MediaType
|
||||
</span><a href="#local-6989586621679145683"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeType</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeXmlCharsetutf16
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">MediaType -> Maybe MediaType
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">(MediaType -> Maybe MediaType) -> MediaType -> Maybe MediaType
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">String -> MediaType
|
||||
forall a. IsString a => String -> a
|
||||
</span><span class="hs-identifier hs-var">P.fromString</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"application/xml; charset=utf-16"</span></span><span>
|
||||
</span><span id="line-213"></span><span class="hs-comment">-- instance MimeRender MimeXmlCharsetutf16 T.Text where mimeRender _ = undefined</span><span>
|
||||
</span><span id="line-214"></span><span class="hs-comment">-- instance MimeUnrender MimeXmlCharsetutf16 T.Text where mimeUnrender _ = undefined</span><span>
|
||||
</span><span id="line-215"></span><span>
|
||||
</span><span id="line-216"></span><span class="hs-comment">-- ** MimeXmlCharsetutf8</span><span>
|
||||
</span><span id="line-217"></span><span>
|
||||
</span><span id="line-218"></span><span class="hs-keyword">data</span><span> </span><span id="MimeXmlCharsetutf8"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeXmlCharsetutf8"><span class="hs-identifier hs-var">MimeXmlCharsetutf8</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MimeXmlCharsetutf8"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeXmlCharsetutf8"><span class="hs-identifier hs-var">MimeXmlCharsetutf8</span></a></span></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-219"></span><span>
|
||||
</span><span id="line-220"></span><span class="hs-comment">-- | @application/xml; charset=utf-8@</span><span>
|
||||
</span><span id="line-221"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145674"><span id="local-6989586621679145676"><span id="local-6989586621679145679"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeXmlCharsetutf8"><span class="hs-identifier hs-type">MimeXmlCharsetutf8</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-222"></span><span> </span><span id="local-6989586621679145673"><span class="annot"><span class="annottext">mimeType :: Proxy MimeXmlCharsetutf8 -> Maybe MediaType
|
||||
</span><a href="#local-6989586621679145673"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeType</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeXmlCharsetutf8
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">MediaType -> Maybe MediaType
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">(MediaType -> Maybe MediaType) -> MediaType -> Maybe MediaType
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">String -> MediaType
|
||||
forall a. IsString a => String -> a
|
||||
</span><span class="hs-identifier hs-var">P.fromString</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"application/xml; charset=utf-8"</span></span><span>
|
||||
</span><span id="line-223"></span><span class="hs-comment">-- instance MimeRender MimeXmlCharsetutf8 T.Text where mimeRender _ = undefined</span><span>
|
||||
</span><span id="line-224"></span><span class="hs-comment">-- instance MimeUnrender MimeXmlCharsetutf8 T.Text where mimeUnrender _ = undefined</span><span>
|
||||
</span><span id="line-225"></span><span>
|
||||
</span><span id="line-226"></span><span class="hs-comment">-- ** MimeTextXml</span><span>
|
||||
</span><span id="line-227"></span><span>
|
||||
</span><span id="line-228"></span><span class="hs-keyword">data</span><span> </span><span id="MimeTextXml"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXml"><span class="hs-identifier hs-var">MimeTextXml</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MimeTextXml"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXml"><span class="hs-identifier hs-var">MimeTextXml</span></a></span></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-229"></span><span>
|
||||
</span><span id="line-230"></span><span class="hs-comment">-- | @text/xml@</span><span>
|
||||
</span><span id="line-231"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145664"><span id="local-6989586621679145666"><span id="local-6989586621679145669"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXml"><span class="hs-identifier hs-type">MimeTextXml</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-232"></span><span> </span><span id="local-6989586621679145663"><span class="annot"><span class="annottext">mimeType :: Proxy MimeTextXml -> Maybe MediaType
|
||||
</span><a href="#local-6989586621679145663"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeType</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeTextXml
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">MediaType -> Maybe MediaType
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">(MediaType -> Maybe MediaType) -> MediaType -> Maybe MediaType
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">String -> MediaType
|
||||
forall a. IsString a => String -> a
|
||||
</span><span class="hs-identifier hs-var">P.fromString</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"text/xml"</span></span><span>
|
||||
</span><span id="line-233"></span><span class="hs-comment">-- instance MimeRender MimeTextXml T.Text where mimeRender _ = undefined</span><span>
|
||||
</span><span id="line-234"></span><span class="hs-comment">-- instance MimeUnrender MimeTextXml T.Text where mimeUnrender _ = undefined</span><span>
|
||||
</span><span id="line-235"></span><span>
|
||||
</span><span id="line-236"></span><span class="hs-comment">-- ** MimeTextXmlCharsetutf16</span><span>
|
||||
</span><span id="line-237"></span><span>
|
||||
</span><span id="line-238"></span><span class="hs-keyword">data</span><span> </span><span id="MimeTextXmlCharsetutf16"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXmlCharsetutf16"><span class="hs-identifier hs-var">MimeTextXmlCharsetutf16</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MimeTextXmlCharsetutf16"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXmlCharsetutf16"><span class="hs-identifier hs-var">MimeTextXmlCharsetutf16</span></a></span></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-239"></span><span>
|
||||
</span><span id="line-240"></span><span class="hs-comment">-- | @text/xml; charset=utf-16@</span><span>
|
||||
</span><span id="line-241"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145654"><span id="local-6989586621679145656"><span id="local-6989586621679145659"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXmlCharsetutf16"><span class="hs-identifier hs-type">MimeTextXmlCharsetutf16</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-242"></span><span> </span><span id="local-6989586621679145653"><span class="annot"><span class="annottext">mimeType :: Proxy MimeTextXmlCharsetutf16 -> Maybe MediaType
|
||||
</span><a href="#local-6989586621679145653"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeType</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeTextXmlCharsetutf16
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">MediaType -> Maybe MediaType
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">(MediaType -> Maybe MediaType) -> MediaType -> Maybe MediaType
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">String -> MediaType
|
||||
forall a. IsString a => String -> a
|
||||
</span><span class="hs-identifier hs-var">P.fromString</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"text/xml; charset=utf-16"</span></span><span>
|
||||
</span><span id="line-243"></span><span class="hs-comment">-- instance MimeRender MimeTextXmlCharsetutf16 T.Text where mimeRender _ = undefined</span><span>
|
||||
</span><span id="line-244"></span><span class="hs-comment">-- instance MimeUnrender MimeTextXmlCharsetutf16 T.Text where mimeUnrender _ = undefined</span><span>
|
||||
</span><span id="line-245"></span><span>
|
||||
</span><span id="line-246"></span><span class="hs-comment">-- ** MimeTextXmlCharsetutf8</span><span>
|
||||
</span><span id="line-247"></span><span>
|
||||
</span><span id="line-248"></span><span class="hs-keyword">data</span><span> </span><span id="MimeTextXmlCharsetutf8"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXmlCharsetutf8"><span class="hs-identifier hs-var">MimeTextXmlCharsetutf8</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="MimeTextXmlCharsetutf8"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXmlCharsetutf8"><span class="hs-identifier hs-var">MimeTextXmlCharsetutf8</span></a></span></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">P.Typeable</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-249"></span><span>
|
||||
</span><span id="line-250"></span><span class="hs-comment">-- | @text/xml; charset=utf-8@</span><span>
|
||||
</span><span id="line-251"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145644"><span id="local-6989586621679145646"><span id="local-6989586621679145649"><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeType"><span class="hs-identifier hs-type">MimeType</span></a></span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html#MimeTextXmlCharsetutf8"><span class="hs-identifier hs-type">MimeTextXmlCharsetutf8</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-252"></span><span> </span><span id="local-6989586621679145643"><span class="annot"><span class="annottext">mimeType :: Proxy MimeTextXmlCharsetutf8 -> Maybe MediaType
|
||||
</span><a href="#local-6989586621679145643"><span class="hs-identifier hs-var hs-var hs-var hs-var">mimeType</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy MimeTextXmlCharsetutf8
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">MediaType -> Maybe MediaType
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">(MediaType -> Maybe MediaType) -> MediaType -> Maybe MediaType
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">String -> MediaType
|
||||
forall a. IsString a => String -> a
|
||||
</span><span class="hs-identifier hs-var">P.fromString</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"text/xml; charset=utf-8"</span></span><span>
|
||||
</span><span id="line-253"></span><span class="hs-comment">-- instance MimeRender MimeTextXmlCharsetutf8 T.Text where mimeRender _ = undefined</span><span>
|
||||
</span><span id="line-254"></span><span class="hs-comment">-- instance MimeUnrender MimeTextXmlCharsetutf8 T.Text where mimeUnrender _ = undefined</span><span>
|
||||
</span><span id="line-255"></span><span>
|
||||
</span><span id="line-256"></span></pre></body></html>
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -7,25 +7,25 @@
|
||||
OpenAPI Petstore API version: 1.0.0
|
||||
Generated by OpenAPI Generator (https://openapi-generator.tech)
|
||||
-}</span><span>
|
||||
</span><a name="line-10"></a><span>
|
||||
</span><a name="line-11"></a><span class="hs-comment">{-|
|
||||
</span><span id="line-10"></span><span>
|
||||
</span><span id="line-11"></span><span class="hs-comment">{-|
|
||||
Module : OpenAPIPetstore
|
||||
-}</span><span>
|
||||
</span><a name="line-14"></a><span>
|
||||
</span><a name="line-15"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore</span><span>
|
||||
</span><a name="line-16"></a><span> </span><span class="hs-special">(</span><span> </span><span class="hs-keyword">module</span><span> </span><a href="OpenAPIPetstore.API.html"><span class="hs-identifier">OpenAPIPetstore.API</span></a><span>
|
||||
</span><a name="line-17"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><a href="OpenAPIPetstore.Client.html"><span class="hs-identifier">OpenAPIPetstore.Client</span></a><span>
|
||||
</span><a name="line-18"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><a href="OpenAPIPetstore.Core.html"><span class="hs-identifier">OpenAPIPetstore.Core</span></a><span>
|
||||
</span><a name="line-19"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><a href="OpenAPIPetstore.Logging.html"><span class="hs-identifier">OpenAPIPetstore.Logging</span></a><span>
|
||||
</span><a name="line-20"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html"><span class="hs-identifier">OpenAPIPetstore.MimeTypes</span></a><span>
|
||||
</span><a name="line-21"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><a href="OpenAPIPetstore.Model.html"><span class="hs-identifier">OpenAPIPetstore.Model</span></a><span>
|
||||
</span><a name="line-22"></a><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><a href="OpenAPIPetstore.ModelLens.html"><span class="hs-identifier">OpenAPIPetstore.ModelLens</span></a><span>
|
||||
</span><a name="line-23"></a><span> </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-24"></a><span>
|
||||
</span><a name="line-25"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.API.html"><span class="hs-identifier">OpenAPIPetstore.API</span></a><span>
|
||||
</span><a name="line-26"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.Client.html"><span class="hs-identifier">OpenAPIPetstore.Client</span></a><span>
|
||||
</span><a name="line-27"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.Core.html"><span class="hs-identifier">OpenAPIPetstore.Core</span></a><span>
|
||||
</span><a name="line-28"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.Logging.html"><span class="hs-identifier">OpenAPIPetstore.Logging</span></a><span>
|
||||
</span><a name="line-29"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.MimeTypes.html"><span class="hs-identifier">OpenAPIPetstore.MimeTypes</span></a><span>
|
||||
</span><a name="line-30"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.Model.html"><span class="hs-identifier">OpenAPIPetstore.Model</span></a><span>
|
||||
</span><a name="line-31"></a><span class="hs-keyword">import</span><span> </span><a href="OpenAPIPetstore.ModelLens.html"><span class="hs-identifier">OpenAPIPetstore.ModelLens</span></a></pre></body></html>
|
||||
</span><span id="line-14"></span><span>
|
||||
</span><span id="line-15"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">OpenAPIPetstore</span><span>
|
||||
</span><span id="line-16"></span><span> </span><span class="hs-special">(</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.html"><span class="hs-identifier">OpenAPIPetstore.API</span></a></span><span>
|
||||
</span><span id="line-17"></span><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Client.html"><span class="hs-identifier">OpenAPIPetstore.Client</span></a></span><span>
|
||||
</span><span id="line-18"></span><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html"><span class="hs-identifier">OpenAPIPetstore.Core</span></a></span><span>
|
||||
</span><span id="line-19"></span><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Logging.html"><span class="hs-identifier">OpenAPIPetstore.Logging</span></a></span><span>
|
||||
</span><span id="line-20"></span><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html"><span class="hs-identifier">OpenAPIPetstore.MimeTypes</span></a></span><span>
|
||||
</span><span id="line-21"></span><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html"><span class="hs-identifier">OpenAPIPetstore.Model</span></a></span><span>
|
||||
</span><span id="line-22"></span><span> </span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="annot"><a href="OpenAPIPetstore.ModelLens.html"><span class="hs-identifier">OpenAPIPetstore.ModelLens</span></a></span><span>
|
||||
</span><span id="line-23"></span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-24"></span><span>
|
||||
</span><span id="line-25"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.API.html"><span class="hs-identifier">OpenAPIPetstore.API</span></a></span><span>
|
||||
</span><span id="line-26"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Client.html"><span class="hs-identifier">OpenAPIPetstore.Client</span></a></span><span>
|
||||
</span><span id="line-27"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Core.html"><span class="hs-identifier">OpenAPIPetstore.Core</span></a></span><span>
|
||||
</span><span id="line-28"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Logging.html"><span class="hs-identifier">OpenAPIPetstore.Logging</span></a></span><span>
|
||||
</span><span id="line-29"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.MimeTypes.html"><span class="hs-identifier">OpenAPIPetstore.MimeTypes</span></a></span><span>
|
||||
</span><span id="line-30"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.Model.html"><span class="hs-identifier">OpenAPIPetstore.Model</span></a></span><span>
|
||||
</span><span id="line-31"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="OpenAPIPetstore.ModelLens.html"><span class="hs-identifier">OpenAPIPetstore.ModelLens</span></a></span></pre></body></html>
|
||||
@@ -1,51 +1,139 @@
|
||||
<!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><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-pragma">{-# LANGUAGE CPP #-}</span><span>
|
||||
</span><a name="line-2"></a><span class="hs-pragma">{-# LANGUAGE NoRebindableSyntax #-}</span><span>
|
||||
</span><a name="line-3"></a><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-missing-import-lists #-}</span><span>
|
||||
</span><a name="line-4"></a><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Paths_openapi_petstore</span><span> </span><span class="hs-special">(</span><span>
|
||||
</span><a name="line-5"></a><span> </span><a href="Paths_openapi_petstore.html#version"><span class="hs-identifier hs-var">version</span></a><span class="hs-special">,</span><span>
|
||||
</span><a name="line-6"></a><span> </span><a href="Paths_openapi_petstore.html#getBinDir"><span class="hs-identifier hs-var">getBinDir</span></a><span class="hs-special">,</span><span> </span><a href="Paths_openapi_petstore.html#getLibDir"><span class="hs-identifier hs-var">getLibDir</span></a><span class="hs-special">,</span><span> </span><a href="Paths_openapi_petstore.html#getDynLibDir"><span class="hs-identifier hs-var">getDynLibDir</span></a><span class="hs-special">,</span><span> </span><a href="Paths_openapi_petstore.html#getDataDir"><span class="hs-identifier hs-var">getDataDir</span></a><span class="hs-special">,</span><span> </span><a href="Paths_openapi_petstore.html#getLibexecDir"><span class="hs-identifier hs-var">getLibexecDir</span></a><span class="hs-special">,</span><span>
|
||||
</span><a name="line-7"></a><span> </span><a href="Paths_openapi_petstore.html#getDataFileName"><span class="hs-identifier hs-var">getDataFileName</span></a><span class="hs-special">,</span><span> </span><a href="Paths_openapi_petstore.html#getSysconfDir"><span class="hs-identifier hs-var">getSysconfDir</span></a><span>
|
||||
</span><a name="line-8"></a><span> </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><a name="line-9"></a><span>
|
||||
</span><a name="line-10"></a><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="hs-identifier">Control.Exception</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">Exception</span><span>
|
||||
</span><a name="line-11"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data.Version</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-type">Version</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-12"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">System.Environment</span><span> </span><span class="hs-special">(</span><span class="hs-identifier hs-var">getEnv</span><span class="hs-special">)</span><span>
|
||||
</span><a name="line-13"></a><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Prelude</span><span>
|
||||
</span><a name="line-14"></a><span>
|
||||
</span><a name="line-15"></a><span class="hs-cpp">#if defined(VERSION_base)
|
||||
</span><span>
|
||||
</span><a name="line-17"></a><span class="hs-cpp">#if MIN_VERSION_base(4,0,0)
|
||||
</span><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-6989586621679196807"><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.IOException</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><a href="#local-6989586621679196807"><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-6989586621679196807"><span class="hs-identifier hs-type">a</span></a><span>
|
||||
</span><a name="line-19"></a><span class="hs-cpp">#else
|
||||
</span><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.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>
|
||||
</span><a name="line-23"></a><span class="hs-cpp">#else
|
||||
</span><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.IOException</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-25"></a><span class="hs-cpp">#endif
|
||||
</span><a name="catchIO"><a href="Paths_openapi_petstore.html#catchIO"><span class="hs-identifier">catchIO</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Exception.catch</span><span>
|
||||
</span><a name="line-27"></a><span>
|
||||
</span><a name="line-28"></a><span class="hs-identifier">version</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">Version</span><span>
|
||||
</span><a name="line-29"></a><a name="version"><a href="Paths_openapi_petstore.html#version"><span class="hs-identifier">version</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier hs-var">Version</span><span> </span><span class="hs-special">[</span><span class="hs-number">0</span><span class="hs-special">,</span><span class="hs-number">1</span><span class="hs-special">,</span><span class="hs-number">0</span><span class="hs-special">,</span><span class="hs-number">0</span><span class="hs-special">]</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
|
||||
</span><a name="line-30"></a><span class="hs-identifier">bindir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">libdir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">dynlibdir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">datadir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">libexecdir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">sysconfdir</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">FilePath</span><span>
|
||||
</span><a name="line-31"></a><span>
|
||||
</span><a name="line-32"></a><a name="bindir"><a href="Paths_openapi_petstore.html#bindir"><span class="hs-identifier">bindir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"/home/ivanbakel/Code/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-tinfo6/d2701ee3786f8106751f5b4a2971e31f1c44aa5239b0d08ed84a6e24577ee110/8.6.5/bin"</span><span>
|
||||
</span><a name="line-33"></a><a name="libdir"><a href="Paths_openapi_petstore.html#libdir"><span class="hs-identifier">libdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"/home/ivanbakel/Code/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-tinfo6/d2701ee3786f8106751f5b4a2971e31f1c44aa5239b0d08ed84a6e24577ee110/8.6.5/lib/x86_64-linux-ghc-8.6.5/openapi-petstore-0.1.0.0-8Y8fjG4kZ9N1YzSM6VEvto"</span><span>
|
||||
</span><a name="line-34"></a><a name="dynlibdir"><a href="Paths_openapi_petstore.html#dynlibdir"><span class="hs-identifier">dynlibdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"/home/ivanbakel/Code/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-tinfo6/d2701ee3786f8106751f5b4a2971e31f1c44aa5239b0d08ed84a6e24577ee110/8.6.5/lib/x86_64-linux-ghc-8.6.5"</span><span>
|
||||
</span><a name="line-35"></a><a name="datadir"><a href="Paths_openapi_petstore.html#datadir"><span class="hs-identifier">datadir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"/home/ivanbakel/Code/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-tinfo6/d2701ee3786f8106751f5b4a2971e31f1c44aa5239b0d08ed84a6e24577ee110/8.6.5/share/x86_64-linux-ghc-8.6.5/openapi-petstore-0.1.0.0"</span><span>
|
||||
</span><a name="line-36"></a><a name="libexecdir"><a href="Paths_openapi_petstore.html#libexecdir"><span class="hs-identifier">libexecdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"/home/ivanbakel/Code/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-tinfo6/d2701ee3786f8106751f5b4a2971e31f1c44aa5239b0d08ed84a6e24577ee110/8.6.5/libexec/x86_64-linux-ghc-8.6.5/openapi-petstore-0.1.0.0"</span><span>
|
||||
</span><a name="line-37"></a><a name="sysconfdir"><a href="Paths_openapi_petstore.html#sysconfdir"><span class="hs-identifier">sysconfdir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-string">"/home/ivanbakel/Code/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-tinfo6/d2701ee3786f8106751f5b4a2971e31f1c44aa5239b0d08ed84a6e24577ee110/8.6.5/etc"</span><span>
|
||||
</span><a name="line-38"></a><span>
|
||||
</span><a name="line-39"></a><span class="hs-identifier">getBinDir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">getLibDir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">getDynLibDir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">getDataDir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">getLibexecDir</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">getSysconfDir</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier hs-type">IO</span><span> </span><span class="hs-identifier hs-type">FilePath</span><span>
|
||||
</span><a name="line-40"></a><a name="getBinDir"><a href="Paths_openapi_petstore.html#getBinDir"><span class="hs-identifier">getBinDir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="Paths_openapi_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">"openapi_petstore_bindir"</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_openapi_petstore.html#bindir"><span class="hs-identifier hs-var">bindir</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-41"></a><a name="getLibDir"><a href="Paths_openapi_petstore.html#getLibDir"><span class="hs-identifier">getLibDir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="Paths_openapi_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">"openapi_petstore_libdir"</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_openapi_petstore.html#libdir"><span class="hs-identifier hs-var">libdir</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-42"></a><a name="getDynLibDir"><a href="Paths_openapi_petstore.html#getDynLibDir"><span class="hs-identifier">getDynLibDir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="Paths_openapi_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">"openapi_petstore_dynlibdir"</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_openapi_petstore.html#dynlibdir"><span class="hs-identifier hs-var">dynlibdir</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-43"></a><a name="getDataDir"><a href="Paths_openapi_petstore.html#getDataDir"><span class="hs-identifier">getDataDir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="Paths_openapi_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">"openapi_petstore_datadir"</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_openapi_petstore.html#datadir"><span class="hs-identifier hs-var">datadir</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-44"></a><a name="getLibexecDir"><a href="Paths_openapi_petstore.html#getLibexecDir"><span class="hs-identifier">getLibexecDir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="Paths_openapi_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">"openapi_petstore_libexecdir"</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_openapi_petstore.html#libexecdir"><span class="hs-identifier hs-var">libexecdir</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-45"></a><a name="getSysconfDir"><a href="Paths_openapi_petstore.html#getSysconfDir"><span class="hs-identifier">getSysconfDir</span></a></a><span> </span><span class="hs-glyph">=</span><span> </span><a href="Paths_openapi_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">"openapi_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_openapi_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_openapi_petstore.html#getDataFileName"><span class="hs-identifier">getDataFileName</span></a></a><span> </span><a name="local-6989586621679197629"><a href="#local-6989586621679197629"><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-6989586621679197630"><a href="#local-6989586621679197630"><span class="hs-identifier">dir</span></a></a><span> </span><span class="hs-glyph"><-</span><span> </span><a href="Paths_openapi_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-6989586621679197630"><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-6989586621679197629"><span class="hs-identifier hs-var">name</span></a><span class="hs-special">)</span><span>
|
||||
</span><a name="line-51"></a></pre></body></html>
|
||||
</span><span id="line-2"></span><span class="hs-pragma">{-# LANGUAGE NoRebindableSyntax #-}</span><span>
|
||||
</span><span id="line-3"></span><span class="hs-pragma">{-# OPTIONS_GHC -fno-warn-missing-import-lists #-}</span><span>
|
||||
</span><span id="line-4"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Paths_openapi_petstore</span><span> </span><span class="hs-special">(</span><span>
|
||||
</span><span id="line-5"></span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#version"><span class="hs-identifier">version</span></a></span><span class="hs-special">,</span><span>
|
||||
</span><span id="line-6"></span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#getBinDir"><span class="hs-identifier">getBinDir</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#getLibDir"><span class="hs-identifier">getLibDir</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#getDynLibDir"><span class="hs-identifier">getDynLibDir</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#getDataDir"><span class="hs-identifier">getDataDir</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#getLibexecDir"><span class="hs-identifier">getLibexecDir</span></a></span><span class="hs-special">,</span><span>
|
||||
</span><span id="line-7"></span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#getDataFileName"><span class="hs-identifier">getDataFileName</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#getSysconfDir"><span class="hs-identifier">getSysconfDir</span></a></span><span>
|
||||
</span><span id="line-8"></span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-9"></span><span>
|
||||
</span><span id="line-10"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><span class="hs-identifier">Control.Exception</span></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Exception</span></span><span>
|
||||
</span><span id="line-11"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Data.Version</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">Version</span></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-12"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">System.Environment</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier">getEnv</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-13"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Prelude</span></span><span class="hs-cpp">
|
||||
|
||||
#if defined(VERSION_base)
|
||||
</span><span class="hs-cpp">
|
||||
#if MIN_VERSION_base(4,0,0)
|
||||
</span><span id="local-6989586621679155310"><span class="annot"><a href="Paths_openapi_petstore.html#catchIO"><span class="hs-identifier hs-type">catchIO</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679155310"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Exception.IOException</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679155310"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679155310"><span class="hs-identifier hs-type">a</span></a></span></span><span class="hs-cpp">
|
||||
#else
|
||||
</span><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.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 class="hs-cpp">
|
||||
#endif
|
||||
</span><span class="hs-cpp">
|
||||
#else
|
||||
</span><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.IOException</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 class="hs-cpp">
|
||||
#endif
|
||||
</span><span id="catchIO"><span class="annot"><span class="annottext">catchIO :: IO a -> (IOException -> IO a) -> IO a
|
||||
</span><a href="Paths_openapi_petstore.html#catchIO"><span class="hs-identifier hs-var hs-var">catchIO</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IO a -> (IOException -> IO a) -> IO a
|
||||
forall e a. Exception e => IO a -> (e -> IO a) -> IO a
|
||||
</span><span class="hs-identifier hs-var">Exception.catch</span></span><span>
|
||||
</span><span id="line-27"></span><span>
|
||||
</span><span id="line-28"></span><span class="annot"><a href="Paths_openapi_petstore.html#version"><span class="hs-identifier hs-type">version</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Version</span></span><span>
|
||||
</span><span id="line-29"></span><span id="version"><span class="annot"><span class="annottext">version :: Version
|
||||
</span><a href="Paths_openapi_petstore.html#version"><span class="hs-identifier hs-var hs-var">version</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Int] -> [String] -> Version
|
||||
</span><span class="hs-identifier hs-var">Version</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int
|
||||
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
|
||||
</span><span class="hs-number">1</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
|
||||
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
|
||||
</span><span class="hs-number">0</span></span><span class="hs-special">]</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-30"></span><span class="annot"><a href="Paths_openapi_petstore.html#bindir"><span class="hs-identifier hs-type">bindir</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#libdir"><span class="hs-identifier hs-type">libdir</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#dynlibdir"><span class="hs-identifier hs-type">dynlibdir</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#datadir"><span class="hs-identifier hs-type">datadir</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#libexecdir"><span class="hs-identifier hs-type">libexecdir</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#sysconfdir"><span class="hs-identifier hs-type">sysconfdir</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">FilePath</span></span><span>
|
||||
</span><span id="line-31"></span><span>
|
||||
</span><span id="line-32"></span><span id="bindir"><span class="annot"><span class="annottext">bindir :: String
|
||||
</span><a href="Paths_openapi_petstore.html#bindir"><span class="hs-identifier hs-var hs-var">bindir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-tinfo6/c2d06f167ed22c3aeac6ab338dd025e6d4619b0164253f553a46d24aab5989bd/8.10.7/bin"</span></span><span>
|
||||
</span><span id="line-33"></span><span id="libdir"><span class="annot"><span class="annottext">libdir :: String
|
||||
</span><a href="Paths_openapi_petstore.html#libdir"><span class="hs-identifier hs-var hs-var">libdir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-tinfo6/c2d06f167ed22c3aeac6ab338dd025e6d4619b0164253f553a46d24aab5989bd/8.10.7/lib/x86_64-linux-ghc-8.10.7/openapi-petstore-0.1.0.0-KK0a84V9cgE7ifsb9ACXB1"</span></span><span>
|
||||
</span><span id="line-34"></span><span id="dynlibdir"><span class="annot"><span class="annottext">dynlibdir :: String
|
||||
</span><a href="Paths_openapi_petstore.html#dynlibdir"><span class="hs-identifier hs-var hs-var">dynlibdir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-tinfo6/c2d06f167ed22c3aeac6ab338dd025e6d4619b0164253f553a46d24aab5989bd/8.10.7/lib/x86_64-linux-ghc-8.10.7"</span></span><span>
|
||||
</span><span id="line-35"></span><span id="datadir"><span class="annot"><span class="annottext">datadir :: String
|
||||
</span><a href="Paths_openapi_petstore.html#datadir"><span class="hs-identifier hs-var hs-var">datadir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-tinfo6/c2d06f167ed22c3aeac6ab338dd025e6d4619b0164253f553a46d24aab5989bd/8.10.7/share/x86_64-linux-ghc-8.10.7/openapi-petstore-0.1.0.0"</span></span><span>
|
||||
</span><span id="line-36"></span><span id="libexecdir"><span class="annot"><span class="annottext">libexecdir :: String
|
||||
</span><a href="Paths_openapi_petstore.html#libexecdir"><span class="hs-identifier hs-var hs-var">libexecdir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-tinfo6/c2d06f167ed22c3aeac6ab338dd025e6d4619b0164253f553a46d24aab5989bd/8.10.7/libexec/x86_64-linux-ghc-8.10.7/openapi-petstore-0.1.0.0"</span></span><span>
|
||||
</span><span id="line-37"></span><span id="sysconfdir"><span class="annot"><span class="annottext">sysconfdir :: String
|
||||
</span><a href="Paths_openapi_petstore.html#sysconfdir"><span class="hs-identifier hs-var hs-var">sysconfdir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"/home/jon/fs/git/openapi-generator/samples/client/petstore/haskell-http-client/.stack-work/install/x86_64-linux-tinfo6/c2d06f167ed22c3aeac6ab338dd025e6d4619b0164253f553a46d24aab5989bd/8.10.7/etc"</span></span><span>
|
||||
</span><span id="line-38"></span><span>
|
||||
</span><span id="line-39"></span><span class="annot"><a href="Paths_openapi_petstore.html#getBinDir"><span class="hs-identifier hs-type">getBinDir</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#getLibDir"><span class="hs-identifier hs-type">getLibDir</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#getDynLibDir"><span class="hs-identifier hs-type">getDynLibDir</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#getDataDir"><span class="hs-identifier hs-type">getDataDir</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#getLibexecDir"><span class="hs-identifier hs-type">getLibexecDir</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Paths_openapi_petstore.html#getSysconfDir"><span class="hs-identifier hs-type">getSysconfDir</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">FilePath</span></span><span>
|
||||
</span><span id="line-40"></span><span id="getBinDir"><span class="annot"><span class="annottext">getBinDir :: IO String
|
||||
</span><a href="Paths_openapi_petstore.html#getBinDir"><span class="hs-identifier hs-var hs-var">getBinDir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IO String -> (IOException -> IO String) -> IO String
|
||||
forall a. IO a -> (IOException -> IO a) -> IO a
|
||||
</span><a href="Paths_openapi_petstore.html#catchIO"><span class="hs-identifier hs-var">catchIO</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -> IO String
|
||||
</span><span class="hs-identifier hs-var">getEnv</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"openapi_petstore_bindir"</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">IOException
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">String -> IO String
|
||||
forall (m :: * -> *) a. Monad m => a -> m a
|
||||
</span><span class="hs-identifier hs-var">return</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="Paths_openapi_petstore.html#bindir"><span class="hs-identifier hs-var">bindir</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-41"></span><span id="getLibDir"><span class="annot"><span class="annottext">getLibDir :: IO String
|
||||
</span><a href="Paths_openapi_petstore.html#getLibDir"><span class="hs-identifier hs-var hs-var">getLibDir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IO String -> (IOException -> IO String) -> IO String
|
||||
forall a. IO a -> (IOException -> IO a) -> IO a
|
||||
</span><a href="Paths_openapi_petstore.html#catchIO"><span class="hs-identifier hs-var">catchIO</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -> IO String
|
||||
</span><span class="hs-identifier hs-var">getEnv</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"openapi_petstore_libdir"</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">IOException
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">String -> IO String
|
||||
forall (m :: * -> *) a. Monad m => a -> m a
|
||||
</span><span class="hs-identifier hs-var">return</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="Paths_openapi_petstore.html#libdir"><span class="hs-identifier hs-var">libdir</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-42"></span><span id="getDynLibDir"><span class="annot"><span class="annottext">getDynLibDir :: IO String
|
||||
</span><a href="Paths_openapi_petstore.html#getDynLibDir"><span class="hs-identifier hs-var hs-var">getDynLibDir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IO String -> (IOException -> IO String) -> IO String
|
||||
forall a. IO a -> (IOException -> IO a) -> IO a
|
||||
</span><a href="Paths_openapi_petstore.html#catchIO"><span class="hs-identifier hs-var">catchIO</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -> IO String
|
||||
</span><span class="hs-identifier hs-var">getEnv</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"openapi_petstore_dynlibdir"</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">IOException
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">String -> IO String
|
||||
forall (m :: * -> *) a. Monad m => a -> m a
|
||||
</span><span class="hs-identifier hs-var">return</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="Paths_openapi_petstore.html#dynlibdir"><span class="hs-identifier hs-var">dynlibdir</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-43"></span><span id="getDataDir"><span class="annot"><span class="annottext">getDataDir :: IO String
|
||||
</span><a href="Paths_openapi_petstore.html#getDataDir"><span class="hs-identifier hs-var hs-var">getDataDir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IO String -> (IOException -> IO String) -> IO String
|
||||
forall a. IO a -> (IOException -> IO a) -> IO a
|
||||
</span><a href="Paths_openapi_petstore.html#catchIO"><span class="hs-identifier hs-var">catchIO</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -> IO String
|
||||
</span><span class="hs-identifier hs-var">getEnv</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"openapi_petstore_datadir"</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">IOException
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">String -> IO String
|
||||
forall (m :: * -> *) a. Monad m => a -> m a
|
||||
</span><span class="hs-identifier hs-var">return</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="Paths_openapi_petstore.html#datadir"><span class="hs-identifier hs-var">datadir</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-44"></span><span id="getLibexecDir"><span class="annot"><span class="annottext">getLibexecDir :: IO String
|
||||
</span><a href="Paths_openapi_petstore.html#getLibexecDir"><span class="hs-identifier hs-var hs-var">getLibexecDir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IO String -> (IOException -> IO String) -> IO String
|
||||
forall a. IO a -> (IOException -> IO a) -> IO a
|
||||
</span><a href="Paths_openapi_petstore.html#catchIO"><span class="hs-identifier hs-var">catchIO</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -> IO String
|
||||
</span><span class="hs-identifier hs-var">getEnv</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"openapi_petstore_libexecdir"</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">IOException
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">String -> IO String
|
||||
forall (m :: * -> *) a. Monad m => a -> m a
|
||||
</span><span class="hs-identifier hs-var">return</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="Paths_openapi_petstore.html#libexecdir"><span class="hs-identifier hs-var">libexecdir</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-45"></span><span id="getSysconfDir"><span class="annot"><span class="annottext">getSysconfDir :: IO String
|
||||
</span><a href="Paths_openapi_petstore.html#getSysconfDir"><span class="hs-identifier hs-var hs-var">getSysconfDir</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IO String -> (IOException -> IO String) -> IO String
|
||||
forall a. IO a -> (IOException -> IO a) -> IO a
|
||||
</span><a href="Paths_openapi_petstore.html#catchIO"><span class="hs-identifier hs-var">catchIO</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -> IO String
|
||||
</span><span class="hs-identifier hs-var">getEnv</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"openapi_petstore_sysconfdir"</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="annot"><span class="annottext">IOException
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">String -> IO String
|
||||
forall (m :: * -> *) a. Monad m => a -> m a
|
||||
</span><span class="hs-identifier hs-var">return</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="Paths_openapi_petstore.html#sysconfdir"><span class="hs-identifier hs-var">sysconfdir</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-46"></span><span>
|
||||
</span><span id="line-47"></span><span class="annot"><a href="Paths_openapi_petstore.html#getDataFileName"><span class="hs-identifier hs-type">getDataFileName</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">FilePath</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">FilePath</span></span><span>
|
||||
</span><span id="line-48"></span><span id="getDataFileName"><span class="annot"><span class="annottext">getDataFileName :: String -> IO String
|
||||
</span><a href="Paths_openapi_petstore.html#getDataFileName"><span class="hs-identifier hs-var hs-var">getDataFileName</span></a></span></span><span> </span><span id="local-6989586621679155287"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679155287"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-49"></span><span> </span><span id="local-6989586621679155286"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679155286"><span class="hs-identifier hs-var">dir</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">IO String
|
||||
</span><a href="Paths_openapi_petstore.html#getDataDir"><span class="hs-identifier hs-var">getDataDir</span></a></span><span>
|
||||
</span><span id="line-50"></span><span> </span><span class="annot"><span class="annottext">String -> IO String
|
||||
forall (m :: * -> *) a. Monad m => a -> m a
|
||||
</span><span class="hs-identifier hs-var">return</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679155286"><span class="hs-identifier hs-var">dir</span></a></span><span> </span><span class="annot"><span class="annottext">String -> String -> String
|
||||
forall a. [a] -> [a] -> [a]
|
||||
</span><span class="hs-operator hs-var">++</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"/"</span></span><span> </span><span class="annot"><span class="annottext">String -> String -> String
|
||||
forall a. [a] -> [a] -> [a]
|
||||
</span><span class="hs-operator hs-var">++</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679155287"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-51"></span></pre></body></html>
|
||||
@@ -53,3 +53,45 @@ a:link, a:visited {
|
||||
a:hover, a.hover-highlight {
|
||||
background-color: #eee8d5;
|
||||
}
|
||||
|
||||
span.annot{
|
||||
position:relative;
|
||||
color:#000;
|
||||
text-decoration:none
|
||||
}
|
||||
|
||||
span.annot:hover{z-index:25; background-color:#ff0}
|
||||
|
||||
span.annot span.annottext{
|
||||
display: none;
|
||||
border-radius: 5px 5px;
|
||||
|
||||
-moz-border-radius: 5px;
|
||||
-webkit-border-radius: 5px;
|
||||
|
||||
box-shadow: 5px 5px 5px rgba(0, 0, 0, 0.1);
|
||||
-webkit-box-shadow: 5px 5px rgba(0, 0, 0, 0.1);
|
||||
-moz-box-shadow: 5px 5px rgba(0, 0, 0, 0.1);
|
||||
|
||||
position: absolute;
|
||||
left: 1em; top: 2em;
|
||||
z-index: 99;
|
||||
margin-left: 5;
|
||||
background: #FFFFAA;
|
||||
border: 2px solid #FFAD33;
|
||||
padding: 0.8em 1em;
|
||||
}
|
||||
|
||||
span.annot:hover span.annottext{
|
||||
display:block;
|
||||
}
|
||||
|
||||
/* This bridges the gap so you can mouse into the tooltip without it disappearing */
|
||||
span.annot span.annottext:before{
|
||||
content: "";
|
||||
position: absolute;
|
||||
left: -1em; top: -1em;
|
||||
background: #FFFFFF00;
|
||||
z-index:-1;
|
||||
padding: 2em 2em;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user