mirror of
https://github.com/higherkindness/mu-haskell.git
synced 2024-08-16 18:00:33 +03:00
Automated deployment: Thu Jan 13 10:32:40 UTC 2022 315ff0bcf2
This commit is contained in:
parent
76407ca81b
commit
f5229dd990
Binary file not shown.
Binary file not shown.
@ -38,24 +38,24 @@ to provide this additional information.
|
||||
</span><span id="line-38"></span><span class="hs-comment">-- | Type-level GraphQL constant values.</span><span>
|
||||
</span><span id="line-39"></span><span class="hs-comment">-- Due to limitations in type-level literal values</span><span>
|
||||
</span><span id="line-40"></span><span class="hs-comment">-- floating point constants cannot be represented.</span><span>
|
||||
</span><span id="line-41"></span><span class="hs-keyword">data</span><span> </span><span id="ValueConst"><span class="annot"><a href="Mu.GraphQL.Annotations.html#ValueConst"><span class="hs-identifier hs-var">ValueConst</span></a></span></span><span> </span><span id="local-6989586621679163328"><span class="annot"><a href="#local-6989586621679163328"><span class="hs-identifier hs-type">nat</span></a></span></span><span> </span><span id="local-6989586621679163327"><span class="annot"><a href="#local-6989586621679163327"><span class="hs-identifier hs-type">symbol</span></a></span></span><span>
|
||||
</span><span id="line-42"></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="VCInt"><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCInt"><span class="hs-identifier hs-var">VCInt</span></a></span></span><span> </span><span class="annot"><a href="#local-6989586621679163328"><span class="hs-identifier hs-type">nat</span></a></span><span> </span><span class="hs-comment">-- ^ Integer.</span><span>
|
||||
</span><span id="line-43"></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="VCString"><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCString"><span class="hs-identifier hs-var">VCString</span></a></span></span><span> </span><span class="annot"><a href="#local-6989586621679163327"><span class="hs-identifier hs-type">symbol</span></a></span><span> </span><span class="hs-comment">-- ^ String.</span><span>
|
||||
</span><span id="line-41"></span><span class="hs-keyword">data</span><span> </span><span id="ValueConst"><span class="annot"><a href="Mu.GraphQL.Annotations.html#ValueConst"><span class="hs-identifier hs-var">ValueConst</span></a></span></span><span> </span><span id="local-6989586621679163327"><span class="annot"><a href="#local-6989586621679163327"><span class="hs-identifier hs-type">nat</span></a></span></span><span> </span><span id="local-6989586621679163326"><span class="annot"><a href="#local-6989586621679163326"><span class="hs-identifier hs-type">symbol</span></a></span></span><span>
|
||||
</span><span id="line-42"></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="VCInt"><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCInt"><span class="hs-identifier hs-var">VCInt</span></a></span></span><span> </span><span class="annot"><a href="#local-6989586621679163327"><span class="hs-identifier hs-type">nat</span></a></span><span> </span><span class="hs-comment">-- ^ Integer.</span><span>
|
||||
</span><span id="line-43"></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="VCString"><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCString"><span class="hs-identifier hs-var">VCString</span></a></span></span><span> </span><span class="annot"><a href="#local-6989586621679163326"><span class="hs-identifier hs-type">symbol</span></a></span><span> </span><span class="hs-comment">-- ^ String.</span><span>
|
||||
</span><span id="line-44"></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="VCBoolean"><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCBoolean"><span class="hs-identifier hs-var">VCBoolean</span></a></span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span> </span><span class="hs-comment">-- ^ Boolean.</span><span>
|
||||
</span><span id="line-45"></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="VCNull"><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCNull"><span class="hs-identifier hs-var">VCNull</span></a></span></span><span> </span><span class="hs-comment">-- ^ Null.</span><span>
|
||||
</span><span id="line-46"></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="VCEnum"><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCEnum"><span class="hs-identifier hs-var">VCEnum</span></a></span></span><span> </span><span class="annot"><a href="#local-6989586621679163327"><span class="hs-identifier hs-type">symbol</span></a></span><span> </span><span class="hs-comment">-- ^ Enumeration value.</span><span>
|
||||
</span><span id="line-47"></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="VCList"><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCList"><span class="hs-identifier hs-var">VCList</span></a></span></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ValueConst"><span class="hs-identifier hs-type">ValueConst</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163328"><span class="hs-identifier hs-type">nat</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163327"><span class="hs-identifier hs-type">symbol</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ List of constant values.</span><span>
|
||||
</span><span id="line-48"></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="VCObject"><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCObject"><span class="hs-identifier hs-var">VCObject</span></a></span></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679163327"><span class="hs-identifier hs-type">symbol</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ValueConst"><span class="hs-identifier hs-type">ValueConst</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163328"><span class="hs-identifier hs-type">nat</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163327"><span class="hs-identifier hs-type">symbol</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-46"></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="VCEnum"><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCEnum"><span class="hs-identifier hs-var">VCEnum</span></a></span></span><span> </span><span class="annot"><a href="#local-6989586621679163326"><span class="hs-identifier hs-type">symbol</span></a></span><span> </span><span class="hs-comment">-- ^ Enumeration value.</span><span>
|
||||
</span><span id="line-47"></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="VCList"><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCList"><span class="hs-identifier hs-var">VCList</span></a></span></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ValueConst"><span class="hs-identifier hs-type">ValueConst</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163327"><span class="hs-identifier hs-type">nat</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163326"><span class="hs-identifier hs-type">symbol</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-comment">-- ^ List of constant values.</span><span>
|
||||
</span><span id="line-48"></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="VCObject"><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCObject"><span class="hs-identifier hs-var">VCObject</span></a></span></span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679163326"><span class="hs-identifier hs-type">symbol</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ValueConst"><span class="hs-identifier hs-type">ValueConst</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163327"><span class="hs-identifier hs-type">nat</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163326"><span class="hs-identifier hs-type">symbol</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-49"></span><span> </span><span class="hs-comment">-- ^ Object represented by (key, value) tuples.</span><span>
|
||||
</span><span id="line-50"></span><span>
|
||||
</span><span id="line-51"></span><span class="hs-comment">-- | Turn a 'GQL.ValueConst' coming from parsing</span><span>
|
||||
</span><span id="line-52"></span><span class="hs-comment">-- in the annotation data type. Mostly used</span><span>
|
||||
</span><span id="line-53"></span><span class="hs-comment">-- internally to generate Mu schemas from GraphQL schemas.</span><span>
|
||||
</span><span id="line-54"></span><span class="annot"><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-type">fromGQLValueConst</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679163315"><span class="annot"><a href="#local-6989586621679163315"><span class="hs-identifier hs-type">f</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Alternative</span></span><span> </span><span class="annot"><a href="#local-6989586621679163315"><span class="hs-identifier hs-type">f</span></a></span><span>
|
||||
</span><span id="line-55"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstValue</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679163315"><span class="hs-identifier hs-type">f</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ValueConst"><span class="hs-identifier hs-type">ValueConst</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-54"></span><span class="annot"><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-type">fromGQLValueConst</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679163314"><span class="annot"><a href="#local-6989586621679163314"><span class="hs-identifier hs-type">f</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Alternative</span></span><span> </span><span class="annot"><a href="#local-6989586621679163314"><span class="hs-identifier hs-type">f</span></a></span><span>
|
||||
</span><span id="line-55"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstValue</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679163314"><span class="hs-identifier hs-type">f</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ValueConst"><span class="hs-identifier hs-type">ValueConst</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-56"></span><span id="fromGQLValueConst"><span class="annot"><span class="annottext">fromGQLValueConst :: ConstValue -> f (ValueConst Integer String)
|
||||
</span><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var hs-var">fromGQLValueConst</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstInt</span></span><span> </span><span id="local-6989586621679163227"><span class="annot"><span class="annottext">Int32
|
||||
</span><a href="#local-6989586621679163227"><span class="hs-identifier hs-var">n</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var hs-var">fromGQLValueConst</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstInt</span></span><span> </span><span id="local-6989586621679163226"><span class="annot"><span class="annottext">Int32
|
||||
</span><a href="#local-6989586621679163226"><span class="hs-identifier hs-var">n</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-57"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ValueConst Integer String -> f (ValueConst Integer String)
|
||||
forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
</span><span class="hs-identifier hs-var">pure</span></span><span> </span><span class="annot"><span class="annottext">(ValueConst Integer String -> f (ValueConst Integer String))
|
||||
@ -66,9 +66,9 @@ forall nat symbol. nat -> ValueConst nat symbol
|
||||
</span><a href="Mu.GraphQL.Annotations.html#VCInt"><span class="hs-identifier hs-var">VCInt</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int32 -> Integer
|
||||
forall a b. (Integral a, Num b) => a -> b
|
||||
</span><span class="hs-identifier hs-var">fromIntegral</span></span><span> </span><span class="annot"><span class="annottext">Int32
|
||||
</span><a href="#local-6989586621679163227"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-58"></span><span class="annot"><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var">fromGQLValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstString</span></span><span> </span><span id="local-6989586621679163225"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163225"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679163226"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-58"></span><span class="annot"><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var">fromGQLValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstString</span></span><span> </span><span id="local-6989586621679163224"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163224"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-59"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ValueConst Integer String -> f (ValueConst Integer String)
|
||||
forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
</span><span class="hs-identifier hs-var">pure</span></span><span> </span><span class="annot"><span class="annottext">(ValueConst Integer String -> f (ValueConst Integer String))
|
||||
@ -81,9 +81,9 @@ forall nat symbol. symbol -> ValueConst nat symbol
|
||||
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-6989586621679163225"><span class="hs-identifier hs-var">s</span></a></span><span>
|
||||
</span><span id="line-60"></span><span class="annot"><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var">fromGQLValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstBoolean</span></span><span> </span><span id="local-6989586621679163222"><span class="annot"><span class="annottext">Bool
|
||||
</span><a href="#local-6989586621679163222"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679163224"><span class="hs-identifier hs-var">s</span></a></span><span>
|
||||
</span><span id="line-60"></span><span class="annot"><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var">fromGQLValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstBoolean</span></span><span> </span><span id="local-6989586621679163221"><span class="annot"><span class="annottext">Bool
|
||||
</span><a href="#local-6989586621679163221"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-61"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ValueConst Integer String -> f (ValueConst Integer String)
|
||||
forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
</span><span class="hs-identifier hs-var">pure</span></span><span> </span><span class="annot"><span class="annottext">(ValueConst Integer String -> f (ValueConst Integer String))
|
||||
@ -92,7 +92,7 @@ forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">Bool -> ValueConst Integer String
|
||||
forall nat symbol. Bool -> ValueConst nat symbol
|
||||
</span><a href="Mu.GraphQL.Annotations.html#VCBoolean"><span class="hs-identifier hs-var">VCBoolean</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
|
||||
</span><a href="#local-6989586621679163222"><span class="hs-identifier hs-var">b</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163221"><span class="hs-identifier hs-var">b</span></a></span><span>
|
||||
</span><span id="line-62"></span><span class="annot"><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var">fromGQLValueConst</span></a></span><span> </span><span class="annot"><span class="annottext">ConstValue
|
||||
</span><span class="hs-identifier hs-var">GQL.ConstNull</span></span><span>
|
||||
</span><span id="line-63"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ValueConst Integer String -> f (ValueConst Integer String)
|
||||
@ -100,8 +100,8 @@ forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
</span><span class="hs-identifier hs-var">pure</span></span><span> </span><span class="annot"><span class="annottext">ValueConst Integer String
|
||||
forall nat symbol. ValueConst nat symbol
|
||||
</span><a href="Mu.GraphQL.Annotations.html#VCNull"><span class="hs-identifier hs-var">VCNull</span></a></span><span>
|
||||
</span><span id="line-64"></span><span class="annot"><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var">fromGQLValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstEnum</span></span><span> </span><span id="local-6989586621679163219"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163219"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-64"></span><span class="annot"><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var">fromGQLValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstEnum</span></span><span> </span><span id="local-6989586621679163218"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163218"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-65"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ValueConst Integer String -> f (ValueConst Integer String)
|
||||
forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
</span><span class="hs-identifier hs-var">pure</span></span><span> </span><span class="annot"><span class="annottext">(ValueConst Integer String -> f (ValueConst Integer String))
|
||||
@ -114,9 +114,9 @@ forall nat symbol. symbol -> ValueConst nat symbol
|
||||
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-6989586621679163219"><span class="hs-identifier hs-var">s</span></a></span><span>
|
||||
</span><span id="line-66"></span><span class="annot"><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var">fromGQLValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstList</span></span><span> </span><span id="local-6989586621679163217"><span class="annot"><span class="annottext">[Node ConstValue]
|
||||
</span><a href="#local-6989586621679163217"><span class="hs-identifier hs-var">xs</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679163218"><span class="hs-identifier hs-var">s</span></a></span><span>
|
||||
</span><span id="line-66"></span><span class="annot"><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var">fromGQLValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstList</span></span><span> </span><span id="local-6989586621679163216"><span class="annot"><span class="annottext">[Node ConstValue]
|
||||
</span><a href="#local-6989586621679163216"><span class="hs-identifier hs-var">xs</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-67"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ValueConst Integer String] -> ValueConst Integer String
|
||||
forall nat symbol. [ValueConst nat symbol] -> ValueConst nat symbol
|
||||
</span><a href="Mu.GraphQL.Annotations.html#VCList"><span class="hs-identifier hs-var">VCList</span></a></span><span> </span><span class="annot"><span class="annottext">([ValueConst Integer String] -> ValueConst Integer String)
|
||||
@ -139,9 +139,9 @@ 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">Node ConstValue -> ConstValue
|
||||
forall a. Node a -> a
|
||||
</span><span class="hs-identifier hs-var hs-var">GQL.node</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[Node ConstValue]
|
||||
</span><a href="#local-6989586621679163217"><span class="hs-identifier hs-var">xs</span></a></span><span>
|
||||
</span><span id="line-68"></span><span class="annot"><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var">fromGQLValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstObject</span></span><span> </span><span id="local-6989586621679163211"><span class="annot"><span class="annottext">[ObjectField ConstValue]
|
||||
</span><a href="#local-6989586621679163211"><span class="hs-identifier hs-var">o</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679163216"><span class="hs-identifier hs-var">xs</span></a></span><span>
|
||||
</span><span id="line-68"></span><span class="annot"><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var">fromGQLValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstObject</span></span><span> </span><span id="local-6989586621679163210"><span class="annot"><span class="annottext">[ObjectField ConstValue]
|
||||
</span><a href="#local-6989586621679163210"><span class="hs-identifier hs-var">o</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-69"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[(String, ValueConst Integer String)] -> ValueConst Integer String
|
||||
forall nat symbol.
|
||||
[(symbol, ValueConst nat symbol)] -> ValueConst nat symbol
|
||||
@ -157,19 +157,19 @@ forall (t :: * -> *) (f :: * -> *) a b.
|
||||
(Traversable t, Applicative f) =>
|
||||
(a -> f b) -> t a -> f (t b)
|
||||
</span><span class="hs-identifier hs-var">traverse</span></span><span> </span><span class="annot"><span class="annottext">ObjectField ConstValue -> f (String, ValueConst Integer String)
|
||||
</span><a href="#local-6989586621679163210"><span class="hs-identifier hs-var">fromGQLField</span></a></span><span> </span><span class="annot"><span class="annottext">[ObjectField ConstValue]
|
||||
</span><a href="#local-6989586621679163211"><span class="hs-identifier hs-var">o</span></a></span><span>
|
||||
</span><span id="line-70"></span><span> </span><span class="hs-keyword">where</span><span> </span><span class="annot"><a href="#local-6989586621679163210"><span class="hs-identifier hs-type">fromGQLField</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ObjectField</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstValue</span></span><span>
|
||||
</span><span id="line-71"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679163315"><span class="hs-identifier hs-type">f</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">String</span></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ValueConst"><span class="hs-identifier hs-type">ValueConst</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-72"></span><span> </span><span id="local-6989586621679163210"><span class="annot"><span class="annottext">fromGQLField :: ObjectField ConstValue -> f (String, ValueConst Integer String)
|
||||
</span><a href="#local-6989586621679163210"><span class="hs-identifier hs-var hs-var">fromGQLField</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ObjectField</span></span><span> </span><span id="local-6989586621679163208"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163208"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.Node</span></span><span> </span><span id="local-6989586621679163206"><span class="annot"><span class="annottext">ConstValue
|
||||
</span><a href="#local-6989586621679163206"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="annot"><span class="annottext">Location
|
||||
</span><a href="#local-6989586621679163209"><span class="hs-identifier hs-var">fromGQLField</span></a></span><span> </span><span class="annot"><span class="annottext">[ObjectField ConstValue]
|
||||
</span><a href="#local-6989586621679163210"><span class="hs-identifier hs-var">o</span></a></span><span>
|
||||
</span><span id="line-70"></span><span> </span><span class="hs-keyword">where</span><span> </span><span class="annot"><a href="#local-6989586621679163209"><span class="hs-identifier hs-type">fromGQLField</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ObjectField</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstValue</span></span><span>
|
||||
</span><span id="line-71"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679163314"><span class="hs-identifier hs-type">f</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">String</span></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ValueConst"><span class="hs-identifier hs-type">ValueConst</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-72"></span><span> </span><span id="local-6989586621679163209"><span class="annot"><span class="annottext">fromGQLField :: ObjectField ConstValue -> f (String, ValueConst Integer String)
|
||||
</span><a href="#local-6989586621679163209"><span class="hs-identifier hs-var hs-var">fromGQLField</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ObjectField</span></span><span> </span><span id="local-6989586621679163207"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163207"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.Node</span></span><span> </span><span id="local-6989586621679163205"><span class="annot"><span class="annottext">ConstValue
|
||||
</span><a href="#local-6989586621679163205"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="annot"><span class="annottext">Location
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Location
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-73"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</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-6989586621679163208"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(ValueConst Integer String -> (String, ValueConst Integer String))
|
||||
</span><a href="#local-6989586621679163207"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(ValueConst Integer String -> (String, ValueConst Integer String))
|
||||
-> f (ValueConst Integer String)
|
||||
-> f (String, ValueConst Integer String)
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
@ -178,7 +178,7 @@ forall (f :: * -> *).
|
||||
Alternative f =>
|
||||
ConstValue -> f (ValueConst Integer String)
|
||||
</span><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var">fromGQLValueConst</span></a></span><span> </span><span class="annot"><span class="annottext">ConstValue
|
||||
</span><a href="#local-6989586621679163206"><span class="hs-identifier hs-var">v</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163205"><span class="hs-identifier hs-var">v</span></a></span><span>
|
||||
</span><span id="line-74"></span><span class="annot"><a href="Mu.GraphQL.Annotations.html#fromGQLValueConst"><span class="hs-identifier hs-var">fromGQLValueConst</span></a></span><span> </span><span class="annot"><span class="annottext">ConstValue
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">f (ValueConst Integer String)
|
||||
forall (f :: * -> *) a. Alternative f => f a
|
||||
@ -188,13 +188,13 @@ forall (f :: * -> *) a. Alternative f => f a
|
||||
</span><span id="line-77"></span><span class="hs-comment">-- to a type-level constant. Inhabited by any</span><span>
|
||||
</span><span id="line-78"></span><span class="hs-comment">-- 'ValueConst', but still required to please</span><span>
|
||||
</span><span id="line-79"></span><span class="hs-comment">-- the type checker.</span><span>
|
||||
</span><span id="line-80"></span><span class="hs-keyword">class</span><span> </span><span id="ReflectValueConst"><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-var">ReflectValueConst</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163298"><span class="annot"><a href="#local-6989586621679163298"><span class="hs-identifier hs-type">v</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ValueConst"><span class="hs-identifier hs-type">ValueConst</span></a></span><span> </span><span id="local-6989586621679163300"><span class="annot"><a href="#local-6989586621679163300"><span class="hs-identifier hs-type hs-type">nat</span></a></span></span><span> </span><span id="local-6989586621679163299"><span class="annot"><a href="#local-6989586621679163299"><span class="hs-identifier hs-type hs-type">symbol</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-80"></span><span class="hs-keyword">class</span><span> </span><span id="ReflectValueConst"><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-var">ReflectValueConst</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163297"><span class="annot"><a href="#local-6989586621679163297"><span class="hs-identifier hs-type">v</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ValueConst"><span class="hs-identifier hs-type">ValueConst</span></a></span><span> </span><span id="local-6989586621679163299"><span class="annot"><a href="#local-6989586621679163299"><span class="hs-identifier hs-type hs-type">nat</span></a></span></span><span> </span><span id="local-6989586621679163298"><span class="annot"><a href="#local-6989586621679163298"><span class="hs-identifier hs-type hs-type">symbol</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-81"></span><span> </span><span class="hs-comment">-- | Obtain the GraphQL constant corresponding</span><span>
|
||||
</span><span id="line-82"></span><span> </span><span class="hs-comment">-- to a type-level constant.</span><span>
|
||||
</span><span id="line-83"></span><span> </span><span id="local-6989586621679163304"><span id="reflectValueConst"><span class="annot"><a href="Mu.GraphQL.Annotations.html#reflectValueConst"><span class="hs-identifier hs-type">reflectValueConst</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679163304"><span class="hs-identifier hs-type">proxy</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163298"><span class="hs-identifier hs-type">v</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstValue</span></span></span><span>
|
||||
</span><span id="line-84"></span><span id="local-6989586621679163203"><span class="hs-keyword">instance</span><span> </span><span class="annot"><span class="hs-identifier hs-type">KnownNat</span></span><span> </span><span class="annot"><a href="#local-6989586621679163203"><span class="hs-identifier hs-type">n</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCInt"><span class="hs-identifier hs-type">VCInt</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163203"><span class="hs-identifier hs-type">n</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-85"></span><span> </span><span id="local-6989586621679163200"><span class="annot"><span class="annottext">reflectValueConst :: proxy ('VCInt n) -> ConstValue
|
||||
</span><a href="#local-6989586621679163200"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('VCInt n)
|
||||
</span><span id="line-83"></span><span> </span><span id="local-6989586621679163303"><span id="reflectValueConst"><span class="annot"><a href="Mu.GraphQL.Annotations.html#reflectValueConst"><span class="hs-identifier hs-type">reflectValueConst</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679163303"><span class="hs-identifier hs-type">proxy</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163297"><span class="hs-identifier hs-type">v</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstValue</span></span></span><span>
|
||||
</span><span id="line-84"></span><span id="local-6989586621679163202"><span class="hs-keyword">instance</span><span> </span><span class="annot"><span class="hs-identifier hs-type">KnownNat</span></span><span> </span><span class="annot"><a href="#local-6989586621679163202"><span class="hs-identifier hs-type">n</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCInt"><span class="hs-identifier hs-type">VCInt</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163202"><span class="hs-identifier hs-type">n</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-85"></span><span> </span><span id="local-6989586621679163199"><span class="annot"><span class="annottext">reflectValueConst :: proxy ('VCInt n) -> ConstValue
|
||||
</span><a href="#local-6989586621679163199"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('VCInt n)
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int32 -> ConstValue
|
||||
</span><span class="hs-identifier hs-var">GQL.ConstInt</span></span><span> </span><span class="annot"><span class="annottext">(Int32 -> ConstValue) -> Int32 -> ConstValue
|
||||
forall a b. (a -> b) -> a -> b
|
||||
@ -208,10 +208,10 @@ KnownNat n =>
|
||||
proxy n -> Integer
|
||||
</span><span class="hs-identifier hs-var">natVal</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy n
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163203"><span class="hs-identifier hs-type">n</span></a></span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-86"></span><span id="local-6989586621679163197"><span class="hs-keyword">instance</span><span> </span><span class="annot"><span class="hs-identifier hs-type">KnownSymbol</span></span><span> </span><span class="annot"><a href="#local-6989586621679163197"><span class="hs-identifier hs-type">s</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCString"><span class="hs-identifier hs-type">VCString</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163197"><span class="hs-identifier hs-type">s</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-87"></span><span> </span><span id="local-6989586621679163195"><span class="annot"><span class="annottext">reflectValueConst :: proxy ('VCString s) -> ConstValue
|
||||
</span><a href="#local-6989586621679163195"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('VCString s)
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163202"><span class="hs-identifier hs-type">n</span></a></span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-86"></span><span id="local-6989586621679163196"><span class="hs-keyword">instance</span><span> </span><span class="annot"><span class="hs-identifier hs-type">KnownSymbol</span></span><span> </span><span class="annot"><a href="#local-6989586621679163196"><span class="hs-identifier hs-type">s</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCString"><span class="hs-identifier hs-type">VCString</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163196"><span class="hs-identifier hs-type">s</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-87"></span><span> </span><span id="local-6989586621679163194"><span class="annot"><span class="annottext">reflectValueConst :: proxy ('VCString s) -> ConstValue
|
||||
</span><a href="#local-6989586621679163194"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('VCString s)
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Text -> ConstValue
|
||||
</span><span class="hs-identifier hs-var">GQL.ConstString</span></span><span> </span><span class="annot"><span class="annottext">(Text -> ConstValue) -> Text -> ConstValue
|
||||
forall a b. (a -> b) -> a -> b
|
||||
@ -224,27 +224,27 @@ KnownSymbol n =>
|
||||
proxy n -> String
|
||||
</span><span class="hs-identifier hs-var">symbolVal</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy s
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163197"><span class="hs-identifier hs-type">s</span></a></span><span class="hs-special">)</span></span><span>
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163196"><span class="hs-identifier hs-type">s</span></a></span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-88"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCBoolean"><span class="hs-identifier hs-type">VCBoolean</span></a></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">True</span></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-89"></span><span> </span><span id="local-6989586621679163191"><span class="annot"><span class="annottext">reflectValueConst :: proxy ('VCBoolean 'True) -> ConstValue
|
||||
</span><a href="#local-6989586621679163191"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('VCBoolean 'True)
|
||||
</span><span id="line-89"></span><span> </span><span id="local-6989586621679163190"><span class="annot"><span class="annottext">reflectValueConst :: proxy ('VCBoolean 'True) -> ConstValue
|
||||
</span><a href="#local-6989586621679163190"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('VCBoolean 'True)
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -> ConstValue
|
||||
</span><span class="hs-identifier hs-var">GQL.ConstBoolean</span></span><span> </span><span class="annot"><span class="annottext">Bool
|
||||
</span><span class="hs-identifier hs-var">True</span></span><span>
|
||||
</span><span id="line-90"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCBoolean"><span class="hs-identifier hs-type">VCBoolean</span></a></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">False</span></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-91"></span><span> </span><span id="local-6989586621679163189"><span class="annot"><span class="annottext">reflectValueConst :: proxy ('VCBoolean 'False) -> ConstValue
|
||||
</span><a href="#local-6989586621679163189"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('VCBoolean 'False)
|
||||
</span><span id="line-91"></span><span> </span><span id="local-6989586621679163188"><span class="annot"><span class="annottext">reflectValueConst :: proxy ('VCBoolean 'False) -> ConstValue
|
||||
</span><a href="#local-6989586621679163188"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('VCBoolean 'False)
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool -> ConstValue
|
||||
</span><span class="hs-identifier hs-var">GQL.ConstBoolean</span></span><span> </span><span class="annot"><span class="annottext">Bool
|
||||
</span><span class="hs-identifier hs-var">False</span></span><span>
|
||||
</span><span id="line-92"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="hs-special">'</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCNull"><span class="hs-identifier hs-type">VCNull</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-93"></span><span> </span><span id="local-6989586621679163187"><span class="annot"><span class="annottext">reflectValueConst :: proxy 'VCNull -> ConstValue
|
||||
</span><a href="#local-6989586621679163187"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy 'VCNull
|
||||
</span><span id="line-93"></span><span> </span><span id="local-6989586621679163186"><span class="annot"><span class="annottext">reflectValueConst :: proxy 'VCNull -> ConstValue
|
||||
</span><a href="#local-6989586621679163186"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy 'VCNull
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ConstValue
|
||||
</span><span class="hs-identifier hs-var">GQL.ConstNull</span></span><span>
|
||||
</span><span id="line-94"></span><span id="local-6989586621679163186"><span class="hs-keyword">instance</span><span> </span><span class="annot"><span class="hs-identifier hs-type">KnownSymbol</span></span><span> </span><span class="annot"><a href="#local-6989586621679163186"><span class="hs-identifier hs-type">e</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCEnum"><span class="hs-identifier hs-type">VCEnum</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163186"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-95"></span><span> </span><span id="local-6989586621679163184"><span class="annot"><span class="annottext">reflectValueConst :: proxy ('VCEnum e) -> ConstValue
|
||||
</span><a href="#local-6989586621679163184"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('VCEnum e)
|
||||
</span><span id="line-94"></span><span id="local-6989586621679163185"><span class="hs-keyword">instance</span><span> </span><span class="annot"><span class="hs-identifier hs-type">KnownSymbol</span></span><span> </span><span class="annot"><a href="#local-6989586621679163185"><span class="hs-identifier hs-type">e</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCEnum"><span class="hs-identifier hs-type">VCEnum</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163185"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-95"></span><span> </span><span id="local-6989586621679163183"><span class="annot"><span class="annottext">reflectValueConst :: proxy ('VCEnum e) -> ConstValue
|
||||
</span><a href="#local-6989586621679163183"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('VCEnum e)
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Text -> ConstValue
|
||||
</span><span class="hs-identifier hs-var">GQL.ConstString</span></span><span> </span><span class="annot"><span class="annottext">(Text -> ConstValue) -> Text -> ConstValue
|
||||
forall a b. (a -> b) -> a -> b
|
||||
@ -257,10 +257,10 @@ KnownSymbol n =>
|
||||
proxy n -> String
|
||||
</span><span class="hs-identifier hs-var">symbolVal</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy e
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163186"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-96"></span><span id="local-6989586621679163183"><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstList"><span class="hs-identifier hs-type">ReflectValueConstList</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163183"><span class="hs-identifier hs-type">xs</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCList"><span class="hs-identifier hs-type">VCList</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163183"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-97"></span><span> </span><span id="local-6989586621679163181"><span class="annot"><span class="annottext">reflectValueConst :: proxy ('VCList xs) -> ConstValue
|
||||
</span><a href="#local-6989586621679163181"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('VCList xs)
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163185"><span class="hs-identifier hs-type">e</span></a></span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-96"></span><span id="local-6989586621679163182"><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstList"><span class="hs-identifier hs-type">ReflectValueConstList</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163182"><span class="hs-identifier hs-type">xs</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCList"><span class="hs-identifier hs-type">VCList</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163182"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-97"></span><span> </span><span id="local-6989586621679163180"><span class="annot"><span class="annottext">reflectValueConst :: proxy ('VCList xs) -> ConstValue
|
||||
</span><a href="#local-6989586621679163180"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('VCList xs)
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Node ConstValue] -> ConstValue
|
||||
</span><span class="hs-identifier hs-var">GQL.ConstList</span></span><span> </span><span class="annot"><span class="annottext">([Node ConstValue] -> ConstValue)
|
||||
-> [Node ConstValue] -> ConstValue
|
||||
@ -283,10 +283,10 @@ ReflectValueConstList xs =>
|
||||
proxy xs -> [ConstValue]
|
||||
</span><a href="Mu.GraphQL.Annotations.html#reflectValueConstList"><span class="hs-identifier hs-var">reflectValueConstList</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy xs
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163183"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-99"></span><span id="local-6989586621679163178"><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstObject"><span class="hs-identifier hs-type">ReflectValueConstObject</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163178"><span class="hs-identifier hs-type">xs</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCObject"><span class="hs-identifier hs-type">VCObject</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163178"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-100"></span><span> </span><span id="local-6989586621679163176"><span class="annot"><span class="annottext">reflectValueConst :: proxy ('VCObject xs) -> ConstValue
|
||||
</span><a href="#local-6989586621679163176"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('VCObject xs)
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163182"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-99"></span><span id="local-6989586621679163177"><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstObject"><span class="hs-identifier hs-type">ReflectValueConstObject</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163177"><span class="hs-identifier hs-type">xs</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#VCObject"><span class="hs-identifier hs-type">VCObject</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163177"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-100"></span><span> </span><span id="local-6989586621679163175"><span class="annot"><span class="annottext">reflectValueConst :: proxy ('VCObject xs) -> ConstValue
|
||||
</span><a href="#local-6989586621679163175"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConst</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('VCObject xs)
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[ObjectField ConstValue] -> ConstValue
|
||||
</span><span class="hs-identifier hs-var">GQL.ConstObject</span></span><span> </span><span class="annot"><span class="annottext">([ObjectField ConstValue] -> ConstValue)
|
||||
-> [ObjectField ConstValue] -> ConstValue
|
||||
@ -297,18 +297,18 @@ ReflectValueConstObject xs =>
|
||||
proxy xs -> [ObjectField ConstValue]
|
||||
</span><a href="Mu.GraphQL.Annotations.html#reflectValueConstObject"><span class="hs-identifier hs-var">reflectValueConstObject</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy xs
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163178"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span></span><span>
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163177"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-101"></span><span>
|
||||
</span><span id="line-102"></span><span class="hs-keyword">class</span><span> </span><span id="ReflectValueConstList"><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstList"><span class="hs-identifier hs-var">ReflectValueConstList</span></a></span></span><span> </span><span id="local-6989586621679163259"><span class="annot"><a href="#local-6989586621679163259"><span class="hs-identifier hs-type">xs</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-103"></span><span> </span><span id="local-6989586621679163258"><span id="reflectValueConstList"><span class="annot"><a href="Mu.GraphQL.Annotations.html#reflectValueConstList"><span class="hs-identifier hs-type">reflectValueConstList</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679163258"><span class="hs-identifier hs-type">proxy</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163259"><span class="hs-identifier hs-type">xs</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">GQL.ConstValue</span></span><span class="hs-special">]</span></span><span>
|
||||
</span><span id="line-102"></span><span class="hs-keyword">class</span><span> </span><span id="ReflectValueConstList"><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstList"><span class="hs-identifier hs-var">ReflectValueConstList</span></a></span></span><span> </span><span id="local-6989586621679163258"><span class="annot"><a href="#local-6989586621679163258"><span class="hs-identifier hs-type">xs</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-103"></span><span> </span><span id="local-6989586621679163257"><span id="reflectValueConstList"><span class="annot"><a href="Mu.GraphQL.Annotations.html#reflectValueConstList"><span class="hs-identifier hs-type">reflectValueConstList</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679163257"><span class="hs-identifier hs-type">proxy</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163258"><span class="hs-identifier hs-type">xs</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">GQL.ConstValue</span></span><span class="hs-special">]</span></span><span>
|
||||
</span><span id="line-104"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstList"><span class="hs-identifier hs-type">ReflectValueConstList</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-105"></span><span> </span><span id="local-6989586621679163172"><span class="annot"><span class="annottext">reflectValueConstList :: proxy '[] -> [ConstValue]
|
||||
</span><a href="#local-6989586621679163172"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConstList</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy '[]
|
||||
</span><span id="line-105"></span><span> </span><span id="local-6989586621679163171"><span class="annot"><span class="annottext">reflectValueConstList :: proxy '[] -> [ConstValue]
|
||||
</span><a href="#local-6989586621679163171"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConstList</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy '[]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-106"></span><span id="local-6989586621679163170"><span id="local-6989586621679163171"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163171"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstList"><span class="hs-identifier hs-type">ReflectValueConstList</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163170"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-107"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstList"><span class="hs-identifier hs-type">ReflectValueConstList</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679163171"><span class="hs-identifier hs-type">x</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679163170"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-108"></span><span> </span><span id="local-6989586621679163168"><span class="annot"><span class="annottext">reflectValueConstList :: proxy (x : xs) -> [ConstValue]
|
||||
</span><a href="#local-6989586621679163168"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConstList</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy (x : xs)
|
||||
</span><span id="line-106"></span><span id="local-6989586621679163169"><span id="local-6989586621679163170"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163170"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstList"><span class="hs-identifier hs-type">ReflectValueConstList</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163169"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-107"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstList"><span class="hs-identifier hs-type">ReflectValueConstList</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679163170"><span class="hs-identifier hs-type">x</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679163169"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-108"></span><span> </span><span id="local-6989586621679163167"><span class="annot"><span class="annottext">reflectValueConstList :: proxy (x : xs) -> [ConstValue]
|
||||
</span><a href="#local-6989586621679163167"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConstList</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy (x : xs)
|
||||
</span><span class="hs-identifier">_</span></span><span>
|
||||
</span><span id="line-109"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Proxy x -> ConstValue
|
||||
forall nat symbol (v :: ValueConst nat symbol)
|
||||
@ -317,7 +317,7 @@ ReflectValueConst v =>
|
||||
proxy v -> ConstValue
|
||||
</span><a href="Mu.GraphQL.Annotations.html#reflectValueConst"><span class="hs-identifier hs-var">reflectValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy x
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163171"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ConstValue -> [ConstValue] -> [ConstValue]
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163170"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ConstValue -> [ConstValue] -> [ConstValue]
|
||||
forall a. a -> [a] -> [a]
|
||||
</span><span class="hs-glyph hs-var">:</span></span><span> </span><span class="annot"><span class="annottext">Proxy xs -> [ConstValue]
|
||||
forall k (xs :: k) (proxy :: k -> *).
|
||||
@ -325,18 +325,18 @@ ReflectValueConstList xs =>
|
||||
proxy xs -> [ConstValue]
|
||||
</span><a href="Mu.GraphQL.Annotations.html#reflectValueConstList"><span class="hs-identifier hs-var">reflectValueConstList</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy xs
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163170"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163169"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-110"></span><span>
|
||||
</span><span id="line-111"></span><span class="hs-keyword">class</span><span> </span><span id="ReflectValueConstObject"><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstObject"><span class="hs-identifier hs-var">ReflectValueConstObject</span></a></span></span><span> </span><span id="local-6989586621679163250"><span class="annot"><a href="#local-6989586621679163250"><span class="hs-identifier hs-type">xs</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-112"></span><span> </span><span id="local-6989586621679163249"><span id="reflectValueConstObject"><span class="annot"><a href="Mu.GraphQL.Annotations.html#reflectValueConstObject"><span class="hs-identifier hs-type">reflectValueConstObject</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679163249"><span class="hs-identifier hs-type">proxy</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163250"><span class="hs-identifier hs-type">xs</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">GQL.ObjectField</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstValue</span></span><span class="hs-special">]</span></span><span>
|
||||
</span><span id="line-111"></span><span class="hs-keyword">class</span><span> </span><span id="ReflectValueConstObject"><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstObject"><span class="hs-identifier hs-var">ReflectValueConstObject</span></a></span></span><span> </span><span id="local-6989586621679163249"><span class="annot"><a href="#local-6989586621679163249"><span class="hs-identifier hs-type">xs</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-112"></span><span> </span><span id="local-6989586621679163248"><span id="reflectValueConstObject"><span class="annot"><a href="Mu.GraphQL.Annotations.html#reflectValueConstObject"><span class="hs-identifier hs-type">reflectValueConstObject</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679163248"><span class="hs-identifier hs-type">proxy</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163249"><span class="hs-identifier hs-type">xs</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">GQL.ObjectField</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstValue</span></span><span class="hs-special">]</span></span><span>
|
||||
</span><span id="line-113"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstObject"><span class="hs-identifier hs-type">ReflectValueConstObject</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-114"></span><span> </span><span id="local-6989586621679163165"><span class="annot"><span class="annottext">reflectValueConstObject :: proxy '[] -> [ObjectField ConstValue]
|
||||
</span><a href="#local-6989586621679163165"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConstObject</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy '[]
|
||||
</span><span id="line-114"></span><span> </span><span id="local-6989586621679163164"><span class="annot"><span class="annottext">reflectValueConstObject :: proxy '[] -> [ObjectField ConstValue]
|
||||
</span><a href="#local-6989586621679163164"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConstObject</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy '[]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-115"></span><span id="local-6989586621679163162"><span id="local-6989586621679163163"><span id="local-6989586621679163164"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">KnownSymbol</span></span><span> </span><span class="annot"><a href="#local-6989586621679163164"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163163"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstObject"><span class="hs-identifier hs-type">ReflectValueConstObject</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163162"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-116"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstObject"><span class="hs-identifier hs-type">ReflectValueConstObject</span></a></span><span> </span><span class="hs-special">(</span><span> </span><span class="hs-special">'</span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679163164"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679163163"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679163162"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-117"></span><span> </span><span id="local-6989586621679163160"><span class="annot"><span class="annottext">reflectValueConstObject :: proxy ('(a, x) : xs) -> [ObjectField ConstValue]
|
||||
</span><a href="#local-6989586621679163160"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConstObject</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('(a, x) : xs)
|
||||
</span><span id="line-115"></span><span id="local-6989586621679163161"><span id="local-6989586621679163162"><span id="local-6989586621679163163"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">KnownSymbol</span></span><span> </span><span class="annot"><a href="#local-6989586621679163163"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConst"><span class="hs-identifier hs-type">ReflectValueConst</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163162"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstObject"><span class="hs-identifier hs-type">ReflectValueConstObject</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163161"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-116"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Annotations.html#ReflectValueConstObject"><span class="hs-identifier hs-type">ReflectValueConstObject</span></a></span><span> </span><span class="hs-special">(</span><span> </span><span class="hs-special">'</span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679163163"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679163162"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679163161"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-117"></span><span> </span><span id="local-6989586621679163159"><span class="annot"><span class="annottext">reflectValueConstObject :: proxy ('(a, x) : xs) -> [ObjectField ConstValue]
|
||||
</span><a href="#local-6989586621679163159"><span class="hs-identifier hs-var hs-var hs-var hs-var">reflectValueConstObject</span></a></span></span><span> </span><span class="annot"><span class="annottext">proxy ('(a, x) : xs)
|
||||
</span><span class="hs-identifier">_</span></span><span>
|
||||
</span><span id="line-118"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Text -> Node ConstValue -> Location -> ObjectField ConstValue
|
||||
forall a. Text -> Node a -> Location -> ObjectField a
|
||||
@ -349,7 +349,7 @@ KnownSymbol n =>
|
||||
proxy n -> String
|
||||
</span><span class="hs-identifier hs-var">symbolVal</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy a
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163164"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163163"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-119"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ConstValue -> Location -> Node ConstValue
|
||||
forall a. a -> Location -> Node a
|
||||
</span><span class="hs-identifier hs-var">GQL.Node</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy x -> ConstValue
|
||||
@ -359,10 +359,10 @@ ReflectValueConst v =>
|
||||
proxy v -> ConstValue
|
||||
</span><a href="Mu.GraphQL.Annotations.html#reflectValueConst"><span class="hs-identifier hs-var">reflectValueConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy x
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163163"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Location
|
||||
</span><a href="#local-6989586621679163159"><span class="hs-identifier hs-var">zl</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163162"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Location
|
||||
</span><a href="#local-6989586621679163158"><span class="hs-identifier hs-var">zl</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-120"></span><span> </span><span class="annot"><span class="annottext">Location
|
||||
</span><a href="#local-6989586621679163159"><span class="hs-identifier hs-var">zl</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163158"><span class="hs-identifier hs-var">zl</span></a></span><span>
|
||||
</span><span id="line-121"></span><span> </span><span class="annot"><span class="annottext">ObjectField ConstValue
|
||||
-> [ObjectField ConstValue] -> [ObjectField ConstValue]
|
||||
forall a. a -> [a] -> [a]
|
||||
@ -372,9 +372,9 @@ ReflectValueConstObject xs =>
|
||||
proxy xs -> [ObjectField ConstValue]
|
||||
</span><a href="Mu.GraphQL.Annotations.html#reflectValueConstObject"><span class="hs-identifier hs-var">reflectValueConstObject</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy xs
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163162"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-122"></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679163159"><span class="annot"><span class="annottext">zl :: Location
|
||||
</span><a href="#local-6989586621679163159"><span class="hs-identifier hs-var hs-var">zl</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Word -> Word -> Location
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679163161"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-122"></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679163158"><span class="annot"><span class="annottext">zl :: Location
|
||||
</span><a href="#local-6989586621679163158"><span class="hs-identifier hs-var hs-var">zl</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Word -> Word -> Location
|
||||
</span><span class="hs-identifier hs-var">GQL.Location</span></span><span> </span><span class="annot"><span class="annottext">Word
|
||||
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">Word
|
||||
</span><span class="hs-number">0</span></span></span></span></span><span>
|
||||
|
@ -12,8 +12,8 @@
|
||||
</span><span id="line-12"></span><span>
|
||||
</span><span id="line-13"></span><span class="annot"><a href="Mu.GraphQL.Quasi.LostParser.html#parseDoc"><span class="hs-identifier hs-type">parseDoc</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Either</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">GQL.Definition</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-14"></span><span id="parseDoc"><span class="annot"><span class="annottext">parseDoc :: Text -> Either Text [Definition]
|
||||
</span><a href="Mu.GraphQL.Quasi.LostParser.html#parseDoc"><span class="hs-identifier hs-var hs-var">parseDoc</span></a></span></span><span> </span><span id="local-6989586621679163349"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163349"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a href="Mu.GraphQL.Quasi.LostParser.html#parseDoc"><span class="hs-identifier hs-var hs-var">parseDoc</span></a></span></span><span> </span><span id="local-6989586621679163348"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163348"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-15"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Parsec Void Text Document
|
||||
-> String -> Text -> Either (ParseErrorBundle Text Void) Document
|
||||
forall e s a.
|
||||
@ -21,16 +21,16 @@ Parsec e s a -> String -> s -> Either (ParseErrorBundle s e) a
|
||||
</span><span class="hs-identifier hs-var">runParser</span></span><span> </span><span class="annot"><span class="annottext">Parsec Void Text Document
|
||||
</span><span class="hs-identifier hs-var">document</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"<doc>"</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163349"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-16"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679163348"><span class="annot"><span class="annottext">Document
|
||||
</span><a href="#local-6989586621679163348"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">[Definition] -> Either Text [Definition]
|
||||
</span><a href="#local-6989586621679163348"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-16"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679163347"><span class="annot"><span class="annottext">Document
|
||||
</span><a href="#local-6989586621679163347"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">[Definition] -> Either Text [Definition]
|
||||
forall a b. b -> Either a b
|
||||
</span><span class="hs-identifier hs-var">Right</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Document -> [Definition]
|
||||
forall (t :: * -> *) a. Foldable t => t a -> [a]
|
||||
</span><span class="hs-identifier hs-var">toList</span></span><span> </span><span class="annot"><span class="annottext">Document
|
||||
</span><a href="#local-6989586621679163348"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-17"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679163347"><span class="annot"><span class="annottext">ParseErrorBundle Text Void
|
||||
</span><a href="#local-6989586621679163347"><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="annottext">Text -> Either Text [Definition]
|
||||
</span><a href="#local-6989586621679163347"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-17"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679163346"><span class="annot"><span class="annottext">ParseErrorBundle Text Void
|
||||
</span><a href="#local-6989586621679163346"><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="annottext">Text -> Either Text [Definition]
|
||||
forall a b. a -> Either a b
|
||||
</span><span class="hs-identifier hs-var">Left</span></span><span> </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) -> String -> Text
|
||||
@ -38,12 +38,12 @@ forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">ParseErrorBundle Text Void -> String
|
||||
forall a. Show a => a -> String
|
||||
</span><span class="hs-identifier hs-var">show</span></span><span> </span><span class="annot"><span class="annottext">ParseErrorBundle Text Void
|
||||
</span><a href="#local-6989586621679163347"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679163346"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-18"></span><span>
|
||||
</span><span id="line-19"></span><span class="annot"><a href="Mu.GraphQL.Quasi.LostParser.html#parseTypeSysDefinition"><span class="hs-identifier hs-type">parseTypeSysDefinition</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Either</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeSystemDefinition</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-20"></span><span id="parseTypeSysDefinition"><span class="annot"><span class="annottext">parseTypeSysDefinition :: Text -> Either Text [TypeSystemDefinition]
|
||||
</span><a href="Mu.GraphQL.Quasi.LostParser.html#parseTypeSysDefinition"><span class="hs-identifier hs-var hs-var">parseTypeSysDefinition</span></a></span></span><span> </span><span id="local-6989586621679163344"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163344"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a href="Mu.GraphQL.Quasi.LostParser.html#parseTypeSysDefinition"><span class="hs-identifier hs-var hs-var">parseTypeSysDefinition</span></a></span></span><span> </span><span id="local-6989586621679163343"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163343"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-21"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Parsec Void Text Document
|
||||
-> String -> Text -> Either (ParseErrorBundle Text Void) Document
|
||||
forall e s a.
|
||||
@ -51,36 +51,36 @@ Parsec e s a -> String -> s -> Either (ParseErrorBundle s e) a
|
||||
</span><span class="hs-identifier hs-var">runParser</span></span><span> </span><span class="annot"><span class="annottext">Parsec Void Text Document
|
||||
</span><span class="hs-identifier hs-var">document</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"<doc>"</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163344"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a href="#local-6989586621679163343"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-22"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Document -> [Definition]
|
||||
forall (t :: * -> *) a. Foldable t => t a -> [a]
|
||||
</span><span class="hs-identifier hs-var">toList</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span id="local-6989586621679163343"><span class="annot"><span class="annottext">[Definition]
|
||||
</span><a href="#local-6989586621679163343"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-23"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679163342"><span class="annot"><span class="annottext">tds :: [TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163342"><span class="hs-identifier hs-var hs-var">tds</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">TypeSystemDefinition
|
||||
</span><a href="#local-6989586621679163341"><span class="hs-identifier hs-var">td</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeSystemDefinition</span></span><span> </span><span id="local-6989586621679163341"><span class="annot"><span class="annottext">TypeSystemDefinition
|
||||
</span><a href="#local-6989586621679163341"><span class="hs-identifier hs-var">td</span></a></span></span><span> </span><span class="annot"><span class="annottext">Location
|
||||
</span><span class="hs-identifier hs-var">toList</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span id="local-6989586621679163342"><span class="annot"><span class="annottext">[Definition]
|
||||
</span><a href="#local-6989586621679163342"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-23"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679163341"><span class="annot"><span class="annottext">tds :: [TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163341"><span class="hs-identifier hs-var hs-var">tds</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">TypeSystemDefinition
|
||||
</span><a href="#local-6989586621679163340"><span class="hs-identifier hs-var">td</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeSystemDefinition</span></span><span> </span><span id="local-6989586621679163340"><span class="annot"><span class="annottext">TypeSystemDefinition
|
||||
</span><a href="#local-6989586621679163340"><span class="hs-identifier hs-var">td</span></a></span></span><span> </span><span class="annot"><span class="annottext">Location
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">[Definition]
|
||||
</span><a href="#local-6989586621679163343"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><a href="#local-6989586621679163342"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-24"></span><span> </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">if</span><span> </span><span class="annot"><span class="annottext">[Definition] -> Int
|
||||
forall (t :: * -> *) a. Foldable t => t a -> Int
|
||||
</span><span class="hs-identifier hs-var">length</span></span><span> </span><span class="annot"><span class="annottext">[Definition]
|
||||
</span><a href="#local-6989586621679163343"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="annot"><span class="annottext">Int -> Int -> Bool
|
||||
</span><a href="#local-6989586621679163342"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="annot"><span class="annottext">Int -> Int -> Bool
|
||||
forall a. Eq a => a -> a -> Bool
|
||||
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">[TypeSystemDefinition] -> Int
|
||||
forall (t :: * -> *) a. Foldable t => t a -> Int
|
||||
</span><span class="hs-identifier hs-var">length</span></span><span> </span><span class="annot"><span class="annottext">[TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163342"><span class="hs-identifier hs-var">tds</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163341"><span class="hs-identifier hs-var">tds</span></a></span><span>
|
||||
</span><span id="line-25"></span><span> </span><span class="hs-keyword">then</span><span> </span><span class="annot"><span class="annottext">[TypeSystemDefinition] -> Either Text [TypeSystemDefinition]
|
||||
forall a b. b -> Either a b
|
||||
</span><span class="hs-identifier hs-var">Right</span></span><span> </span><span class="annot"><span class="annottext">[TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163342"><span class="hs-identifier hs-var">tds</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163341"><span class="hs-identifier hs-var">tds</span></a></span><span>
|
||||
</span><span id="line-26"></span><span> </span><span class="hs-keyword">else</span><span> </span><span class="annot"><span class="annottext">Text -> Either Text [TypeSystemDefinition]
|
||||
forall a b. a -> Either a b
|
||||
</span><span class="hs-identifier hs-var">Left</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"unexpected query or type system extension"</span></span><span>
|
||||
</span><span id="line-27"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679163338"><span class="annot"><span class="annottext">ParseErrorBundle Text Void
|
||||
</span><a href="#local-6989586621679163338"><span class="hs-identifier hs-var">e</span></a></span></span><span>
|
||||
</span><span id="line-27"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679163337"><span class="annot"><span class="annottext">ParseErrorBundle Text Void
|
||||
</span><a href="#local-6989586621679163337"><span class="hs-identifier hs-var">e</span></a></span></span><span>
|
||||
</span><span id="line-28"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> Either Text [TypeSystemDefinition]
|
||||
forall a b. a -> Either a b
|
||||
</span><span class="hs-identifier hs-var">Left</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -> Text
|
||||
@ -89,5 +89,5 @@ forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">ParseErrorBundle Text Void -> String
|
||||
forall a. Show a => a -> String
|
||||
</span><span class="hs-identifier hs-var">show</span></span><span> </span><span class="annot"><span class="annottext">ParseErrorBundle Text Void
|
||||
</span><a href="#local-6989586621679163338"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679163337"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-29"></span></pre></body></html>
|
@ -38,14 +38,14 @@ and 'Package' with one 'Service' per object in the schema.
|
||||
</span><span id="line-38"></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-comment">-- ^ Route to the file</span><span>
|
||||
</span><span id="line-39"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">Dec</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-40"></span><span id="graphql"><span class="annot"><span class="annottext">graphql :: String -> String -> Q [Dec]
|
||||
</span><a href="Mu.GraphQL.Quasi.html#graphql"><span class="hs-identifier hs-var hs-var">graphql</span></a></span></span><span> </span><span id="local-6989586621679163565"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163565"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Primitives -> String -> String -> String -> Q [Dec]
|
||||
</span><a href="Mu.GraphQL.Quasi.html#graphql"><span class="hs-identifier hs-var hs-var">graphql</span></a></span></span><span> </span><span id="local-6989586621679163564"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163564"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Primitives -> String -> String -> String -> Q [Dec]
|
||||
</span><a href="Mu.GraphQL.Quasi.html#graphql%27"><span class="hs-identifier hs-var">graphql'</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163565"><span class="hs-identifier hs-var">name</span></a></span><span> </span><span class="annot"><span class="annottext">String -> String -> String
|
||||
</span><a href="#local-6989586621679163564"><span class="hs-identifier hs-var">name</span></a></span><span> </span><span class="annot"><span class="annottext">String -> String -> String
|
||||
forall a. Semigroup 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">"Schema"</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163565"><span class="hs-identifier hs-var">name</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163564"><span class="hs-identifier hs-var">name</span></a></span><span>
|
||||
</span><span id="line-41"></span><span>
|
||||
</span><span id="line-42"></span><span class="hs-comment">-- | Imports an GraphQL schema definition from a file.</span><span>
|
||||
</span><span id="line-43"></span><span class="annot"><a href="Mu.GraphQL.Quasi.html#graphqlWithExtendedPrimitives"><span class="hs-identifier hs-type">graphqlWithExtendedPrimitives</span></a></span><span>
|
||||
@ -54,16 +54,16 @@ forall a. Semigroup a => a -> a -> a
|
||||
</span><span id="line-46"></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-comment">-- ^ Route to the file</span><span>
|
||||
</span><span id="line-47"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">Dec</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-48"></span><span id="graphqlWithExtendedPrimitives"><span class="annot"><span class="annottext">graphqlWithExtendedPrimitives :: Primitives -> String -> String -> Q [Dec]
|
||||
</span><a href="Mu.GraphQL.Quasi.html#graphqlWithExtendedPrimitives"><span class="hs-identifier hs-var hs-var">graphqlWithExtendedPrimitives</span></a></span></span><span> </span><span id="local-6989586621679163564"><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163564"><span class="hs-identifier hs-var">prims</span></a></span></span><span> </span><span id="local-6989586621679163563"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163563"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Primitives -> String -> String -> String -> Q [Dec]
|
||||
</span><a href="Mu.GraphQL.Quasi.html#graphqlWithExtendedPrimitives"><span class="hs-identifier hs-var hs-var">graphqlWithExtendedPrimitives</span></a></span></span><span> </span><span id="local-6989586621679163563"><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163563"><span class="hs-identifier hs-var">prims</span></a></span></span><span> </span><span id="local-6989586621679163562"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163562"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Primitives -> String -> String -> String -> Q [Dec]
|
||||
</span><a href="Mu.GraphQL.Quasi.html#graphql%27"><span class="hs-identifier hs-var">graphql'</span></a></span><span> </span><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163564"><span class="hs-identifier hs-var">prims</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163563"><span class="hs-identifier hs-var">name</span></a></span><span> </span><span class="annot"><span class="annottext">String -> String -> String
|
||||
</span><a href="#local-6989586621679163563"><span class="hs-identifier hs-var">prims</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163562"><span class="hs-identifier hs-var">name</span></a></span><span> </span><span class="annot"><span class="annottext">String -> String -> String
|
||||
forall a. Semigroup 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">"Schema"</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163563"><span class="hs-identifier hs-var">name</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163562"><span class="hs-identifier hs-var">name</span></a></span><span>
|
||||
</span><span id="line-49"></span><span>
|
||||
</span><span id="line-50"></span><span class="hs-comment">-- | Imports an GraphQL schema definition from a file.</span><span>
|
||||
</span><span id="line-51"></span><span class="annot"><a href="Mu.GraphQL.Quasi.html#graphql%27"><span class="hs-identifier hs-type">graphql'</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#Primitives"><span class="hs-identifier hs-type">Primitives</span></a></span><span>
|
||||
@ -72,24 +72,24 @@ forall a. Semigroup a => a -> a -> a
|
||||
</span><span id="line-54"></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-comment">-- ^ Route to the file</span><span>
|
||||
</span><span id="line-55"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">Dec</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-56"></span><span id="graphql%27"><span class="annot"><span class="annottext">graphql' :: Primitives -> String -> String -> String -> Q [Dec]
|
||||
</span><a href="Mu.GraphQL.Quasi.html#graphql%27"><span class="hs-identifier hs-var hs-var">graphql'</span></a></span></span><span> </span><span id="local-6989586621679163562"><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163562"><span class="hs-identifier hs-var">prims</span></a></span></span><span> </span><span id="local-6989586621679163561"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163561"><span class="hs-identifier hs-var">scName</span></a></span></span><span> </span><span id="local-6989586621679163560"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163560"><span class="hs-identifier hs-var">svName</span></a></span></span><span> </span><span id="local-6989586621679163559"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163559"><span class="hs-identifier hs-var">file</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-57"></span><span> </span><span id="local-6989586621679163558"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163558"><span class="hs-identifier hs-var">schema</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">IO Text -> Q Text
|
||||
</span><a href="Mu.GraphQL.Quasi.html#graphql%27"><span class="hs-identifier hs-var hs-var">graphql'</span></a></span></span><span> </span><span id="local-6989586621679163561"><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163561"><span class="hs-identifier hs-var">prims</span></a></span></span><span> </span><span id="local-6989586621679163560"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163560"><span class="hs-identifier hs-var">scName</span></a></span></span><span> </span><span id="local-6989586621679163559"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163559"><span class="hs-identifier hs-var">svName</span></a></span></span><span> </span><span id="local-6989586621679163558"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163558"><span class="hs-identifier hs-var">file</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-57"></span><span> </span><span id="local-6989586621679163557"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163557"><span class="hs-identifier hs-var">schema</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">IO Text -> Q Text
|
||||
forall (m :: * -> *) a. MonadIO m => IO a -> m a
|
||||
</span><span class="hs-identifier hs-var">liftIO</span></span><span> </span><span class="annot"><span class="annottext">(IO Text -> Q Text) -> IO Text -> Q Text
|
||||
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 -> IO Text
|
||||
</span><span class="hs-identifier hs-var">TIO.readFile</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163559"><span class="hs-identifier hs-var">file</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163558"><span class="hs-identifier hs-var">file</span></a></span><span>
|
||||
</span><span id="line-58"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Text -> Either Text [TypeSystemDefinition]
|
||||
</span><a href="Mu.GraphQL.Quasi.LostParser.html#parseTypeSysDefinition"><span class="hs-identifier hs-var">parseTypeSysDefinition</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163558"><span class="hs-identifier hs-var">schema</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-59"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679163556"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163556"><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="annottext">String -> Q [Dec]
|
||||
</span><a href="#local-6989586621679163557"><span class="hs-identifier hs-var">schema</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-59"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679163555"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163555"><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="annottext">String -> Q [Dec]
|
||||
forall (m :: * -> *) a. MonadFail m => String -> m a
|
||||
</span><span class="hs-identifier hs-var">fail</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"could not parse graphql spec: "</span></span><span> </span><span class="annot"><span class="annottext">String -> String -> String
|
||||
@ -97,17 +97,17 @@ forall a. [a] -> [a] -> [a]
|
||||
</span><span class="hs-operator hs-var">++</span></span><span> </span><span class="annot"><span class="annottext">Text -> String
|
||||
forall a. Show a => a -> String
|
||||
</span><span class="hs-identifier hs-var">show</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163556"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-60"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679163554"><span class="annot"><span class="annottext">[TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163554"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Primitives -> String -> String -> [TypeSystemDefinition] -> Q [Dec]
|
||||
</span><a href="#local-6989586621679163555"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-60"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679163553"><span class="annot"><span class="annottext">[TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163553"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Primitives -> String -> String -> [TypeSystemDefinition] -> Q [Dec]
|
||||
</span><a href="Mu.GraphQL.Quasi.html#graphqlToDecls"><span class="hs-identifier hs-var">graphqlToDecls</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="Mu.GraphQL.Quasi.html#basicPrimitives"><span class="hs-identifier hs-var">basicPrimitives</span></a></span><span> </span><span class="annot"><span class="annottext">Primitives -> Primitives -> Primitives
|
||||
forall a. Semigroup a => a -> a -> a
|
||||
</span><span class="hs-operator hs-var"><></span></span><span> </span><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163562"><span class="hs-identifier hs-var">prims</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163561"><span class="hs-identifier hs-var">scName</span></a></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163560"><span class="hs-identifier hs-var">svName</span></a></span><span> </span><span class="annot"><span class="annottext">[TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163554"><span class="hs-identifier hs-var">p</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163561"><span class="hs-identifier hs-var">prims</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163560"><span class="hs-identifier hs-var">scName</span></a></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163559"><span class="hs-identifier hs-var">svName</span></a></span><span> </span><span class="annot"><span class="annottext">[TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163553"><span class="hs-identifier hs-var">p</span></a></span><span>
|
||||
</span><span id="line-61"></span><span>
|
||||
</span><span id="line-62"></span><span class="hs-keyword">type</span><span> </span><span id="Primitives"><span class="annot"><a href="Mu.GraphQL.Quasi.html#Primitives"><span class="hs-identifier hs-var">Primitives</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.Name</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">TypeQ</span></span><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-63"></span><span>
|
||||
@ -153,45 +153,45 @@ forall (t :: * -> *) b a.
|
||||
Foldable t =>
|
||||
(b -> a -> b) -> b -> t a -> b
|
||||
</span><span class="hs-identifier hs-var">foldl'</span></span><span> </span><span class="annot"><span class="annottext">SchemaMap -> TypeSystemDefinition -> SchemaMap
|
||||
</span><a href="#local-6989586621679163540"><span class="hs-identifier hs-var">schemaToMap</span></a></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163539"><span class="hs-identifier hs-var">schemaToMap</span></a></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
forall k v. HashMap k v
|
||||
</span><span class="hs-identifier hs-var">HM.empty</span></span><span>
|
||||
</span><span id="line-92"></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-93"></span><span> </span><span class="annot"><a href="#local-6989586621679163540"><span class="hs-identifier hs-type">schemaToMap</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#SchemaMap"><span class="hs-identifier hs-type">SchemaMap</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeSystemDefinition</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#SchemaMap"><span class="hs-identifier hs-type">SchemaMap</span></a></span><span>
|
||||
</span><span id="line-94"></span><span> </span><span id="local-6989586621679163540"><span class="annot"><span class="annottext">schemaToMap :: SchemaMap -> TypeSystemDefinition -> SchemaMap
|
||||
</span><a href="#local-6989586621679163540"><span class="hs-identifier hs-var hs-var">schemaToMap</span></a></span></span><span> </span><span id="local-6989586621679163538"><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163538"><span class="hs-identifier hs-var">mp</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.SchemaDefinition</span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span id="line-93"></span><span> </span><span class="annot"><a href="#local-6989586621679163539"><span class="hs-identifier hs-type">schemaToMap</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#SchemaMap"><span class="hs-identifier hs-type">SchemaMap</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeSystemDefinition</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#SchemaMap"><span class="hs-identifier hs-type">SchemaMap</span></a></span><span>
|
||||
</span><span id="line-94"></span><span> </span><span id="local-6989586621679163539"><span class="annot"><span class="annottext">schemaToMap :: SchemaMap -> TypeSystemDefinition -> SchemaMap
|
||||
</span><a href="#local-6989586621679163539"><span class="hs-identifier hs-var hs-var">schemaToMap</span></a></span></span><span> </span><span id="local-6989586621679163537"><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163537"><span class="hs-identifier hs-var">mp</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.SchemaDefinition</span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">NonEmpty OperationTypeDefinition -> [OperationTypeDefinition]
|
||||
forall (t :: * -> *) a. Foldable t => t a -> [a]
|
||||
</span><span class="hs-identifier hs-var">toList</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span id="local-6989586621679163536"><span class="annot"><span class="annottext">[OperationTypeDefinition]
|
||||
</span><a href="#local-6989586621679163536"><span class="hs-identifier hs-var">ops</span></a></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">(SchemaMap -> OperationTypeDefinition -> SchemaMap)
|
||||
</span><span class="hs-identifier hs-var">toList</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span id="local-6989586621679163535"><span class="annot"><span class="annottext">[OperationTypeDefinition]
|
||||
</span><a href="#local-6989586621679163535"><span class="hs-identifier hs-var">ops</span></a></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">(SchemaMap -> OperationTypeDefinition -> SchemaMap)
|
||||
-> SchemaMap -> [OperationTypeDefinition] -> SchemaMap
|
||||
forall (t :: * -> *) b a.
|
||||
Foldable t =>
|
||||
(b -> a -> b) -> b -> t a -> b
|
||||
</span><span class="hs-identifier hs-var">foldl'</span></span><span> </span><span class="annot"><span class="annottext">SchemaMap -> OperationTypeDefinition -> SchemaMap
|
||||
</span><a href="#local-6989586621679163535"><span class="hs-identifier hs-var">operationToKeyValue</span></a></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163538"><span class="hs-identifier hs-var">mp</span></a></span><span> </span><span class="annot"><span class="annottext">[OperationTypeDefinition]
|
||||
</span><a href="#local-6989586621679163536"><span class="hs-identifier hs-var">ops</span></a></span><span>
|
||||
</span><span id="line-95"></span><span> </span><span class="annot"><a href="#local-6989586621679163540"><span class="hs-identifier hs-var">schemaToMap</span></a></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163534"><span class="hs-identifier hs-var">operationToKeyValue</span></a></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163537"><span class="hs-identifier hs-var">mp</span></a></span><span> </span><span class="annot"><span class="annottext">[OperationTypeDefinition]
|
||||
</span><a href="#local-6989586621679163535"><span class="hs-identifier hs-var">ops</span></a></span><span>
|
||||
</span><span id="line-95"></span><span> </span><span class="annot"><a href="#local-6989586621679163539"><span class="hs-identifier hs-var">schemaToMap</span></a></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">TypeSystemDefinition
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -> SchemaMap
|
||||
forall a. HasCallStack => String -> a
|
||||
</span><span class="hs-identifier hs-var">error</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"this should have been taken care by graphqlToDecls"</span></span><span>
|
||||
</span><span id="line-96"></span><span> </span><span class="annot"><a href="#local-6989586621679163535"><span class="hs-identifier hs-type">operationToKeyValue</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#SchemaMap"><span class="hs-identifier hs-type">SchemaMap</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.OperationTypeDefinition</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#SchemaMap"><span class="hs-identifier hs-type">SchemaMap</span></a></span><span>
|
||||
</span><span id="line-97"></span><span> </span><span id="local-6989586621679163535"><span class="annot"><span class="annottext">operationToKeyValue :: SchemaMap -> OperationTypeDefinition -> SchemaMap
|
||||
</span><a href="#local-6989586621679163535"><span class="hs-identifier hs-var hs-var">operationToKeyValue</span></a></span></span><span> </span><span id="local-6989586621679163533"><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163533"><span class="hs-identifier hs-var">mp</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.OperationTypeDefinition</span></span><span> </span><span id="local-6989586621679163531"><span class="annot"><span class="annottext">OperationType
|
||||
</span><a href="#local-6989586621679163531"><span class="hs-identifier hs-var">opType</span></a></span></span><span> </span><span id="local-6989586621679163530"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163530"><span class="hs-identifier hs-var">name</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Text -> OperationType -> SchemaMap -> SchemaMap
|
||||
</span><span id="line-96"></span><span> </span><span class="annot"><a href="#local-6989586621679163534"><span class="hs-identifier hs-type">operationToKeyValue</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#SchemaMap"><span class="hs-identifier hs-type">SchemaMap</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.OperationTypeDefinition</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#SchemaMap"><span class="hs-identifier hs-type">SchemaMap</span></a></span><span>
|
||||
</span><span id="line-97"></span><span> </span><span id="local-6989586621679163534"><span class="annot"><span class="annottext">operationToKeyValue :: SchemaMap -> OperationTypeDefinition -> SchemaMap
|
||||
</span><a href="#local-6989586621679163534"><span class="hs-identifier hs-var hs-var">operationToKeyValue</span></a></span></span><span> </span><span id="local-6989586621679163532"><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163532"><span class="hs-identifier hs-var">mp</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.OperationTypeDefinition</span></span><span> </span><span id="local-6989586621679163530"><span class="annot"><span class="annottext">OperationType
|
||||
</span><a href="#local-6989586621679163530"><span class="hs-identifier hs-var">opType</span></a></span></span><span> </span><span id="local-6989586621679163529"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163529"><span class="hs-identifier hs-var">name</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Text -> OperationType -> SchemaMap -> SchemaMap
|
||||
forall k v.
|
||||
(Eq k, Hashable k) =>
|
||||
k -> v -> HashMap k v -> HashMap k v
|
||||
</span><span class="hs-identifier hs-var">HM.insert</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163530"><span class="hs-identifier hs-var">name</span></a></span><span> </span><span class="annot"><span class="annottext">OperationType
|
||||
</span><a href="#local-6989586621679163531"><span class="hs-identifier hs-var">opType</span></a></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163533"><span class="hs-identifier hs-var">mp</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163529"><span class="hs-identifier hs-var">name</span></a></span><span> </span><span class="annot"><span class="annottext">OperationType
|
||||
</span><a href="#local-6989586621679163530"><span class="hs-identifier hs-var">opType</span></a></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163532"><span class="hs-identifier hs-var">mp</span></a></span><span>
|
||||
</span><span id="line-98"></span><span>
|
||||
</span><span id="line-99"></span><span class="annot"><a href="Mu.GraphQL.Quasi.html#classify"><span class="hs-identifier hs-type">classify</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">GQL.TypeDefinition</span></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#TypeMap"><span class="hs-identifier hs-type">TypeMap</span></a></span><span>
|
||||
</span><span id="line-100"></span><span id="classify"><span class="annot"><span class="annottext">classify :: [TypeDefinition] -> TypeMap
|
||||
@ -203,60 +203,60 @@ forall k v. (Eq k, Hashable k) => [(k, v)] -> HashMap k v
|
||||
-> TypeMap
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TypeDefinition -> (Text, GQLType)
|
||||
</span><a href="#local-6989586621679163525"><span class="hs-identifier hs-var">typeToKeyValue</span></a></span><span> </span><span class="annot"><span class="annottext">(TypeDefinition -> (Text, GQLType))
|
||||
</span><a href="#local-6989586621679163524"><span class="hs-identifier hs-var">typeToKeyValue</span></a></span><span> </span><span class="annot"><span class="annottext">(TypeDefinition -> (Text, GQLType))
|
||||
-> [TypeDefinition] -> [(Text, GQLType)]
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-101"></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-102"></span><span> </span><span class="annot"><a href="#local-6989586621679163525"><span class="hs-identifier hs-type">typeToKeyValue</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeDefinition</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#GQLType"><span class="hs-identifier hs-type">GQLType</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-103"></span><span> </span><span id="local-6989586621679163525"><span class="annot"><span class="annottext">typeToKeyValue :: TypeDefinition -> (Text, GQLType)
|
||||
</span><a href="#local-6989586621679163525"><span class="hs-identifier hs-var hs-var">typeToKeyValue</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ScalarTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163522"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163522"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span id="line-102"></span><span> </span><span class="annot"><a href="#local-6989586621679163524"><span class="hs-identifier hs-type">typeToKeyValue</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeDefinition</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#GQLType"><span class="hs-identifier hs-type">GQLType</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-103"></span><span> </span><span id="local-6989586621679163524"><span class="annot"><span class="annottext">typeToKeyValue :: TypeDefinition -> (Text, GQLType)
|
||||
</span><a href="#local-6989586621679163524"><span class="hs-identifier hs-var hs-var">typeToKeyValue</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ScalarTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163521"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163521"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-104"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163522"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">GQLType
|
||||
</span><a href="#local-6989586621679163521"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">GQLType
|
||||
</span><a href="Mu.GraphQL.Quasi.html#Scalar"><span class="hs-identifier hs-var">Scalar</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-105"></span><span> </span><span class="annot"><a href="#local-6989586621679163525"><span class="hs-identifier hs-var">typeToKeyValue</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ObjectTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163520"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163520"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">ImplementsInterfaces []
|
||||
</span><span id="line-105"></span><span> </span><span class="annot"><a href="#local-6989586621679163524"><span class="hs-identifier hs-var">typeToKeyValue</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ObjectTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163519"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163519"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">ImplementsInterfaces []
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">[FieldDefinition]
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-106"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163520"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">GQLType
|
||||
</span><a href="#local-6989586621679163519"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">GQLType
|
||||
</span><a href="Mu.GraphQL.Quasi.html#Object"><span class="hs-identifier hs-var">Object</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-107"></span><span> </span><span class="annot"><a href="#local-6989586621679163525"><span class="hs-identifier hs-var">typeToKeyValue</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.InterfaceTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163518"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163518"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span id="line-107"></span><span> </span><span class="annot"><a href="#local-6989586621679163524"><span class="hs-identifier hs-var">typeToKeyValue</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.InterfaceTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163517"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163517"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">[FieldDefinition]
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-108"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163518"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">GQLType
|
||||
</span><a href="#local-6989586621679163517"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">GQLType
|
||||
</span><a href="Mu.GraphQL.Quasi.html#Interface"><span class="hs-identifier hs-var">Interface</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-109"></span><span> </span><span class="annot"><a href="#local-6989586621679163525"><span class="hs-identifier hs-var">typeToKeyValue</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.UnionTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163516"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163516"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span id="line-109"></span><span> </span><span class="annot"><a href="#local-6989586621679163524"><span class="hs-identifier hs-var">typeToKeyValue</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.UnionTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163515"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163515"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">UnionMemberTypes []
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-110"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163516"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">GQLType
|
||||
</span><a href="#local-6989586621679163515"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">GQLType
|
||||
</span><a href="Mu.GraphQL.Quasi.html#Union"><span class="hs-identifier hs-var">Union</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-111"></span><span> </span><span class="annot"><a href="#local-6989586621679163525"><span class="hs-identifier hs-var">typeToKeyValue</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.EnumTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163514"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163514"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span id="line-111"></span><span> </span><span class="annot"><a href="#local-6989586621679163524"><span class="hs-identifier hs-var">typeToKeyValue</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.EnumTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163513"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163513"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">[EnumValueDefinition]
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-112"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163514"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">GQLType
|
||||
</span><a href="#local-6989586621679163513"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">GQLType
|
||||
</span><a href="Mu.GraphQL.Quasi.html#Enum"><span class="hs-identifier hs-var">Enum</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-113"></span><span> </span><span class="annot"><a href="#local-6989586621679163525"><span class="hs-identifier hs-var">typeToKeyValue</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.InputObjectTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163512"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163512"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span id="line-113"></span><span> </span><span class="annot"><a href="#local-6989586621679163524"><span class="hs-identifier hs-var">typeToKeyValue</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.InputObjectTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163511"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163511"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">[InputValueDefinition]
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-114"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163512"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">GQLType
|
||||
</span><a href="#local-6989586621679163511"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">GQLType
|
||||
</span><a href="Mu.GraphQL.Quasi.html#InputObject"><span class="hs-identifier hs-var">InputObject</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-115"></span><span>
|
||||
</span><span id="line-116"></span><span class="hs-comment">-- | Constructs the GraphQL tree splitting between Schemas and Services.</span><span>
|
||||
@ -265,112 +265,112 @@ forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span id="line-119"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span><span>
|
||||
</span><span id="line-120"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeSystemDefinition</span></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">Dec</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-121"></span><span id="graphqlToDecls"><span class="annot"><span class="annottext">graphqlToDecls :: Primitives -> String -> String -> [TypeSystemDefinition] -> Q [Dec]
|
||||
</span><a href="Mu.GraphQL.Quasi.html#graphqlToDecls"><span class="hs-identifier hs-var hs-var">graphqlToDecls</span></a></span></span><span> </span><span id="local-6989586621679163511"><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163511"><span class="hs-identifier hs-var">prims</span></a></span></span><span> </span><span id="local-6989586621679163510"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163510"><span class="hs-identifier hs-var">schemaName</span></a></span></span><span> </span><span id="local-6989586621679163509"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163509"><span class="hs-identifier hs-var">serviceName</span></a></span></span><span> </span><span id="local-6989586621679163508"><span class="annot"><span class="annottext">[TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163508"><span class="hs-identifier hs-var">allTypes</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-122"></span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679163507"><span class="annot"><span class="annottext">schemaName' :: Name
|
||||
</span><a href="#local-6989586621679163507"><span class="hs-identifier hs-var hs-var">schemaName'</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -> Name
|
||||
</span><a href="Mu.GraphQL.Quasi.html#graphqlToDecls"><span class="hs-identifier hs-var hs-var">graphqlToDecls</span></a></span></span><span> </span><span id="local-6989586621679163510"><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163510"><span class="hs-identifier hs-var">prims</span></a></span></span><span> </span><span id="local-6989586621679163509"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163509"><span class="hs-identifier hs-var">schemaName</span></a></span></span><span> </span><span id="local-6989586621679163508"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163508"><span class="hs-identifier hs-var">serviceName</span></a></span></span><span> </span><span id="local-6989586621679163507"><span class="annot"><span class="annottext">[TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163507"><span class="hs-identifier hs-var">allTypes</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-122"></span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679163506"><span class="annot"><span class="annottext">schemaName' :: Name
|
||||
</span><a href="#local-6989586621679163506"><span class="hs-identifier hs-var hs-var">schemaName'</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -> Name
|
||||
</span><span class="hs-identifier hs-var">mkName</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163510"><span class="hs-identifier hs-var">schemaName</span></a></span><span>
|
||||
</span><span id="line-123"></span><span> </span><span id="local-6989586621679163506"><span class="annot"><span class="annottext">serviceName' :: Name
|
||||
</span><a href="#local-6989586621679163506"><span class="hs-identifier hs-var hs-var">serviceName'</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -> Name
|
||||
</span><a href="#local-6989586621679163509"><span class="hs-identifier hs-var">schemaName</span></a></span><span>
|
||||
</span><span id="line-123"></span><span> </span><span id="local-6989586621679163505"><span class="annot"><span class="annottext">serviceName' :: Name
|
||||
</span><a href="#local-6989586621679163505"><span class="hs-identifier hs-var hs-var">serviceName'</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -> Name
|
||||
</span><span class="hs-identifier hs-var">mkName</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679163509"><span class="hs-identifier hs-var">serviceName</span></a></span><span>
|
||||
</span><span id="line-124"></span><span> </span><span id="local-6989586621679163505"><span class="annot"><span class="annottext">types :: [TypeDefinition]
|
||||
</span><a href="#local-6989586621679163505"><span class="hs-identifier hs-var hs-var">types</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">TypeDefinition
|
||||
</span><a href="#local-6989586621679163504"><span class="hs-identifier hs-var">t</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeDefinition</span></span><span> </span><span id="local-6989586621679163504"><span class="annot"><span class="annottext">TypeDefinition
|
||||
</span><a href="#local-6989586621679163504"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">[TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163508"><span class="hs-identifier hs-var">allTypes</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-125"></span><span> </span><span id="local-6989586621679163502"><span class="annot"><span class="annottext">schTypes :: [TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163502"><span class="hs-identifier hs-var hs-var">schTypes</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">TypeSystemDefinition
|
||||
</span><a href="#local-6989586621679163501"><span class="hs-identifier hs-var">t</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="local-6989586621679163501"><span class="annot"><span class="annottext">t :: TypeSystemDefinition
|
||||
</span><a href="#local-6989586621679163501"><span class="hs-identifier hs-var">t</span></a></span></span><span class="hs-glyph">@</span><span class="annot"><span class="hs-identifier hs-type">GQL.SchemaDefinition</span></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">[TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163508"><span class="hs-identifier hs-var">allTypes</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-126"></span><span> </span><span id="local-6989586621679163500"><span class="annot"><span class="annottext">typeMap :: TypeMap
|
||||
</span><a href="#local-6989586621679163500"><span class="hs-identifier hs-var hs-var">typeMap</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[TypeDefinition] -> TypeMap
|
||||
</span><a href="#local-6989586621679163508"><span class="hs-identifier hs-var">serviceName</span></a></span><span>
|
||||
</span><span id="line-124"></span><span> </span><span id="local-6989586621679163504"><span class="annot"><span class="annottext">types :: [TypeDefinition]
|
||||
</span><a href="#local-6989586621679163504"><span class="hs-identifier hs-var hs-var">types</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">TypeDefinition
|
||||
</span><a href="#local-6989586621679163503"><span class="hs-identifier hs-var">t</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeDefinition</span></span><span> </span><span id="local-6989586621679163503"><span class="annot"><span class="annottext">TypeDefinition
|
||||
</span><a href="#local-6989586621679163503"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">[TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163507"><span class="hs-identifier hs-var">allTypes</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-125"></span><span> </span><span id="local-6989586621679163501"><span class="annot"><span class="annottext">schTypes :: [TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163501"><span class="hs-identifier hs-var hs-var">schTypes</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">TypeSystemDefinition
|
||||
</span><a href="#local-6989586621679163500"><span class="hs-identifier hs-var">t</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="local-6989586621679163500"><span class="annot"><span class="annottext">t :: TypeSystemDefinition
|
||||
</span><a href="#local-6989586621679163500"><span class="hs-identifier hs-var">t</span></a></span></span><span class="hs-glyph">@</span><span class="annot"><span class="hs-identifier hs-type">GQL.SchemaDefinition</span></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">[TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163507"><span class="hs-identifier hs-var">allTypes</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-126"></span><span> </span><span id="local-6989586621679163499"><span class="annot"><span class="annottext">typeMap :: TypeMap
|
||||
</span><a href="#local-6989586621679163499"><span class="hs-identifier hs-var hs-var">typeMap</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[TypeDefinition] -> TypeMap
|
||||
</span><a href="Mu.GraphQL.Quasi.html#classify"><span class="hs-identifier hs-var">classify</span></a></span><span> </span><span class="annot"><span class="annottext">[TypeDefinition]
|
||||
</span><a href="#local-6989586621679163505"><span class="hs-identifier hs-var">types</span></a></span><span>
|
||||
</span><span id="line-127"></span><span> </span><span id="local-6989586621679163499"><span class="annot"><span class="annottext">schMap :: SchemaMap
|
||||
</span><a href="#local-6989586621679163499"><span class="hs-identifier hs-var hs-var">schMap</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[TypeSystemDefinition] -> SchemaMap
|
||||
</span><a href="#local-6989586621679163504"><span class="hs-identifier hs-var">types</span></a></span><span>
|
||||
</span><span id="line-127"></span><span> </span><span id="local-6989586621679163498"><span class="annot"><span class="annottext">schMap :: SchemaMap
|
||||
</span><a href="#local-6989586621679163498"><span class="hs-identifier hs-var hs-var">schMap</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[TypeSystemDefinition] -> SchemaMap
|
||||
</span><a href="Mu.GraphQL.Quasi.html#classifySchema"><span class="hs-identifier hs-var">classifySchema</span></a></span><span> </span><span class="annot"><span class="annottext">[TypeSystemDefinition]
|
||||
</span><a href="#local-6989586621679163502"><span class="hs-identifier hs-var">schTypes</span></a></span><span>
|
||||
</span><span id="line-128"></span><span> </span><span id="local-6989586621679163498"><span class="annot"><span class="annottext">[Result]
|
||||
</span><a href="#local-6989586621679163498"><span class="hs-identifier hs-var">rs</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">(TypeDefinition -> Q Result) -> [TypeDefinition] -> Q [Result]
|
||||
</span><a href="#local-6989586621679163501"><span class="hs-identifier hs-var">schTypes</span></a></span><span>
|
||||
</span><span id="line-128"></span><span> </span><span id="local-6989586621679163497"><span class="annot"><span class="annottext">[Result]
|
||||
</span><a href="#local-6989586621679163497"><span class="hs-identifier hs-var">rs</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">(TypeDefinition -> Q Result) -> [TypeDefinition] -> Q [Result]
|
||||
forall (t :: * -> *) (f :: * -> *) a b.
|
||||
(Traversable t, Applicative f) =>
|
||||
(a -> f b) -> t a -> f (t b)
|
||||
</span><span class="hs-identifier hs-var">traverse</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Primitives
|
||||
-> Name -> TypeMap -> SchemaMap -> TypeDefinition -> Q Result
|
||||
</span><a href="Mu.GraphQL.Quasi.html#typeToDec"><span class="hs-identifier hs-var">typeToDec</span></a></span><span> </span><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163511"><span class="hs-identifier hs-var">prims</span></a></span><span> </span><span class="annot"><span class="annottext">Name
|
||||
</span><a href="#local-6989586621679163507"><span class="hs-identifier hs-var">schemaName'</span></a></span><span> </span><span class="annot"><span class="annottext">TypeMap
|
||||
</span><a href="#local-6989586621679163500"><span class="hs-identifier hs-var">typeMap</span></a></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163499"><span class="hs-identifier hs-var">schMap</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[TypeDefinition]
|
||||
</span><a href="#local-6989586621679163505"><span class="hs-identifier hs-var">types</span></a></span><span>
|
||||
</span><span id="line-129"></span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679163495"><span class="annot"><span class="annottext">schemaTypes :: [Type]
|
||||
</span><a href="#local-6989586621679163495"><span class="hs-identifier hs-var hs-var">schemaTypes</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163494"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#GQLSchema"><span class="hs-identifier hs-type">GQLSchema</span></a></span><span> </span><span id="local-6989586621679163494"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163494"><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">[Result]
|
||||
</span><a href="#local-6989586621679163498"><span class="hs-identifier hs-var">rs</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-130"></span><span> </span><span id="local-6989586621679163493"><span class="annot"><span class="annottext">serviceTypes :: [Type]
|
||||
</span><a href="#local-6989586621679163493"><span class="hs-identifier hs-var hs-var">serviceTypes</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163492"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#GQLService"><span class="hs-identifier hs-type">GQLService</span></a></span><span> </span><span id="local-6989586621679163492"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163492"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="annot"><span class="annottext">[(Text, (Text, (Text, Type)))]
|
||||
</span><a href="#local-6989586621679163510"><span class="hs-identifier hs-var">prims</span></a></span><span> </span><span class="annot"><span class="annottext">Name
|
||||
</span><a href="#local-6989586621679163506"><span class="hs-identifier hs-var">schemaName'</span></a></span><span> </span><span class="annot"><span class="annottext">TypeMap
|
||||
</span><a href="#local-6989586621679163499"><span class="hs-identifier hs-var">typeMap</span></a></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163498"><span class="hs-identifier hs-var">schMap</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[TypeDefinition]
|
||||
</span><a href="#local-6989586621679163504"><span class="hs-identifier hs-var">types</span></a></span><span>
|
||||
</span><span id="line-129"></span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679163494"><span class="annot"><span class="annottext">schemaTypes :: [Type]
|
||||
</span><a href="#local-6989586621679163494"><span class="hs-identifier hs-var hs-var">schemaTypes</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163493"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#GQLSchema"><span class="hs-identifier hs-type">GQLSchema</span></a></span><span> </span><span id="local-6989586621679163493"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163493"><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">[Result]
|
||||
</span><a href="#local-6989586621679163497"><span class="hs-identifier hs-var">rs</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-130"></span><span> </span><span id="local-6989586621679163492"><span class="annot"><span class="annottext">serviceTypes :: [Type]
|
||||
</span><a href="#local-6989586621679163492"><span class="hs-identifier hs-var hs-var">serviceTypes</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163491"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#GQLService"><span class="hs-identifier hs-type">GQLService</span></a></span><span> </span><span id="local-6989586621679163491"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163491"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="annot"><span class="annottext">[(Text, (Text, (Text, Type)))]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">[Result]
|
||||
</span><a href="#local-6989586621679163498"><span class="hs-identifier hs-var">rs</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-131"></span><span> </span><span id="local-6989586621679163491"><span class="annot"><span class="annottext">defaultDefs :: [(Text, (Text, (Text, Type)))]
|
||||
</span><a href="#local-6989586621679163491"><span class="hs-identifier hs-var hs-var">defaultDefs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[[(Text, (Text, (Text, Type)))]] -> [(Text, (Text, (Text, Type)))]
|
||||
</span><a href="#local-6989586621679163497"><span class="hs-identifier hs-var">rs</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-131"></span><span> </span><span id="local-6989586621679163490"><span class="annot"><span class="annottext">defaultDefs :: [(Text, (Text, (Text, Type)))]
|
||||
</span><a href="#local-6989586621679163490"><span class="hs-identifier hs-var hs-var">defaultDefs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[[(Text, (Text, (Text, Type)))]] -> [(Text, (Text, (Text, Type)))]
|
||||
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
|
||||
</span><span class="hs-identifier hs-var">concat</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">[(Text, (Text, (Text, Type)))]
|
||||
</span><a href="#local-6989586621679163489"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#GQLService"><span class="hs-identifier hs-type">GQLService</span></a></span><span> </span><span class="annot"><span class="annottext">Type
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163489"><span class="annot"><span class="annottext">[(Text, (Text, (Text, Type)))]
|
||||
</span><a href="#local-6989586621679163489"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">[Result]
|
||||
</span><a href="#local-6989586621679163498"><span class="hs-identifier hs-var">rs</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-132"></span><span> </span><span id="local-6989586621679163488"><span class="annot"><span class="annottext">Dec
|
||||
</span><a href="#local-6989586621679163488"><span class="hs-identifier hs-var">schemaDec</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Name -> [TyVarBndr] -> TypeQ -> DecQ
|
||||
</span><a href="#local-6989586621679163488"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#GQLService"><span class="hs-identifier hs-type">GQLService</span></a></span><span> </span><span class="annot"><span class="annottext">Type
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163488"><span class="annot"><span class="annottext">[(Text, (Text, (Text, Type)))]
|
||||
</span><a href="#local-6989586621679163488"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">[Result]
|
||||
</span><a href="#local-6989586621679163497"><span class="hs-identifier hs-var">rs</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-132"></span><span> </span><span id="local-6989586621679163487"><span class="annot"><span class="annottext">Dec
|
||||
</span><a href="#local-6989586621679163487"><span class="hs-identifier hs-var">schemaDec</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Name -> [TyVarBndr] -> TypeQ -> DecQ
|
||||
</span><span class="hs-identifier hs-var">tySynD</span></span><span> </span><span class="annot"><span class="annottext">Name
|
||||
</span><a href="#local-6989586621679163507"><span class="hs-identifier hs-var">schemaName'</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Type -> TypeQ
|
||||
</span><a href="#local-6989586621679163506"><span class="hs-identifier hs-var">schemaName'</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Type -> TypeQ
|
||||
forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
</span><span class="hs-identifier hs-var">pure</span></span><span> </span><span class="annot"><span class="annottext">(Type -> TypeQ) -> Type -> TypeQ
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">[Type] -> Type
|
||||
</span><a href="Mu.GraphQL.Quasi.html#typesToList"><span class="hs-identifier hs-var">typesToList</span></a></span><span> </span><span class="annot"><span class="annottext">[Type]
|
||||
</span><a href="#local-6989586621679163495"><span class="hs-identifier hs-var">schemaTypes</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-133"></span><span> </span><span id="local-6989586621679163485"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163485"><span class="hs-identifier hs-var">pkgTy</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">Package</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="hs-identifier">Just</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-operator">$</span><span> </span><span class="hs-identifier">T.pack</span><span> </span><span class="hs-identifier">serviceName</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679163494"><span class="hs-identifier hs-var">schemaTypes</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-133"></span><span> </span><span id="local-6989586621679163484"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163484"><span class="hs-identifier hs-var">pkgTy</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">Package</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="hs-identifier">Just</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-operator">$</span><span> </span><span class="hs-identifier">T.pack</span><span> </span><span class="hs-identifier">serviceName</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-134"></span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">pure</span><span> </span><span class="hs-operator">$</span><span> </span><span class="hs-identifier">typesToList</span><span> </span><span class="hs-identifier">serviceTypes</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-135"></span><span> </span><span id="local-6989586621679163484"><span class="annot"><span class="annottext">Dec
|
||||
</span><a href="#local-6989586621679163484"><span class="hs-identifier hs-var">serviceDec</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Name -> [TyVarBndr] -> TypeQ -> DecQ
|
||||
</span><span id="line-135"></span><span> </span><span id="local-6989586621679163483"><span class="annot"><span class="annottext">Dec
|
||||
</span><a href="#local-6989586621679163483"><span class="hs-identifier hs-var">serviceDec</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Name -> [TyVarBndr] -> TypeQ -> DecQ
|
||||
</span><span class="hs-identifier hs-var">tySynD</span></span><span> </span><span class="annot"><span class="annottext">Name
|
||||
</span><a href="#local-6989586621679163506"><span class="hs-identifier hs-var">serviceName'</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Type -> TypeQ
|
||||
</span><a href="#local-6989586621679163505"><span class="hs-identifier hs-var">serviceName'</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Type -> TypeQ
|
||||
forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
</span><span class="hs-identifier hs-var">pure</span></span><span> </span><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163485"><span class="hs-identifier hs-var">pkgTy</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-136"></span><span> </span><span id="local-6989586621679163483"><span class="annot"><span class="annottext">[Dec]
|
||||
</span><a href="#local-6989586621679163483"><span class="hs-identifier hs-var">defaultDec</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-special">[d|</span><span> </span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier">AnnotatedPackage</span><span> </span><span class="hs-identifier">DefaultValue</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">pure</span><span> </span><span class="hs-identifier">pkgTy</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a href="#local-6989586621679163484"><span class="hs-identifier hs-var">pkgTy</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-136"></span><span> </span><span id="local-6989586621679163482"><span class="annot"><span class="annottext">[Dec]
|
||||
</span><a href="#local-6989586621679163482"><span class="hs-identifier hs-var">defaultDec</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="hs-special">[d|</span><span> </span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span class="hs-identifier">AnnotatedPackage</span><span> </span><span class="hs-identifier">DefaultValue</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">pure</span><span> </span><span class="hs-identifier">pkgTy</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-137"></span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">typesToList</span><span> </span><span class="hs-operator"><$></span><span> </span><span class="hs-identifier">traverse</span><span> </span><span class="hs-identifier">defaultDeclToTy</span><span> </span><span class="hs-identifier">defaultDefs</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-138"></span><span> </span><span class="annot"><span class="annottext">[Dec] -> Q [Dec]
|
||||
forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
</span><span class="hs-identifier hs-var">pure</span></span><span> </span><span class="annot"><span class="annottext">([Dec] -> Q [Dec]) -> [Dec] -> Q [Dec]
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">Dec
|
||||
</span><a href="#local-6989586621679163488"><span class="hs-identifier hs-var">schemaDec</span></a></span><span> </span><span class="annot"><span class="annottext">Dec -> [Dec] -> [Dec]
|
||||
</span><a href="#local-6989586621679163487"><span class="hs-identifier hs-var">schemaDec</span></a></span><span> </span><span class="annot"><span class="annottext">Dec -> [Dec] -> [Dec]
|
||||
forall a. a -> [a] -> [a]
|
||||
</span><span class="hs-glyph hs-var">:</span></span><span> </span><span class="annot"><span class="annottext">Dec
|
||||
</span><a href="#local-6989586621679163484"><span class="hs-identifier hs-var">serviceDec</span></a></span><span> </span><span class="annot"><span class="annottext">Dec -> [Dec] -> [Dec]
|
||||
</span><a href="#local-6989586621679163483"><span class="hs-identifier hs-var">serviceDec</span></a></span><span> </span><span class="annot"><span class="annottext">Dec -> [Dec] -> [Dec]
|
||||
forall a. a -> [a] -> [a]
|
||||
</span><span class="hs-glyph hs-var">:</span></span><span> </span><span class="annot"><span class="annottext">[Dec]
|
||||
</span><a href="#local-6989586621679163483"><span class="hs-identifier hs-var">defaultDec</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163482"><span class="hs-identifier hs-var">defaultDec</span></a></span><span>
|
||||
</span><span id="line-139"></span><span>
|
||||
</span><span id="line-140"></span><span class="annot"><a href="Mu.GraphQL.Quasi.html#defaultDeclToTy"><span class="hs-identifier hs-type">defaultDeclToTy</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">T.Text</span></span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-141"></span><span id="defaultDeclToTy"><span class="annot"><span class="annottext">defaultDeclToTy :: (Text, (Text, (Text, Type))) -> TypeQ
|
||||
</span><a href="Mu.GraphQL.Quasi.html#defaultDeclToTy"><span class="hs-identifier hs-var hs-var">defaultDeclToTy</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163481"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163481"><span class="hs-identifier hs-var">sn</span></a></span></span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163480"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163480"><span class="hs-identifier hs-var">mn</span></a></span></span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163479"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163479"><span class="hs-identifier hs-var">an</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679163478"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163478"><span class="hs-identifier hs-var">dv</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><a href="Mu.GraphQL.Quasi.html#defaultDeclToTy"><span class="hs-identifier hs-var hs-var">defaultDeclToTy</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163480"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163480"><span class="hs-identifier hs-var">sn</span></a></span></span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163479"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163479"><span class="hs-identifier hs-var">mn</span></a></span></span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163478"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163478"><span class="hs-identifier hs-var">an</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679163477"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163477"><span class="hs-identifier hs-var">dv</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-142"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">AnnArg</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">sn</span><span class="hs-special">)</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">mn</span><span class="hs-special">)</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">an</span><span class="hs-special">)</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">pure</span><span> </span><span class="hs-identifier">dv</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-143"></span><span>
|
||||
</span><span id="line-144"></span><span class="hs-comment">-- | Reads a GraphQL 'TypeDefinition' and returns a 'Result'.</span><span>
|
||||
@ -393,18 +393,18 @@ forall (m :: * -> *) a. MonadFail m => String -> m a
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">TypeMap
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.UnionTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163477"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163477"><span class="hs-identifier hs-var">nm</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.UnionMemberTypes</span></span><span> </span><span id="local-6989586621679163475"><span class="annot"><span class="annottext">[Text]
|
||||
</span><a href="#local-6989586621679163475"><span class="hs-identifier hs-var">elts</span></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-keyword">do</span><span>
|
||||
</span><span id="line-151"></span><span> </span><span id="local-6989586621679163474"><span class="annot"><span class="annottext">[Type]
|
||||
</span><a href="#local-6989586621679163474"><span class="hs-identifier hs-var">selts</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">(Text -> TypeQ) -> [Text] -> Q [Type]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163476"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163476"><span class="hs-identifier hs-var">nm</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.UnionMemberTypes</span></span><span> </span><span id="local-6989586621679163474"><span class="annot"><span class="annottext">[Text]
|
||||
</span><a href="#local-6989586621679163474"><span class="hs-identifier hs-var">elts</span></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-keyword">do</span><span>
|
||||
</span><span id="line-151"></span><span> </span><span id="local-6989586621679163473"><span class="annot"><span class="annottext">[Type]
|
||||
</span><a href="#local-6989586621679163473"><span class="hs-identifier hs-var">selts</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">(Text -> TypeQ) -> [Text] -> Q [Type]
|
||||
forall (t :: * -> *) (m :: * -> *) a b.
|
||||
(Traversable t, Monad m) =>
|
||||
(a -> m b) -> t a -> m (t b)
|
||||
</span><span class="hs-identifier hs-var">mapM</span></span><span> </span><span class="annot"><span class="annottext">Text -> TypeQ
|
||||
</span><a href="Mu.GraphQL.Quasi.html#textToStrLit"><span class="hs-identifier hs-var">textToStrLit</span></a></span><span> </span><span class="annot"><span class="annottext">[Text]
|
||||
</span><a href="#local-6989586621679163475"><span class="hs-identifier hs-var">elts</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163474"><span class="hs-identifier hs-var">elts</span></a></span><span>
|
||||
</span><span id="line-152"></span><span> </span><span class="annot"><span class="annottext">Type -> [(Text, (Text, (Text, Type)))] -> Result
|
||||
</span><a href="Mu.GraphQL.Quasi.html#GQLService"><span class="hs-identifier hs-var">GQLService</span></a></span><span> </span><span class="annot"><span class="annottext">(Type -> [(Text, (Text, (Text, Type)))] -> Result)
|
||||
-> TypeQ -> Q ([(Text, (Text, (Text, Type)))] -> Result)
|
||||
@ -417,36 +417,36 @@ forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f
|
||||
</span><span class="hs-operator hs-var"><*></span></span><span> </span><span class="annot"><span class="annottext">[(Text, (Text, (Text, Type)))] -> Q [(Text, (Text, (Text, Type)))]
|
||||
forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
</span><span class="hs-identifier hs-var">pure</span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-155"></span><span class="annot"><a href="Mu.GraphQL.Quasi.html#typeToDec"><span class="hs-identifier hs-var">typeToDec</span></a></span><span> </span><span id="local-6989586621679163471"><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163471"><span class="hs-identifier hs-var">prims</span></a></span></span><span> </span><span id="local-6989586621679163470"><span class="annot"><span class="annottext">Name
|
||||
</span><a href="#local-6989586621679163470"><span class="hs-identifier hs-var">schemaName</span></a></span></span><span> </span><span id="local-6989586621679163469"><span class="annot"><span class="annottext">TypeMap
|
||||
</span><a href="#local-6989586621679163469"><span class="hs-identifier hs-var">tm</span></a></span></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><span id="line-155"></span><span class="annot"><a href="Mu.GraphQL.Quasi.html#typeToDec"><span class="hs-identifier hs-var">typeToDec</span></a></span><span> </span><span id="local-6989586621679163470"><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163470"><span class="hs-identifier hs-var">prims</span></a></span></span><span> </span><span id="local-6989586621679163469"><span class="annot"><span class="annottext">Name
|
||||
</span><a href="#local-6989586621679163469"><span class="hs-identifier hs-var">schemaName</span></a></span></span><span> </span><span id="local-6989586621679163468"><span class="annot"><span class="annottext">TypeMap
|
||||
</span><a href="#local-6989586621679163468"><span class="hs-identifier hs-var">tm</span></a></span></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ScalarTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163468"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163468"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163467"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163467"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-156"></span><span> </span><span class="annot"><span class="annottext">Result
|
||||
</span><a href="Mu.GraphQL.Quasi.html#GQLScalar"><span class="hs-identifier hs-var">GQLScalar</span></a></span><span> </span><span class="annot"><span class="annottext">Result -> TypeQ -> Q Result
|
||||
forall (f :: * -> *) a b. Functor f => a -> f b -> f a
|
||||
</span><span class="hs-operator hs-var"><$</span></span><span> </span><span class="annot"><span class="annottext">Primitives -> Text -> TypeMap -> Name -> TypeQ
|
||||
</span><a href="Mu.GraphQL.Quasi.html#gqlTypeToType"><span class="hs-identifier hs-var">gqlTypeToType</span></a></span><span> </span><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163471"><span class="hs-identifier hs-var">prims</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163468"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">TypeMap
|
||||
</span><a href="#local-6989586621679163469"><span class="hs-identifier hs-var">tm</span></a></span><span> </span><span class="annot"><span class="annottext">Name
|
||||
</span><a href="#local-6989586621679163470"><span class="hs-identifier hs-var">schemaName</span></a></span><span>
|
||||
</span><span id="line-157"></span><span class="annot"><a href="Mu.GraphQL.Quasi.html#typeToDec"><span class="hs-identifier hs-var">typeToDec</span></a></span><span> </span><span id="local-6989586621679163465"><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163465"><span class="hs-identifier hs-var">prims</span></a></span></span><span> </span><span id="local-6989586621679163464"><span class="annot"><span class="annottext">Name
|
||||
</span><a href="#local-6989586621679163464"><span class="hs-identifier hs-var">schemaName</span></a></span></span><span> </span><span id="local-6989586621679163463"><span class="annot"><span class="annottext">TypeMap
|
||||
</span><a href="#local-6989586621679163463"><span class="hs-identifier hs-var">tm</span></a></span></span><span> </span><span id="local-6989586621679163462"><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163462"><span class="hs-identifier hs-var">sm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ObjectTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163461"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163461"><span class="hs-identifier hs-var">nm</span></a></span></span><span> </span><span class="annot"><span class="annottext">ImplementsInterfaces []
|
||||
</span><a href="#local-6989586621679163470"><span class="hs-identifier hs-var">prims</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163467"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">TypeMap
|
||||
</span><a href="#local-6989586621679163468"><span class="hs-identifier hs-var">tm</span></a></span><span> </span><span class="annot"><span class="annottext">Name
|
||||
</span><a href="#local-6989586621679163469"><span class="hs-identifier hs-var">schemaName</span></a></span><span>
|
||||
</span><span id="line-157"></span><span class="annot"><a href="Mu.GraphQL.Quasi.html#typeToDec"><span class="hs-identifier hs-var">typeToDec</span></a></span><span> </span><span id="local-6989586621679163464"><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163464"><span class="hs-identifier hs-var">prims</span></a></span></span><span> </span><span id="local-6989586621679163463"><span class="annot"><span class="annottext">Name
|
||||
</span><a href="#local-6989586621679163463"><span class="hs-identifier hs-var">schemaName</span></a></span></span><span> </span><span id="local-6989586621679163462"><span class="annot"><span class="annottext">TypeMap
|
||||
</span><a href="#local-6989586621679163462"><span class="hs-identifier hs-var">tm</span></a></span></span><span> </span><span id="local-6989586621679163461"><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163461"><span class="hs-identifier hs-var">sm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ObjectTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163460"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163460"><span class="hs-identifier hs-var">nm</span></a></span></span><span> </span><span class="annot"><span class="annottext">ImplementsInterfaces []
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163460"><span class="annot"><span class="annottext">[FieldDefinition]
|
||||
</span><a href="#local-6989586621679163460"><span class="hs-identifier hs-var">flds</span></a></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-158"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163459"><span class="annot"><span class="annottext">[Type]
|
||||
</span><a href="#local-6989586621679163459"><span class="hs-identifier hs-var">fieldInfos</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679163458"><span class="annot"><span class="annottext">[[(Text, (Text, Type))]]
|
||||
</span><a href="#local-6989586621679163458"><span class="hs-identifier hs-var">defaults</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">[(Type, [(Text, (Text, Type))])]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163459"><span class="annot"><span class="annottext">[FieldDefinition]
|
||||
</span><a href="#local-6989586621679163459"><span class="hs-identifier hs-var">flds</span></a></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-158"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163458"><span class="annot"><span class="annottext">[Type]
|
||||
</span><a href="#local-6989586621679163458"><span class="hs-identifier hs-var">fieldInfos</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679163457"><span class="annot"><span class="annottext">[[(Text, (Text, Type))]]
|
||||
</span><a href="#local-6989586621679163457"><span class="hs-identifier hs-var">defaults</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">[(Type, [(Text, (Text, Type))])]
|
||||
-> ([Type], [[(Text, (Text, Type))]])
|
||||
forall a b. [(a, b)] -> ([a], [b])
|
||||
</span><span class="hs-identifier hs-var">unzip</span></span><span> </span><span class="annot"><span class="annottext">([(Type, [(Text, (Text, Type))])]
|
||||
@ -460,9 +460,9 @@ forall (t :: * -> *) (f :: * -> *) a b.
|
||||
(Traversable t, Applicative f) =>
|
||||
(a -> f b) -> t a -> f (t b)
|
||||
</span><span class="hs-identifier hs-var">traverse</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> FieldDefinition -> Q (Type, [(Text, (Text, Type))])
|
||||
</span><a href="#local-6989586621679163456"><span class="hs-identifier hs-var">gqlFieldToType</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163461"><span class="hs-identifier hs-var">nm</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[FieldDefinition]
|
||||
</span><a href="#local-6989586621679163460"><span class="hs-identifier hs-var">flds</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163455"><span class="hs-identifier hs-var">gqlFieldToType</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163460"><span class="hs-identifier hs-var">nm</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[FieldDefinition]
|
||||
</span><a href="#local-6989586621679163459"><span class="hs-identifier hs-var">flds</span></a></span><span>
|
||||
</span><span id="line-159"></span><span> </span><span class="annot"><span class="annottext">Type -> [(Text, (Text, (Text, Type)))] -> Result
|
||||
</span><a href="Mu.GraphQL.Quasi.html#GQLService"><span class="hs-identifier hs-var">GQLService</span></a></span><span> </span><span class="annot"><span class="annottext">(Type -> [(Text, (Text, (Text, Type)))] -> Result)
|
||||
-> TypeQ -> Q ([(Text, (Text, (Text, Type)))] -> Result)
|
||||
@ -475,27 +475,27 @@ forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f
|
||||
</span><span class="hs-operator hs-var"><*></span></span><span> </span><span class="annot"><span class="annottext">[(Text, (Text, (Text, Type)))] -> Q [(Text, (Text, (Text, Type)))]
|
||||
forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
</span><span class="hs-identifier hs-var">pure</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163461"><span class="hs-identifier hs-var">nm</span></a></span><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Text, (Text, Type)) -> (Text, (Text, (Text, Type))))
|
||||
</span><a href="#local-6989586621679163460"><span class="hs-identifier hs-var">nm</span></a></span><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Text, (Text, Type)) -> (Text, (Text, (Text, Type))))
|
||||
-> [(Text, (Text, Type))] -> [(Text, (Text, (Text, Type)))]
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="annot"><span class="annottext">[[(Text, (Text, Type))]] -> [(Text, (Text, Type))]
|
||||
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
|
||||
</span><span class="hs-identifier hs-var">concat</span></span><span> </span><span class="annot"><span class="annottext">[[(Text, (Text, Type))]]
|
||||
</span><a href="#local-6989586621679163458"><span class="hs-identifier hs-var">defaults</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679163457"><span class="hs-identifier hs-var">defaults</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-162"></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-163"></span><span> </span><span class="annot"><a href="#local-6989586621679163456"><span class="hs-identifier hs-type">gqlFieldToType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.FieldDefinition</span></span><span>
|
||||
</span><span id="line-163"></span><span> </span><span class="annot"><a href="#local-6989586621679163455"><span class="hs-identifier hs-type">gqlFieldToType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.FieldDefinition</span></span><span>
|
||||
</span><span id="line-164"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span class="hs-special">,</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span class="hs-special">,</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-165"></span><span> </span><span id="local-6989586621679163456"><span class="annot"><span class="annottext">gqlFieldToType :: Text -> FieldDefinition -> Q (Type, [(Text, (Text, Type))])
|
||||
</span><a href="#local-6989586621679163456"><span class="hs-identifier hs-var hs-var">gqlFieldToType</span></a></span></span><span> </span><span id="local-6989586621679163455"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163455"><span class="hs-identifier hs-var">sn</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.FieldDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163453"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163453"><span class="hs-identifier hs-var">fnm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ArgumentsDefinition</span></span><span> </span><span id="local-6989586621679163451"><span class="annot"><span class="annottext">[InputValueDefinition]
|
||||
</span><a href="#local-6989586621679163451"><span class="hs-identifier hs-var">args</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679163450"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163450"><span class="hs-identifier hs-var">ftyp</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span id="line-165"></span><span> </span><span id="local-6989586621679163455"><span class="annot"><span class="annottext">gqlFieldToType :: Text -> FieldDefinition -> Q (Type, [(Text, (Text, Type))])
|
||||
</span><a href="#local-6989586621679163455"><span class="hs-identifier hs-var hs-var">gqlFieldToType</span></a></span></span><span> </span><span id="local-6989586621679163454"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163454"><span class="hs-identifier hs-var">sn</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.FieldDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163452"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163452"><span class="hs-identifier hs-var">fnm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ArgumentsDefinition</span></span><span> </span><span id="local-6989586621679163450"><span class="annot"><span class="annottext">[InputValueDefinition]
|
||||
</span><a href="#local-6989586621679163450"><span class="hs-identifier hs-var">args</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679163449"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163449"><span class="hs-identifier hs-var">ftyp</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</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-166"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163449"><span class="annot"><span class="annottext">[Type]
|
||||
</span><a href="#local-6989586621679163449"><span class="hs-identifier hs-var">argInfos</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679163448"><span class="annot"><span class="annottext">[Maybe (Text, Type)]
|
||||
</span><a href="#local-6989586621679163448"><span class="hs-identifier hs-var">defaults</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">[(Type, Maybe (Text, Type))] -> ([Type], [Maybe (Text, Type)])
|
||||
</span><span id="line-166"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163448"><span class="annot"><span class="annottext">[Type]
|
||||
</span><a href="#local-6989586621679163448"><span class="hs-identifier hs-var">argInfos</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679163447"><span class="annot"><span class="annottext">[Maybe (Text, Type)]
|
||||
</span><a href="#local-6989586621679163447"><span class="hs-identifier hs-var">defaults</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">[(Type, Maybe (Text, Type))] -> ([Type], [Maybe (Text, Type)])
|
||||
forall a b. [(a, b)] -> ([a], [b])
|
||||
</span><span class="hs-identifier hs-var">unzip</span></span><span> </span><span class="annot"><span class="annottext">([(Type, Maybe (Text, Type))] -> ([Type], [Maybe (Text, Type)]))
|
||||
-> Q [(Type, Maybe (Text, Type))]
|
||||
@ -507,8 +507,8 @@ forall (t :: * -> *) (f :: * -> *) a b.
|
||||
(Traversable t, Applicative f) =>
|
||||
(a -> f b) -> t a -> f (t b)
|
||||
</span><span class="hs-identifier hs-var">traverse</span></span><span> </span><span class="annot"><span class="annottext">InputValueDefinition -> Q (Type, Maybe (Text, Type))
|
||||
</span><a href="#local-6989586621679163447"><span class="hs-identifier hs-var">argToType</span></a></span><span> </span><span class="annot"><span class="annottext">[InputValueDefinition]
|
||||
</span><a href="#local-6989586621679163451"><span class="hs-identifier hs-var">args</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163446"><span class="hs-identifier hs-var">argToType</span></a></span><span> </span><span class="annot"><span class="annottext">[InputValueDefinition]
|
||||
</span><a href="#local-6989586621679163450"><span class="hs-identifier hs-var">args</span></a></span><span>
|
||||
</span><span id="line-167"></span><span> </span><span class="hs-special">(</span><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Type -> [(Text, (Text, Type))] -> (Type, [(Text, (Text, Type))]))
|
||||
-> TypeQ
|
||||
-> Q ([(Text, (Text, Type))] -> (Type, [(Text, (Text, Type))]))
|
||||
@ -522,33 +522,33 @@ forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f
|
||||
</span><span class="hs-operator hs-var"><*></span></span><span> </span><span class="annot"><span class="annottext">[(Text, (Text, Type))] -> Q [(Text, (Text, Type))]
|
||||
forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
</span><span class="hs-identifier hs-var">pure</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163453"><span class="hs-identifier hs-var">fnm</span></a></span><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Text, Type) -> (Text, (Text, Type)))
|
||||
</span><a href="#local-6989586621679163452"><span class="hs-identifier hs-var">fnm</span></a></span><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Text, Type) -> (Text, (Text, Type)))
|
||||
-> [(Text, Type)] -> [(Text, (Text, Type))]
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="annot"><span class="annottext">[Maybe (Text, Type)] -> [(Text, Type)]
|
||||
forall a. [Maybe a] -> [a]
|
||||
</span><span class="hs-identifier hs-var">catMaybes</span></span><span> </span><span class="annot"><span class="annottext">[Maybe (Text, Type)]
|
||||
</span><a href="#local-6989586621679163448"><span class="hs-identifier hs-var">defaults</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-171"></span><span> </span><span class="annot"><a href="#local-6989586621679163446"><span class="hs-identifier hs-type">returnType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Type</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-172"></span><span> </span><span id="local-6989586621679163446"><span class="annot"><span class="annottext">returnType :: Text -> Type -> TypeQ
|
||||
</span><a href="#local-6989586621679163446"><span class="hs-identifier hs-var hs-var">returnType</span></a></span></span><span> </span><span id="local-6989586621679163445"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163445"><span class="hs-identifier hs-var">serviceName</span></a></span></span><span> </span><span id="local-6989586621679163444"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163444"><span class="hs-identifier hs-var">typ</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a href="#local-6989586621679163447"><span class="hs-identifier hs-var">defaults</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-171"></span><span> </span><span class="annot"><a href="#local-6989586621679163445"><span class="hs-identifier hs-type">returnType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Type</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-172"></span><span> </span><span id="local-6989586621679163445"><span class="annot"><span class="annottext">returnType :: Text -> Type -> TypeQ
|
||||
</span><a href="#local-6989586621679163445"><span class="hs-identifier hs-var hs-var">returnType</span></a></span></span><span> </span><span id="local-6989586621679163444"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163444"><span class="hs-identifier hs-var">serviceName</span></a></span></span><span> </span><span id="local-6989586621679163443"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163443"><span class="hs-identifier hs-var">typ</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-173"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Text -> SchemaMap -> Maybe OperationType
|
||||
forall k v. (Eq k, Hashable k) => k -> HashMap k v -> Maybe v
|
||||
</span><span class="hs-identifier hs-var">HM.lookup</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163445"><span class="hs-identifier hs-var">serviceName</span></a></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163462"><span class="hs-identifier hs-var">sm</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a href="#local-6989586621679163444"><span class="hs-identifier hs-var">serviceName</span></a></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><a href="#local-6989586621679163461"><span class="hs-identifier hs-var">sm</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-174"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><span class="annottext">OperationType
|
||||
</span><span class="hs-identifier hs-var">GQL.Subscription</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[t|</span><span class="hs-special">'</span><span class="hs-identifier">RetStream</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">retToType</span><span> </span><span class="hs-identifier">typ</span><span class="hs-special">)</span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-175"></span><span> </span><span class="annot"><span class="annottext">Maybe OperationType
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[t|</span><span class="hs-special">'</span><span class="hs-identifier">RetSingle</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">retToType</span><span> </span><span class="hs-identifier">typ</span><span class="hs-special">)</span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-176"></span><span> </span><span class="annot"><a href="#local-6989586621679163447"><span class="hs-identifier hs-type">argToType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.InputValueDefinition</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Maybe</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-177"></span><span> </span><span id="local-6989586621679163447"><span class="annot"><span class="annottext">argToType :: InputValueDefinition -> Q (Type, Maybe (Text, Type))
|
||||
</span><a href="#local-6989586621679163447"><span class="hs-identifier hs-var hs-var">argToType</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.InputValueDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163440"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163440"><span class="hs-identifier hs-var">aname</span></a></span></span><span> </span><span id="local-6989586621679163439"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163439"><span class="hs-identifier hs-var">atype</span></a></span></span><span> </span><span class="annot"><span class="annottext">Maybe (Node ConstValue)
|
||||
</span><span id="line-176"></span><span> </span><span class="annot"><a href="#local-6989586621679163446"><span class="hs-identifier hs-type">argToType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.InputValueDefinition</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Maybe</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-177"></span><span> </span><span id="local-6989586621679163446"><span class="annot"><span class="annottext">argToType :: InputValueDefinition -> Q (Type, Maybe (Text, Type))
|
||||
</span><a href="#local-6989586621679163446"><span class="hs-identifier hs-var hs-var">argToType</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.InputValueDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163439"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163439"><span class="hs-identifier hs-var">aname</span></a></span></span><span> </span><span id="local-6989586621679163438"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163438"><span class="hs-identifier hs-var">atype</span></a></span></span><span> </span><span class="annot"><span class="annottext">Maybe (Node ConstValue)
|
||||
</span><span class="hs-identifier hs-var">Nothing</span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-178"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-special">,</span></span><span> </span><span class="annot"><span class="annottext">Maybe (Text, Type)
|
||||
@ -557,11 +557,11 @@ forall a. Maybe a
|
||||
-> TypeQ -> Q (Type, Maybe (Text, Type))
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">ArgSingle</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="hs-identifier">Just</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">aname</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">retToType</span><span> </span><span class="hs-identifier">atype</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-179"></span><span> </span><span class="annot"><a href="#local-6989586621679163447"><span class="hs-identifier hs-var">argToType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.InputValueDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163438"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163438"><span class="hs-identifier hs-var">aname</span></a></span></span><span> </span><span id="local-6989586621679163437"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163437"><span class="hs-identifier hs-var">atype</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.Node</span></span><span> </span><span id="local-6989586621679163435"><span class="annot"><span class="annottext">ConstValue
|
||||
</span><a href="#local-6989586621679163435"><span class="hs-identifier hs-var">defs</span></a></span></span><span> </span><span class="annot"><span class="annottext">Location
|
||||
</span><span id="line-179"></span><span> </span><span class="annot"><a href="#local-6989586621679163446"><span class="hs-identifier hs-var">argToType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.InputValueDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163437"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163437"><span class="hs-identifier hs-var">aname</span></a></span></span><span> </span><span id="local-6989586621679163436"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163436"><span class="hs-identifier hs-var">atype</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.Node</span></span><span> </span><span id="local-6989586621679163434"><span class="annot"><span class="annottext">ConstValue
|
||||
</span><a href="#local-6989586621679163434"><span class="hs-identifier hs-var">defs</span></a></span></span><span> </span><span class="annot"><span class="annottext">Location
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-180"></span><span> </span><span class="hs-special">(</span><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Type -> Maybe (Text, Type) -> (Type, Maybe (Text, Type)))
|
||||
@ -577,127 +577,127 @@ forall a. a -> Maybe a
|
||||
-> (Type -> (Text, Type)) -> Type -> Maybe (Text, Type)
|
||||
forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
</span><span class="hs-operator hs-var">.</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163438"><span class="hs-identifier hs-var">aname</span></a></span><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Type -> Maybe (Text, Type)) -> TypeQ -> Q (Maybe (Text, Type))
|
||||
</span><a href="#local-6989586621679163437"><span class="hs-identifier hs-var">aname</span></a></span><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Type -> Maybe (Text, Type)) -> TypeQ -> Q (Maybe (Text, Type))
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">DefaultValue</span><span> </span><span class="hs-special">$(</span><span> </span><span class="hs-identifier">defToVConst</span><span> </span><span class="hs-identifier">defs</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-182"></span><span> </span><span class="annot"><a href="#local-6989586621679163434"><span class="hs-identifier hs-type">defToVConst</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstValue</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-183"></span><span> </span><span id="local-6989586621679163434"><span class="annot"><span class="annottext">defToVConst :: ConstValue -> TypeQ
|
||||
</span><a href="#local-6989586621679163434"><span class="hs-identifier hs-var hs-var">defToVConst</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstBoolean</span></span><span> </span><span class="annot"><span class="annottext">Bool
|
||||
</span><span id="line-182"></span><span> </span><span class="annot"><a href="#local-6989586621679163433"><span class="hs-identifier hs-type">defToVConst</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstValue</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-183"></span><span> </span><span id="local-6989586621679163433"><span class="annot"><span class="annottext">defToVConst :: ConstValue -> TypeQ
|
||||
</span><a href="#local-6989586621679163433"><span class="hs-identifier hs-var hs-var">defToVConst</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstBoolean</span></span><span> </span><span class="annot"><span class="annottext">Bool
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">VCBoolean</span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-184"></span><span> </span><span class="annot"><a href="#local-6989586621679163434"><span class="hs-identifier hs-var">defToVConst</span></a></span><span> </span><span class="annot"><span class="annottext">ConstValue
|
||||
</span><span id="line-184"></span><span> </span><span class="annot"><a href="#local-6989586621679163433"><span class="hs-identifier hs-var">defToVConst</span></a></span><span> </span><span class="annot"><span class="annottext">ConstValue
|
||||
</span><span class="hs-identifier hs-var">GQL.ConstNull</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">VCNull</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-185"></span><span> </span><span class="annot"><a href="#local-6989586621679163434"><span class="hs-identifier hs-var">defToVConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstInt</span></span><span> </span><span class="annot"><span class="annottext">Int32
|
||||
</span><span id="line-185"></span><span> </span><span class="annot"><a href="#local-6989586621679163433"><span class="hs-identifier hs-var">defToVConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstInt</span></span><span> </span><span class="annot"><span class="annottext">Int32
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">VCInt</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-186"></span><span> </span><span class="annot"><a href="#local-6989586621679163434"><span class="hs-identifier hs-var">defToVConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstFloat</span></span><span> </span><span class="annot"><span class="annottext">Double
|
||||
</span><span id="line-186"></span><span> </span><span class="annot"><a href="#local-6989586621679163433"><span class="hs-identifier hs-var">defToVConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstFloat</span></span><span> </span><span class="annot"><span class="annottext">Double
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-187"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -> TypeQ
|
||||
forall (m :: * -> *) a. MonadFail m => String -> m a
|
||||
</span><span class="hs-identifier hs-var">fail</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"floats as default arguments are not supported"</span></span><span>
|
||||
</span><span id="line-188"></span><span> </span><span class="annot"><a href="#local-6989586621679163434"><span class="hs-identifier hs-var">defToVConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstString</span></span><span> </span><span id="local-6989586621679163428"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163428"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-188"></span><span> </span><span class="annot"><a href="#local-6989586621679163433"><span class="hs-identifier hs-var">defToVConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstString</span></span><span> </span><span id="local-6989586621679163427"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163427"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-189"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">VCString</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">s</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-190"></span><span> </span><span class="annot"><a href="#local-6989586621679163434"><span class="hs-identifier hs-var">defToVConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstEnum</span></span><span> </span><span id="local-6989586621679163426"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163426"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-190"></span><span> </span><span class="annot"><a href="#local-6989586621679163433"><span class="hs-identifier hs-var">defToVConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstEnum</span></span><span> </span><span id="local-6989586621679163425"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163425"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-191"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">VCEnum</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">e</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-192"></span><span> </span><span class="annot"><a href="#local-6989586621679163434"><span class="hs-identifier hs-var">defToVConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstList</span></span><span> </span><span id="local-6989586621679163424"><span class="annot"><span class="annottext">[Node ConstValue]
|
||||
</span><a href="#local-6989586621679163424"><span class="hs-identifier hs-var">xs</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-192"></span><span> </span><span class="annot"><a href="#local-6989586621679163433"><span class="hs-identifier hs-var">defToVConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstList</span></span><span> </span><span id="local-6989586621679163423"><span class="annot"><span class="annottext">[Node ConstValue]
|
||||
</span><a href="#local-6989586621679163423"><span class="hs-identifier hs-var">xs</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-193"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">VCList</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">typesToList</span><span> </span><span class="hs-operator"><$></span><span> </span><span class="hs-identifier">traverse</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">defToVConst</span><span> </span><span class="hs-operator">.</span><span> </span><span class="hs-identifier">GQL.node</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">xs</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-194"></span><span> </span><span class="annot"><a href="#local-6989586621679163434"><span class="hs-identifier hs-var">defToVConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstObject</span></span><span> </span><span id="local-6989586621679163422"><span class="annot"><span class="annottext">[ObjectField ConstValue]
|
||||
</span><a href="#local-6989586621679163422"><span class="hs-identifier hs-var">obj</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-194"></span><span> </span><span class="annot"><a href="#local-6989586621679163433"><span class="hs-identifier hs-var">defToVConst</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstObject</span></span><span> </span><span id="local-6989586621679163421"><span class="annot"><span class="annottext">[ObjectField ConstValue]
|
||||
</span><a href="#local-6989586621679163421"><span class="hs-identifier hs-var">obj</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-195"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">VCObject</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">typesToList</span><span> </span><span class="hs-operator"><$></span><span> </span><span class="hs-identifier">traverse</span><span> </span><span class="hs-identifier">fromGQLField</span><span> </span><span class="hs-identifier">obj</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-196"></span><span> </span><span class="annot"><a href="#local-6989586621679163421"><span class="hs-identifier hs-type">fromGQLField</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ObjectField</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstValue</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-197"></span><span> </span><span id="local-6989586621679163421"><span class="annot"><span class="annottext">fromGQLField :: ObjectField ConstValue -> TypeQ
|
||||
</span><a href="#local-6989586621679163421"><span class="hs-identifier hs-var hs-var">fromGQLField</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ObjectField</span></span><span> </span><span id="local-6989586621679163419"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163419"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.Node</span></span><span> </span><span id="local-6989586621679163418"><span class="annot"><span class="annottext">ConstValue
|
||||
</span><a href="#local-6989586621679163418"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="annot"><span class="annottext">Location
|
||||
</span><span id="line-196"></span><span> </span><span class="annot"><a href="#local-6989586621679163420"><span class="hs-identifier hs-type">fromGQLField</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ObjectField</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.ConstValue</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-197"></span><span> </span><span id="local-6989586621679163420"><span class="annot"><span class="annottext">fromGQLField :: ObjectField ConstValue -> TypeQ
|
||||
</span><a href="#local-6989586621679163420"><span class="hs-identifier hs-var hs-var">fromGQLField</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.ObjectField</span></span><span> </span><span id="local-6989586621679163418"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163418"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.Node</span></span><span> </span><span id="local-6989586621679163417"><span class="annot"><span class="annottext">ConstValue
|
||||
</span><a href="#local-6989586621679163417"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="annot"><span class="annottext">Location
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Location
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">(</span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">n</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">defToVConst</span><span> </span><span class="hs-identifier">v</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-198"></span><span> </span><span class="annot"><a href="#local-6989586621679163417"><span class="hs-identifier hs-type">retToType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Type</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-199"></span><span> </span><span id="local-6989586621679163417"><span class="annot"><span class="annottext">retToType :: Type -> TypeQ
|
||||
</span><a href="#local-6989586621679163417"><span class="hs-identifier hs-var hs-var">retToType</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeNonNull</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.NonNullTypeNamed</span></span><span> </span><span id="local-6989586621679163414"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163414"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-198"></span><span> </span><span class="annot"><a href="#local-6989586621679163416"><span class="hs-identifier hs-type">retToType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Type</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-199"></span><span> </span><span id="local-6989586621679163416"><span class="annot"><span class="annottext">retToType :: Type -> TypeQ
|
||||
</span><a href="#local-6989586621679163416"><span class="hs-identifier hs-var hs-var">retToType</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeNonNull</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.NonNullTypeNamed</span></span><span> </span><span id="local-6989586621679163413"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163413"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-200"></span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">gqlTypeToType</span><span> </span><span class="hs-identifier">prims</span><span> </span><span class="hs-identifier">a</span><span> </span><span class="hs-identifier">tm</span><span> </span><span class="hs-identifier">schemaName</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-201"></span><span> </span><span class="annot"><a href="#local-6989586621679163417"><span class="hs-identifier hs-var">retToType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeNonNull</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.NonNullTypeList</span></span><span> </span><span id="local-6989586621679163412"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163412"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-201"></span><span> </span><span class="annot"><a href="#local-6989586621679163416"><span class="hs-identifier hs-var">retToType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeNonNull</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.NonNullTypeList</span></span><span> </span><span id="local-6989586621679163411"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163411"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-202"></span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">ListRef</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">retToType</span><span> </span><span class="hs-identifier">a</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-203"></span><span> </span><span class="annot"><a href="#local-6989586621679163417"><span class="hs-identifier hs-var">retToType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeNamed</span></span><span> </span><span id="local-6989586621679163410"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163410"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-203"></span><span> </span><span class="annot"><a href="#local-6989586621679163416"><span class="hs-identifier hs-var">retToType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeNamed</span></span><span> </span><span id="local-6989586621679163409"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163409"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-204"></span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">OptionalRef</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">gqlTypeToType</span><span> </span><span class="hs-identifier">prims</span><span> </span><span class="hs-identifier">a</span><span> </span><span class="hs-identifier">tm</span><span> </span><span class="hs-identifier">schemaName</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-205"></span><span> </span><span class="annot"><a href="#local-6989586621679163417"><span class="hs-identifier hs-var">retToType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeList</span></span><span> </span><span id="local-6989586621679163408"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163408"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-205"></span><span> </span><span class="annot"><a href="#local-6989586621679163416"><span class="hs-identifier hs-var">retToType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeList</span></span><span> </span><span id="local-6989586621679163407"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163407"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-206"></span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">OptionalRef</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="hs-identifier">ListRef</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">retToType</span><span> </span><span class="hs-identifier">a</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-207"></span><span class="annot"><a href="Mu.GraphQL.Quasi.html#typeToDec"><span class="hs-identifier hs-var">typeToDec</span></a></span><span> </span><span class="annot"><span class="annottext">Primitives
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Name
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">TypeMap
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.EnumTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163407"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163407"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163406"><span class="annot"><span class="annottext">[EnumValueDefinition]
|
||||
</span><a href="#local-6989586621679163406"><span class="hs-identifier hs-var">symbols</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163406"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163406"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163405"><span class="annot"><span class="annottext">[EnumValueDefinition]
|
||||
</span><a href="#local-6989586621679163405"><span class="hs-identifier hs-var">symbols</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-208"></span><span> </span><span class="annot"><span class="annottext">Type -> Result
|
||||
</span><a href="Mu.GraphQL.Quasi.html#GQLSchema"><span class="hs-identifier hs-var">GQLSchema</span></a></span><span> </span><span class="annot"><span class="annottext">(Type -> Result) -> TypeQ -> Q Result
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="hs-special">[t|</span><span class="hs-special">'</span><span class="hs-identifier">DEnum</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">name</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-209"></span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">typesToList</span><span> </span><span class="hs-operator"><$></span><span> </span><span class="hs-identifier">traverse</span><span> </span><span class="hs-identifier">gqlChoiceToType</span><span> </span><span class="hs-identifier">symbols</span><span class="hs-special">)</span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-210"></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-211"></span><span> </span><span class="annot"><a href="#local-6989586621679163405"><span class="hs-identifier hs-type">gqlChoiceToType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.EnumValueDefinition</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-212"></span><span> </span><span id="local-6989586621679163405"><span class="annot"><span class="annottext">gqlChoiceToType :: EnumValueDefinition -> TypeQ
|
||||
</span><a href="#local-6989586621679163405"><span class="hs-identifier hs-var hs-var">gqlChoiceToType</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.EnumValueDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163403"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163403"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span id="line-211"></span><span> </span><span class="annot"><a href="#local-6989586621679163404"><span class="hs-identifier hs-type">gqlChoiceToType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.EnumValueDefinition</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-212"></span><span> </span><span id="local-6989586621679163404"><span class="annot"><span class="annottext">gqlChoiceToType :: EnumValueDefinition -> TypeQ
|
||||
</span><a href="#local-6989586621679163404"><span class="hs-identifier hs-var hs-var">gqlChoiceToType</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.EnumValueDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163402"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163402"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-213"></span><span> </span><span class="hs-special">[t|</span><span class="hs-special">'</span><span class="hs-identifier">ChoiceDef</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">c</span><span class="hs-special">)</span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-214"></span><span class="annot"><a href="Mu.GraphQL.Quasi.html#typeToDec"><span class="hs-identifier hs-var">typeToDec</span></a></span><span> </span><span id="local-6989586621679163402"><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163402"><span class="hs-identifier hs-var">prims</span></a></span></span><span> </span><span class="annot"><span class="annottext">Name
|
||||
</span><span id="line-214"></span><span class="annot"><a href="Mu.GraphQL.Quasi.html#typeToDec"><span class="hs-identifier hs-var">typeToDec</span></a></span><span> </span><span id="local-6989586621679163401"><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163401"><span class="hs-identifier hs-var">prims</span></a></span></span><span> </span><span class="annot"><span class="annottext">Name
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">TypeMap
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">SchemaMap
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.InputObjectTypeDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163401"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163401"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163400"><span class="annot"><span class="annottext">[InputValueDefinition]
|
||||
</span><a href="#local-6989586621679163400"><span class="hs-identifier hs-var">fields</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163400"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163400"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163399"><span class="annot"><span class="annottext">[InputValueDefinition]
|
||||
</span><a href="#local-6989586621679163399"><span class="hs-identifier hs-var">fields</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-215"></span><span> </span><span class="annot"><span class="annottext">Type -> Result
|
||||
</span><a href="Mu.GraphQL.Quasi.html#GQLSchema"><span class="hs-identifier hs-var">GQLSchema</span></a></span><span> </span><span class="annot"><span class="annottext">(Type -> Result) -> TypeQ -> Q Result
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="hs-special">[t|</span><span class="hs-special">'</span><span class="hs-identifier">DRecord</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">name</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-216"></span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">typesToList</span><span> </span><span class="hs-operator"><$></span><span> </span><span class="hs-identifier">traverse</span><span> </span><span class="hs-identifier">gqlFieldToType</span><span> </span><span class="hs-identifier">fields</span><span class="hs-special">)</span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-217"></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-218"></span><span> </span><span class="annot"><a href="#local-6989586621679163399"><span class="hs-identifier hs-type">gqlFieldToType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.InputValueDefinition</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-219"></span><span> </span><span id="local-6989586621679163399"><span class="annot"><span class="annottext">gqlFieldToType :: InputValueDefinition -> TypeQ
|
||||
</span><a href="#local-6989586621679163399"><span class="hs-identifier hs-var hs-var">gqlFieldToType</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.InputValueDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163398"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163398"><span class="hs-identifier hs-var">fname</span></a></span></span><span> </span><span id="local-6989586621679163397"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163397"><span class="hs-identifier hs-var">ftype</span></a></span></span><span> </span><span class="annot"><span class="annottext">Maybe (Node ConstValue)
|
||||
</span><span id="line-218"></span><span> </span><span class="annot"><a href="#local-6989586621679163398"><span class="hs-identifier hs-type">gqlFieldToType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.InputValueDefinition</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-219"></span><span> </span><span id="local-6989586621679163398"><span class="annot"><span class="annottext">gqlFieldToType :: InputValueDefinition -> TypeQ
|
||||
</span><a href="#local-6989586621679163398"><span class="hs-identifier hs-var hs-var">gqlFieldToType</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.InputValueDefinition</span></span><span> </span><span class="annot"><span class="annottext">Description
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679163397"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163397"><span class="hs-identifier hs-var">fname</span></a></span></span><span> </span><span id="local-6989586621679163396"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163396"><span class="hs-identifier hs-var">ftype</span></a></span></span><span> </span><span class="annot"><span class="annottext">Maybe (Node ConstValue)
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">[Directive]
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-220"></span><span> </span><span class="hs-special">[t|</span><span class="hs-special">'</span><span class="hs-identifier">FieldDef</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">fname</span><span class="hs-special">)</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">ginputTypeToType</span><span> </span><span class="hs-identifier">ftype</span><span class="hs-special">)</span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-221"></span><span> </span><span class="annot"><a href="#local-6989586621679163396"><span class="hs-identifier hs-type">ginputTypeToType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Type</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-222"></span><span> </span><span id="local-6989586621679163396"><span class="annot"><span class="annottext">ginputTypeToType :: Type -> TypeQ
|
||||
</span><a href="#local-6989586621679163396"><span class="hs-identifier hs-var hs-var">ginputTypeToType</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeNonNull</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.NonNullTypeNamed</span></span><span> </span><span id="local-6989586621679163395"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163395"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-223"></span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">typeToPrimType</span><span> </span><span class="hs-identifier">a</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-224"></span><span> </span><span class="annot"><a href="#local-6989586621679163396"><span class="hs-identifier hs-var">ginputTypeToType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeNonNull</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.NonNullTypeList</span></span><span> </span><span id="local-6989586621679163394"><span class="annot"><span class="annottext">Type
|
||||
</span><span id="line-221"></span><span> </span><span class="annot"><a href="#local-6989586621679163395"><span class="hs-identifier hs-type">ginputTypeToType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Type</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-222"></span><span> </span><span id="local-6989586621679163395"><span class="annot"><span class="annottext">ginputTypeToType :: Type -> TypeQ
|
||||
</span><a href="#local-6989586621679163395"><span class="hs-identifier hs-var hs-var">ginputTypeToType</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeNonNull</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.NonNullTypeNamed</span></span><span> </span><span id="local-6989586621679163394"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163394"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-223"></span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">typeToPrimType</span><span> </span><span class="hs-identifier">a</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-224"></span><span> </span><span class="annot"><a href="#local-6989586621679163395"><span class="hs-identifier hs-var">ginputTypeToType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeNonNull</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.NonNullTypeList</span></span><span> </span><span id="local-6989586621679163393"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163393"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-225"></span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">TList</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">ginputTypeToType</span><span> </span><span class="hs-identifier">a</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-226"></span><span> </span><span class="annot"><a href="#local-6989586621679163396"><span class="hs-identifier hs-var">ginputTypeToType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeNamed</span></span><span> </span><span id="local-6989586621679163393"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163393"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-227"></span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">TOption</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">typeToPrimType</span><span> </span><span class="hs-identifier">a</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-228"></span><span> </span><span class="annot"><a href="#local-6989586621679163396"><span class="hs-identifier hs-var">ginputTypeToType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeList</span></span><span> </span><span id="local-6989586621679163392"><span class="annot"><span class="annottext">Type
|
||||
</span><span id="line-226"></span><span> </span><span class="annot"><a href="#local-6989586621679163395"><span class="hs-identifier hs-var">ginputTypeToType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeNamed</span></span><span> </span><span id="local-6989586621679163392"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163392"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-227"></span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">TOption</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">typeToPrimType</span><span> </span><span class="hs-identifier">a</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-228"></span><span> </span><span class="annot"><a href="#local-6989586621679163395"><span class="hs-identifier hs-var">ginputTypeToType</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">GQL.TypeList</span></span><span> </span><span id="local-6989586621679163391"><span class="annot"><span class="annottext">Type
|
||||
</span><a href="#local-6989586621679163391"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-229"></span><span> </span><span class="hs-special">[t|</span><span> </span><span class="hs-special">'</span><span class="hs-identifier">TOption</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="hs-identifier">TList</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">ginputTypeToType</span><span> </span><span class="hs-identifier">a</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-230"></span><span> </span><span class="annot"><a href="#local-6989586621679163391"><span class="hs-identifier hs-type">typeToPrimType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Name</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-231"></span><span> </span><span id="local-6989586621679163391"><span class="annot"><span class="annottext">typeToPrimType :: Text -> TypeQ
|
||||
</span><a href="#local-6989586621679163391"><span class="hs-identifier hs-var hs-var">typeToPrimType</span></a></span></span><span> </span><span id="local-6989586621679163390"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163390"><span class="hs-identifier hs-var">nm</span></a></span></span><span>
|
||||
</span><span id="line-230"></span><span> </span><span class="annot"><a href="#local-6989586621679163390"><span class="hs-identifier hs-type">typeToPrimType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Name</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-231"></span><span> </span><span id="local-6989586621679163390"><span class="annot"><span class="annottext">typeToPrimType :: Text -> TypeQ
|
||||
</span><a href="#local-6989586621679163390"><span class="hs-identifier hs-var hs-var">typeToPrimType</span></a></span></span><span> </span><span id="local-6989586621679163389"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163389"><span class="hs-identifier hs-var">nm</span></a></span></span><span>
|
||||
</span><span id="line-232"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Text -> Primitives -> Maybe TypeQ
|
||||
forall a b. Eq a => a -> [(a, b)] -> Maybe b
|
||||
</span><span class="hs-identifier hs-var">lookup</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163390"><span class="hs-identifier hs-var">nm</span></a></span><span> </span><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163402"><span class="hs-identifier hs-var">prims</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-233"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span id="local-6989586621679163388"><span class="annot"><span class="annottext">TypeQ
|
||||
</span><a href="#local-6989586621679163388"><span class="hs-identifier hs-var">ty</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[t|</span><span class="hs-special">'</span><span class="hs-identifier">TPrimitive</span><span> </span><span class="">$ty</span><span class="hs-special">|]</span><span>
|
||||
</span><a href="#local-6989586621679163389"><span class="hs-identifier hs-var">nm</span></a></span><span> </span><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163401"><span class="hs-identifier hs-var">prims</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-233"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span id="local-6989586621679163387"><span class="annot"><span class="annottext">TypeQ
|
||||
</span><a href="#local-6989586621679163387"><span class="hs-identifier hs-var">ty</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[t|</span><span class="hs-special">'</span><span class="hs-identifier">TPrimitive</span><span> </span><span class="">$ty</span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-234"></span><span> </span><span class="annot"><span class="annottext">Maybe TypeQ
|
||||
</span><span class="hs-identifier hs-var">Nothing</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[t|</span><span class="hs-special">'</span><span class="hs-identifier">TSchematic</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">nm</span><span class="hs-special">)</span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-235"></span><span>
|
||||
@ -706,33 +706,33 @@ forall a b. Eq a => a -> [(a, b)] -> Maybe b
|
||||
</span><span id="line-238"></span><span>
|
||||
</span><span id="line-239"></span><span class="annot"><a href="Mu.GraphQL.Quasi.html#gqlTypeToType"><span class="hs-identifier hs-type">gqlTypeToType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#Primitives"><span class="hs-identifier hs-type">Primitives</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Name</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Quasi.html#TypeMap"><span class="hs-identifier hs-type">TypeMap</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Name</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Q</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span>
|
||||
</span><span id="line-240"></span><span id="gqlTypeToType"><span class="annot"><span class="annottext">gqlTypeToType :: Primitives -> Text -> TypeMap -> Name -> TypeQ
|
||||
</span><a href="Mu.GraphQL.Quasi.html#gqlTypeToType"><span class="hs-identifier hs-var hs-var">gqlTypeToType</span></a></span></span><span> </span><span id="local-6989586621679163387"><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163387"><span class="hs-identifier hs-var">prims</span></a></span></span><span> </span><span id="local-6989586621679163386"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163386"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span id="local-6989586621679163385"><span class="annot"><span class="annottext">TypeMap
|
||||
</span><a href="#local-6989586621679163385"><span class="hs-identifier hs-var">tm</span></a></span></span><span> </span><span id="local-6989586621679163384"><span class="annot"><span class="annottext">Name
|
||||
</span><a href="#local-6989586621679163384"><span class="hs-identifier hs-var">schemaName</span></a></span></span><span>
|
||||
</span><a href="Mu.GraphQL.Quasi.html#gqlTypeToType"><span class="hs-identifier hs-var hs-var">gqlTypeToType</span></a></span></span><span> </span><span id="local-6989586621679163386"><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163386"><span class="hs-identifier hs-var">prims</span></a></span></span><span> </span><span id="local-6989586621679163385"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163385"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span id="local-6989586621679163384"><span class="annot"><span class="annottext">TypeMap
|
||||
</span><a href="#local-6989586621679163384"><span class="hs-identifier hs-var">tm</span></a></span></span><span> </span><span id="local-6989586621679163383"><span class="annot"><span class="annottext">Name
|
||||
</span><a href="#local-6989586621679163383"><span class="hs-identifier hs-var">schemaName</span></a></span></span><span>
|
||||
</span><span id="line-241"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Text -> Primitives -> Maybe TypeQ
|
||||
forall a b. Eq a => a -> [(a, b)] -> Maybe b
|
||||
</span><span class="hs-identifier hs-var">lookup</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163386"><span class="hs-identifier hs-var">name</span></a></span><span> </span><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163387"><span class="hs-identifier hs-var">prims</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-242"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span id="local-6989586621679163383"><span class="annot"><span class="annottext">TypeQ
|
||||
</span><a href="#local-6989586621679163383"><span class="hs-identifier hs-var">ty</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[t|</span><span class="hs-special">'</span><span class="hs-identifier">PrimitiveRef</span><span> </span><span class="">$ty</span><span class="hs-special">|]</span><span>
|
||||
</span><a href="#local-6989586621679163385"><span class="hs-identifier hs-var">name</span></a></span><span> </span><span class="annot"><span class="annottext">Primitives
|
||||
</span><a href="#local-6989586621679163386"><span class="hs-identifier hs-var">prims</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-242"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span id="local-6989586621679163382"><span class="annot"><span class="annottext">TypeQ
|
||||
</span><a href="#local-6989586621679163382"><span class="hs-identifier hs-var">ty</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[t|</span><span class="hs-special">'</span><span class="hs-identifier">PrimitiveRef</span><span> </span><span class="">$ty</span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-243"></span><span> </span><span class="annot"><span class="annottext">Maybe TypeQ
|
||||
</span><span class="hs-identifier hs-var">Nothing</span></span><span>
|
||||
</span><span id="line-244"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679163382"><span class="annot"><span class="annottext">schemaRef :: TypeQ
|
||||
</span><a href="#local-6989586621679163382"><span class="hs-identifier hs-var hs-var">schemaRef</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[t|</span><span class="hs-special">'</span><span class="hs-identifier">SchemaRef</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">conT</span><span> </span><span class="hs-identifier">schemaName</span><span class="hs-special">)</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">name</span><span class="hs-special">)</span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-244"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679163381"><span class="annot"><span class="annottext">schemaRef :: TypeQ
|
||||
</span><a href="#local-6989586621679163381"><span class="hs-identifier hs-var hs-var">schemaRef</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[t|</span><span class="hs-special">'</span><span class="hs-identifier">SchemaRef</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">conT</span><span> </span><span class="hs-identifier">schemaName</span><span class="hs-special">)</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">name</span><span class="hs-special">)</span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-245"></span><span> </span><span class="hs-keyword">in</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Text -> TypeMap -> Maybe GQLType
|
||||
forall k v. (Eq k, Hashable k) => k -> HashMap k v -> Maybe v
|
||||
</span><span class="hs-identifier hs-var">HM.lookup</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679163386"><span class="hs-identifier hs-var">name</span></a></span><span> </span><span class="annot"><span class="annottext">TypeMap
|
||||
</span><a href="#local-6989586621679163385"><span class="hs-identifier hs-var">tm</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a href="#local-6989586621679163385"><span class="hs-identifier hs-var">name</span></a></span><span> </span><span class="annot"><span class="annottext">TypeMap
|
||||
</span><a href="#local-6989586621679163384"><span class="hs-identifier hs-var">tm</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-246"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><span class="annottext">GQLType
|
||||
</span><a href="Mu.GraphQL.Quasi.html#Enum"><span class="hs-identifier hs-var">Enum</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">TypeQ
|
||||
</span><a href="#local-6989586621679163382"><span class="hs-identifier hs-var">schemaRef</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163381"><span class="hs-identifier hs-var">schemaRef</span></a></span><span>
|
||||
</span><span id="line-247"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><span class="annottext">GQLType
|
||||
</span><a href="Mu.GraphQL.Quasi.html#InputObject"><span class="hs-identifier hs-var">InputObject</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">TypeQ
|
||||
</span><a href="#local-6989586621679163382"><span class="hs-identifier hs-var">schemaRef</span></a></span><span>
|
||||
</span><a href="#local-6989586621679163381"><span class="hs-identifier hs-var">schemaRef</span></a></span><span>
|
||||
</span><span id="line-248"></span><span> </span><span class="annot"><span class="annottext">Maybe GQLType
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[t|</span><span class="hs-special">'</span><span class="hs-identifier">ObjectRef</span><span> </span><span class="hs-special">$(</span><span class="hs-identifier">textToStrLit</span><span> </span><span class="hs-identifier">name</span><span class="hs-special">)</span><span class="hs-special">|]</span><span>
|
||||
</span><span id="line-249"></span><span>
|
||||
|
@ -13,121 +13,121 @@
|
||||
</span><span id="line-13"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Mu.Rpc</span></span><span>
|
||||
</span><span id="line-14"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Mu.Schema</span></span><span>
|
||||
</span><span id="line-15"></span><span>
|
||||
</span><span id="line-16"></span><span class="hs-keyword">data</span><span> </span><span id="Document"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#Document"><span class="hs-identifier hs-var">Document</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163901"><span class="annot"><a href="#local-6989586621679163901"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163899"><span class="annot"><a href="#local-6989586621679163899"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163898"><span class="annot"><a href="#local-6989586621679163898"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163897"><span class="annot"><a href="#local-6989586621679163897"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163899"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-17"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163895"><span class="annot"><a href="#local-6989586621679163895"><span class="hs-identifier hs-type">qr</span></a></span></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"><a href="#local-6989586621679163899"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163894"><span class="annot"><a href="#local-6989586621679163894"><span class="hs-identifier hs-type">mut</span></a></span></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"><a href="#local-6989586621679163899"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163893"><span class="annot"><a href="#local-6989586621679163893"><span class="hs-identifier hs-type">sub</span></a></span></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"><a href="#local-6989586621679163899"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-18"></span><span> </span><span id="local-6989586621679163887"><span id="local-6989586621679163888"><span id="local-6989586621679163889"><span id="local-6989586621679163890"><span id="local-6989586621679163891"><span id="local-6989586621679163892"><span id="QueryDoc"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#QueryDoc"><span class="hs-identifier hs-var">QueryDoc</span></a></span></span><span>
|
||||
</span><span id="line-19"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163892"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163891"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163891"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163890"><span class="hs-identifier hs-type">qms</span></a></span><span>
|
||||
</span><span id="line-20"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-type">ServiceQuery</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163889"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163892"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163892"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163891"><span class="hs-identifier hs-type">qr</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-21"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#Document"><span class="hs-identifier hs-type">Document</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163889"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163892"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679163891"><span class="hs-identifier hs-type">qr</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163888"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163887"><span class="hs-identifier hs-type">sub</span></a></span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-22"></span><span> </span><span id="local-6989586621679163876"><span id="local-6989586621679163877"><span id="local-6989586621679163878"><span id="local-6989586621679163879"><span id="local-6989586621679163880"><span id="local-6989586621679163881"><span id="MutationDoc"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#MutationDoc"><span class="hs-identifier hs-var">MutationDoc</span></a></span></span><span>
|
||||
</span><span id="line-23"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163881"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163880"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163880"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163879"><span class="hs-identifier hs-type">mms</span></a></span><span>
|
||||
</span><span id="line-24"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-type">ServiceQuery</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163878"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163881"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163881"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163880"><span class="hs-identifier hs-type">mut</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-25"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#Document"><span class="hs-identifier hs-type">Document</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163878"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163881"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163877"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679163880"><span class="hs-identifier hs-type">mut</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163876"><span class="hs-identifier hs-type">sub</span></a></span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-26"></span><span> </span><span id="local-6989586621679163869"><span id="local-6989586621679163870"><span id="local-6989586621679163871"><span id="local-6989586621679163872"><span id="local-6989586621679163873"><span id="local-6989586621679163874"><span id="SubscriptionDoc"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#SubscriptionDoc"><span class="hs-identifier hs-var">SubscriptionDoc</span></a></span></span><span>
|
||||
</span><span id="line-27"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163874"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163873"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163873"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163872"><span class="hs-identifier hs-type">mms</span></a></span><span>
|
||||
</span><span id="line-28"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-type">OneMethodQuery</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163871"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163874"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163874"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163873"><span class="hs-identifier hs-type">sub</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-29"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#Document"><span class="hs-identifier hs-type">Document</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163871"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163874"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163870"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163869"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679163873"><span class="hs-identifier hs-type">sub</span></a></span><span class="hs-special">)</span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-16"></span><span class="hs-keyword">data</span><span> </span><span id="Document"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#Document"><span class="hs-identifier hs-var">Document</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163900"><span class="annot"><a href="#local-6989586621679163900"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163898"><span class="annot"><a href="#local-6989586621679163898"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163897"><span class="annot"><a href="#local-6989586621679163897"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163896"><span class="annot"><a href="#local-6989586621679163896"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163898"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-17"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163894"><span class="annot"><a href="#local-6989586621679163894"><span class="hs-identifier hs-type">qr</span></a></span></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"><a href="#local-6989586621679163898"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163893"><span class="annot"><a href="#local-6989586621679163893"><span class="hs-identifier hs-type">mut</span></a></span></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"><a href="#local-6989586621679163898"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163892"><span class="annot"><a href="#local-6989586621679163892"><span class="hs-identifier hs-type">sub</span></a></span></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"><a href="#local-6989586621679163898"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-18"></span><span> </span><span id="local-6989586621679163886"><span id="local-6989586621679163887"><span id="local-6989586621679163888"><span id="local-6989586621679163889"><span id="local-6989586621679163890"><span id="local-6989586621679163891"><span id="QueryDoc"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#QueryDoc"><span class="hs-identifier hs-var">QueryDoc</span></a></span></span><span>
|
||||
</span><span id="line-19"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163891"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163890"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163890"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163889"><span class="hs-identifier hs-type">qms</span></a></span><span>
|
||||
</span><span id="line-20"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-type">ServiceQuery</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163888"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163891"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163891"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163890"><span class="hs-identifier hs-type">qr</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-21"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#Document"><span class="hs-identifier hs-type">Document</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163888"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163891"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679163890"><span class="hs-identifier hs-type">qr</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163887"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163886"><span class="hs-identifier hs-type">sub</span></a></span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-22"></span><span> </span><span id="local-6989586621679163875"><span id="local-6989586621679163876"><span id="local-6989586621679163877"><span id="local-6989586621679163878"><span id="local-6989586621679163879"><span id="local-6989586621679163880"><span id="MutationDoc"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#MutationDoc"><span class="hs-identifier hs-var">MutationDoc</span></a></span></span><span>
|
||||
</span><span id="line-23"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163880"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163879"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163879"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163878"><span class="hs-identifier hs-type">mms</span></a></span><span>
|
||||
</span><span id="line-24"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-type">ServiceQuery</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163877"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163880"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163880"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163879"><span class="hs-identifier hs-type">mut</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-25"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#Document"><span class="hs-identifier hs-type">Document</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163877"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163880"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163876"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679163879"><span class="hs-identifier hs-type">mut</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163875"><span class="hs-identifier hs-type">sub</span></a></span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-26"></span><span> </span><span id="local-6989586621679163868"><span id="local-6989586621679163869"><span id="local-6989586621679163870"><span id="local-6989586621679163871"><span id="local-6989586621679163872"><span id="local-6989586621679163873"><span id="SubscriptionDoc"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#SubscriptionDoc"><span class="hs-identifier hs-var">SubscriptionDoc</span></a></span></span><span>
|
||||
</span><span id="line-27"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163873"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163872"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163872"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163871"><span class="hs-identifier hs-type">mms</span></a></span><span>
|
||||
</span><span id="line-28"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-type">OneMethodQuery</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163870"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163873"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163873"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163872"><span class="hs-identifier hs-type">sub</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-29"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#Document"><span class="hs-identifier hs-type">Document</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163870"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163873"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163869"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163868"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679163872"><span class="hs-identifier hs-type">sub</span></a></span><span class="hs-special">)</span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-30"></span><span>
|
||||
</span><span id="line-31"></span><span class="hs-keyword">data</span><span> </span><span id="ServiceQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-var">ServiceQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163866"><span class="annot"><a href="#local-6989586621679163866"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163865"><span class="annot"><a href="#local-6989586621679163865"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163864"><span class="annot"><a href="#local-6989586621679163864"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163863"><span class="annot"><a href="#local-6989586621679163863"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163865"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-32"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163862"><span class="annot"><a href="#local-6989586621679163862"><span class="hs-identifier hs-type">s</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163865"><span class="hs-identifier hs-type">snm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163864"><span class="hs-identifier hs-type">mnm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163863"><span class="hs-identifier hs-type">anm</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163865"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-33"></span><span> </span><span id="local-6989586621679163858"><span id="local-6989586621679163859"><span id="local-6989586621679163860"><span id="ServiceQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-var">ServiceQuery</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-type">OneMethodQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163860"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163859"><span class="hs-identifier hs-type">nm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163858"><span class="hs-identifier hs-type">ms</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-34"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-type">ServiceQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163860"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163859"><span class="hs-identifier hs-type">nm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163858"><span class="hs-identifier hs-type">ms</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-35"></span><span> </span><span id="local-6989586621679163854"><span id="local-6989586621679163855"><span id="local-6989586621679163856"><span id="OneOfQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneOfQuery"><span class="hs-identifier hs-var">OneOfQuery</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">NP</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenOneOfQuery"><span class="hs-identifier hs-type">ChosenOneOfQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163856"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163855"><span class="hs-identifier hs-type">elts</span></a></span><span>
|
||||
</span><span id="line-36"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-type">ServiceQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163856"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">OneOf</span></span><span> </span><span class="annot"><a href="#local-6989586621679163854"><span class="hs-identifier hs-type">nm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163855"><span class="hs-identifier hs-type">elts</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-31"></span><span class="hs-keyword">data</span><span> </span><span id="ServiceQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-var">ServiceQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163865"><span class="annot"><a href="#local-6989586621679163865"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163864"><span class="annot"><a href="#local-6989586621679163864"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163863"><span class="annot"><a href="#local-6989586621679163863"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163862"><span class="annot"><a href="#local-6989586621679163862"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163864"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-32"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163861"><span class="annot"><a href="#local-6989586621679163861"><span class="hs-identifier hs-type">s</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163864"><span class="hs-identifier hs-type">snm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163863"><span class="hs-identifier hs-type">mnm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163862"><span class="hs-identifier hs-type">anm</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163864"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-33"></span><span> </span><span id="local-6989586621679163857"><span id="local-6989586621679163858"><span id="local-6989586621679163859"><span id="ServiceQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-var">ServiceQuery</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-type">OneMethodQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163859"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163858"><span class="hs-identifier hs-type">nm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163857"><span class="hs-identifier hs-type">ms</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-34"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-type">ServiceQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163859"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163858"><span class="hs-identifier hs-type">nm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163857"><span class="hs-identifier hs-type">ms</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-35"></span><span> </span><span id="local-6989586621679163853"><span id="local-6989586621679163854"><span id="local-6989586621679163855"><span id="OneOfQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneOfQuery"><span class="hs-identifier hs-var">OneOfQuery</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">NP</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenOneOfQuery"><span class="hs-identifier hs-type">ChosenOneOfQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163855"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163854"><span class="hs-identifier hs-type">elts</span></a></span><span>
|
||||
</span><span id="line-36"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-type">ServiceQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163855"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">OneOf</span></span><span> </span><span class="annot"><a href="#local-6989586621679163853"><span class="hs-identifier hs-type">nm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163854"><span class="hs-identifier hs-type">elts</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-37"></span><span>
|
||||
</span><span id="line-38"></span><span class="hs-keyword">data</span><span> </span><span id="OneMethodQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-var">OneMethodQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163849"><span class="annot"><a href="#local-6989586621679163849"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163848"><span class="annot"><a href="#local-6989586621679163848"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163847"><span class="annot"><a href="#local-6989586621679163847"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163846"><span class="annot"><a href="#local-6989586621679163846"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163848"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-39"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163845"><span class="annot"><a href="#local-6989586621679163845"><span class="hs-identifier hs-type">s</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163848"><span class="hs-identifier hs-type">snm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163847"><span class="hs-identifier hs-type">mnm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163846"><span class="hs-identifier hs-type">anm</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163848"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-40"></span><span> </span><span id="local-6989586621679163842"><span id="local-6989586621679163843"><span id="local-6989586621679163844"><span id="OneMethodQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-var">OneMethodQuery</span></a></span></span><span>
|
||||
</span><span id="line-38"></span><span class="hs-keyword">data</span><span> </span><span id="OneMethodQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-var">OneMethodQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163848"><span class="annot"><a href="#local-6989586621679163848"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163847"><span class="annot"><a href="#local-6989586621679163847"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163846"><span class="annot"><a href="#local-6989586621679163846"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163845"><span class="annot"><a href="#local-6989586621679163845"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163847"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-39"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163844"><span class="annot"><a href="#local-6989586621679163844"><span class="hs-identifier hs-type">s</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163847"><span class="hs-identifier hs-type">snm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163846"><span class="hs-identifier hs-type">mnm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163845"><span class="hs-identifier hs-type">anm</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163847"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-40"></span><span> </span><span id="local-6989586621679163841"><span id="local-6989586621679163842"><span id="local-6989586621679163843"><span id="OneMethodQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-var">OneMethodQuery</span></a></span></span><span>
|
||||
</span><span id="line-41"></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">Text</span></span><span>
|
||||
</span><span id="line-42"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenMethodQuery"><span class="hs-identifier hs-type">ChosenMethodQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163844"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163843"><span class="hs-identifier hs-type">ms</span></a></span><span>
|
||||
</span><span id="line-43"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-type">OneMethodQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163844"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163842"><span class="hs-identifier hs-type">nm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163843"><span class="hs-identifier hs-type">ms</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-42"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenMethodQuery"><span class="hs-identifier hs-type">ChosenMethodQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163843"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163842"><span class="hs-identifier hs-type">ms</span></a></span><span>
|
||||
</span><span id="line-43"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-type">OneMethodQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163843"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679163841"><span class="hs-identifier hs-type">nm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163842"><span class="hs-identifier hs-type">ms</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-44"></span><span> </span><span class="hs-comment">-- the special '__typename' field</span><span>
|
||||
</span><span id="line-45"></span><span> </span><span id="local-6989586621679163836"><span id="local-6989586621679163837"><span id="TypeNameQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#TypeNameQuery"><span class="hs-identifier hs-var">TypeNameQuery</span></a></span></span><span>
|
||||
</span><span id="line-45"></span><span> </span><span id="local-6989586621679163835"><span id="local-6989586621679163836"><span id="TypeNameQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#TypeNameQuery"><span class="hs-identifier hs-var">TypeNameQuery</span></a></span></span><span>
|
||||
</span><span id="line-46"></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">Text</span></span><span>
|
||||
</span><span id="line-47"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-type">OneMethodQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163837"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163836"><span class="hs-identifier hs-type">s</span></a></span></span></span><span>
|
||||
</span><span id="line-47"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-type">OneMethodQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163836"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163835"><span class="hs-identifier hs-type">s</span></a></span></span></span><span>
|
||||
</span><span id="line-48"></span><span> </span><span class="hs-comment">-- introspection fields</span><span>
|
||||
</span><span id="line-49"></span><span> </span><span id="local-6989586621679163833"><span id="local-6989586621679163834"><span id="SchemaQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#SchemaQuery"><span class="hs-identifier hs-var">SchemaQuery</span></a></span></span><span>
|
||||
</span><span id="line-49"></span><span> </span><span id="local-6989586621679163832"><span id="local-6989586621679163833"><span id="SchemaQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#SchemaQuery"><span class="hs-identifier hs-var">SchemaQuery</span></a></span></span><span>
|
||||
</span><span id="line-50"></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">Text</span></span><span>
|
||||
</span><span id="line-51"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">GQL.Selection</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-52"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-type">OneMethodQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163834"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163833"><span class="hs-identifier hs-type">s</span></a></span></span></span><span>
|
||||
</span><span id="line-53"></span><span> </span><span id="local-6989586621679163829"><span id="local-6989586621679163830"><span id="TypeQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#TypeQuery"><span class="hs-identifier hs-var">TypeQuery</span></a></span></span><span>
|
||||
</span><span id="line-52"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-type">OneMethodQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163833"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163832"><span class="hs-identifier hs-type">s</span></a></span></span></span><span>
|
||||
</span><span id="line-53"></span><span> </span><span id="local-6989586621679163828"><span id="local-6989586621679163829"><span id="TypeQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#TypeQuery"><span class="hs-identifier hs-var">TypeQuery</span></a></span></span><span>
|
||||
</span><span id="line-54"></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">Text</span></span><span>
|
||||
</span><span id="line-55"></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 id="line-56"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">GQL.Selection</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-57"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-type">OneMethodQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163830"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163829"><span class="hs-identifier hs-type">s</span></a></span></span></span><span>
|
||||
</span><span id="line-57"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneMethodQuery"><span class="hs-identifier hs-type">OneMethodQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163829"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163828"><span class="hs-identifier hs-type">s</span></a></span></span></span><span>
|
||||
</span><span id="line-58"></span><span>
|
||||
</span><span id="line-59"></span><span class="hs-keyword">data</span><span> </span><span id="ChosenOneOfQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenOneOfQuery"><span class="hs-identifier hs-var">ChosenOneOfQuery</span></a></span></span><span> </span><span id="local-6989586621679163827"><span class="annot"><a href="#local-6989586621679163827"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span id="local-6989586621679163826"><span class="annot"><a href="#local-6989586621679163826"><span class="hs-identifier hs-type">elt</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-60"></span><span> </span><span id="local-6989586621679163823"><span id="local-6989586621679163824"><span id="local-6989586621679163825"><span id="ChosenOneOfQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenOneOfQuery"><span class="hs-identifier hs-var">ChosenOneOfQuery</span></a></span></span><span>
|
||||
</span><span id="line-61"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Typeable</span></span><span> </span><span class="annot"><a href="#local-6989586621679163825"><span class="hs-identifier hs-type">elt</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679163825"><span class="hs-identifier hs-type">elt</span></a></span><span>
|
||||
</span><span id="line-62"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-type">ServiceQuery</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163824"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163823"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163823"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163825"><span class="hs-identifier hs-type">elt</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-63"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenOneOfQuery"><span class="hs-identifier hs-type">ChosenOneOfQuery</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163824"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163823"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163825"><span class="hs-identifier hs-type">elt</span></a></span></span></span></span><span>
|
||||
</span><span id="line-59"></span><span class="hs-keyword">data</span><span> </span><span id="ChosenOneOfQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenOneOfQuery"><span class="hs-identifier hs-var">ChosenOneOfQuery</span></a></span></span><span> </span><span id="local-6989586621679163826"><span class="annot"><a href="#local-6989586621679163826"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span id="local-6989586621679163825"><span class="annot"><a href="#local-6989586621679163825"><span class="hs-identifier hs-type">elt</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-60"></span><span> </span><span id="local-6989586621679163822"><span id="local-6989586621679163823"><span id="local-6989586621679163824"><span id="ChosenOneOfQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenOneOfQuery"><span class="hs-identifier hs-var">ChosenOneOfQuery</span></a></span></span><span>
|
||||
</span><span id="line-61"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Typeable</span></span><span> </span><span class="annot"><a href="#local-6989586621679163824"><span class="hs-identifier hs-type">elt</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679163824"><span class="hs-identifier hs-type">elt</span></a></span><span>
|
||||
</span><span id="line-62"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-type">ServiceQuery</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163823"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163822"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163822"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163824"><span class="hs-identifier hs-type">elt</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-63"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenOneOfQuery"><span class="hs-identifier hs-type">ChosenOneOfQuery</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163823"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163822"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163824"><span class="hs-identifier hs-type">elt</span></a></span></span></span></span><span>
|
||||
</span><span id="line-64"></span><span>
|
||||
</span><span id="line-65"></span><span class="hs-keyword">data</span><span> </span><span id="ChosenMethodQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenMethodQuery"><span class="hs-identifier hs-var">ChosenMethodQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163820"><span class="annot"><a href="#local-6989586621679163820"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163819"><span class="annot"><a href="#local-6989586621679163819"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163818"><span class="annot"><a href="#local-6989586621679163818"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163817"><span class="annot"><a href="#local-6989586621679163817"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163819"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-66"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163816"><span class="annot"><a href="#local-6989586621679163816"><span class="hs-identifier hs-type">m</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679163819"><span class="hs-identifier hs-type">snm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163818"><span class="hs-identifier hs-type">mnm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163817"><span class="hs-identifier hs-type">anm</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163819"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-67"></span><span> </span><span id="local-6989586621679163811"><span id="local-6989586621679163812"><span id="local-6989586621679163813"><span id="local-6989586621679163814"><span id="ChosenMethodQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenMethodQuery"><span class="hs-identifier hs-var">ChosenMethodQuery</span></a></span></span><span>
|
||||
</span><span id="line-65"></span><span class="hs-keyword">data</span><span> </span><span id="ChosenMethodQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenMethodQuery"><span class="hs-identifier hs-var">ChosenMethodQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163819"><span class="annot"><a href="#local-6989586621679163819"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163818"><span class="annot"><a href="#local-6989586621679163818"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163817"><span class="annot"><a href="#local-6989586621679163817"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163816"><span class="annot"><a href="#local-6989586621679163816"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163818"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-66"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163815"><span class="annot"><a href="#local-6989586621679163815"><span class="hs-identifier hs-type">m</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679163818"><span class="hs-identifier hs-type">snm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163817"><span class="hs-identifier hs-type">mnm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163816"><span class="hs-identifier hs-type">anm</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163818"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-67"></span><span> </span><span id="local-6989586621679163810"><span id="local-6989586621679163811"><span id="local-6989586621679163812"><span id="local-6989586621679163813"><span id="ChosenMethodQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenMethodQuery"><span class="hs-identifier hs-var">ChosenMethodQuery</span></a></span></span><span>
|
||||
</span><span id="line-68"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span>
|
||||
</span><span id="line-69"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NP</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue"><span class="hs-identifier hs-type">ArgumentValue</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163814"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163813"><span class="hs-identifier hs-type">args</span></a></span><span>
|
||||
</span><span id="line-70"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery"><span class="hs-identifier hs-type">ReturnQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163814"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163812"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-71"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenMethodQuery"><span class="hs-identifier hs-type">ChosenMethodQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163814"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679163811"><span class="hs-identifier hs-type">mname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163813"><span class="hs-identifier hs-type">args</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163812"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
|
||||
</span><span id="line-69"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NP</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue"><span class="hs-identifier hs-type">ArgumentValue</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163813"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163812"><span class="hs-identifier hs-type">args</span></a></span><span>
|
||||
</span><span id="line-70"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery"><span class="hs-identifier hs-type">ReturnQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163813"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163811"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-71"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenMethodQuery"><span class="hs-identifier hs-type">ChosenMethodQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163813"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679163810"><span class="hs-identifier hs-type">mname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163812"><span class="hs-identifier hs-type">args</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163811"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
|
||||
</span><span id="line-72"></span><span>
|
||||
</span><span id="line-73"></span><span class="hs-keyword">data</span><span> </span><span id="ArgumentValue"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue"><span class="hs-identifier hs-var">ArgumentValue</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163805"><span class="annot"><a href="#local-6989586621679163805"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163804"><span class="annot"><a href="#local-6989586621679163804"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163803"><span class="annot"><a href="#local-6989586621679163803"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163802"><span class="annot"><a href="#local-6989586621679163802"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163804"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-74"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163801"><span class="annot"><a href="#local-6989586621679163801"><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">Argument</span></span><span> </span><span class="annot"><a href="#local-6989586621679163804"><span class="hs-identifier hs-type">snm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163802"><span class="hs-identifier hs-type">anm</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163804"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-75"></span><span> </span><span id="local-6989586621679163797"><span id="local-6989586621679163798"><span id="local-6989586621679163799"><span id="ArgumentValue"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue"><span class="hs-identifier hs-var">ArgumentValue</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163799"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163798"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-76"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue"><span class="hs-identifier hs-type">ArgumentValue</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163799"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679163797"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163798"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-77"></span><span> </span><span id="local-6989586621679163791"><span id="local-6989586621679163792"><span id="local-6989586621679163793"><span id="ArgumentStream"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentStream"><span class="hs-identifier hs-var">ArgumentStream</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163793"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ListRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163792"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-78"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue"><span class="hs-identifier hs-type">ArgumentValue</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163793"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgStream</span></span><span> </span><span class="annot"><a href="#local-6989586621679163791"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163792"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-73"></span><span class="hs-keyword">data</span><span> </span><span id="ArgumentValue"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue"><span class="hs-identifier hs-var">ArgumentValue</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163804"><span class="annot"><a href="#local-6989586621679163804"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163803"><span class="annot"><a href="#local-6989586621679163803"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163802"><span class="annot"><a href="#local-6989586621679163802"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163801"><span class="annot"><a href="#local-6989586621679163801"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163803"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-74"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163800"><span class="annot"><a href="#local-6989586621679163800"><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">Argument</span></span><span> </span><span class="annot"><a href="#local-6989586621679163803"><span class="hs-identifier hs-type">snm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163801"><span class="hs-identifier hs-type">anm</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163803"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-75"></span><span> </span><span id="local-6989586621679163796"><span id="local-6989586621679163797"><span id="local-6989586621679163798"><span id="ArgumentValue"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue"><span class="hs-identifier hs-var">ArgumentValue</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163798"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163797"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-76"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue"><span class="hs-identifier hs-type">ArgumentValue</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163798"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679163796"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163797"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-77"></span><span> </span><span id="local-6989586621679163790"><span id="local-6989586621679163791"><span id="local-6989586621679163792"><span id="ArgumentStream"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentStream"><span class="hs-identifier hs-var">ArgumentStream</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163792"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ListRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163791"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-78"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue"><span class="hs-identifier hs-type">ArgumentValue</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163792"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgStream</span></span><span> </span><span class="annot"><a href="#local-6989586621679163790"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163791"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-79"></span><span>
|
||||
</span><span id="line-80"></span><span class="hs-keyword">data</span><span> </span><span id="ArgumentValue%27"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-var">ArgumentValue'</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163787"><span class="annot"><a href="#local-6989586621679163787"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163786"><span class="annot"><a href="#local-6989586621679163786"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163785"><span class="annot"><a href="#local-6989586621679163785"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163784"><span class="annot"><a href="#local-6989586621679163784"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163786"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-81"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163783"><span class="annot"><a href="#local-6989586621679163783"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163786"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-82"></span><span> </span><span id="local-6989586621679163781"><span id="local-6989586621679163782"><span id="ArgPrimitive"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgPrimitive"><span class="hs-identifier hs-var">ArgPrimitive</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679163782"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163781"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">PrimitiveRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163782"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-83"></span><span> </span><span id="local-6989586621679163776"><span id="local-6989586621679163777"><span id="local-6989586621679163778"><span id="ArgSchema"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgSchema"><span class="hs-identifier hs-var">ArgSchema</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679163778"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679163778"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679163777"><span class="hs-identifier hs-type">sty</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-84"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163776"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163778"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163777"><span class="hs-identifier hs-type">sty</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-85"></span><span> </span><span id="local-6989586621679163770"><span id="local-6989586621679163771"><span id="ArgList"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgList"><span class="hs-identifier hs-var">ArgList</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163771"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163770"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-86"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163771"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ListRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163770"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-87"></span><span> </span><span id="local-6989586621679163767"><span id="local-6989586621679163768"><span id="ArgOptional"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgOptional"><span class="hs-identifier hs-var">ArgOptional</span></a></span></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="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163768"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163767"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-88"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163768"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">OptionalRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163767"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-80"></span><span class="hs-keyword">data</span><span> </span><span id="ArgumentValue%27"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-var">ArgumentValue'</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163786"><span class="annot"><a href="#local-6989586621679163786"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163785"><span class="annot"><a href="#local-6989586621679163785"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163784"><span class="annot"><a href="#local-6989586621679163784"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163783"><span class="annot"><a href="#local-6989586621679163783"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163785"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-81"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163782"><span class="annot"><a href="#local-6989586621679163782"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163785"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-82"></span><span> </span><span id="local-6989586621679163780"><span id="local-6989586621679163781"><span id="ArgPrimitive"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgPrimitive"><span class="hs-identifier hs-var">ArgPrimitive</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679163781"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163780"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">PrimitiveRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163781"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-83"></span><span> </span><span id="local-6989586621679163775"><span id="local-6989586621679163776"><span id="local-6989586621679163777"><span id="ArgSchema"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgSchema"><span class="hs-identifier hs-var">ArgSchema</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679163777"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679163777"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679163776"><span class="hs-identifier hs-type">sty</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-84"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163775"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163777"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163776"><span class="hs-identifier hs-type">sty</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-85"></span><span> </span><span id="local-6989586621679163769"><span id="local-6989586621679163770"><span id="ArgList"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgList"><span class="hs-identifier hs-var">ArgList</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163770"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163769"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-86"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163770"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ListRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163769"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-87"></span><span> </span><span id="local-6989586621679163766"><span id="local-6989586621679163767"><span id="ArgOptional"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgOptional"><span class="hs-identifier hs-var">ArgOptional</span></a></span></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="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163767"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163766"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-88"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ArgumentValue%27"><span class="hs-identifier hs-type">ArgumentValue'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163767"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">OptionalRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163766"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-89"></span><span>
|
||||
</span><span id="line-90"></span><span class="hs-keyword">data</span><span> </span><span id="ReturnQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery"><span class="hs-identifier hs-var">ReturnQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163764"><span class="annot"><a href="#local-6989586621679163764"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163763"><span class="annot"><a href="#local-6989586621679163763"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163762"><span class="annot"><a href="#local-6989586621679163762"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163761"><span class="annot"><a href="#local-6989586621679163761"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163763"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-91"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163760"><span class="annot"><a href="#local-6989586621679163760"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Return</span></span><span> </span><span class="annot"><a href="#local-6989586621679163763"><span class="hs-identifier hs-type">snm</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163763"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-92"></span><span> </span><span id="local-6989586621679163758"><span id="RNothing"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RNothing"><span class="hs-identifier hs-var">RNothing</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery"><span class="hs-identifier hs-type">ReturnQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163758"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetNothing</span></span></span><span>
|
||||
</span><span id="line-93"></span><span> </span><span id="local-6989586621679163754"><span id="local-6989586621679163755"><span id="RSingle"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RSingle"><span class="hs-identifier hs-var">RSingle</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163755"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163754"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery"><span class="hs-identifier hs-type">ReturnQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163755"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679163754"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-94"></span><span> </span><span id="local-6989586621679163749"><span id="local-6989586621679163750"><span id="RStream"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RStream"><span class="hs-identifier hs-var">RStream</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163750"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163749"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery"><span class="hs-identifier hs-type">ReturnQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163750"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetStream</span></span><span> </span><span class="annot"><a href="#local-6989586621679163749"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-90"></span><span class="hs-keyword">data</span><span> </span><span id="ReturnQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery"><span class="hs-identifier hs-var">ReturnQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163763"><span class="annot"><a href="#local-6989586621679163763"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163762"><span class="annot"><a href="#local-6989586621679163762"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163761"><span class="annot"><a href="#local-6989586621679163761"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163760"><span class="annot"><a href="#local-6989586621679163760"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163762"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-91"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163759"><span class="annot"><a href="#local-6989586621679163759"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Return</span></span><span> </span><span class="annot"><a href="#local-6989586621679163762"><span class="hs-identifier hs-type">snm</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163762"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-92"></span><span> </span><span id="local-6989586621679163757"><span id="RNothing"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RNothing"><span class="hs-identifier hs-var">RNothing</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery"><span class="hs-identifier hs-type">ReturnQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163757"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetNothing</span></span></span><span>
|
||||
</span><span id="line-93"></span><span> </span><span id="local-6989586621679163753"><span id="local-6989586621679163754"><span id="RSingle"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RSingle"><span class="hs-identifier hs-var">RSingle</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163754"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163753"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery"><span class="hs-identifier hs-type">ReturnQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163754"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679163753"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-94"></span><span> </span><span id="local-6989586621679163748"><span id="local-6989586621679163749"><span id="RStream"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RStream"><span class="hs-identifier hs-var">RStream</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163749"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163748"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery"><span class="hs-identifier hs-type">ReturnQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163749"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetStream</span></span><span> </span><span class="annot"><a href="#local-6989586621679163748"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-95"></span><span>
|
||||
</span><span id="line-96"></span><span class="hs-keyword">data</span><span> </span><span id="ReturnQuery%27"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-var">ReturnQuery'</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163746"><span class="annot"><a href="#local-6989586621679163746"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163745"><span class="annot"><a href="#local-6989586621679163745"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163744"><span class="annot"><a href="#local-6989586621679163744"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163743"><span class="annot"><a href="#local-6989586621679163743"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163745"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-97"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163742"><span class="annot"><a href="#local-6989586621679163742"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163745"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-98"></span><span> </span><span id="local-6989586621679163740"><span id="local-6989586621679163741"><span id="RetPrimitive"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetPrimitive"><span class="hs-identifier hs-var">RetPrimitive</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163741"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">PrimitiveRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163740"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-99"></span><span> </span><span id="local-6989586621679163736"><span id="local-6989586621679163737"><span id="local-6989586621679163738"><span id="RetSchema"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetSchema"><span class="hs-identifier hs-var">RetSchema</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#SchemaQuery"><span class="hs-identifier hs-type">SchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163738"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679163738"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679163737"><span class="hs-identifier hs-type">sty</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-100"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163736"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163738"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163737"><span class="hs-identifier hs-type">sty</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-101"></span><span> </span><span id="local-6989586621679163732"><span id="local-6989586621679163733"><span id="RetList"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetList"><span class="hs-identifier hs-var">RetList</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163733"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163732"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163733"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ListRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163732"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-102"></span><span> </span><span id="local-6989586621679163729"><span id="local-6989586621679163730"><span id="RetOptional"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetOptional"><span class="hs-identifier hs-var">RetOptional</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163730"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163729"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163730"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">OptionalRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163729"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-103"></span><span> </span><span id="local-6989586621679163725"><span id="local-6989586621679163726"><span id="local-6989586621679163727"><span id="RetObject"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetObject"><span class="hs-identifier hs-var">RetObject</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-type">ServiceQuery</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163727"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163726"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163726"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163725"><span class="hs-identifier hs-type">s</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-104"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163727"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163726"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ObjectRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163725"><span class="hs-identifier hs-type">s</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-96"></span><span class="hs-keyword">data</span><span> </span><span id="ReturnQuery%27"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-var">ReturnQuery'</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163745"><span class="annot"><a href="#local-6989586621679163745"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span id="local-6989586621679163744"><span class="annot"><a href="#local-6989586621679163744"><span class="hs-identifier hs-type hs-type">snm</span></a></span></span><span> </span><span id="local-6989586621679163743"><span class="annot"><a href="#local-6989586621679163743"><span class="hs-identifier hs-type hs-type">mnm</span></a></span></span><span> </span><span id="local-6989586621679163742"><span class="annot"><a href="#local-6989586621679163742"><span class="hs-identifier hs-type hs-type">anm</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163744"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-97"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163741"><span class="annot"><a href="#local-6989586621679163741"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">TypeRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163744"><span class="hs-identifier hs-type">snm</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-98"></span><span> </span><span id="local-6989586621679163739"><span id="local-6989586621679163740"><span id="RetPrimitive"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetPrimitive"><span class="hs-identifier hs-var">RetPrimitive</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163740"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">PrimitiveRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163739"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-99"></span><span> </span><span id="local-6989586621679163735"><span id="local-6989586621679163736"><span id="local-6989586621679163737"><span id="RetSchema"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetSchema"><span class="hs-identifier hs-var">RetSchema</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#SchemaQuery"><span class="hs-identifier hs-type">SchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163737"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679163737"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679163736"><span class="hs-identifier hs-type">sty</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-100"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163735"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163737"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163736"><span class="hs-identifier hs-type">sty</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-101"></span><span> </span><span id="local-6989586621679163731"><span id="local-6989586621679163732"><span id="RetList"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetList"><span class="hs-identifier hs-var">RetList</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163732"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163731"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163732"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ListRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163731"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-102"></span><span> </span><span id="local-6989586621679163728"><span id="local-6989586621679163729"><span id="RetOptional"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetOptional"><span class="hs-identifier hs-var">RetOptional</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163729"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163728"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163729"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">OptionalRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163728"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-103"></span><span> </span><span id="local-6989586621679163724"><span id="local-6989586621679163725"><span id="local-6989586621679163726"><span id="RetObject"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetObject"><span class="hs-identifier hs-var">RetObject</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ServiceQuery"><span class="hs-identifier hs-type">ServiceQuery</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163726"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163725"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679163725"><span class="hs-identifier hs-type">ss</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163724"><span class="hs-identifier hs-type">s</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-104"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnQuery%27"><span class="hs-identifier hs-type">ReturnQuery'</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="annot"><a href="#local-6989586621679163726"><span class="hs-identifier hs-type">pname</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163725"><span class="hs-identifier hs-type">ss</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ObjectRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163724"><span class="hs-identifier hs-type">s</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-105"></span><span>
|
||||
</span><span id="line-106"></span><span class="hs-keyword">data</span><span> </span><span id="SchemaQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#SchemaQuery"><span class="hs-identifier hs-var">SchemaQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163722"><span class="annot"><a href="#local-6989586621679163722"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span id="local-6989586621679163720"><span class="annot"><a href="#local-6989586621679163720"><span class="hs-identifier hs-type hs-type">tn</span></a></span></span><span> </span><span id="local-6989586621679163719"><span class="annot"><a href="#local-6989586621679163719"><span class="hs-identifier hs-type hs-type">fn</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163718"><span class="annot"><a href="#local-6989586621679163718"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">TypeDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163720"><span class="hs-identifier hs-type">tn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163719"><span class="hs-identifier hs-type">fn</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-107"></span><span> </span><span id="local-6989586621679163714"><span id="local-6989586621679163715"><span id="local-6989586621679163716"><span id="QueryEnum"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#QueryEnum"><span class="hs-identifier hs-var">QueryEnum</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#SchemaQuery"><span class="hs-identifier hs-type">SchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163716"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DEnum</span></span><span> </span><span class="annot"><a href="#local-6989586621679163715"><span class="hs-identifier hs-type">nm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163714"><span class="hs-identifier hs-type">choices</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-108"></span><span> </span><span id="local-6989586621679163709"><span id="local-6989586621679163710"><span id="local-6989586621679163711"><span id="QueryRecord"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#QueryRecord"><span class="hs-identifier hs-var">QueryRecord</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneFieldQuery"><span class="hs-identifier hs-type">OneFieldQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163711"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163710"><span class="hs-identifier hs-type">fs</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-109"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#SchemaQuery"><span class="hs-identifier hs-type">SchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163711"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DRecord</span></span><span> </span><span class="annot"><a href="#local-6989586621679163709"><span class="hs-identifier hs-type">ty</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163710"><span class="hs-identifier hs-type">fs</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-106"></span><span class="hs-keyword">data</span><span> </span><span id="SchemaQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#SchemaQuery"><span class="hs-identifier hs-var">SchemaQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163721"><span class="annot"><a href="#local-6989586621679163721"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span id="local-6989586621679163719"><span class="annot"><a href="#local-6989586621679163719"><span class="hs-identifier hs-type hs-type">tn</span></a></span></span><span> </span><span id="local-6989586621679163718"><span class="annot"><a href="#local-6989586621679163718"><span class="hs-identifier hs-type hs-type">fn</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163717"><span class="annot"><a href="#local-6989586621679163717"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">TypeDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163719"><span class="hs-identifier hs-type">tn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163718"><span class="hs-identifier hs-type">fn</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-107"></span><span> </span><span id="local-6989586621679163713"><span id="local-6989586621679163714"><span id="local-6989586621679163715"><span id="QueryEnum"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#QueryEnum"><span class="hs-identifier hs-var">QueryEnum</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#SchemaQuery"><span class="hs-identifier hs-type">SchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163715"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DEnum</span></span><span> </span><span class="annot"><a href="#local-6989586621679163714"><span class="hs-identifier hs-type">nm</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163713"><span class="hs-identifier hs-type">choices</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-108"></span><span> </span><span id="local-6989586621679163708"><span id="local-6989586621679163709"><span id="local-6989586621679163710"><span id="QueryRecord"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#QueryRecord"><span class="hs-identifier hs-var">QueryRecord</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneFieldQuery"><span class="hs-identifier hs-type">OneFieldQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163710"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163709"><span class="hs-identifier hs-type">fs</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-109"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#SchemaQuery"><span class="hs-identifier hs-type">SchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163710"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DRecord</span></span><span> </span><span class="annot"><a href="#local-6989586621679163708"><span class="hs-identifier hs-type">ty</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163709"><span class="hs-identifier hs-type">fs</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-110"></span><span>
|
||||
</span><span id="line-111"></span><span class="hs-keyword">data</span><span> </span><span id="OneFieldQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneFieldQuery"><span class="hs-identifier hs-var">OneFieldQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163705"><span class="annot"><a href="#local-6989586621679163705"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span id="local-6989586621679163704"><span class="annot"><a href="#local-6989586621679163704"><span class="hs-identifier hs-type hs-type">tn</span></a></span></span><span> </span><span id="local-6989586621679163703"><span class="annot"><a href="#local-6989586621679163703"><span class="hs-identifier hs-type hs-type">fn</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163702"><span class="annot"><a href="#local-6989586621679163702"><span class="hs-identifier hs-type">fs</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163704"><span class="hs-identifier hs-type">tn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163703"><span class="hs-identifier hs-type">fn</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-112"></span><span> </span><span id="local-6989586621679163699"><span id="local-6989586621679163700"><span id="OneFieldQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneFieldQuery"><span class="hs-identifier hs-var">OneFieldQuery</span></a></span></span><span>
|
||||
</span><span id="line-111"></span><span class="hs-keyword">data</span><span> </span><span id="OneFieldQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneFieldQuery"><span class="hs-identifier hs-var">OneFieldQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163704"><span class="annot"><a href="#local-6989586621679163704"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span id="local-6989586621679163703"><span class="annot"><a href="#local-6989586621679163703"><span class="hs-identifier hs-type hs-type">tn</span></a></span></span><span> </span><span id="local-6989586621679163702"><span class="annot"><a href="#local-6989586621679163702"><span class="hs-identifier hs-type hs-type">fn</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163701"><span class="annot"><a href="#local-6989586621679163701"><span class="hs-identifier hs-type">fs</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163703"><span class="hs-identifier hs-type">tn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163702"><span class="hs-identifier hs-type">fn</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-112"></span><span> </span><span id="local-6989586621679163698"><span id="local-6989586621679163699"><span id="OneFieldQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneFieldQuery"><span class="hs-identifier hs-var">OneFieldQuery</span></a></span></span><span>
|
||||
</span><span id="line-113"></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">Text</span></span><span>
|
||||
</span><span id="line-114"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenFieldQuery"><span class="hs-identifier hs-type">ChosenFieldQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163700"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163699"><span class="hs-identifier hs-type">fs</span></a></span><span>
|
||||
</span><span id="line-115"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneFieldQuery"><span class="hs-identifier hs-type">OneFieldQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163700"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163699"><span class="hs-identifier hs-type">fs</span></a></span></span></span><span>
|
||||
</span><span id="line-116"></span><span> </span><span id="local-6989586621679163695"><span id="local-6989586621679163696"><span id="TypeNameFieldQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#TypeNameFieldQuery"><span class="hs-identifier hs-var">TypeNameFieldQuery</span></a></span></span><span>
|
||||
</span><span id="line-114"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenFieldQuery"><span class="hs-identifier hs-type">ChosenFieldQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163699"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679163698"><span class="hs-identifier hs-type">fs</span></a></span><span>
|
||||
</span><span id="line-115"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneFieldQuery"><span class="hs-identifier hs-type">OneFieldQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163699"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163698"><span class="hs-identifier hs-type">fs</span></a></span></span></span><span>
|
||||
</span><span id="line-116"></span><span> </span><span id="local-6989586621679163694"><span id="local-6989586621679163695"><span id="TypeNameFieldQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#TypeNameFieldQuery"><span class="hs-identifier hs-var">TypeNameFieldQuery</span></a></span></span><span>
|
||||
</span><span id="line-117"></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">Text</span></span><span>
|
||||
</span><span id="line-118"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneFieldQuery"><span class="hs-identifier hs-type">OneFieldQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163696"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163695"><span class="hs-identifier hs-type">fs</span></a></span></span></span><span>
|
||||
</span><span id="line-118"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#OneFieldQuery"><span class="hs-identifier hs-type">OneFieldQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163695"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163694"><span class="hs-identifier hs-type">fs</span></a></span></span></span><span>
|
||||
</span><span id="line-119"></span><span>
|
||||
</span><span id="line-120"></span><span class="hs-keyword">data</span><span> </span><span id="ChosenFieldQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenFieldQuery"><span class="hs-identifier hs-var">ChosenFieldQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163693"><span class="annot"><a href="#local-6989586621679163693"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span id="local-6989586621679163692"><span class="annot"><a href="#local-6989586621679163692"><span class="hs-identifier hs-type hs-type">tn</span></a></span></span><span> </span><span id="local-6989586621679163691"><span class="annot"><a href="#local-6989586621679163691"><span class="hs-identifier hs-type hs-type">fn</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163690"><span class="annot"><a href="#local-6989586621679163690"><span class="hs-identifier hs-type">f</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163692"><span class="hs-identifier hs-type">tn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163691"><span class="hs-identifier hs-type">fn</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-121"></span><span> </span><span id="local-6989586621679163687"><span id="local-6989586621679163688"><span id="local-6989586621679163689"><span id="ChosenFieldQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenFieldQuery"><span class="hs-identifier hs-var">ChosenFieldQuery</span></a></span></span><span>
|
||||
</span><span id="line-122"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-type">ReturnSchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163689"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163688"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-123"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenFieldQuery"><span class="hs-identifier hs-type">ChosenFieldQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163689"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163687"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163688"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-120"></span><span class="hs-keyword">data</span><span> </span><span id="ChosenFieldQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenFieldQuery"><span class="hs-identifier hs-var">ChosenFieldQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163692"><span class="annot"><a href="#local-6989586621679163692"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span id="local-6989586621679163691"><span class="annot"><a href="#local-6989586621679163691"><span class="hs-identifier hs-type hs-type">tn</span></a></span></span><span> </span><span id="local-6989586621679163690"><span class="annot"><a href="#local-6989586621679163690"><span class="hs-identifier hs-type hs-type">fn</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163689"><span class="annot"><a href="#local-6989586621679163689"><span class="hs-identifier hs-type">f</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163691"><span class="hs-identifier hs-type">tn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163690"><span class="hs-identifier hs-type">fn</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-121"></span><span> </span><span id="local-6989586621679163686"><span id="local-6989586621679163687"><span id="local-6989586621679163688"><span id="ChosenFieldQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenFieldQuery"><span class="hs-identifier hs-var">ChosenFieldQuery</span></a></span></span><span>
|
||||
</span><span id="line-122"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-type">ReturnSchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163688"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163687"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-123"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ChosenFieldQuery"><span class="hs-identifier hs-type">ChosenFieldQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163688"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679163686"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163687"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span></span><span>
|
||||
</span><span id="line-124"></span><span>
|
||||
</span><span id="line-125"></span><span class="hs-keyword">data</span><span> </span><span id="ReturnSchemaQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-var">ReturnSchemaQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163683"><span class="annot"><a href="#local-6989586621679163683"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span id="local-6989586621679163682"><span class="annot"><a href="#local-6989586621679163682"><span class="hs-identifier hs-type hs-type">tn</span></a></span></span><span> </span><span id="local-6989586621679163681"><span class="annot"><a href="#local-6989586621679163681"><span class="hs-identifier hs-type hs-type">fn</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163680"><span class="annot"><a href="#local-6989586621679163680"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">FieldType</span></span><span> </span><span class="annot"><a href="#local-6989586621679163682"><span class="hs-identifier hs-type">tn</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-126"></span><span> </span><span id="local-6989586621679163677"><span id="local-6989586621679163678"><span id="RetSchPrimitive"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetSchPrimitive"><span class="hs-identifier hs-var">RetSchPrimitive</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-type">ReturnSchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163678"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TPrimitive</span></span><span> </span><span class="annot"><a href="#local-6989586621679163677"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-127"></span><span> </span><span id="local-6989586621679163673"><span id="local-6989586621679163674"><span id="RetSchSchema"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetSchSchema"><span class="hs-identifier hs-var">RetSchSchema</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#SchemaQuery"><span class="hs-identifier hs-type">SchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163674"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679163674"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679163673"><span class="hs-identifier hs-type">sty</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-128"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-type">ReturnSchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163674"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TSchematic</span></span><span> </span><span class="annot"><a href="#local-6989586621679163673"><span class="hs-identifier hs-type">sty</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-129"></span><span> </span><span id="local-6989586621679163669"><span id="local-6989586621679163670"><span id="RetSchList"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetSchList"><span class="hs-identifier hs-var">RetSchList</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-type">ReturnSchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163670"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163669"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-130"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-type">ReturnSchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163670"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TList</span></span><span> </span><span class="annot"><a href="#local-6989586621679163669"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-131"></span><span> </span><span id="local-6989586621679163665"><span id="local-6989586621679163666"><span id="RetSchOptional"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetSchOptional"><span class="hs-identifier hs-var">RetSchOptional</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-type">ReturnSchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163666"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163665"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-132"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-type">ReturnSchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163666"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TOption</span></span><span> </span><span class="annot"><a href="#local-6989586621679163665"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-125"></span><span class="hs-keyword">data</span><span> </span><span id="ReturnSchemaQuery"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-var">ReturnSchemaQuery</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163682"><span class="annot"><a href="#local-6989586621679163682"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span id="local-6989586621679163681"><span class="annot"><a href="#local-6989586621679163681"><span class="hs-identifier hs-type hs-type">tn</span></a></span></span><span> </span><span id="local-6989586621679163680"><span class="annot"><a href="#local-6989586621679163680"><span class="hs-identifier hs-type hs-type">fn</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679163679"><span class="annot"><a href="#local-6989586621679163679"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">FieldType</span></span><span> </span><span class="annot"><a href="#local-6989586621679163681"><span class="hs-identifier hs-type">tn</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-126"></span><span> </span><span id="local-6989586621679163676"><span id="local-6989586621679163677"><span id="RetSchPrimitive"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetSchPrimitive"><span class="hs-identifier hs-var">RetSchPrimitive</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-type">ReturnSchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163677"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TPrimitive</span></span><span> </span><span class="annot"><a href="#local-6989586621679163676"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-127"></span><span> </span><span id="local-6989586621679163672"><span id="local-6989586621679163673"><span id="RetSchSchema"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetSchSchema"><span class="hs-identifier hs-var">RetSchSchema</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#SchemaQuery"><span class="hs-identifier hs-type">SchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163673"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679163673"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679163672"><span class="hs-identifier hs-type">sty</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-128"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-type">ReturnSchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163673"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TSchematic</span></span><span> </span><span class="annot"><a href="#local-6989586621679163672"><span class="hs-identifier hs-type">sty</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-129"></span><span> </span><span id="local-6989586621679163668"><span id="local-6989586621679163669"><span id="RetSchList"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetSchList"><span class="hs-identifier hs-var">RetSchList</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-type">ReturnSchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163669"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163668"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-130"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-type">ReturnSchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163669"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TList</span></span><span> </span><span class="annot"><a href="#local-6989586621679163668"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-131"></span><span> </span><span id="local-6989586621679163664"><span id="local-6989586621679163665"><span id="RetSchOptional"><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#RetSchOptional"><span class="hs-identifier hs-var">RetSchOptional</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-type">ReturnSchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163665"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163664"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-132"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Definition.html#ReturnSchemaQuery"><span class="hs-identifier hs-type">ReturnSchemaQuery</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679163665"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TOption</span></span><span> </span><span class="annot"><a href="#local-6989586621679163664"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-133"></span></pre></body></html>
|
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -65,8 +65,8 @@ more control over the settings.
|
||||
</span><span id="line-65"></span><span>
|
||||
</span><span id="line-66"></span><span class="hs-keyword">data</span><span> </span><span id="GraphQLInput"><span class="annot"><a href="Mu.GraphQL.Server.html#GraphQLInput"><span class="hs-identifier hs-var">GraphQLInput</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="GraphQLInput"><span class="annot"><a href="Mu.GraphQL.Server.html#GraphQLInput"><span class="hs-identifier hs-var">GraphQLInput</span></a></span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Parse.html#VariableMapC"><span class="hs-identifier hs-type">VariableMapC</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Maybe</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-67"></span><span>
|
||||
</span><span id="line-68"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679168406"><span class="annot"><span class="hs-identifier hs-type">A.FromJSON</span></span><span> </span><span class="annot"><a href="Mu.GraphQL.Server.html#GraphQLInput"><span class="hs-identifier hs-type">GraphQLInput</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-69"></span><span> </span><span id="local-6989586621679168404"><span class="annot"><span class="annottext">parseJSON :: Value -> Parser GraphQLInput
|
||||
</span><span id="line-68"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679168405"><span class="annot"><span class="hs-identifier hs-type">A.FromJSON</span></span><span> </span><span class="annot"><a href="Mu.GraphQL.Server.html#GraphQLInput"><span class="hs-identifier hs-type">GraphQLInput</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-69"></span><span> </span><span id="local-6989586621679168403"><span class="annot"><span class="annottext">parseJSON :: Value -> Parser GraphQLInput
|
||||
</span><span class="hs-identifier hs-var hs-var hs-var hs-var">parseJSON</span></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
|
||||
-> (Object -> Parser GraphQLInput) -> Value -> Parser GraphQLInput
|
||||
forall a. String -> (Object -> Parser a) -> Value -> Parser a
|
||||
@ -75,15 +75,15 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a
|
||||
-> (Object -> Parser GraphQLInput) -> Value -> Parser GraphQLInput
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span>
|
||||
</span><span id="line-70"></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679168401"><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168401"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> VariableMapC -> Maybe Text -> GraphQLInput
|
||||
</span><span id="line-70"></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679168400"><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168400"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> VariableMapC -> Maybe Text -> GraphQLInput
|
||||
</span><a href="Mu.GraphQL.Server.html#GraphQLInput"><span class="hs-identifier hs-var">GraphQLInput</span></a></span><span>
|
||||
</span><span id="line-71"></span><span> </span><span class="annot"><span class="annottext">(Text -> VariableMapC -> Maybe Text -> GraphQLInput)
|
||||
-> Parser Text
|
||||
-> Parser (VariableMapC -> Maybe Text -> GraphQLInput)
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168401"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser Text
|
||||
</span><a href="#local-6989586621679168400"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser Text
|
||||
forall a. FromJSON a => Object -> Text -> Parser a
|
||||
</span><span class="hs-operator hs-var">A..:</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"query"</span></span><span>
|
||||
@ -91,7 +91,7 @@ forall a. FromJSON a => Object -> Text -> Parser a
|
||||
-> Parser VariableMapC -> Parser (Maybe Text -> GraphQLInput)
|
||||
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><*></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168401"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser VariableMapC
|
||||
</span><a href="#local-6989586621679168400"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser VariableMapC
|
||||
forall a. FromJSON a => Object -> Text -> Parser a
|
||||
</span><span class="hs-operator hs-var">A..:</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"variables"</span></span><span> </span><span class="annot"><span class="annottext">Parser VariableMapC -> Parser VariableMapC -> Parser VariableMapC
|
||||
@ -105,7 +105,7 @@ forall k v. HashMap k v
|
||||
-> Parser (Maybe Text) -> Parser GraphQLInput
|
||||
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><*></span></span><span> </span><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168401"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser (Maybe Text)
|
||||
</span><a href="#local-6989586621679168400"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser (Maybe Text)
|
||||
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
|
||||
</span><span class="hs-operator hs-var">A..:?</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"operationName"</span></span><span>
|
||||
@ -113,12 +113,12 @@ forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
|
||||
</span><span id="line-75"></span><span class="hs-comment">-- | Turn a Mu GraphQL 'Server' into a WAI 'Application'.</span><span>
|
||||
</span><span id="line-76"></span><span class="hs-comment">-- Use this version when your server has not only</span><span>
|
||||
</span><span id="line-77"></span><span class="hs-comment">-- queries, but also mutations or subscriptions.</span><span>
|
||||
</span><span id="line-78"></span><span id="local-6989586621679168605"><span id="local-6989586621679168606"><span id="local-6989586621679168607"><span id="local-6989586621679168608"><span id="local-6989586621679168609"><span id="local-6989586621679168610"><span class="annot"><a href="Mu.GraphQL.Server.html#graphQLApp"><span class="hs-identifier hs-type">graphQLApp</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-79"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168610"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168609"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168608"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168607"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168606"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168605"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-80"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168606"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168610"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168605"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-81"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168609"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-82"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168608"><span class="hs-identifier hs-type">mut</span></a></span><span>
|
||||
</span><span id="line-83"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168607"><span class="hs-identifier hs-type">sub</span></a></span><span>
|
||||
</span><span id="line-78"></span><span id="local-6989586621679168604"><span id="local-6989586621679168605"><span id="local-6989586621679168606"><span id="local-6989586621679168607"><span id="local-6989586621679168608"><span id="local-6989586621679168609"><span class="annot"><a href="Mu.GraphQL.Server.html#graphQLApp"><span class="hs-identifier hs-type">graphQLApp</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-79"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168609"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168608"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168607"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168606"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168605"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168604"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-80"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168605"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168609"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168604"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-81"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168608"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-82"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168607"><span class="hs-identifier hs-type">mut</span></a></span><span>
|
||||
</span><span id="line-83"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168606"><span class="hs-identifier hs-type">sub</span></a></span><span>
|
||||
</span><span id="line-84"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Application</span></span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-85"></span><span id="graphQLApp"><span class="annot"><span class="annottext">graphQLApp :: ServerT chn Field p ServerErrorIO hs
|
||||
-> Proxy qr -> Proxy mut -> Proxy sub -> Application
|
||||
@ -145,14 +145,14 @@ forall a. ServerErrorIO a -> ServerErrorIO a
|
||||
</span><span id="line-87"></span><span class="hs-comment">-- | Turn a Mu GraphQL 'Server' into a WAI 'Application'.</span><span>
|
||||
</span><span id="line-88"></span><span class="hs-comment">-- Use this version when your server has only queries.</span><span>
|
||||
</span><span id="line-89"></span><span class="annot"><a href="Mu.GraphQL.Server.html#graphQLAppQuery"><span class="hs-identifier hs-type">graphQLAppQuery</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-90"></span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168465"><span class="annot"><a href="#local-6989586621679168465"><span class="hs-identifier hs-type">qr</span></a></span></span><span> </span><span id="local-6989586621679168466"><span class="annot"><a href="#local-6989586621679168466"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span id="local-6989586621679168464"><span class="annot"><a href="#local-6989586621679168464"><span class="hs-identifier hs-type">chn</span></a></span></span><span> </span><span id="local-6989586621679168463"><span class="annot"><a href="#local-6989586621679168463"><span class="hs-identifier hs-type">hs</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-91"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168466"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679168465"><span class="hs-identifier hs-type">qr</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Nothing</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Nothing</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168464"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168463"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-92"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168464"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168466"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168463"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-93"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168465"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-90"></span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168464"><span class="annot"><a href="#local-6989586621679168464"><span class="hs-identifier hs-type">qr</span></a></span></span><span> </span><span id="local-6989586621679168465"><span class="annot"><a href="#local-6989586621679168465"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span id="local-6989586621679168463"><span class="annot"><a href="#local-6989586621679168463"><span class="hs-identifier hs-type">chn</span></a></span></span><span> </span><span id="local-6989586621679168462"><span class="annot"><a href="#local-6989586621679168462"><span class="hs-identifier hs-type">hs</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-91"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168465"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679168464"><span class="hs-identifier hs-type">qr</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Nothing</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Nothing</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168463"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168462"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-92"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168463"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168465"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168462"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-93"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168464"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-94"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Application</span></span><span>
|
||||
</span><span id="line-95"></span><span id="graphQLAppQuery"><span class="annot"><span class="annottext">graphQLAppQuery :: ServerT chn Field p ServerErrorIO hs -> Proxy qr -> Application
|
||||
</span><a href="Mu.GraphQL.Server.html#graphQLAppQuery"><span class="hs-identifier hs-var hs-var">graphQLAppQuery</span></a></span></span><span> </span><span id="local-6989586621679168395"><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
</span><a href="#local-6989586621679168395"><span class="hs-identifier hs-var">svr</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="Mu.GraphQL.Server.html#graphQLAppQuery"><span class="hs-identifier hs-var hs-var">graphQLAppQuery</span></a></span></span><span> </span><span id="local-6989586621679168394"><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
</span><a href="#local-6989586621679168394"><span class="hs-identifier hs-var">svr</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><span class="hs-identifier">_</span></span><span>
|
||||
</span><span id="line-96"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
-> Proxy ('Just qr)
|
||||
@ -165,9 +165,9 @@ GraphQLApp p qr mut sub ServerErrorIO chn hs =>
|
||||
ServerT chn Field p ServerErrorIO hs
|
||||
-> Proxy qr -> Proxy mut -> Proxy sub -> Application
|
||||
</span><a href="Mu.GraphQL.Server.html#graphQLApp"><span class="hs-identifier hs-var">graphQLApp</span></a></span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
</span><a href="#local-6989586621679168395"><span class="hs-identifier hs-var">svr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy ('Just qr)
|
||||
</span><a href="#local-6989586621679168394"><span class="hs-identifier hs-var">svr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy ('Just qr)
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679168465"><span class="hs-identifier hs-type">qr</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy 'Nothing
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679168464"><span class="hs-identifier hs-type">qr</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy 'Nothing
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Nothing</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy 'Nothing
|
||||
forall k (t :: k). Proxy t
|
||||
@ -177,17 +177,17 @@ forall k (t :: k). Proxy t
|
||||
</span><span id="line-99"></span><span class="hs-comment">-- using a combined transformer stack.</span><span>
|
||||
</span><span id="line-100"></span><span class="hs-comment">-- See also documentation for 'graphQLAppQuery'.</span><span>
|
||||
</span><span id="line-101"></span><span class="annot"><a href="Mu.GraphQL.Server.html#graphQLAppTransQuery"><span class="hs-identifier hs-type">graphQLAppTransQuery</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-102"></span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168393"><span class="annot"><a href="#local-6989586621679168393"><span class="hs-identifier hs-type">qr</span></a></span></span><span> </span><span id="local-6989586621679168392"><span class="annot"><a href="#local-6989586621679168392"><span class="hs-identifier hs-type">m</span></a></span></span><span> </span><span id="local-6989586621679168391"><span class="annot"><a href="#local-6989586621679168391"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span id="local-6989586621679168390"><span class="annot"><a href="#local-6989586621679168390"><span class="hs-identifier hs-type">chn</span></a></span></span><span> </span><span id="local-6989586621679168389"><span class="annot"><a href="#local-6989586621679168389"><span class="hs-identifier hs-type">hs</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-103"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168391"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679168393"><span class="hs-identifier hs-type">qr</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Nothing</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Nothing</span></span><span> </span><span class="annot"><a href="#local-6989586621679168392"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168390"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168389"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-104"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168601"><span class="annot"><a href="#local-6989586621679168601"><span class="hs-identifier hs-type">a</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="#local-6989586621679168392"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168601"><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">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168601"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-105"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168390"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168391"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168392"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168389"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-106"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168393"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-102"></span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168392"><span class="annot"><a href="#local-6989586621679168392"><span class="hs-identifier hs-type">qr</span></a></span></span><span> </span><span id="local-6989586621679168391"><span class="annot"><a href="#local-6989586621679168391"><span class="hs-identifier hs-type">m</span></a></span></span><span> </span><span id="local-6989586621679168390"><span class="annot"><a href="#local-6989586621679168390"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span id="local-6989586621679168389"><span class="annot"><a href="#local-6989586621679168389"><span class="hs-identifier hs-type">chn</span></a></span></span><span> </span><span id="local-6989586621679168388"><span class="annot"><a href="#local-6989586621679168388"><span class="hs-identifier hs-type">hs</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-103"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168390"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679168392"><span class="hs-identifier hs-type">qr</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Nothing</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Nothing</span></span><span> </span><span class="annot"><a href="#local-6989586621679168391"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168389"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168388"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-104"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168600"><span class="annot"><a href="#local-6989586621679168600"><span class="hs-identifier hs-type">a</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="#local-6989586621679168391"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168600"><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">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168600"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-105"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168389"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168390"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168391"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168388"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-106"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168392"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-107"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Application</span></span><span>
|
||||
</span><span id="line-108"></span><span id="graphQLAppTransQuery"><span class="annot"><span class="annottext">graphQLAppTransQuery :: (forall a. m a -> ServerErrorIO a)
|
||||
-> ServerT chn Field p m hs -> Proxy qr -> Application
|
||||
</span><a href="Mu.GraphQL.Server.html#graphQLAppTransQuery"><span class="hs-identifier hs-var hs-var">graphQLAppTransQuery</span></a></span></span><span> </span><span id="local-6989586621679168388"><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168388"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679168387"><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168387"><span class="hs-identifier hs-var">svr</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="Mu.GraphQL.Server.html#graphQLAppTransQuery"><span class="hs-identifier hs-var hs-var">graphQLAppTransQuery</span></a></span></span><span> </span><span id="local-6989586621679168387"><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168387"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679168386"><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168386"><span class="hs-identifier hs-var">svr</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><span class="hs-identifier">_</span></span><span>
|
||||
</span><span id="line-109"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall a. m a -> ServerErrorIO a)
|
||||
-> ServerT chn Field p m hs
|
||||
@ -206,10 +206,10 @@ GraphQLApp p qr mut sub m chn hs =>
|
||||
-> Proxy sub
|
||||
-> Application
|
||||
</span><a href="Mu.GraphQL.Server.html#graphQLAppTrans"><span class="hs-identifier hs-var">graphQLAppTrans</span></a></span><span> </span><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168388"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168387"><span class="hs-identifier hs-var">svr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy ('Just qr)
|
||||
</span><a href="#local-6989586621679168387"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168386"><span class="hs-identifier hs-var">svr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy ('Just qr)
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679168393"><span class="hs-identifier hs-type">qr</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy 'Nothing
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679168392"><span class="hs-identifier hs-type">qr</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy 'Nothing
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Nothing</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy 'Nothing
|
||||
forall k (t :: k). Proxy t
|
||||
@ -218,13 +218,13 @@ forall k (t :: k). Proxy t
|
||||
</span><span id="line-111"></span><span class="hs-comment">-- | Turn a Mu GraphQL 'Server' into a WAI 'Application'</span><span>
|
||||
</span><span id="line-112"></span><span class="hs-comment">-- using a combined transformer stack.</span><span>
|
||||
</span><span id="line-113"></span><span class="hs-comment">-- See also documentation for 'graphQLApp'.</span><span>
|
||||
</span><span id="line-114"></span><span id="local-6989586621679168617"><span id="local-6989586621679168618"><span id="local-6989586621679168619"><span id="local-6989586621679168620"><span id="local-6989586621679168621"><span id="local-6989586621679168622"><span id="local-6989586621679168623"><span class="annot"><a href="Mu.GraphQL.Server.html#graphQLAppTrans"><span class="hs-identifier hs-type">graphQLAppTrans</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-115"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168623"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168622"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168621"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168620"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168619"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168618"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168617"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-116"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168626"><span class="annot"><a href="#local-6989586621679168626"><span class="hs-identifier hs-type">a</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="#local-6989586621679168619"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168626"><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">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168626"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-117"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168618"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168623"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168619"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168617"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-118"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168622"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-119"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168621"><span class="hs-identifier hs-type">mut</span></a></span><span>
|
||||
</span><span id="line-120"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168620"><span class="hs-identifier hs-type">sub</span></a></span><span>
|
||||
</span><span id="line-114"></span><span id="local-6989586621679168616"><span id="local-6989586621679168617"><span id="local-6989586621679168618"><span id="local-6989586621679168619"><span id="local-6989586621679168620"><span id="local-6989586621679168621"><span id="local-6989586621679168622"><span class="annot"><a href="Mu.GraphQL.Server.html#graphQLAppTrans"><span class="hs-identifier hs-type">graphQLAppTrans</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-115"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168622"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168621"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168620"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168619"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168618"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168617"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168616"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-116"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168625"><span class="annot"><a href="#local-6989586621679168625"><span class="hs-identifier hs-type">a</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="#local-6989586621679168618"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168625"><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">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168625"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-117"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168617"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168622"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168618"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168616"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-118"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168621"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-119"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168620"><span class="hs-identifier hs-type">mut</span></a></span><span>
|
||||
</span><span id="line-120"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168619"><span class="hs-identifier hs-type">sub</span></a></span><span>
|
||||
</span><span id="line-121"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Application</span></span></span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-122"></span><span id="graphQLAppTrans"><span class="annot"><span class="annottext">graphQLAppTrans :: (forall a. m a -> ServerErrorIO a)
|
||||
-> ServerT chn Field p m hs
|
||||
@ -232,12 +232,12 @@ forall k (t :: k). Proxy t
|
||||
-> Proxy mut
|
||||
-> Proxy sub
|
||||
-> Application
|
||||
</span><a href="Mu.GraphQL.Server.html#graphQLAppTrans"><span class="hs-identifier hs-var hs-var">graphQLAppTrans</span></a></span></span><span> </span><span id="local-6989586621679168386"><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168386"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679168385"><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168385"><span class="hs-identifier hs-var">server</span></a></span></span><span> </span><span id="local-6989586621679168384"><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168384"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168383"><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168383"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679168382"><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168382"><span class="hs-identifier hs-var">s</span></a></span></span><span>
|
||||
</span><a href="Mu.GraphQL.Server.html#graphQLAppTrans"><span class="hs-identifier hs-var hs-var">graphQLAppTrans</span></a></span></span><span> </span><span id="local-6989586621679168385"><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168385"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679168384"><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168384"><span class="hs-identifier hs-var">server</span></a></span></span><span> </span><span id="local-6989586621679168383"><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168383"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168382"><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168382"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679168381"><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168381"><span class="hs-identifier hs-var">s</span></a></span></span><span>
|
||||
</span><span id="line-123"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ConnectionOptions -> ServerApp -> Application -> Application
|
||||
</span><span class="hs-identifier hs-var">WS.websocketsOr</span></span><span> </span><span class="annot"><span class="annottext">ConnectionOptions
|
||||
</span><span class="hs-identifier hs-var">WS.defaultConnectionOptions</span></span><span>
|
||||
@ -258,11 +258,11 @@ GraphQLApp p qr mut sub m chn hs =>
|
||||
-> Proxy sub
|
||||
-> ServerApp
|
||||
</span><a href="Mu.GraphQL.Server.html#wsGraphQLAppTrans"><span class="hs-identifier hs-var">wsGraphQLAppTrans</span></a></span><span> </span><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168386"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168385"><span class="hs-identifier hs-var">server</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168384"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168383"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168382"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679168385"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168384"><span class="hs-identifier hs-var">server</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168383"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168382"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168381"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-125"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(forall a. m a -> ServerErrorIO a)
|
||||
-> ServerT chn Field p m hs
|
||||
-> Proxy qr
|
||||
@ -280,19 +280,19 @@ GraphQLApp p qr mut sub m chn hs =>
|
||||
-> Proxy sub
|
||||
-> Application
|
||||
</span><a href="Mu.GraphQL.Server.html#httpGraphQLAppTrans"><span class="hs-identifier hs-var">httpGraphQLAppTrans</span></a></span><span> </span><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168386"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168385"><span class="hs-identifier hs-var">server</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168384"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168383"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168382"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679168385"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168384"><span class="hs-identifier hs-var">server</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168383"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168382"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168381"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-126"></span><span>
|
||||
</span><span id="line-127"></span><span id="local-6989586621679168371"><span id="local-6989586621679168372"><span id="local-6989586621679168373"><span id="local-6989586621679168374"><span id="local-6989586621679168375"><span id="local-6989586621679168376"><span id="local-6989586621679168377"><span class="annot"><a href="Mu.GraphQL.Server.html#httpGraphQLAppTrans"><span class="hs-identifier hs-type">httpGraphQLAppTrans</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-128"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168377"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168376"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168375"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168374"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168373"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168372"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168371"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-129"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168578"><span class="annot"><a href="#local-6989586621679168578"><span class="hs-identifier hs-type">a</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="#local-6989586621679168373"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168578"><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">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168578"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-130"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168372"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168377"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168373"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168371"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-131"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168376"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-132"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168375"><span class="hs-identifier hs-type">mut</span></a></span><span>
|
||||
</span><span id="line-133"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168374"><span class="hs-identifier hs-type">sub</span></a></span><span>
|
||||
</span><span id="line-127"></span><span id="local-6989586621679168370"><span id="local-6989586621679168371"><span id="local-6989586621679168372"><span id="local-6989586621679168373"><span id="local-6989586621679168374"><span id="local-6989586621679168375"><span id="local-6989586621679168376"><span class="annot"><a href="Mu.GraphQL.Server.html#httpGraphQLAppTrans"><span class="hs-identifier hs-type">httpGraphQLAppTrans</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-128"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168376"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168375"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168374"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168373"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168372"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168371"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168370"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-129"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168577"><span class="annot"><a href="#local-6989586621679168577"><span class="hs-identifier hs-type">a</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="#local-6989586621679168372"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168577"><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">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168577"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-130"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168371"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168376"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168372"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168370"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-131"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168375"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-132"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168374"><span class="hs-identifier hs-type">mut</span></a></span><span>
|
||||
</span><span id="line-133"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168373"><span class="hs-identifier hs-type">sub</span></a></span><span>
|
||||
</span><span id="line-134"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Application</span></span></span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-135"></span><span id="httpGraphQLAppTrans"><span class="annot"><span class="annottext">httpGraphQLAppTrans :: (forall a. m a -> ServerErrorIO a)
|
||||
-> ServerT chn Field p m hs
|
||||
@ -300,39 +300,39 @@ GraphQLApp p qr mut sub m chn hs =>
|
||||
-> Proxy mut
|
||||
-> Proxy sub
|
||||
-> Application
|
||||
</span><a href="Mu.GraphQL.Server.html#httpGraphQLAppTrans"><span class="hs-identifier hs-var hs-var">httpGraphQLAppTrans</span></a></span></span><span> </span><span id="local-6989586621679168370"><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168370"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679168369"><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168369"><span class="hs-identifier hs-var">server</span></a></span></span><span> </span><span id="local-6989586621679168368"><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168368"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168367"><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168367"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679168366"><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168366"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span id="local-6989586621679168365"><span class="annot"><span class="annottext">Request
|
||||
</span><a href="#local-6989586621679168365"><span class="hs-identifier hs-var">req</span></a></span></span><span> </span><span id="local-6989586621679168364"><span class="annot"><span class="annottext">Response -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168364"><span class="hs-identifier hs-var">res</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><a href="Mu.GraphQL.Server.html#httpGraphQLAppTrans"><span class="hs-identifier hs-var hs-var">httpGraphQLAppTrans</span></a></span></span><span> </span><span id="local-6989586621679168369"><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168369"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679168368"><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168368"><span class="hs-identifier hs-var">server</span></a></span></span><span> </span><span id="local-6989586621679168367"><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168367"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168366"><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168366"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679168365"><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168365"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span id="local-6989586621679168364"><span class="annot"><span class="annottext">Request
|
||||
</span><a href="#local-6989586621679168364"><span class="hs-identifier hs-var">req</span></a></span></span><span> </span><span id="local-6989586621679168363"><span class="annot"><span class="annottext">Response -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168363"><span class="hs-identifier hs-var">res</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-136"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Method -> Either Method StdMethod
|
||||
</span><span class="hs-identifier hs-var">parseMethod</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Request -> Method
|
||||
</span><span class="hs-identifier hs-var hs-var">requestMethod</span></span><span> </span><span class="annot"><span class="annottext">Request
|
||||
</span><a href="#local-6989586621679168365"><span class="hs-identifier hs-var">req</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-137"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168362"><span class="annot"><span class="annottext">Method
|
||||
</span><a href="#local-6989586621679168362"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168361"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">(Text -> IO ResponseReceived) -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168364"><span class="hs-identifier hs-var">req</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-137"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168361"><span class="annot"><span class="annottext">Method
|
||||
</span><a href="#local-6989586621679168361"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168360"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">(Text -> IO ResponseReceived) -> Text -> IO ResponseReceived
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">(UnicodeException -> Text)
|
||||
-> (Text -> Text) -> Either UnicodeException Text -> Text
|
||||
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
|
||||
</span><span class="hs-identifier hs-var">either</span></span><span> </span><span class="annot"><span class="annottext">UnicodeException -> Text
|
||||
</span><a href="#local-6989586621679168359"><span class="hs-identifier hs-var">unpackUnicodeException</span></a></span><span> </span><span class="annot"><span class="annottext">Text -> Text
|
||||
</span><a href="#local-6989586621679168358"><span class="hs-identifier hs-var">unpackUnicodeException</span></a></span><span> </span><span class="annot"><span class="annottext">Text -> Text
|
||||
forall a. a -> a
|
||||
</span><span class="hs-identifier hs-var">id</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Method -> Either UnicodeException Text
|
||||
</span><span class="hs-identifier hs-var">decodeUtf8'</span></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><a href="#local-6989586621679168362"><span class="hs-identifier hs-var">err</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679168361"><span class="hs-identifier hs-var">err</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-138"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span class="annot"><span class="annottext">StdMethod
|
||||
</span><span class="hs-identifier hs-var">GET</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-139"></span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679168357"><span class="annot"><span class="annottext">qst :: Query
|
||||
</span><a href="#local-6989586621679168357"><span class="hs-identifier hs-var hs-var">qst</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Request -> Query
|
||||
</span><span id="line-139"></span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679168356"><span class="annot"><span class="annottext">qst :: Query
|
||||
</span><a href="#local-6989586621679168356"><span class="hs-identifier hs-var hs-var">qst</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Request -> Query
|
||||
</span><span class="hs-identifier hs-var hs-var">queryString</span></span><span> </span><span class="annot"><span class="annottext">Request
|
||||
</span><a href="#local-6989586621679168365"><span class="hs-identifier hs-var">req</span></a></span><span>
|
||||
</span><span id="line-140"></span><span> </span><span id="local-6989586621679168355"><span class="annot"><span class="annottext">opN :: Maybe (Either UnicodeException Text)
|
||||
</span><a href="#local-6989586621679168355"><span class="hs-identifier hs-var hs-var">opN</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Method -> Either UnicodeException Text
|
||||
</span><a href="#local-6989586621679168364"><span class="hs-identifier hs-var">req</span></a></span><span>
|
||||
</span><span id="line-140"></span><span> </span><span id="local-6989586621679168354"><span class="annot"><span class="annottext">opN :: Maybe (Either UnicodeException Text)
|
||||
</span><a href="#local-6989586621679168354"><span class="hs-identifier hs-var hs-var">opN</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Method -> Either UnicodeException Text
|
||||
</span><span class="hs-identifier hs-var">decodeUtf8'</span></span><span> </span><span class="annot"><span class="annottext">(Method -> Either UnicodeException Text)
|
||||
-> Maybe Method -> Maybe (Either UnicodeException Text)
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
@ -342,9 +342,9 @@ forall (m :: * -> *) a. Monad m => m (m a) -> m a
|
||||
forall a b. Eq a => a -> [(a, b)] -> Maybe b
|
||||
</span><span class="hs-identifier hs-var">lookup</span></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"operationName"</span></span><span> </span><span class="annot"><span class="annottext">Query
|
||||
</span><a href="#local-6989586621679168357"><span class="hs-identifier hs-var">qst</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-141"></span><span> </span><span id="local-6989586621679168353"><span class="annot"><span class="annottext">decodedQuery :: Maybe (Either UnicodeException Text)
|
||||
</span><a href="#local-6989586621679168353"><span class="hs-identifier hs-var hs-var">decodedQuery</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Method -> Either UnicodeException Text)
|
||||
</span><a href="#local-6989586621679168356"><span class="hs-identifier hs-var">qst</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-141"></span><span> </span><span id="local-6989586621679168352"><span class="annot"><span class="annottext">decodedQuery :: Maybe (Either UnicodeException Text)
|
||||
</span><a href="#local-6989586621679168352"><span class="hs-identifier hs-var hs-var">decodedQuery</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Method -> Either UnicodeException Text)
|
||||
-> Maybe Method -> Maybe (Either UnicodeException Text)
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-identifier hs-var">fmap</span></span><span> </span><span class="annot"><span class="annottext">Method -> Either UnicodeException Text
|
||||
@ -355,16 +355,16 @@ forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
|
||||
forall a b. Eq a => a -> [(a, b)] -> Maybe b
|
||||
</span><span class="hs-identifier hs-var">lookup</span></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"query"</span></span><span> </span><span class="annot"><span class="annottext">Query
|
||||
</span><a href="#local-6989586621679168357"><span class="hs-identifier hs-var">qst</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168356"><span class="hs-identifier hs-var">qst</span></a></span><span>
|
||||
</span><span id="line-142"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Maybe (Either UnicodeException Text)
|
||||
</span><a href="#local-6989586621679168353"><span class="hs-identifier hs-var">decodedQuery</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Method -> Query -> Maybe (Maybe Method)
|
||||
</span><a href="#local-6989586621679168352"><span class="hs-identifier hs-var">decodedQuery</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Method -> Query -> Maybe (Maybe Method)
|
||||
forall a b. Eq a => a -> [(a, b)] -> Maybe b
|
||||
</span><span class="hs-identifier hs-var">lookup</span></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"variables"</span></span><span> </span><span class="annot"><span class="annottext">Query
|
||||
</span><a href="#local-6989586621679168357"><span class="hs-identifier hs-var">qst</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-143"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168351"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168351"><span class="hs-identifier hs-var">qry</span></a></span></span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span id="local-6989586621679168350"><span class="annot"><span class="annottext">Method
|
||||
</span><a href="#local-6989586621679168350"><span class="hs-identifier hs-var">vars</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><a href="#local-6989586621679168356"><span class="hs-identifier hs-var">qst</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-143"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168350"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168350"><span class="hs-identifier hs-var">qry</span></a></span></span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span id="local-6989586621679168349"><span class="annot"><span class="annottext">Method
|
||||
</span><a href="#local-6989586621679168349"><span class="hs-identifier hs-var">vars</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><span id="line-144"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">ByteString -> Either String VariableMapC
|
||||
forall a. FromJSON a => ByteString -> Either String a
|
||||
</span><span class="hs-identifier hs-var">A.eitherDecode</span></span><span> </span><span class="annot"><span class="annottext">(ByteString -> Either String VariableMapC)
|
||||
@ -372,74 +372,74 @@ forall a. FromJSON a => ByteString -> Either String a
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">Method -> ByteString
|
||||
</span><span class="hs-identifier hs-var">fromStrict</span></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><a href="#local-6989586621679168350"><span class="hs-identifier hs-var">vars</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-145"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168348"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679168348"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168361"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">(Text -> IO ResponseReceived) -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168349"><span class="hs-identifier hs-var">vars</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-145"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168347"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679168347"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168360"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">(Text -> IO ResponseReceived) -> Text -> IO ResponseReceived
|
||||
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 -> Text
|
||||
</span><span class="hs-identifier hs-var">T.pack</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679168348"><span class="hs-identifier hs-var">err</span></a></span><span>
|
||||
</span><span id="line-146"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168346"><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168346"><span class="hs-identifier hs-var">vrs</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe (Either UnicodeException Text)
|
||||
</span><a href="#local-6989586621679168347"><span class="hs-identifier hs-var">err</span></a></span><span>
|
||||
</span><span id="line-146"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168345"><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168345"><span class="hs-identifier hs-var">vrs</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe (Either UnicodeException Text)
|
||||
-> Either UnicodeException (Maybe Text)
|
||||
forall (t :: * -> *) (m :: * -> *) a.
|
||||
(Traversable t, Monad m) =>
|
||||
t (m a) -> m (t a)
|
||||
</span><span class="hs-identifier hs-var">sequence</span></span><span> </span><span class="annot"><span class="annottext">Maybe (Either UnicodeException Text)
|
||||
</span><a href="#local-6989586621679168355"><span class="hs-identifier hs-var">opN</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-147"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168344"><span class="annot"><span class="annottext">UnicodeException
|
||||
</span><a href="#local-6989586621679168344"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168361"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">(Text -> IO ResponseReceived) -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168354"><span class="hs-identifier hs-var">opN</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-147"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168343"><span class="annot"><span class="annottext">UnicodeException
|
||||
</span><a href="#local-6989586621679168343"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168360"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">(Text -> IO ResponseReceived) -> Text -> IO ResponseReceived
|
||||
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
|
||||
</span><span class="hs-string">"Could not parse operation name: "</span></span><span> </span><span class="annot"><span class="annottext">Text -> Text -> Text
|
||||
forall a. Semigroup a => a -> a -> a
|
||||
</span><span class="hs-operator hs-var"><></span></span><span> </span><span class="annot"><span class="annottext">UnicodeException -> Text
|
||||
</span><a href="#local-6989586621679168359"><span class="hs-identifier hs-var">unpackUnicodeException</span></a></span><span> </span><span class="annot"><span class="annottext">UnicodeException
|
||||
</span><a href="#local-6989586621679168344"><span class="hs-identifier hs-var">err</span></a></span><span>
|
||||
</span><span id="line-148"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168343"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168343"><span class="hs-identifier hs-var">opName</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Maybe Text -> VariableMapC -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168342"><span class="hs-identifier hs-var">execQuery</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168343"><span class="hs-identifier hs-var">opName</span></a></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168346"><span class="hs-identifier hs-var">vrs</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168351"><span class="hs-identifier hs-var">qry</span></a></span><span>
|
||||
</span><span id="line-149"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168341"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168341"><span class="hs-identifier hs-var">qry</span></a></span></span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Maybe (Maybe Method)
|
||||
</span><a href="#local-6989586621679168358"><span class="hs-identifier hs-var">unpackUnicodeException</span></a></span><span> </span><span class="annot"><span class="annottext">UnicodeException
|
||||
</span><a href="#local-6989586621679168343"><span class="hs-identifier hs-var">err</span></a></span><span>
|
||||
</span><span id="line-148"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168342"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168342"><span class="hs-identifier hs-var">opName</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Maybe Text -> VariableMapC -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168341"><span class="hs-identifier hs-var">execQuery</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168342"><span class="hs-identifier hs-var">opName</span></a></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168345"><span class="hs-identifier hs-var">vrs</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168350"><span class="hs-identifier hs-var">qry</span></a></span><span>
|
||||
</span><span id="line-149"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168340"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168340"><span class="hs-identifier hs-var">qry</span></a></span></span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Maybe (Maybe Method)
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe (Either UnicodeException Text)
|
||||
-> Either UnicodeException (Maybe Text)
|
||||
forall (t :: * -> *) (m :: * -> *) a.
|
||||
(Traversable t, Monad m) =>
|
||||
t (m a) -> m (t a)
|
||||
</span><span class="hs-identifier hs-var">sequence</span></span><span> </span><span class="annot"><span class="annottext">Maybe (Either UnicodeException Text)
|
||||
</span><a href="#local-6989586621679168355"><span class="hs-identifier hs-var">opN</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-150"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168340"><span class="annot"><span class="annottext">UnicodeException
|
||||
</span><a href="#local-6989586621679168340"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168361"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">(Text -> IO ResponseReceived) -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168354"><span class="hs-identifier hs-var">opN</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-150"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168339"><span class="annot"><span class="annottext">UnicodeException
|
||||
</span><a href="#local-6989586621679168339"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168360"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">(Text -> IO ResponseReceived) -> Text -> IO ResponseReceived
|
||||
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
|
||||
</span><span class="hs-string">"Could not parse query: "</span></span><span> </span><span class="annot"><span class="annottext">Text -> Text -> Text
|
||||
forall a. Semigroup a => a -> a -> a
|
||||
</span><span class="hs-operator hs-var"><></span></span><span> </span><span class="annot"><span class="annottext">UnicodeException -> Text
|
||||
</span><a href="#local-6989586621679168359"><span class="hs-identifier hs-var">unpackUnicodeException</span></a></span><span> </span><span class="annot"><span class="annottext">UnicodeException
|
||||
</span><a href="#local-6989586621679168340"><span class="hs-identifier hs-var">err</span></a></span><span>
|
||||
</span><span id="line-151"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168339"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168339"><span class="hs-identifier hs-var">opName</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Maybe Text -> VariableMapC -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168342"><span class="hs-identifier hs-var">execQuery</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168339"><span class="hs-identifier hs-var">opName</span></a></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168358"><span class="hs-identifier hs-var">unpackUnicodeException</span></a></span><span> </span><span class="annot"><span class="annottext">UnicodeException
|
||||
</span><a href="#local-6989586621679168339"><span class="hs-identifier hs-var">err</span></a></span><span>
|
||||
</span><span id="line-151"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168338"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168338"><span class="hs-identifier hs-var">opName</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Maybe Text -> VariableMapC -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168341"><span class="hs-identifier hs-var">execQuery</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168338"><span class="hs-identifier hs-var">opName</span></a></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
forall k v. HashMap k v
|
||||
</span><span class="hs-identifier hs-var">HM.empty</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168341"><span class="hs-identifier hs-var">qry</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168340"><span class="hs-identifier hs-var">qry</span></a></span><span>
|
||||
</span><span id="line-152"></span><span> </span><span class="annot"><span class="annottext">(Maybe (Either UnicodeException Text), Maybe (Maybe Method))
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168361"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168360"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"Error parsing query"</span></span><span>
|
||||
</span><span id="line-153"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span class="annot"><span class="annottext">StdMethod
|
||||
</span><span class="hs-identifier hs-var">POST</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-154"></span><span> </span><span id="local-6989586621679168337"><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679168337"><span class="hs-identifier hs-var">body</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Request -> IO ByteString
|
||||
</span><span id="line-154"></span><span> </span><span id="local-6989586621679168336"><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679168336"><span class="hs-identifier hs-var">body</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Request -> IO ByteString
|
||||
</span><span class="hs-identifier hs-var">strictRequestBody</span></span><span> </span><span class="annot"><span class="annottext">Request
|
||||
</span><a href="#local-6989586621679168365"><span class="hs-identifier hs-var">req</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168364"><span class="hs-identifier hs-var">req</span></a></span><span>
|
||||
</span><span id="line-155"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Char -> Method -> [Method]
|
||||
</span><span class="hs-identifier hs-var">split</span></span><span> </span><span class="annot"><span class="annottext">Char
|
||||
</span><span class="hs-char">';'</span></span><span> </span><span class="annot"><span class="annottext">(Method -> [Method]) -> Maybe Method -> Maybe [Method]
|
||||
@ -449,29 +449,29 @@ forall a b. Eq a => a -> [(a, b)] -> Maybe b
|
||||
</span><span class="hs-identifier hs-var">lookup</span></span><span> </span><span class="annot"><span class="annottext">HeaderName
|
||||
</span><span class="hs-identifier hs-var">hContentType</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Request -> [(HeaderName, Method)]
|
||||
</span><span class="hs-identifier hs-var hs-var">requestHeaders</span></span><span> </span><span class="annot"><span class="annottext">Request
|
||||
</span><a href="#local-6989586621679168365"><span class="hs-identifier hs-var">req</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a href="#local-6989586621679168364"><span class="hs-identifier hs-var">req</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-156"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"application/json"</span></span><span> </span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span> </span><span class="annot"><span class="annottext">[Method]
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><span id="line-157"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">ByteString -> Either String GraphQLInput
|
||||
forall a. FromJSON a => ByteString -> Either String a
|
||||
</span><span class="hs-identifier hs-var">A.eitherDecode</span></span><span> </span><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679168337"><span class="hs-identifier hs-var">body</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-158"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168334"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679168334"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168361"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">(Text -> IO ResponseReceived) -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168336"><span class="hs-identifier hs-var">body</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-158"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168333"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679168333"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168360"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">(Text -> IO ResponseReceived) -> Text -> IO ResponseReceived
|
||||
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 -> Text
|
||||
</span><span class="hs-identifier hs-var">T.pack</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679168334"><span class="hs-identifier hs-var">err</span></a></span><span>
|
||||
</span><span id="line-159"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Server.html#GraphQLInput"><span class="hs-identifier hs-type">GraphQLInput</span></a></span><span> </span><span id="local-6989586621679168333"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168333"><span class="hs-identifier hs-var">qry</span></a></span></span><span> </span><span id="local-6989586621679168332"><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168332"><span class="hs-identifier hs-var">vars</span></a></span></span><span> </span><span id="local-6989586621679168331"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168331"><span class="hs-identifier hs-var">opName</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Maybe Text -> VariableMapC -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168342"><span class="hs-identifier hs-var">execQuery</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168331"><span class="hs-identifier hs-var">opName</span></a></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168332"><span class="hs-identifier hs-var">vars</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168333"><span class="hs-identifier hs-var">qry</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168333"><span class="hs-identifier hs-var">err</span></a></span><span>
|
||||
</span><span id="line-159"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Server.html#GraphQLInput"><span class="hs-identifier hs-type">GraphQLInput</span></a></span><span> </span><span id="local-6989586621679168332"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168332"><span class="hs-identifier hs-var">qry</span></a></span></span><span> </span><span id="local-6989586621679168331"><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168331"><span class="hs-identifier hs-var">vars</span></a></span></span><span> </span><span id="local-6989586621679168330"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168330"><span class="hs-identifier hs-var">opName</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Maybe Text -> VariableMapC -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168341"><span class="hs-identifier hs-var">execQuery</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168330"><span class="hs-identifier hs-var">opName</span></a></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168331"><span class="hs-identifier hs-var">vars</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168332"><span class="hs-identifier hs-var">qry</span></a></span><span>
|
||||
</span><span id="line-160"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"application/graphql"</span></span><span> </span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span> </span><span class="annot"><span class="annottext">[Method]
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span>
|
||||
@ -481,49 +481,49 @@ forall a b. (a -> b) -> a -> b
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">ByteString -> Method
|
||||
</span><span class="hs-identifier hs-var">toStrict</span></span><span> </span><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679168337"><span class="hs-identifier hs-var">body</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-162"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168330"><span class="annot"><span class="annottext">UnicodeException
|
||||
</span><a href="#local-6989586621679168330"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168361"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">(Text -> IO ResponseReceived) -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168336"><span class="hs-identifier hs-var">body</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-162"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168329"><span class="annot"><span class="annottext">UnicodeException
|
||||
</span><a href="#local-6989586621679168329"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168360"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">(Text -> IO ResponseReceived) -> Text -> IO ResponseReceived
|
||||
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
|
||||
</span><span class="hs-string">"Could not decode utf8 from body: "</span></span><span> </span><span class="annot"><span class="annottext">Text -> Text -> Text
|
||||
forall a. Semigroup a => a -> a -> a
|
||||
</span><span class="hs-operator hs-var"><></span></span><span> </span><span class="annot"><span class="annottext">UnicodeException -> Text
|
||||
</span><a href="#local-6989586621679168359"><span class="hs-identifier hs-var">unpackUnicodeException</span></a></span><span> </span><span class="annot"><span class="annottext">UnicodeException
|
||||
</span><a href="#local-6989586621679168330"><span class="hs-identifier hs-var">err</span></a></span><span>
|
||||
</span><span id="line-163"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168329"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168329"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Maybe Text -> VariableMapC -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168342"><span class="hs-identifier hs-var">execQuery</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168358"><span class="hs-identifier hs-var">unpackUnicodeException</span></a></span><span> </span><span class="annot"><span class="annottext">UnicodeException
|
||||
</span><a href="#local-6989586621679168329"><span class="hs-identifier hs-var">err</span></a></span><span>
|
||||
</span><span id="line-163"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168328"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168328"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Maybe Text -> VariableMapC -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168341"><span class="hs-identifier hs-var">execQuery</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
forall a. Maybe a
|
||||
</span><span class="hs-identifier hs-var">Nothing</span></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
forall k v. HashMap k v
|
||||
</span><span class="hs-identifier hs-var">HM.empty</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168329"><span class="hs-identifier hs-var">msg</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168328"><span class="hs-identifier hs-var">msg</span></a></span><span>
|
||||
</span><span id="line-164"></span><span> </span><span class="annot"><span class="annottext">Maybe [Method]
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168361"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168360"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"No `Content-Type` header found!"</span></span><span>
|
||||
</span><span id="line-165"></span><span> </span><span class="annot"><span class="annottext">Either Method StdMethod
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168361"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168360"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"Unsupported method"</span></span><span>
|
||||
</span><span id="line-166"></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-167"></span><span> </span><span class="annot"><a href="#local-6989586621679168342"><span class="hs-identifier hs-type">execQuery</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">T.Text</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Parse.html#VariableMapC"><span class="hs-identifier hs-type">VariableMapC</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</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">ResponseReceived</span></span><span>
|
||||
</span><span id="line-168"></span><span> </span><span id="local-6989586621679168342"><span class="annot"><span class="annottext">execQuery :: Maybe Text -> VariableMapC -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168342"><span class="hs-identifier hs-var hs-var">execQuery</span></a></span></span><span> </span><span id="local-6989586621679168328"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168328"><span class="hs-identifier hs-var">opn</span></a></span></span><span> </span><span id="local-6989586621679168327"><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168327"><span class="hs-identifier hs-var">vals</span></a></span></span><span> </span><span id="local-6989586621679168326"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168326"><span class="hs-identifier hs-var">qry</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-167"></span><span> </span><span class="annot"><a href="#local-6989586621679168341"><span class="hs-identifier hs-type">execQuery</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">T.Text</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Parse.html#VariableMapC"><span class="hs-identifier hs-type">VariableMapC</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</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">ResponseReceived</span></span><span>
|
||||
</span><span id="line-168"></span><span> </span><span id="local-6989586621679168341"><span class="annot"><span class="annottext">execQuery :: Maybe Text -> VariableMapC -> Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168341"><span class="hs-identifier hs-var hs-var">execQuery</span></a></span></span><span> </span><span id="local-6989586621679168327"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168327"><span class="hs-identifier hs-var">opn</span></a></span></span><span> </span><span id="local-6989586621679168326"><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168326"><span class="hs-identifier hs-var">vals</span></a></span></span><span> </span><span id="local-6989586621679168325"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168325"><span class="hs-identifier hs-var">qry</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
|
||||
</span><span id="line-169"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Text -> Either Text [Definition]
|
||||
</span><a href="Mu.GraphQL.Quasi.LostParser.html#parseDoc"><span class="hs-identifier hs-var">parseDoc</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168326"><span class="hs-identifier hs-var">qry</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-170"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168325"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168325"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168361"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168325"><span class="hs-identifier hs-var">err</span></a></span><span>
|
||||
</span><span id="line-171"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168324"><span class="annot"><span class="annottext">[Definition]
|
||||
</span><a href="#local-6989586621679168324"><span class="hs-identifier hs-var">doc</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">(forall a. m a -> ServerErrorIO a)
|
||||
</span><a href="#local-6989586621679168325"><span class="hs-identifier hs-var">qry</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-170"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168324"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168324"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168360"><span class="hs-identifier hs-var">toError</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168324"><span class="hs-identifier hs-var">err</span></a></span><span>
|
||||
</span><span id="line-171"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168323"><span class="annot"><span class="annottext">[Definition]
|
||||
</span><a href="#local-6989586621679168323"><span class="hs-identifier hs-var">doc</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">(forall a. m a -> ServerErrorIO a)
|
||||
-> [(HeaderName, Method)]
|
||||
-> ServerT chn Field p m hs
|
||||
-> Proxy qr
|
||||
@ -548,25 +548,25 @@ GraphQLApp p qr mut sub m chn hs =>
|
||||
-> [Definition]
|
||||
-> IO Value
|
||||
</span><a href="Mu.GraphQL.Query.Run.html#runPipeline"><span class="hs-identifier hs-var">runPipeline</span></a></span><span> </span><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168370"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Request -> [(HeaderName, Method)]
|
||||
</span><a href="#local-6989586621679168369"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Request -> [(HeaderName, Method)]
|
||||
</span><span class="hs-identifier hs-var hs-var">requestHeaders</span></span><span> </span><span class="annot"><span class="annottext">Request
|
||||
</span><a href="#local-6989586621679168365"><span class="hs-identifier hs-var">req</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168369"><span class="hs-identifier hs-var">server</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168368"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168367"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168366"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168328"><span class="hs-identifier hs-var">opn</span></a></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168327"><span class="hs-identifier hs-var">vals</span></a></span><span> </span><span class="annot"><span class="annottext">[Definition]
|
||||
</span><a href="#local-6989586621679168324"><span class="hs-identifier hs-var">doc</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168364"><span class="hs-identifier hs-var">req</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168368"><span class="hs-identifier hs-var">server</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168367"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168366"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168365"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168327"><span class="hs-identifier hs-var">opn</span></a></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168326"><span class="hs-identifier hs-var">vals</span></a></span><span> </span><span class="annot"><span class="annottext">[Definition]
|
||||
</span><a href="#local-6989586621679168323"><span class="hs-identifier hs-var">doc</span></a></span><span>
|
||||
</span><span id="line-172"></span><span> </span><span class="annot"><span class="annottext">IO Value -> (Value -> IO ResponseReceived) -> IO ResponseReceived
|
||||
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
|
||||
</span><span class="hs-operator hs-var">>>=</span></span><span> </span><span class="annot"><span class="annottext">Value -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168323"><span class="hs-identifier hs-var">toResponse</span></a></span><span>
|
||||
</span><span id="line-173"></span><span> </span><span class="annot"><a href="#local-6989586621679168361"><span class="hs-identifier hs-type">toError</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</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">ResponseReceived</span></span><span>
|
||||
</span><span id="line-174"></span><span> </span><span id="local-6989586621679168361"><span class="annot"><span class="annottext">toError :: Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168361"><span class="hs-identifier hs-var hs-var">toError</span></a></span></span><span> </span><span id="local-6989586621679168322"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168322"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Value -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168323"><span class="hs-identifier hs-var">toResponse</span></a></span><span> </span><span class="annot"><span class="annottext">(Value -> IO ResponseReceived) -> Value -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168322"><span class="hs-identifier hs-var">toResponse</span></a></span><span>
|
||||
</span><span id="line-173"></span><span> </span><span class="annot"><a href="#local-6989586621679168360"><span class="hs-identifier hs-type">toError</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</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">ResponseReceived</span></span><span>
|
||||
</span><span id="line-174"></span><span> </span><span id="local-6989586621679168360"><span class="annot"><span class="annottext">toError :: Text -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168360"><span class="hs-identifier hs-var hs-var">toError</span></a></span></span><span> </span><span id="local-6989586621679168321"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168321"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Value -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168322"><span class="hs-identifier hs-var">toResponse</span></a></span><span> </span><span class="annot"><span class="annottext">(Value -> IO ResponseReceived) -> Value -> IO ResponseReceived
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">[Pair] -> Value
|
||||
</span><span class="hs-identifier hs-var">A.object</span></span><span> </span><span class="hs-special">[</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text
|
||||
@ -575,11 +575,11 @@ forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-identifier hs-var">A.object</span></span><span> </span><span class="hs-special">[</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"message"</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Text -> Value
|
||||
</span><span class="hs-identifier hs-var">A.String</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168322"><span class="hs-identifier hs-var">err</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">]</span><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-175"></span><span> </span><span class="annot"><a href="#local-6989586621679168323"><span class="hs-identifier hs-type">toResponse</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">A.Value</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">ResponseReceived</span></span><span>
|
||||
</span><span id="line-176"></span><span> </span><span id="local-6989586621679168323"><span class="annot"><span class="annottext">toResponse :: Value -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168323"><span class="hs-identifier hs-var hs-var">toResponse</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Response -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168364"><span class="hs-identifier hs-var">res</span></a></span><span> </span><span class="annot"><span class="annottext">(Response -> IO ResponseReceived)
|
||||
</span><a href="#local-6989586621679168321"><span class="hs-identifier hs-var">err</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">]</span><span class="hs-special">)</span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-175"></span><span> </span><span class="annot"><a href="#local-6989586621679168322"><span class="hs-identifier hs-type">toResponse</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">A.Value</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">ResponseReceived</span></span><span>
|
||||
</span><span id="line-176"></span><span> </span><span id="local-6989586621679168322"><span class="annot"><span class="annottext">toResponse :: Value -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168322"><span class="hs-identifier hs-var hs-var">toResponse</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Response -> IO ResponseReceived
|
||||
</span><a href="#local-6989586621679168363"><span class="hs-identifier hs-var">res</span></a></span><span> </span><span class="annot"><span class="annottext">(Response -> IO ResponseReceived)
|
||||
-> (Value -> Response) -> Value -> IO ResponseReceived
|
||||
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">Status -> [(HeaderName, Method)] -> Builder -> Response
|
||||
@ -592,26 +592,26 @@ 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">Value -> Text
|
||||
forall a. ToJSON a => a -> Text
|
||||
</span><span class="hs-identifier hs-var">encodeToLazyText</span></span><span>
|
||||
</span><span id="line-177"></span><span> </span><span class="annot"><a href="#local-6989586621679168359"><span class="hs-identifier hs-type">unpackUnicodeException</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">UnicodeException</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span>
|
||||
</span><span id="line-178"></span><span> </span><span id="local-6989586621679168359"><span class="annot"><span class="annottext">unpackUnicodeException :: UnicodeException -> Text
|
||||
</span><a href="#local-6989586621679168359"><span class="hs-identifier hs-var hs-var">unpackUnicodeException</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">DecodeError</span></span><span> </span><span id="local-6989586621679168314"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679168314"><span class="hs-identifier hs-var">str</span></a></span></span><span> </span><span class="annot"><span class="annottext">Maybe Word8
|
||||
</span><span id="line-177"></span><span> </span><span class="annot"><a href="#local-6989586621679168358"><span class="hs-identifier hs-type">unpackUnicodeException</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">UnicodeException</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span>
|
||||
</span><span id="line-178"></span><span> </span><span id="local-6989586621679168358"><span class="annot"><span class="annottext">unpackUnicodeException :: UnicodeException -> Text
|
||||
</span><a href="#local-6989586621679168358"><span class="hs-identifier hs-var hs-var">unpackUnicodeException</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">DecodeError</span></span><span> </span><span id="local-6989586621679168313"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679168313"><span class="hs-identifier hs-var">str</span></a></span></span><span> </span><span class="annot"><span class="annottext">Maybe Word8
|
||||
</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">String -> Text
|
||||
</span><span class="hs-identifier hs-var">T.pack</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679168314"><span class="hs-identifier hs-var">str</span></a></span><span>
|
||||
</span><span id="line-179"></span><span> </span><span class="annot"><a href="#local-6989586621679168359"><span class="hs-identifier hs-var">unpackUnicodeException</span></a></span><span> </span><span class="annot"><span class="annottext">UnicodeException
|
||||
</span><a href="#local-6989586621679168313"><span class="hs-identifier hs-var">str</span></a></span><span>
|
||||
</span><span id="line-179"></span><span> </span><span class="annot"><a href="#local-6989586621679168358"><span class="hs-identifier hs-var">unpackUnicodeException</span></a></span><span> </span><span class="annot"><span class="annottext">UnicodeException
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -> Text
|
||||
forall a. HasCallStack => String -> a
|
||||
</span><span class="hs-identifier hs-var">error</span></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"EncodeError is deprecated"</span></span><span>
|
||||
</span><span id="line-180"></span><span>
|
||||
</span><span id="line-181"></span><span id="local-6989586621679168581"><span id="local-6989586621679168582"><span id="local-6989586621679168583"><span id="local-6989586621679168584"><span id="local-6989586621679168585"><span id="local-6989586621679168586"><span id="local-6989586621679168587"><span class="annot"><a href="Mu.GraphQL.Server.html#wsGraphQLAppTrans"><span class="hs-identifier hs-type">wsGraphQLAppTrans</span></a></span><span>
|
||||
</span><span id="line-182"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168587"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168586"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168585"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168584"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168583"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168582"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168581"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-183"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168580"><span class="annot"><a href="#local-6989586621679168580"><span class="hs-identifier hs-type">a</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="#local-6989586621679168583"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168580"><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">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168580"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-184"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168582"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168587"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168583"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168581"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-185"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168586"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-186"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168585"><span class="hs-identifier hs-type">mut</span></a></span><span>
|
||||
</span><span id="line-187"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168584"><span class="hs-identifier hs-type">sub</span></a></span><span>
|
||||
</span><span id="line-181"></span><span id="local-6989586621679168580"><span id="local-6989586621679168581"><span id="local-6989586621679168582"><span id="local-6989586621679168583"><span id="local-6989586621679168584"><span id="local-6989586621679168585"><span id="local-6989586621679168586"><span class="annot"><a href="Mu.GraphQL.Server.html#wsGraphQLAppTrans"><span class="hs-identifier hs-type">wsGraphQLAppTrans</span></a></span><span>
|
||||
</span><span id="line-182"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168586"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168585"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168584"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168583"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168582"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168581"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168580"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-183"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168579"><span class="annot"><a href="#local-6989586621679168579"><span class="hs-identifier hs-type">a</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="#local-6989586621679168582"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168579"><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">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168579"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-184"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168581"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168586"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168582"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168580"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-185"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168585"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-186"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168584"><span class="hs-identifier hs-type">mut</span></a></span><span>
|
||||
</span><span id="line-187"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168583"><span class="hs-identifier hs-type">sub</span></a></span><span>
|
||||
</span><span id="line-188"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">WS.ServerApp</span></span></span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-189"></span><span id="wsGraphQLAppTrans"><span class="annot"><span class="annottext">wsGraphQLAppTrans :: (forall a. m a -> ServerErrorIO a)
|
||||
-> ServerT chn Field p m hs
|
||||
@ -619,46 +619,46 @@ forall a. HasCallStack => String -> a
|
||||
-> Proxy mut
|
||||
-> Proxy sub
|
||||
-> ServerApp
|
||||
</span><a href="Mu.GraphQL.Server.html#wsGraphQLAppTrans"><span class="hs-identifier hs-var hs-var">wsGraphQLAppTrans</span></a></span></span><span> </span><span id="local-6989586621679168312"><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168312"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679168311"><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168311"><span class="hs-identifier hs-var">server</span></a></span></span><span> </span><span id="local-6989586621679168310"><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168310"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168309"><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168309"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679168308"><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168308"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span id="local-6989586621679168307"><span class="annot"><span class="annottext">PendingConnection
|
||||
</span><a href="#local-6989586621679168307"><span class="hs-identifier hs-var">conn</span></a></span></span><span>
|
||||
</span><span id="line-190"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679168306"><span class="annot"><span class="annottext">headers :: [(HeaderName, Method)]
|
||||
</span><a href="#local-6989586621679168306"><span class="hs-identifier hs-var hs-var">headers</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">RequestHead -> [(HeaderName, Method)]
|
||||
</span><a href="Mu.GraphQL.Server.html#wsGraphQLAppTrans"><span class="hs-identifier hs-var hs-var">wsGraphQLAppTrans</span></a></span></span><span> </span><span id="local-6989586621679168311"><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168311"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679168310"><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168310"><span class="hs-identifier hs-var">server</span></a></span></span><span> </span><span id="local-6989586621679168309"><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168309"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168308"><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168308"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679168307"><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168307"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span id="local-6989586621679168306"><span class="annot"><span class="annottext">PendingConnection
|
||||
</span><a href="#local-6989586621679168306"><span class="hs-identifier hs-var">conn</span></a></span></span><span>
|
||||
</span><span id="line-190"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span> </span><span class="hs-keyword">let</span><span> </span><span id="local-6989586621679168305"><span class="annot"><span class="annottext">headers :: [(HeaderName, Method)]
|
||||
</span><a href="#local-6989586621679168305"><span class="hs-identifier hs-var hs-var">headers</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">RequestHead -> [(HeaderName, Method)]
|
||||
</span><span class="hs-identifier hs-var hs-var">WS.requestHeaders</span></span><span> </span><span class="annot"><span class="annottext">(RequestHead -> [(HeaderName, Method)])
|
||||
-> RequestHead -> [(HeaderName, Method)]
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">PendingConnection -> RequestHead
|
||||
</span><span class="hs-identifier hs-var hs-var">WS.pendingRequest</span></span><span> </span><span class="annot"><span class="annottext">PendingConnection
|
||||
</span><a href="#local-6989586621679168307"><span class="hs-identifier hs-var">conn</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168306"><span class="hs-identifier hs-var">conn</span></a></span><span>
|
||||
</span><span id="line-191"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">HeaderName -> [(HeaderName, Method)] -> Maybe Method
|
||||
forall a b. Eq a => a -> [(a, b)] -> Maybe b
|
||||
</span><span class="hs-identifier hs-var">lookup</span></span><span> </span><span class="annot"><span class="annottext">HeaderName
|
||||
</span><span class="hs-string">"Sec-WebSocket-Protocol"</span></span><span> </span><span class="annot"><span class="annottext">[(HeaderName, Method)]
|
||||
</span><a href="#local-6989586621679168306"><span class="hs-identifier hs-var">headers</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-192"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span id="local-6989586621679168303"><span class="annot"><span class="annottext">Method
|
||||
</span><a href="#local-6989586621679168303"><span class="hs-identifier hs-var">v</span></a></span></span><span>
|
||||
</span><a href="#local-6989586621679168305"><span class="hs-identifier hs-var">headers</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-192"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span id="local-6989586621679168302"><span class="annot"><span class="annottext">Method
|
||||
</span><a href="#local-6989586621679168302"><span class="hs-identifier hs-var">v</span></a></span></span><span>
|
||||
</span><span id="line-193"></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><a href="#local-6989586621679168303"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Method -> Method -> Bool
|
||||
</span><a href="#local-6989586621679168302"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Method -> Method -> Bool
|
||||
forall a. Eq a => a -> a -> Bool
|
||||
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"graphql-ws"</span></span><span> </span><span class="annot"><span class="annottext">Bool -> Bool -> Bool
|
||||
</span><span class="hs-operator hs-var">||</span></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><a href="#local-6989586621679168303"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Method -> Method -> Bool
|
||||
</span><a href="#local-6989586621679168302"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Method -> Method -> Bool
|
||||
forall a. Eq a => a -> a -> Bool
|
||||
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"graphql-transport-ws"</span></span><span>
|
||||
</span><span id="line-194"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span> </span><span id="local-6989586621679168301"><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168301"><span class="hs-identifier hs-var">conn'</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">PendingConnection -> AcceptRequest -> IO Connection
|
||||
</span><span id="line-194"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span> </span><span id="local-6989586621679168300"><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168300"><span class="hs-identifier hs-var">conn'</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">PendingConnection -> AcceptRequest -> IO Connection
|
||||
</span><span class="hs-identifier hs-var">WS.acceptRequestWith</span></span><span> </span><span class="annot"><span class="annottext">PendingConnection
|
||||
</span><a href="#local-6989586621679168307"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Maybe Method -> [(HeaderName, Method)] -> AcceptRequest
|
||||
</span><a href="#local-6989586621679168306"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Maybe Method -> [(HeaderName, Method)] -> AcceptRequest
|
||||
</span><span class="hs-identifier hs-var">WS.AcceptRequest</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Method -> Maybe Method
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><a href="#local-6989586621679168303"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679168302"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-195"></span><span> </span><span class="annot"><span class="annottext">((Maybe Text
|
||||
-> VariableMapC
|
||||
-> [Definition]
|
||||
@ -680,7 +680,7 @@ forall a b c. (a -> b -> c) -> b -> a -> c
|
||||
-> IO ())
|
||||
-> Connection -> IO ()
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#protocol"><span class="hs-identifier hs-var">protocol</span></a></span><span> </span><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168301"><span class="hs-identifier hs-var">conn'</span></a></span><span> </span><span class="annot"><span class="annottext">((Maybe Text
|
||||
</span><a href="#local-6989586621679168300"><span class="hs-identifier hs-var">conn'</span></a></span><span> </span><span class="annot"><span class="annottext">((Maybe Text
|
||||
-> VariableMapC
|
||||
-> [Definition]
|
||||
-> ConduitT Value Void IO ()
|
||||
@ -721,28 +721,28 @@ GraphQLApp p qr mut sub m chn hs =>
|
||||
-> ConduitT Value Void IO ()
|
||||
-> IO ()
|
||||
</span><a href="Mu.GraphQL.Query.Run.html#runSubscriptionPipeline"><span class="hs-identifier hs-var">runSubscriptionPipeline</span></a></span><span> </span><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168312"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">[(HeaderName, Method)]
|
||||
</span><a href="#local-6989586621679168306"><span class="hs-identifier hs-var">headers</span></a></span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168311"><span class="hs-identifier hs-var">server</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168310"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168309"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168308"><span class="hs-identifier hs-var">s</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168311"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">[(HeaderName, Method)]
|
||||
</span><a href="#local-6989586621679168305"><span class="hs-identifier hs-var">headers</span></a></span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168310"><span class="hs-identifier hs-var">server</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168309"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168308"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168307"><span class="hs-identifier hs-var">s</span></a></span><span>
|
||||
</span><span id="line-197"></span><span> </span><span class="annot"><span class="annottext">Maybe Method
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">PendingConnection -> Method -> IO ()
|
||||
</span><span class="hs-identifier hs-var">WS.rejectRequest</span></span><span> </span><span class="annot"><span class="annottext">PendingConnection
|
||||
</span><a href="#local-6989586621679168307"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><a href="#local-6989586621679168306"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="annot"><span class="annottext">Method
|
||||
</span><span class="hs-string">"unsupported protocol"</span></span><span>
|
||||
</span><span id="line-198"></span><span>
|
||||
</span><span id="line-199"></span><span class="hs-comment">-- | Run a Mu 'graphQLApp' using the given 'Settings'.</span><span>
|
||||
</span><span id="line-200"></span><span class="hs-comment">--</span><span>
|
||||
</span><span id="line-201"></span><span class="hs-comment">-- Go to 'Network.Wai.Handler.Warp' to declare 'Settings'.</span><span>
|
||||
</span><span id="line-202"></span><span id="local-6989586621679168291"><span id="local-6989586621679168292"><span id="local-6989586621679168293"><span id="local-6989586621679168294"><span id="local-6989586621679168295"><span id="local-6989586621679168296"><span class="annot"><a href="Mu.GraphQL.Server.html#runGraphQLAppSettings"><span class="hs-identifier hs-type">runGraphQLAppSettings</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-203"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168296"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168295"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168294"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168293"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168292"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168291"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-202"></span><span id="local-6989586621679168290"><span id="local-6989586621679168291"><span id="local-6989586621679168292"><span id="local-6989586621679168293"><span id="local-6989586621679168294"><span id="local-6989586621679168295"><span class="annot"><a href="Mu.GraphQL.Server.html#runGraphQLAppSettings"><span class="hs-identifier hs-type">runGraphQLAppSettings</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-203"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168295"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168294"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168293"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168292"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168291"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168290"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-204"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Settings</span></span><span>
|
||||
</span><span id="line-205"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168292"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168296"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168291"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-206"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168295"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-207"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168294"><span class="hs-identifier hs-type">mut</span></a></span><span>
|
||||
</span><span id="line-208"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168293"><span class="hs-identifier hs-type">sub</span></a></span><span>
|
||||
</span><span id="line-205"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168291"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168295"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168290"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-206"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168294"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-207"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168293"><span class="hs-identifier hs-type">mut</span></a></span><span>
|
||||
</span><span id="line-208"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168292"><span class="hs-identifier hs-type">sub</span></a></span><span>
|
||||
</span><span id="line-209"></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="hs-special">(</span><span class="hs-special">)</span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-210"></span><span id="runGraphQLAppSettings"><span class="annot"><span class="annottext">runGraphQLAppSettings :: Settings
|
||||
-> ServerT chn Field p ServerErrorIO hs
|
||||
@ -750,14 +750,14 @@ GraphQLApp p qr mut sub m chn hs =>
|
||||
-> Proxy mut
|
||||
-> Proxy sub
|
||||
-> IO ()
|
||||
</span><a href="Mu.GraphQL.Server.html#runGraphQLAppSettings"><span class="hs-identifier hs-var hs-var">runGraphQLAppSettings</span></a></span></span><span> </span><span id="local-6989586621679168290"><span class="annot"><span class="annottext">Settings
|
||||
</span><a href="#local-6989586621679168290"><span class="hs-identifier hs-var">st</span></a></span></span><span> </span><span id="local-6989586621679168289"><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
</span><a href="#local-6989586621679168289"><span class="hs-identifier hs-var">svr</span></a></span></span><span> </span><span id="local-6989586621679168288"><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168288"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168287"><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168287"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679168286"><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168286"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Settings -> Application -> IO ()
|
||||
</span><a href="Mu.GraphQL.Server.html#runGraphQLAppSettings"><span class="hs-identifier hs-var hs-var">runGraphQLAppSettings</span></a></span></span><span> </span><span id="local-6989586621679168289"><span class="annot"><span class="annottext">Settings
|
||||
</span><a href="#local-6989586621679168289"><span class="hs-identifier hs-var">st</span></a></span></span><span> </span><span id="local-6989586621679168288"><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
</span><a href="#local-6989586621679168288"><span class="hs-identifier hs-var">svr</span></a></span></span><span> </span><span id="local-6989586621679168287"><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168287"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168286"><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168286"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679168285"><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168285"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Settings -> Application -> IO ()
|
||||
</span><span class="hs-identifier hs-var">runSettings</span></span><span> </span><span class="annot"><span class="annottext">Settings
|
||||
</span><a href="#local-6989586621679168290"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
</span><a href="#local-6989586621679168289"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
-> Proxy qr -> Proxy mut -> Proxy sub -> Application
|
||||
forall (p :: Package') (qr :: Maybe Symbol) (mut :: Maybe Symbol)
|
||||
(sub :: Maybe Symbol) (chn :: ServiceChain Symbol) (hs :: [[*]]).
|
||||
@ -765,19 +765,19 @@ GraphQLApp p qr mut sub ServerErrorIO chn hs =>
|
||||
ServerT chn Field p ServerErrorIO hs
|
||||
-> Proxy qr -> Proxy mut -> Proxy sub -> Application
|
||||
</span><a href="Mu.GraphQL.Server.html#graphQLApp"><span class="hs-identifier hs-var">graphQLApp</span></a></span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
</span><a href="#local-6989586621679168289"><span class="hs-identifier hs-var">svr</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168288"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168287"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168286"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679168288"><span class="hs-identifier hs-var">svr</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168287"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168286"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168285"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-211"></span><span>
|
||||
</span><span id="line-212"></span><span class="hs-comment">-- | Run a Mu 'graphQLApp' on the given port.</span><span>
|
||||
</span><span id="line-213"></span><span id="local-6989586621679168280"><span id="local-6989586621679168281"><span id="local-6989586621679168282"><span id="local-6989586621679168283"><span id="local-6989586621679168284"><span id="local-6989586621679168285"><span class="annot"><a href="Mu.GraphQL.Server.html#runGraphQLApp"><span class="hs-identifier hs-type">runGraphQLApp</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-214"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168285"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168284"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168283"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168282"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168281"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168280"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-213"></span><span id="local-6989586621679168279"><span id="local-6989586621679168280"><span id="local-6989586621679168281"><span id="local-6989586621679168282"><span id="local-6989586621679168283"><span id="local-6989586621679168284"><span class="annot"><a href="Mu.GraphQL.Server.html#runGraphQLApp"><span class="hs-identifier hs-type">runGraphQLApp</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-214"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168284"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168283"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168282"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168281"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168280"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168279"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-215"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Port</span></span><span>
|
||||
</span><span id="line-216"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168281"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168285"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168280"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-217"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168284"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-218"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168283"><span class="hs-identifier hs-type">mut</span></a></span><span>
|
||||
</span><span id="line-219"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168282"><span class="hs-identifier hs-type">sub</span></a></span><span>
|
||||
</span><span id="line-216"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168280"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168284"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168279"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-217"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168283"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-218"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168282"><span class="hs-identifier hs-type">mut</span></a></span><span>
|
||||
</span><span id="line-219"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168281"><span class="hs-identifier hs-type">sub</span></a></span><span>
|
||||
</span><span id="line-220"></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="hs-special">(</span><span class="hs-special">)</span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-221"></span><span id="runGraphQLApp"><span class="annot"><span class="annottext">runGraphQLApp :: Port
|
||||
-> ServerT chn Field p ServerErrorIO hs
|
||||
@ -785,14 +785,14 @@ ServerT chn Field p ServerErrorIO hs
|
||||
-> Proxy mut
|
||||
-> Proxy sub
|
||||
-> IO ()
|
||||
</span><a href="Mu.GraphQL.Server.html#runGraphQLApp"><span class="hs-identifier hs-var hs-var">runGraphQLApp</span></a></span></span><span> </span><span id="local-6989586621679168279"><span class="annot"><span class="annottext">Port
|
||||
</span><a href="#local-6989586621679168279"><span class="hs-identifier hs-var">port</span></a></span></span><span> </span><span id="local-6989586621679168278"><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
</span><a href="#local-6989586621679168278"><span class="hs-identifier hs-var">svr</span></a></span></span><span> </span><span id="local-6989586621679168277"><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168277"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168276"><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168276"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679168275"><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168275"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Port -> Application -> IO ()
|
||||
</span><a href="Mu.GraphQL.Server.html#runGraphQLApp"><span class="hs-identifier hs-var hs-var">runGraphQLApp</span></a></span></span><span> </span><span id="local-6989586621679168278"><span class="annot"><span class="annottext">Port
|
||||
</span><a href="#local-6989586621679168278"><span class="hs-identifier hs-var">port</span></a></span></span><span> </span><span id="local-6989586621679168277"><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
</span><a href="#local-6989586621679168277"><span class="hs-identifier hs-var">svr</span></a></span></span><span> </span><span id="local-6989586621679168276"><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168276"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168275"><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168275"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679168274"><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168274"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Port -> Application -> IO ()
|
||||
</span><span class="hs-identifier hs-var">run</span></span><span> </span><span class="annot"><span class="annottext">Port
|
||||
</span><a href="#local-6989586621679168279"><span class="hs-identifier hs-var">port</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
</span><a href="#local-6989586621679168278"><span class="hs-identifier hs-var">port</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
-> Proxy qr -> Proxy mut -> Proxy sub -> Application
|
||||
forall (p :: Package') (qr :: Maybe Symbol) (mut :: Maybe Symbol)
|
||||
(sub :: Maybe Symbol) (chn :: ServiceChain Symbol) (hs :: [[*]]).
|
||||
@ -800,20 +800,20 @@ GraphQLApp p qr mut sub ServerErrorIO chn hs =>
|
||||
ServerT chn Field p ServerErrorIO hs
|
||||
-> Proxy qr -> Proxy mut -> Proxy sub -> Application
|
||||
</span><a href="Mu.GraphQL.Server.html#graphQLApp"><span class="hs-identifier hs-var">graphQLApp</span></a></span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
</span><a href="#local-6989586621679168278"><span class="hs-identifier hs-var">svr</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168277"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168276"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168275"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679168277"><span class="hs-identifier hs-var">svr</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168276"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168275"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168274"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-222"></span><span>
|
||||
</span><span id="line-223"></span><span class="hs-comment">-- | Run a Mu 'graphQLApp' on a transformer stack on the given port.</span><span>
|
||||
</span><span id="line-224"></span><span id="local-6989586621679168268"><span id="local-6989586621679168269"><span id="local-6989586621679168270"><span id="local-6989586621679168271"><span id="local-6989586621679168272"><span id="local-6989586621679168273"><span id="local-6989586621679168274"><span class="annot"><a href="Mu.GraphQL.Server.html#runGraphQLAppTrans"><span class="hs-identifier hs-type">runGraphQLAppTrans</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-225"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168274"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168273"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168272"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168271"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168270"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168269"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168268"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-224"></span><span id="local-6989586621679168267"><span id="local-6989586621679168268"><span id="local-6989586621679168269"><span id="local-6989586621679168270"><span id="local-6989586621679168271"><span id="local-6989586621679168272"><span id="local-6989586621679168273"><span class="annot"><a href="Mu.GraphQL.Server.html#runGraphQLAppTrans"><span class="hs-identifier hs-type">runGraphQLAppTrans</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-225"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168273"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168272"><span class="hs-identifier hs-type">qr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168271"><span class="hs-identifier hs-type">mut</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168270"><span class="hs-identifier hs-type">sub</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168269"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168268"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168267"><span class="hs-identifier hs-type">hs</span></a></span><span> </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"><span class="hs-identifier hs-type">Port</span></span><span>
|
||||
</span><span id="line-227"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168477"><span class="annot"><a href="#local-6989586621679168477"><span class="hs-identifier hs-type">a</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="#local-6989586621679168270"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168477"><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">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168477"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-228"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168269"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168274"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168270"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168268"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-229"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168273"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-230"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168272"><span class="hs-identifier hs-type">mut</span></a></span><span>
|
||||
</span><span id="line-231"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168271"><span class="hs-identifier hs-type">sub</span></a></span><span>
|
||||
</span><span id="line-227"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168476"><span class="annot"><a href="#local-6989586621679168476"><span class="hs-identifier hs-type">a</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="#local-6989586621679168269"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168476"><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">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168476"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-228"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168268"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168273"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168269"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168267"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-229"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168272"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-230"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168271"><span class="hs-identifier hs-type">mut</span></a></span><span>
|
||||
</span><span id="line-231"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168270"><span class="hs-identifier hs-type">sub</span></a></span><span>
|
||||
</span><span id="line-232"></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="hs-special">(</span><span class="hs-special">)</span></span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-233"></span><span id="runGraphQLAppTrans"><span class="annot"><span class="annottext">runGraphQLAppTrans :: Port
|
||||
-> (forall a. m a -> ServerErrorIO a)
|
||||
@ -822,15 +822,15 @@ ServerT chn Field p ServerErrorIO hs
|
||||
-> Proxy mut
|
||||
-> Proxy sub
|
||||
-> IO ()
|
||||
</span><a href="Mu.GraphQL.Server.html#runGraphQLAppTrans"><span class="hs-identifier hs-var hs-var">runGraphQLAppTrans</span></a></span></span><span> </span><span id="local-6989586621679168267"><span class="annot"><span class="annottext">Port
|
||||
</span><a href="#local-6989586621679168267"><span class="hs-identifier hs-var">port</span></a></span></span><span> </span><span id="local-6989586621679168266"><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168266"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679168265"><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168265"><span class="hs-identifier hs-var">svr</span></a></span></span><span> </span><span id="local-6989586621679168264"><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168264"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168263"><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168263"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679168262"><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168262"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Port -> Application -> IO ()
|
||||
</span><a href="Mu.GraphQL.Server.html#runGraphQLAppTrans"><span class="hs-identifier hs-var hs-var">runGraphQLAppTrans</span></a></span></span><span> </span><span id="local-6989586621679168266"><span class="annot"><span class="annottext">Port
|
||||
</span><a href="#local-6989586621679168266"><span class="hs-identifier hs-var">port</span></a></span></span><span> </span><span id="local-6989586621679168265"><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168265"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679168264"><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168264"><span class="hs-identifier hs-var">svr</span></a></span></span><span> </span><span id="local-6989586621679168263"><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168263"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168262"><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168262"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679168261"><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168261"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Port -> Application -> IO ()
|
||||
</span><span class="hs-identifier hs-var">run</span></span><span> </span><span class="annot"><span class="annottext">Port
|
||||
</span><a href="#local-6989586621679168267"><span class="hs-identifier hs-var">port</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(forall a. m a -> ServerErrorIO a)
|
||||
</span><a href="#local-6989586621679168266"><span class="hs-identifier hs-var">port</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(forall a. m a -> ServerErrorIO a)
|
||||
-> ServerT chn Field p m hs
|
||||
-> Proxy qr
|
||||
-> Proxy mut
|
||||
@ -847,33 +847,33 @@ GraphQLApp p qr mut sub m chn hs =>
|
||||
-> Proxy sub
|
||||
-> Application
|
||||
</span><a href="Mu.GraphQL.Server.html#graphQLAppTrans"><span class="hs-identifier hs-var">graphQLAppTrans</span></a></span><span> </span><span class="annot"><span class="annottext">forall a. m a -> ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168266"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168265"><span class="hs-identifier hs-var">svr</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168264"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168263"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168262"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679168265"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p m hs
|
||||
</span><a href="#local-6989586621679168264"><span class="hs-identifier hs-var">svr</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168263"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy mut
|
||||
</span><a href="#local-6989586621679168262"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy sub
|
||||
</span><a href="#local-6989586621679168261"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-234"></span><span>
|
||||
</span><span id="line-235"></span><span class="hs-comment">-- | Run a query-only Mu 'graphQLApp' on the given port.</span><span>
|
||||
</span><span id="line-236"></span><span id="local-6989586621679168258"><span id="local-6989586621679168259"><span id="local-6989586621679168260"><span id="local-6989586621679168261"><span class="annot"><a href="Mu.GraphQL.Server.html#runGraphQLAppQuery"><span class="hs-identifier hs-type">runGraphQLAppQuery</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-237"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168261"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679168260"><span class="hs-identifier hs-type">qr</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Nothing</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Nothing</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168259"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168258"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-236"></span><span id="local-6989586621679168257"><span id="local-6989586621679168258"><span id="local-6989586621679168259"><span id="local-6989586621679168260"><span class="annot"><a href="Mu.GraphQL.Server.html#runGraphQLAppQuery"><span class="hs-identifier hs-type">runGraphQLAppQuery</span></a></span><span> </span><span class="hs-glyph">::</span><span>
|
||||
</span><span id="line-237"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GraphQL.Query.Run.html#GraphQLApp"><span class="hs-identifier hs-type">GraphQLApp</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168260"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679168259"><span class="hs-identifier hs-type">qr</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Nothing</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Nothing</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168258"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168257"><span class="hs-identifier hs-type">hs</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-238"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Port</span></span><span>
|
||||
</span><span id="line-239"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168259"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168261"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168258"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-240"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168260"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-239"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168258"><span class="hs-identifier hs-type">chn</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GQL.Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679168260"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168257"><span class="hs-identifier hs-type">hs</span></a></span><span>
|
||||
</span><span id="line-240"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679168259"><span class="hs-identifier hs-type">qr</span></a></span><span>
|
||||
</span><span id="line-241"></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="hs-special">(</span><span class="hs-special">)</span></span></span></span></span><span>
|
||||
</span><span id="line-242"></span><span id="runGraphQLAppQuery"><span class="annot"><span class="annottext">runGraphQLAppQuery :: Port -> ServerT chn Field p ServerErrorIO hs -> Proxy qr -> IO ()
|
||||
</span><a href="Mu.GraphQL.Server.html#runGraphQLAppQuery"><span class="hs-identifier hs-var hs-var">runGraphQLAppQuery</span></a></span></span><span> </span><span id="local-6989586621679168257"><span class="annot"><span class="annottext">Port
|
||||
</span><a href="#local-6989586621679168257"><span class="hs-identifier hs-var">port</span></a></span></span><span> </span><span id="local-6989586621679168256"><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
</span><a href="#local-6989586621679168256"><span class="hs-identifier hs-var">svr</span></a></span></span><span> </span><span id="local-6989586621679168255"><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168255"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Port -> Application -> IO ()
|
||||
</span><a href="Mu.GraphQL.Server.html#runGraphQLAppQuery"><span class="hs-identifier hs-var hs-var">runGraphQLAppQuery</span></a></span></span><span> </span><span id="local-6989586621679168256"><span class="annot"><span class="annottext">Port
|
||||
</span><a href="#local-6989586621679168256"><span class="hs-identifier hs-var">port</span></a></span></span><span> </span><span id="local-6989586621679168255"><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
</span><a href="#local-6989586621679168255"><span class="hs-identifier hs-var">svr</span></a></span></span><span> </span><span id="local-6989586621679168254"><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168254"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Port -> Application -> IO ()
|
||||
</span><span class="hs-identifier hs-var">run</span></span><span> </span><span class="annot"><span class="annottext">Port
|
||||
</span><a href="#local-6989586621679168257"><span class="hs-identifier hs-var">port</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs -> Proxy qr -> Application
|
||||
</span><a href="#local-6989586621679168256"><span class="hs-identifier hs-var">port</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs -> Proxy qr -> Application
|
||||
forall (qr :: Symbol) (p :: Package') (chn :: ServiceChain Symbol)
|
||||
(hs :: [[*]]).
|
||||
GraphQLApp p ('Just qr) 'Nothing 'Nothing ServerErrorIO chn hs =>
|
||||
ServerT chn Field p ServerErrorIO hs -> Proxy qr -> Application
|
||||
</span><a href="Mu.GraphQL.Server.html#graphQLAppQuery"><span class="hs-identifier hs-var">graphQLAppQuery</span></a></span><span> </span><span class="annot"><span class="annottext">ServerT chn Field p ServerErrorIO hs
|
||||
</span><a href="#local-6989586621679168256"><span class="hs-identifier hs-var">svr</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168255"><span class="hs-identifier hs-var">q</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679168255"><span class="hs-identifier hs-var">svr</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy qr
|
||||
</span><a href="#local-6989586621679168254"><span class="hs-identifier hs-var">q</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-243"></span><span>
|
||||
</span><span id="line-244"></span><span class="hs-comment">-- | Turns a 'Conduit' working on 'ServerErrorIO'</span><span>
|
||||
</span><span id="line-245"></span><span class="hs-comment">-- into any other base monad which supports 'IO',</span><span>
|
||||
@ -882,9 +882,9 @@ ServerT chn Field p ServerErrorIO hs -> Proxy qr -> Application
|
||||
</span><span id="line-248"></span><span class="hs-comment">-- This function is useful to interoperate with</span><span>
|
||||
</span><span id="line-249"></span><span class="hs-comment">-- libraries which generate 'Conduit's with other</span><span>
|
||||
</span><span id="line-250"></span><span class="hs-comment">-- base monads, such as @persistent@.</span><span>
|
||||
</span><span id="line-251"></span><span id="local-6989586621679168251"><span id="local-6989586621679168252"><span id="local-6989586621679168253"><span id="local-6989586621679168254"><span class="annot"><a href="Mu.GraphQL.Server.html#liftServerConduit"><span class="hs-identifier hs-type">liftServerConduit</span></a></span><span>
|
||||
</span><span id="line-252"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">MonadIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168254"><span class="hs-identifier hs-type">m</span></a></span><span>
|
||||
</span><span id="line-253"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ConduitT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168253"><span class="hs-identifier hs-type">i</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168252"><span class="hs-identifier hs-type">o</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168251"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ConduitT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168253"><span class="hs-identifier hs-type">i</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168252"><span class="hs-identifier hs-type">o</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168254"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168251"><span class="hs-identifier hs-type">r</span></a></span></span></span></span></span><span>
|
||||
</span><span id="line-251"></span><span id="local-6989586621679168250"><span id="local-6989586621679168251"><span id="local-6989586621679168252"><span id="local-6989586621679168253"><span class="annot"><a href="Mu.GraphQL.Server.html#liftServerConduit"><span class="hs-identifier hs-type">liftServerConduit</span></a></span><span>
|
||||
</span><span id="line-252"></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">MonadIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168253"><span class="hs-identifier hs-type">m</span></a></span><span>
|
||||
</span><span id="line-253"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ConduitT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168252"><span class="hs-identifier hs-type">i</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168251"><span class="hs-identifier hs-type">o</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168250"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ConduitT</span></span><span> </span><span class="annot"><a href="#local-6989586621679168252"><span class="hs-identifier hs-type">i</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168251"><span class="hs-identifier hs-type">o</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168253"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168250"><span class="hs-identifier hs-type">r</span></a></span></span></span></span></span><span>
|
||||
</span><span id="line-254"></span><span id="liftServerConduit"><span class="annot"><span class="annottext">liftServerConduit :: ConduitT i o ServerErrorIO r -> ConduitT i o m r
|
||||
</span><a href="Mu.GraphQL.Server.html#liftServerConduit"><span class="hs-identifier hs-var hs-var">liftServerConduit</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall a. ServerErrorIO a -> m a)
|
||||
-> ConduitT i o ServerErrorIO r -> ConduitT i o m r
|
||||
@ -893,31 +893,31 @@ Monad m =>
|
||||
(forall a. m a -> n a) -> ConduitT i o m r -> ConduitT i o n r
|
||||
</span><span class="hs-identifier hs-var">transPipe</span></span><span> </span><span class="annot"><span class="annottext">forall a. ServerErrorIO a -> m a
|
||||
forall (m :: * -> *) a. MonadIO m => ServerErrorIO a -> m a
|
||||
</span><a href="#local-6989586621679168250"><span class="hs-identifier hs-var">raiseErrors</span></a></span><span>
|
||||
</span><span id="line-255"></span><span> </span><span class="hs-keyword">where</span><span> </span><span class="annot"><a href="#local-6989586621679168250"><span class="hs-identifier hs-type">raiseErrors</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168452"><span class="annot"><a href="#local-6989586621679168452"><span class="hs-identifier hs-type">m</span></a></span></span><span> </span><span id="local-6989586621679168450"><span class="annot"><a href="#local-6989586621679168450"><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">MonadIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168452"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168450"><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-6989586621679168452"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168450"><span class="hs-identifier hs-type">a</span></a></span><span>
|
||||
</span><span id="line-256"></span><span> </span><span id="local-6989586621679168250"><span class="annot"><span class="annottext">raiseErrors :: ServerErrorIO a -> m a
|
||||
</span><a href="#local-6989586621679168250"><span class="hs-identifier hs-var hs-var">raiseErrors</span></a></span></span><span> </span><span id="local-6989586621679168249"><span class="annot"><span class="annottext">ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168249"><span class="hs-identifier hs-var">h</span></a></span></span><span>
|
||||
</span><a href="#local-6989586621679168249"><span class="hs-identifier hs-var">raiseErrors</span></a></span><span>
|
||||
</span><span id="line-255"></span><span> </span><span class="hs-keyword">where</span><span> </span><span class="annot"><a href="#local-6989586621679168249"><span class="hs-identifier hs-type">raiseErrors</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679168451"><span class="annot"><a href="#local-6989586621679168451"><span class="hs-identifier hs-type">m</span></a></span></span><span> </span><span id="local-6989586621679168449"><span class="annot"><a href="#local-6989586621679168449"><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">MonadIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168451"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ServerErrorIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679168449"><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-6989586621679168451"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679168449"><span class="hs-identifier hs-type">a</span></a></span><span>
|
||||
</span><span id="line-256"></span><span> </span><span id="local-6989586621679168249"><span class="annot"><span class="annottext">raiseErrors :: ServerErrorIO a -> m a
|
||||
</span><a href="#local-6989586621679168249"><span class="hs-identifier hs-var hs-var">raiseErrors</span></a></span></span><span> </span><span id="local-6989586621679168248"><span class="annot"><span class="annottext">ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168248"><span class="hs-identifier hs-var">h</span></a></span></span><span>
|
||||
</span><span id="line-257"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IO a -> m a
|
||||
forall (m :: * -> *) a. MonadIO m => IO a -> m a
|
||||
</span><span class="hs-identifier hs-var">liftIO</span></span><span> </span><span class="annot"><span class="annottext">(IO a -> m a) -> IO a -> m a
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-258"></span><span> </span><span id="local-6989586621679168247"><span class="annot"><span class="annottext">Either ServerError a
|
||||
</span><a href="#local-6989586621679168247"><span class="hs-identifier hs-var">h'</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">ServerErrorIO a -> IO (Either ServerError a)
|
||||
</span><span id="line-258"></span><span> </span><span id="local-6989586621679168246"><span class="annot"><span class="annottext">Either ServerError a
|
||||
</span><a href="#local-6989586621679168246"><span class="hs-identifier hs-var">h'</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">ServerErrorIO a -> IO (Either ServerError a)
|
||||
forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
|
||||
</span><span class="hs-identifier hs-var">runExceptT</span></span><span> </span><span class="annot"><span class="annottext">ServerErrorIO a
|
||||
</span><a href="#local-6989586621679168249"><span class="hs-identifier hs-var">h</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168248"><span class="hs-identifier hs-var">h</span></a></span><span>
|
||||
</span><span id="line-259"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Either ServerError a
|
||||
</span><a href="#local-6989586621679168247"><span class="hs-identifier hs-var">h'</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-260"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168246"><span class="annot"><span class="annottext">a
|
||||
</span><a href="#local-6989586621679168246"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">a -> IO a
|
||||
</span><a href="#local-6989586621679168246"><span class="hs-identifier hs-var">h'</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-260"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168245"><span class="annot"><span class="annottext">a
|
||||
</span><a href="#local-6989586621679168245"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">a -> IO a
|
||||
forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
</span><span class="hs-identifier hs-var">pure</span></span><span> </span><span class="annot"><span class="annottext">a
|
||||
</span><a href="#local-6989586621679168246"><span class="hs-identifier hs-var">r</span></a></span><span>
|
||||
</span><span id="line-261"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168245"><span class="annot"><span class="annottext">ServerError
|
||||
</span><a href="#local-6989586621679168245"><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="annottext">ServerError -> IO a
|
||||
</span><a href="#local-6989586621679168245"><span class="hs-identifier hs-var">r</span></a></span><span>
|
||||
</span><span id="line-261"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168244"><span class="annot"><span class="annottext">ServerError
|
||||
</span><a href="#local-6989586621679168244"><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="annottext">ServerError -> IO a
|
||||
forall a e. Exception e => e -> a
|
||||
</span><span class="hs-identifier hs-var">throw</span></span><span> </span><span class="annot"><span class="annottext">ServerError
|
||||
</span><a href="#local-6989586621679168245"><span class="hs-identifier hs-var">e</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168244"><span class="hs-identifier hs-var">e</span></a></span><span>
|
||||
</span><span id="line-262"></span></pre></body></html>
|
@ -36,35 +36,35 @@ https://github.com/apollographql/subscriptions-transport-ws/blob/master/PROTOCOL
|
||||
-> ConduitT Value Void IO ()
|
||||
-> IO ())
|
||||
-> Connection -> IO ()
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#protocol"><span class="hs-identifier hs-var hs-var">protocol</span></a></span></span><span> </span><span id="local-6989586621679168132"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#protocol"><span class="hs-identifier hs-var hs-var">protocol</span></a></span></span><span> </span><span id="local-6989586621679168131"><span class="annot"><span class="annottext">Maybe Text
|
||||
-> VariableMapC
|
||||
-> [Definition]
|
||||
-> ConduitT Value Void IO ()
|
||||
-> IO ()
|
||||
</span><a href="#local-6989586621679168132"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679168131"><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168131"><span class="hs-identifier hs-var">conn</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IO ()
|
||||
</span><a href="#local-6989586621679168130"><span class="hs-identifier hs-var">start</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168131"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679168130"><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168130"><span class="hs-identifier hs-var">conn</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IO ()
|
||||
</span><a href="#local-6989586621679168129"><span class="hs-identifier hs-var">start</span></a></span><span>
|
||||
</span><span id="line-34"></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-35"></span><span> </span><span class="hs-comment">-- listen for GQL_CONNECTION_INIT</span><span>
|
||||
</span><span id="line-36"></span><span> </span><span id="local-6989586621679168130"><span class="annot"><span class="annottext">start :: IO ()
|
||||
</span><a href="#local-6989586621679168130"><span class="hs-identifier hs-var hs-var">start</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-37"></span><span> </span><span id="local-6989586621679168129"><span class="annot"><span class="annottext">Maybe ClientMessage
|
||||
</span><a href="#local-6989586621679168129"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Connection -> IO (Maybe ClientMessage)
|
||||
</span><span id="line-36"></span><span> </span><span id="local-6989586621679168129"><span class="annot"><span class="annottext">start :: IO ()
|
||||
</span><a href="#local-6989586621679168129"><span class="hs-identifier hs-var hs-var">start</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-37"></span><span> </span><span id="local-6989586621679168128"><span class="annot"><span class="annottext">Maybe ClientMessage
|
||||
</span><a href="#local-6989586621679168128"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Connection -> IO (Maybe ClientMessage)
|
||||
forall a. FromJSON a => Connection -> IO (Maybe a)
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#receiveJSON"><span class="hs-identifier hs-var">receiveJSON</span></a></span><span> </span><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168131"><span class="hs-identifier hs-var">conn</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168130"><span class="hs-identifier hs-var">conn</span></a></span><span>
|
||||
</span><span id="line-38"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe ClientMessage
|
||||
</span><a href="#local-6989586621679168129"><span class="hs-identifier hs-var">msg</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a href="#local-6989586621679168128"><span class="hs-identifier hs-var">msg</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-39"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLConnectionInit"><span class="hs-identifier hs-type">GQLConnectionInit</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Value
|
||||
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-40"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span> </span><span class="hs-comment">-- send GQL_CONNECTION_ACK</span><span>
|
||||
</span><span id="line-41"></span><span> </span><span class="annot"><span class="annottext">Connection -> ServerMessage -> IO ()
|
||||
forall a. ToJSON a => Connection -> a -> IO ()
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#sendJSON"><span class="hs-identifier hs-var">sendJSON</span></a></span><span> </span><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168131"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="annot"><span class="annottext">ServerMessage
|
||||
</span><a href="#local-6989586621679168130"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="annot"><span class="annottext">ServerMessage
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#GQLConnectionAck"><span class="hs-identifier hs-var">GQLConnectionAck</span></a></span><span>
|
||||
</span><span id="line-42"></span><span> </span><span id="local-6989586621679168124"><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168124"><span class="hs-identifier hs-var">vars</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">IO (Map Text (Async ()))
|
||||
</span><span id="line-42"></span><span> </span><span id="local-6989586621679168123"><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168123"><span class="hs-identifier hs-var">vars</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">IO (Map Text (Async ()))
|
||||
forall key value. IO (Map key value)
|
||||
</span><span class="hs-identifier hs-var">M.newIO</span></span><span>
|
||||
</span><span id="line-43"></span><span> </span><span class="hs-comment">-- send GQL_KEEP_ALIVE each 1s.</span><span>
|
||||
@ -72,57 +72,57 @@ forall key value. IO (Map key value)
|
||||
forall a b. IO a -> (Async a -> IO b) -> IO b
|
||||
</span><span class="hs-identifier hs-var">withAsync</span></span><span> </span><span class="annot"><span class="annottext">IO Any
|
||||
forall b. IO b
|
||||
</span><a href="#local-6989586621679168121"><span class="hs-identifier hs-var">keepAlive</span></a></span><span> </span><span class="annot"><span class="annottext">((Async Any -> IO ()) -> IO ()) -> (Async Any -> IO ()) -> IO ()
|
||||
</span><a href="#local-6989586621679168120"><span class="hs-identifier hs-var">keepAlive</span></a></span><span> </span><span class="annot"><span class="annottext">((Async Any -> IO ()) -> IO ()) -> (Async Any -> IO ()) -> IO ()
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679168120"><span class="annot"><span class="annottext">Async Any
|
||||
</span><a href="#local-6989586621679168120"><span class="hs-identifier hs-var">ka</span></a></span></span><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679168119"><span class="annot"><span class="annottext">Async Any
|
||||
</span><a href="#local-6989586621679168119"><span class="hs-identifier hs-var">ka</span></a></span></span><span> </span><span class="hs-glyph">-></span><span>
|
||||
</span><span id="line-45"></span><span> </span><span class="hs-comment">-- start listening for incoming messages</span><span>
|
||||
</span><span id="line-46"></span><span> </span><span class="annot"><span class="annottext">Async Any -> Map Text (Async ()) -> IO ()
|
||||
forall a. Async a -> Map Text (Async ()) -> IO ()
|
||||
</span><a href="#local-6989586621679168119"><span class="hs-identifier hs-var">listen</span></a></span><span> </span><span class="annot"><span class="annottext">Async Any
|
||||
</span><a href="#local-6989586621679168120"><span class="hs-identifier hs-var">ka</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168124"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168118"><span class="hs-identifier hs-var">listen</span></a></span><span> </span><span class="annot"><span class="annottext">Async Any
|
||||
</span><a href="#local-6989586621679168119"><span class="hs-identifier hs-var">ka</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168123"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><span id="line-47"></span><span> </span><span class="annot"><span class="annottext">Maybe ClientMessage
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">IO ()
|
||||
</span><a href="#local-6989586621679168130"><span class="hs-identifier hs-var">start</span></a></span><span> </span><span class="hs-comment">-- Keep waiting</span><span>
|
||||
</span><a href="#local-6989586621679168129"><span class="hs-identifier hs-var">start</span></a></span><span> </span><span class="hs-comment">-- Keep waiting</span><span>
|
||||
</span><span id="line-48"></span><span> </span><span class="hs-comment">-- keep-alive</span><span>
|
||||
</span><span id="line-49"></span><span> </span><span id="local-6989586621679168121"><span class="annot"><span class="annottext">keepAlive :: IO b
|
||||
</span><a href="#local-6989586621679168121"><span class="hs-identifier hs-var hs-var">keepAlive</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-6989586621679168120"><span class="annot"><span class="annottext">keepAlive :: IO b
|
||||
</span><a href="#local-6989586621679168120"><span class="hs-identifier hs-var hs-var">keepAlive</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-50"></span><span> </span><span class="annot"><span class="annottext">Connection -> ServerMessage -> IO ()
|
||||
forall a. ToJSON a => Connection -> a -> IO ()
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#sendJSON"><span class="hs-identifier hs-var">sendJSON</span></a></span><span> </span><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168131"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="annot"><span class="annottext">ServerMessage
|
||||
</span><a href="#local-6989586621679168130"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="annot"><span class="annottext">ServerMessage
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#GQLKeepAlive"><span class="hs-identifier hs-var">GQLKeepAlive</span></a></span><span>
|
||||
</span><span id="line-51"></span><span> </span><span class="annot"><span class="annottext">Int -> IO ()
|
||||
</span><span class="hs-identifier hs-var">threadDelay</span></span><span> </span><span class="annot"><span class="annottext">Int
|
||||
</span><span class="hs-number">1000000</span></span><span>
|
||||
</span><span id="line-52"></span><span> </span><span class="annot"><span class="annottext">IO b
|
||||
</span><a href="#local-6989586621679168121"><span class="hs-identifier hs-var">keepAlive</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168120"><span class="hs-identifier hs-var">keepAlive</span></a></span><span>
|
||||
</span><span id="line-53"></span><span> </span><span class="hs-comment">-- listen for messages from client</span><span>
|
||||
</span><span id="line-54"></span><span> </span><span id="local-6989586621679168119"><span class="annot"><span class="annottext">listen :: Async a -> Map Text (Async ()) -> IO ()
|
||||
</span><a href="#local-6989586621679168119"><span class="hs-identifier hs-var hs-var">listen</span></a></span></span><span> </span><span id="local-6989586621679168116"><span class="annot"><span class="annottext">Async a
|
||||
</span><a href="#local-6989586621679168116"><span class="hs-identifier hs-var">ka</span></a></span></span><span> </span><span id="local-6989586621679168115"><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168115"><span class="hs-identifier hs-var">vars</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-55"></span><span> </span><span id="local-6989586621679168114"><span class="annot"><span class="annottext">Maybe ClientMessage
|
||||
</span><a href="#local-6989586621679168114"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Connection -> IO (Maybe ClientMessage)
|
||||
</span><span id="line-54"></span><span> </span><span id="local-6989586621679168118"><span class="annot"><span class="annottext">listen :: Async a -> Map Text (Async ()) -> IO ()
|
||||
</span><a href="#local-6989586621679168118"><span class="hs-identifier hs-var hs-var">listen</span></a></span></span><span> </span><span id="local-6989586621679168115"><span class="annot"><span class="annottext">Async a
|
||||
</span><a href="#local-6989586621679168115"><span class="hs-identifier hs-var">ka</span></a></span></span><span> </span><span id="local-6989586621679168114"><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168114"><span class="hs-identifier hs-var">vars</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-55"></span><span> </span><span id="local-6989586621679168113"><span class="annot"><span class="annottext">Maybe ClientMessage
|
||||
</span><a href="#local-6989586621679168113"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Connection -> IO (Maybe ClientMessage)
|
||||
forall a. FromJSON a => Connection -> IO (Maybe a)
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#receiveJSON"><span class="hs-identifier hs-var">receiveJSON</span></a></span><span> </span><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168131"><span class="hs-identifier hs-var">conn</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168130"><span class="hs-identifier hs-var">conn</span></a></span><span>
|
||||
</span><span id="line-56"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe ClientMessage
|
||||
</span><a href="#local-6989586621679168114"><span class="hs-identifier hs-var">msg</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-57"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLStart"><span class="hs-identifier hs-type">GQLStart</span></a></span><span> </span><span id="local-6989586621679168112"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168112"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span id="local-6989586621679168111"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168111"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168110"><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168110"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span id="local-6989586621679168109"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168109"><span class="hs-identifier hs-var">o</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- start handling</span><span>
|
||||
</span><a href="#local-6989586621679168113"><span class="hs-identifier hs-var">msg</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-57"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLStart"><span class="hs-identifier hs-type">GQLStart</span></a></span><span> </span><span id="local-6989586621679168111"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168111"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span id="local-6989586621679168110"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168110"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168109"><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168109"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span id="local-6989586621679168108"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168108"><span class="hs-identifier hs-var">o</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- start handling</span><span>
|
||||
</span><span id="line-58"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">IO () -> (Async () -> IO ()) -> IO ()
|
||||
forall a b. IO a -> (Async a -> IO b) -> IO b
|
||||
</span><span class="hs-identifier hs-var">withAsync</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> Text -> VariableMapC -> Maybe Text -> IO ()
|
||||
</span><a href="#local-6989586621679168108"><span class="hs-identifier hs-var">handle</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168112"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168111"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168110"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168109"><span class="hs-identifier hs-var">o</span></a></span><span> </span><span class="annot"><span class="annottext">IO () -> IO () -> IO ()
|
||||
</span><a href="#local-6989586621679168107"><span class="hs-identifier hs-var">handle</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168111"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168110"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168109"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168108"><span class="hs-identifier hs-var">o</span></a></span><span> </span><span class="annot"><span class="annottext">IO () -> IO () -> IO ()
|
||||
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
|
||||
</span><span class="hs-operator hs-var">>></span></span><span> </span><span class="annot"><span class="annottext">STM () -> IO ()
|
||||
forall a. STM a -> IO a
|
||||
@ -131,11 +131,11 @@ forall key value.
|
||||
(Eq key, Hashable key) =>
|
||||
key -> Map key value -> STM ()
|
||||
</span><span class="hs-identifier hs-var">M.delete</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168112"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168115"><span class="hs-identifier hs-var">vars</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Async () -> IO ()) -> IO ()) -> (Async () -> IO ()) -> IO ()
|
||||
</span><a href="#local-6989586621679168111"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168114"><span class="hs-identifier hs-var">vars</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Async () -> IO ()) -> IO ()) -> (Async () -> IO ()) -> IO ()
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679168105"><span class="annot"><span class="annottext">Async ()
|
||||
</span><a href="#local-6989586621679168105"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679168104"><span class="annot"><span class="annottext">Async ()
|
||||
</span><a href="#local-6989586621679168104"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-59"></span><span> </span><span class="annot"><span class="annottext">STM () -> IO ()
|
||||
forall a. STM a -> IO a
|
||||
</span><span class="hs-identifier hs-var">atomically</span></span><span> </span><span class="annot"><span class="annottext">(STM () -> IO ()) -> STM () -> IO ()
|
||||
@ -145,17 +145,17 @@ forall key value.
|
||||
(Eq key, Hashable key) =>
|
||||
value -> key -> Map key value -> STM ()
|
||||
</span><span class="hs-identifier hs-var">M.insert</span></span><span> </span><span class="annot"><span class="annottext">Async ()
|
||||
</span><a href="#local-6989586621679168105"><span class="hs-identifier hs-var">t</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168112"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168115"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168104"><span class="hs-identifier hs-var">t</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168111"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168114"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><span id="line-60"></span><span> </span><span class="annot"><span class="annottext">Async a -> Map Text (Async ()) -> IO ()
|
||||
</span><a href="#local-6989586621679168119"><span class="hs-identifier hs-var">listen</span></a></span><span> </span><span class="annot"><span class="annottext">Async a
|
||||
</span><a href="#local-6989586621679168116"><span class="hs-identifier hs-var">ka</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168115"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><span id="line-61"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLStop"><span class="hs-identifier hs-type">GQLStop</span></a></span><span> </span><span id="local-6989586621679168102"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168102"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- stop with handling that query</span><span>
|
||||
</span><span id="line-62"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span> </span><span id="local-6989586621679168101"><span class="annot"><span class="annottext">Maybe (Async ())
|
||||
</span><a href="#local-6989586621679168101"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">STM (Maybe (Async ())) -> IO (Maybe (Async ()))
|
||||
</span><a href="#local-6989586621679168118"><span class="hs-identifier hs-var">listen</span></a></span><span> </span><span class="annot"><span class="annottext">Async a
|
||||
</span><a href="#local-6989586621679168115"><span class="hs-identifier hs-var">ka</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168114"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><span id="line-61"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLStop"><span class="hs-identifier hs-type">GQLStop</span></a></span><span> </span><span id="local-6989586621679168101"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168101"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- stop with handling that query</span><span>
|
||||
</span><span id="line-62"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span> </span><span id="local-6989586621679168100"><span class="annot"><span class="annottext">Maybe (Async ())
|
||||
</span><a href="#local-6989586621679168100"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">STM (Maybe (Async ())) -> IO (Maybe (Async ()))
|
||||
forall a. STM a -> IO a
|
||||
</span><span class="hs-identifier hs-var">atomically</span></span><span> </span><span class="annot"><span class="annottext">(STM (Maybe (Async ())) -> IO (Maybe (Async ())))
|
||||
-> STM (Maybe (Async ())) -> IO (Maybe (Async ()))
|
||||
@ -165,19 +165,19 @@ forall key value.
|
||||
(Eq key, Hashable key) =>
|
||||
key -> Map key value -> STM (Maybe value)
|
||||
</span><span class="hs-identifier hs-var">M.lookup</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168102"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168115"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168101"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168114"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><span id="line-63"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe (Async ())
|
||||
</span><a href="#local-6989586621679168101"><span class="hs-identifier hs-var">r</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a href="#local-6989586621679168100"><span class="hs-identifier hs-var">r</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-64"></span><span> </span><span class="annot"><span class="annottext">Maybe (Async ())
|
||||
</span><span class="hs-identifier hs-var">Nothing</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">() -> IO ()
|
||||
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="hs-special">)</span><span>
|
||||
</span><span id="line-65"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span id="local-6989586621679168099"><span class="annot"><span class="annottext">Async ()
|
||||
</span><a href="#local-6989586621679168099"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span> </span><span class="annot"><span class="annottext">Async () -> IO ()
|
||||
</span><span id="line-65"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span id="local-6989586621679168098"><span class="annot"><span class="annottext">Async ()
|
||||
</span><a href="#local-6989586621679168098"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span> </span><span class="annot"><span class="annottext">Async () -> IO ()
|
||||
forall a. Async a -> IO ()
|
||||
</span><span class="hs-identifier hs-var">cancel</span></span><span> </span><span class="annot"><span class="annottext">Async ()
|
||||
</span><a href="#local-6989586621679168099"><span class="hs-identifier hs-var">a</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168098"><span class="hs-identifier hs-var">a</span></a></span><span>
|
||||
</span><span id="line-66"></span><span> </span><span class="annot"><span class="annottext">STM () -> IO ()
|
||||
forall a. STM a -> IO a
|
||||
</span><span class="hs-identifier hs-var">atomically</span></span><span> </span><span class="annot"><span class="annottext">(STM () -> IO ()) -> STM () -> IO ()
|
||||
@ -187,109 +187,109 @@ forall key value.
|
||||
(Eq key, Hashable key) =>
|
||||
key -> Map key value -> STM ()
|
||||
</span><span class="hs-identifier hs-var">M.delete</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168102"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168115"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168101"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168114"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><span id="line-67"></span><span> </span><span class="annot"><span class="annottext">Async a -> Map Text (Async ()) -> IO ()
|
||||
</span><a href="#local-6989586621679168119"><span class="hs-identifier hs-var">listen</span></a></span><span> </span><span class="annot"><span class="annottext">Async a
|
||||
</span><a href="#local-6989586621679168116"><span class="hs-identifier hs-var">ka</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168115"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168118"><span class="hs-identifier hs-var">listen</span></a></span><span> </span><span class="annot"><span class="annottext">Async a
|
||||
</span><a href="#local-6989586621679168115"><span class="hs-identifier hs-var">ka</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168114"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><span id="line-68"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><span class="annottext">ClientMessage
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#GQLTerminate"><span class="hs-identifier hs-var">GQLTerminate</span></a></span><span> </span><span class="hs-comment">-- terminate all queries</span><span>
|
||||
</span><span id="line-69"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span> </span><span class="annot"><span class="annottext">Async a -> Map Text (Async ()) -> IO ()
|
||||
forall a a a. Async a -> Map a (Async a) -> IO ()
|
||||
</span><a href="#local-6989586621679168096"><span class="hs-identifier hs-var">cancelAll</span></a></span><span> </span><span class="annot"><span class="annottext">Async a
|
||||
</span><a href="#local-6989586621679168116"><span class="hs-identifier hs-var">ka</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168115"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168095"><span class="hs-identifier hs-var">cancelAll</span></a></span><span> </span><span class="annot"><span class="annottext">Async a
|
||||
</span><a href="#local-6989586621679168115"><span class="hs-identifier hs-var">ka</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168114"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><span id="line-70"></span><span> </span><span class="annot"><span class="annottext">Connection -> Text -> IO ()
|
||||
forall a. WebSocketsData a => Connection -> a -> IO ()
|
||||
</span><span class="hs-identifier hs-var">sendClose</span></span><span> </span><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168131"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168130"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"GraphQL session terminated"</span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-71"></span><span> </span><span class="annot"><span class="annottext">Maybe ClientMessage
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Async a -> Map Text (Async ()) -> IO ()
|
||||
</span><a href="#local-6989586621679168119"><span class="hs-identifier hs-var">listen</span></a></span><span> </span><span class="annot"><span class="annottext">Async a
|
||||
</span><a href="#local-6989586621679168116"><span class="hs-identifier hs-var">ka</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168115"><span class="hs-identifier hs-var">vars</span></a></span><span> </span><span class="hs-comment">-- Keep going</span><span>
|
||||
</span><a href="#local-6989586621679168118"><span class="hs-identifier hs-var">listen</span></a></span><span> </span><span class="annot"><span class="annottext">Async a
|
||||
</span><a href="#local-6989586621679168115"><span class="hs-identifier hs-var">ka</span></a></span><span> </span><span class="annot"><span class="annottext">Map Text (Async ())
|
||||
</span><a href="#local-6989586621679168114"><span class="hs-identifier hs-var">vars</span></a></span><span> </span><span class="hs-comment">-- Keep going</span><span>
|
||||
</span><span id="line-72"></span><span> </span><span class="hs-comment">-- Handle a single query</span><span>
|
||||
</span><span id="line-73"></span><span> </span><span id="local-6989586621679168108"><span class="annot"><span class="annottext">handle :: Text -> Text -> VariableMapC -> Maybe Text -> IO ()
|
||||
</span><a href="#local-6989586621679168108"><span class="hs-identifier hs-var hs-var">handle</span></a></span></span><span> </span><span id="local-6989586621679168094"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168094"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span id="local-6989586621679168093"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168093"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168092"><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168092"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span id="local-6989586621679168091"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168091"><span class="hs-identifier hs-var">o</span></a></span></span><span>
|
||||
</span><span id="line-73"></span><span> </span><span id="local-6989586621679168107"><span class="annot"><span class="annottext">handle :: Text -> Text -> VariableMapC -> Maybe Text -> IO ()
|
||||
</span><a href="#local-6989586621679168107"><span class="hs-identifier hs-var hs-var">handle</span></a></span></span><span> </span><span id="local-6989586621679168093"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168093"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span id="local-6989586621679168092"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168092"><span class="hs-identifier hs-var">q</span></a></span></span><span> </span><span id="local-6989586621679168091"><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168091"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span id="local-6989586621679168090"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168090"><span class="hs-identifier hs-var">o</span></a></span></span><span>
|
||||
</span><span id="line-74"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Text -> Either Text [Definition]
|
||||
</span><a href="Mu.GraphQL.Quasi.LostParser.html#parseDoc"><span class="hs-identifier hs-var">P.parseDoc</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168093"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-75"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168089"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168089"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Connection -> ServerMessage -> IO ()
|
||||
</span><a href="#local-6989586621679168092"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-75"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679168088"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168088"><span class="hs-identifier hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Connection -> ServerMessage -> IO ()
|
||||
forall a. ToJSON a => Connection -> a -> IO ()
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#sendJSON"><span class="hs-identifier hs-var">sendJSON</span></a></span><span> </span><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168131"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> Value -> ServerMessage
|
||||
</span><a href="#local-6989586621679168130"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> Value -> ServerMessage
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#GQLError"><span class="hs-identifier hs-var">GQLError</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168094"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> Value
|
||||
</span><a href="#local-6989586621679168093"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> Value
|
||||
forall a. ToJSON a => a -> Value
|
||||
</span><span class="hs-identifier hs-var">A.toJSON</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168089"><span class="hs-identifier hs-var">err</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-76"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168086"><span class="annot"><span class="annottext">[Definition]
|
||||
</span><a href="#local-6989586621679168086"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><a href="#local-6989586621679168088"><span class="hs-identifier hs-var">err</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-76"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679168085"><span class="annot"><span class="annottext">[Definition]
|
||||
</span><a href="#local-6989586621679168085"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-77"></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
-> VariableMapC
|
||||
-> [Definition]
|
||||
-> ConduitT Value Void IO ()
|
||||
-> IO ()
|
||||
</span><a href="#local-6989586621679168132"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168091"><span class="hs-identifier hs-var">o</span></a></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168092"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">[Definition]
|
||||
</span><a href="#local-6989586621679168086"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> ConduitT Value Void IO ()
|
||||
</span><a href="#local-6989586621679168131"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168090"><span class="hs-identifier hs-var">o</span></a></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168091"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">[Definition]
|
||||
</span><a href="#local-6989586621679168085"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> ConduitT Value Void IO ()
|
||||
forall (m :: * -> *) o. MonadIO m => Text -> ConduitT Value o m ()
|
||||
</span><a href="#local-6989586621679168085"><span class="hs-identifier hs-var">cndt</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168094"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679168084"><span class="hs-identifier hs-var">cndt</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168093"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-78"></span><span> </span><span class="annot"><span class="annottext">Connection -> ServerMessage -> IO ()
|
||||
forall a. ToJSON a => Connection -> a -> IO ()
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#sendJSON"><span class="hs-identifier hs-var">sendJSON</span></a></span><span> </span><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168131"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> ServerMessage
|
||||
</span><a href="#local-6989586621679168130"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> ServerMessage
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#GQLComplete"><span class="hs-identifier hs-var">GQLComplete</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168094"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679168093"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-79"></span><span> </span><span class="hs-comment">-- Conduit which sends the results via the wire</span><span>
|
||||
</span><span id="line-80"></span><span> </span><span id="local-6989586621679168085"><span class="annot"><span class="annottext">cndt :: Text -> ConduitT Value o m ()
|
||||
</span><a href="#local-6989586621679168085"><span class="hs-identifier hs-var hs-var">cndt</span></a></span></span><span> </span><span id="local-6989586621679168083"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168083"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-81"></span><span> </span><span id="local-6989586621679168082"><span class="annot"><span class="annottext">Maybe Value
|
||||
</span><a href="#local-6989586621679168082"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">ConduitT Value o m (Maybe Value)
|
||||
</span><span id="line-80"></span><span> </span><span id="local-6989586621679168084"><span class="annot"><span class="annottext">cndt :: Text -> ConduitT Value o m ()
|
||||
</span><a href="#local-6989586621679168084"><span class="hs-identifier hs-var hs-var">cndt</span></a></span></span><span> </span><span id="local-6989586621679168082"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168082"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-81"></span><span> </span><span id="local-6989586621679168081"><span class="annot"><span class="annottext">Maybe Value
|
||||
</span><a href="#local-6989586621679168081"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">ConduitT Value o m (Maybe Value)
|
||||
forall (m :: * -> *) i. Monad m => Consumer i m (Maybe i)
|
||||
</span><span class="hs-identifier hs-var">await</span></span><span>
|
||||
</span><span id="line-82"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Maybe Value
|
||||
</span><a href="#local-6989586621679168082"><span class="hs-identifier hs-var">msg</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a href="#local-6989586621679168081"><span class="hs-identifier hs-var">msg</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-83"></span><span> </span><span class="annot"><span class="annottext">Maybe Value
|
||||
</span><span class="hs-identifier hs-var">Nothing</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">() -> ConduitT Value o m ()
|
||||
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="hs-special">)</span><span>
|
||||
</span><span id="line-84"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span id="local-6989586621679168080"><span class="annot"><span class="annottext">Value
|
||||
</span><a href="#local-6989586621679168080"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span> </span><span class="annot"><span class="annottext">IO () -> ConduitT Value o m ()
|
||||
</span><span id="line-84"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span id="local-6989586621679168079"><span class="annot"><span class="annottext">Value
|
||||
</span><a href="#local-6989586621679168079"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span> </span><span class="annot"><span class="annottext">IO () -> ConduitT Value o m ()
|
||||
forall (m :: * -> *) a. MonadIO m => IO a -> m a
|
||||
</span><span class="hs-identifier hs-var">liftIO</span></span><span> </span><span class="annot"><span class="annottext">(IO () -> ConduitT Value o m ()) -> IO () -> ConduitT Value o m ()
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">Connection -> ServerMessage -> IO ()
|
||||
forall a. ToJSON a => Connection -> a -> IO ()
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#sendJSON"><span class="hs-identifier hs-var">sendJSON</span></a></span><span> </span><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168131"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> Value -> ServerMessage
|
||||
</span><a href="#local-6989586621679168130"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> Value -> ServerMessage
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#GQLData"><span class="hs-identifier hs-var">GQLData</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168083"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Value
|
||||
</span><a href="#local-6989586621679168080"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679168082"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Value
|
||||
</span><a href="#local-6989586621679168079"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-85"></span><span> </span><span class="annot"><span class="annottext">Text -> ConduitT Value o m ()
|
||||
</span><a href="#local-6989586621679168085"><span class="hs-identifier hs-var">cndt</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168083"><span class="hs-identifier hs-var">i</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168084"><span class="hs-identifier hs-var">cndt</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168082"><span class="hs-identifier hs-var">i</span></a></span><span>
|
||||
</span><span id="line-86"></span><span> </span><span class="hs-comment">-- Cancel all pending subscriptions</span><span>
|
||||
</span><span id="line-87"></span><span> </span><span id="local-6989586621679168096"><span class="annot"><span class="annottext">cancelAll :: Async a -> Map a (Async a) -> IO ()
|
||||
</span><a href="#local-6989586621679168096"><span class="hs-identifier hs-var hs-var">cancelAll</span></a></span></span><span> </span><span id="local-6989586621679168078"><span class="annot"><span class="annottext">Async a
|
||||
</span><a href="#local-6989586621679168078"><span class="hs-identifier hs-var">ka</span></a></span></span><span> </span><span id="local-6989586621679168077"><span class="annot"><span class="annottext">Map a (Async a)
|
||||
</span><a href="#local-6989586621679168077"><span class="hs-identifier hs-var">vars</span></a></span></span><span>
|
||||
</span><span id="line-87"></span><span> </span><span id="local-6989586621679168095"><span class="annot"><span class="annottext">cancelAll :: Async a -> Map a (Async a) -> IO ()
|
||||
</span><a href="#local-6989586621679168095"><span class="hs-identifier hs-var hs-var">cancelAll</span></a></span></span><span> </span><span id="local-6989586621679168077"><span class="annot"><span class="annottext">Async a
|
||||
</span><a href="#local-6989586621679168077"><span class="hs-identifier hs-var">ka</span></a></span></span><span> </span><span id="local-6989586621679168076"><span class="annot"><span class="annottext">Map a (Async a)
|
||||
</span><a href="#local-6989586621679168076"><span class="hs-identifier hs-var">vars</span></a></span></span><span>
|
||||
</span><span id="line-88"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span> </span><span class="annot"><span class="annottext">Async a -> IO ()
|
||||
forall a. Async a -> IO ()
|
||||
</span><span class="hs-identifier hs-var">cancel</span></span><span> </span><span class="annot"><span class="annottext">Async a
|
||||
</span><a href="#local-6989586621679168078"><span class="hs-identifier hs-var">ka</span></a></span><span>
|
||||
</span><span id="line-89"></span><span> </span><span id="local-6989586621679168076"><span class="annot"><span class="annottext">[(a, Async a)]
|
||||
</span><a href="#local-6989586621679168076"><span class="hs-identifier hs-var">vs</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">STM [(a, Async a)] -> IO [(a, Async a)]
|
||||
</span><a href="#local-6989586621679168077"><span class="hs-identifier hs-var">ka</span></a></span><span>
|
||||
</span><span id="line-89"></span><span> </span><span id="local-6989586621679168075"><span class="annot"><span class="annottext">[(a, Async a)]
|
||||
</span><a href="#local-6989586621679168075"><span class="hs-identifier hs-var">vs</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">STM [(a, Async a)] -> IO [(a, Async a)]
|
||||
forall a. STM a -> IO a
|
||||
</span><span class="hs-identifier hs-var">atomically</span></span><span> </span><span class="annot"><span class="annottext">(STM [(a, Async a)] -> IO [(a, Async a)])
|
||||
-> STM [(a, Async a)] -> IO [(a, Async a)]
|
||||
@ -302,7 +302,7 @@ forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">Map a (Async a) -> ListT STM (a, Async a)
|
||||
forall key value. Map key value -> ListT STM (key, value)
|
||||
</span><span class="hs-identifier hs-var">M.listT</span></span><span> </span><span class="annot"><span class="annottext">Map a (Async a)
|
||||
</span><a href="#local-6989586621679168077"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168076"><span class="hs-identifier hs-var">vars</span></a></span><span>
|
||||
</span><span id="line-90"></span><span> </span><span class="annot"><span class="annottext">[Async a] -> (Async a -> IO ()) -> IO ()
|
||||
forall (t :: * -> *) (m :: * -> *) a b.
|
||||
(Foldable t, Monad m) =>
|
||||
@ -312,19 +312,19 @@ forall a b. (a -> b) -> [a] -> [b]
|
||||
</span><span class="hs-identifier hs-var">map</span></span><span> </span><span class="annot"><span class="annottext">(a, Async a) -> Async a
|
||||
forall a b. (a, b) -> b
|
||||
</span><span class="hs-identifier hs-var">snd</span></span><span> </span><span class="annot"><span class="annottext">[(a, Async a)]
|
||||
</span><a href="#local-6989586621679168076"><span class="hs-identifier hs-var">vs</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Async a -> IO ()
|
||||
</span><a href="#local-6989586621679168075"><span class="hs-identifier hs-var">vs</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Async a -> IO ()
|
||||
forall a. Async a -> IO ()
|
||||
</span><span class="hs-identifier hs-var">cancel</span></span><span>
|
||||
</span><span id="line-91"></span><span>
|
||||
</span><span id="line-92"></span><span id="local-6989586621679168236"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#receiveJSON"><span class="hs-identifier hs-type">receiveJSON</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">A.FromJSON</span></span><span> </span><span class="annot"><a href="#local-6989586621679168236"><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">Connection</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="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Maybe</span></span><span> </span><span class="annot"><a href="#local-6989586621679168236"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-92"></span><span id="local-6989586621679168235"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#receiveJSON"><span class="hs-identifier hs-type">receiveJSON</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">A.FromJSON</span></span><span> </span><span class="annot"><a href="#local-6989586621679168235"><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">Connection</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="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Maybe</span></span><span> </span><span class="annot"><a href="#local-6989586621679168235"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-93"></span><span id="receiveJSON"><span class="annot"><span class="annottext">receiveJSON :: Connection -> IO (Maybe a)
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#receiveJSON"><span class="hs-identifier hs-var hs-var">receiveJSON</span></a></span></span><span> </span><span id="local-6989586621679168073"><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168073"><span class="hs-identifier hs-var">conn</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 id="local-6989586621679168072"><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679168072"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Connection -> IO ByteString
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#receiveJSON"><span class="hs-identifier hs-var hs-var">receiveJSON</span></a></span></span><span> </span><span id="local-6989586621679168072"><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168072"><span class="hs-identifier hs-var">conn</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 id="local-6989586621679168071"><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679168071"><span class="hs-identifier hs-var">d</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Connection -> IO ByteString
|
||||
forall a. WebSocketsData a => Connection -> IO a
|
||||
</span><span class="hs-identifier hs-var">receiveData</span></span><span> </span><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168073"><span class="hs-identifier hs-var">conn</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168072"><span class="hs-identifier hs-var">conn</span></a></span><span>
|
||||
</span><span id="line-95"></span><span> </span><span class="annot"><span class="annottext">Maybe a -> IO (Maybe a)
|
||||
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">(Maybe a -> IO (Maybe a)) -> Maybe a -> IO (Maybe a)
|
||||
@ -332,20 +332,20 @@ forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">ByteString -> Maybe a
|
||||
forall a. FromJSON a => ByteString -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">A.decode</span></span><span> </span><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679168072"><span class="hs-identifier hs-var">d</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168071"><span class="hs-identifier hs-var">d</span></a></span><span>
|
||||
</span><span id="line-96"></span><span>
|
||||
</span><span id="line-97"></span><span id="local-6989586621679168233"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#sendJSON"><span class="hs-identifier hs-type">sendJSON</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">A.ToJSON</span></span><span> </span><span class="annot"><a href="#local-6989586621679168233"><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">Connection</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679168233"><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">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-97"></span><span id="local-6989586621679168232"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#sendJSON"><span class="hs-identifier hs-type">sendJSON</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">A.ToJSON</span></span><span> </span><span class="annot"><a href="#local-6989586621679168232"><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">Connection</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679168232"><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">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span></span><span>
|
||||
</span><span id="line-98"></span><span id="sendJSON"><span class="annot"><span class="annottext">sendJSON :: Connection -> a -> IO ()
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#sendJSON"><span class="hs-identifier hs-var hs-var">sendJSON</span></a></span></span><span> </span><span id="local-6989586621679168069"><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168069"><span class="hs-identifier hs-var">conn</span></a></span></span><span> </span><span id="local-6989586621679168068"><span class="annot"><span class="annottext">a
|
||||
</span><a href="#local-6989586621679168068"><span class="hs-identifier hs-var">v</span></a></span></span><span>
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#sendJSON"><span class="hs-identifier hs-var hs-var">sendJSON</span></a></span></span><span> </span><span id="local-6989586621679168068"><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168068"><span class="hs-identifier hs-var">conn</span></a></span></span><span> </span><span id="local-6989586621679168067"><span class="annot"><span class="annottext">a
|
||||
</span><a href="#local-6989586621679168067"><span class="hs-identifier hs-var">v</span></a></span></span><span>
|
||||
</span><span id="line-99"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Connection -> ByteString -> IO ()
|
||||
forall a. WebSocketsData a => Connection -> a -> IO ()
|
||||
</span><span class="hs-identifier hs-var">sendTextData</span></span><span> </span><span class="annot"><span class="annottext">Connection
|
||||
</span><a href="#local-6989586621679168069"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">a -> ByteString
|
||||
</span><a href="#local-6989586621679168068"><span class="hs-identifier hs-var">conn</span></a></span><span> </span><span class="hs-special">(</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 class="annot"><span class="annottext">a
|
||||
</span><a href="#local-6989586621679168068"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679168067"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-100"></span><span>
|
||||
</span><span id="line-101"></span><span class="hs-keyword">data</span><span> </span><span id="ClientMessage"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#ClientMessage"><span class="hs-identifier hs-var">ClientMessage</span></a></span></span><span>
|
||||
</span><span id="line-102"></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="GQLConnectionInit"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLConnectionInit"><span class="hs-identifier hs-var">GQLConnectionInit</span></a></span></span><span> </span><span class="hs-special">{</span><span> </span><span id="initPayload"><span class="annot"><span class="annottext">ClientMessage -> Maybe Value
|
||||
@ -360,7 +360,7 @@ forall a. ToJSON a => a -> ByteString
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#operationName"><span class="hs-identifier hs-var hs-var">operationName</span></a></span></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">T.Text</span></span><span class="hs-special">}</span><span>
|
||||
</span><span id="line-107"></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="GQLStop"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLStop"><span class="hs-identifier hs-var">GQLStop</span></a></span></span><span> </span><span class="hs-special">{</span><span> </span><span id="clientMsgId"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#clientMsgId"><span class="hs-identifier hs-var">clientMsgId</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><span id="line-108"></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="GQLTerminate"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLTerminate"><span class="hs-identifier hs-var">GQLTerminate</span></a></span></span><span>
|
||||
</span><span id="line-109"></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span id="local-6989586621679168055"><span id="local-6989586621679168057"><span id="local-6989586621679168059"><span class="annot"><span class="annottext">Int -> ClientMessage -> ShowS
|
||||
</span><span id="line-109"></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span id="local-6989586621679168054"><span id="local-6989586621679168056"><span id="local-6989586621679168058"><span class="annot"><span class="annottext">Int -> ClientMessage -> ShowS
|
||||
[ClientMessage] -> ShowS
|
||||
ClientMessage -> String
|
||||
(Int -> ClientMessage -> ShowS)
|
||||
@ -389,7 +389,7 @@ $cshowsPrec :: Int -> ClientMessage -> ShowS
|
||||
</span><span id="line-117"></span><span> </span><span class="hs-special">,</span><span> </span><span id="payload"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#payload"><span class="hs-identifier hs-var">payload</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">A.Value</span></span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><span id="line-118"></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="GQLComplete"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLComplete"><span class="hs-identifier hs-var">GQLComplete</span></a></span></span><span> </span><span class="hs-special">{</span><span> </span><span id="serverMsgId"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#serverMsgId"><span class="hs-identifier hs-var">serverMsgId</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span class="hs-special">}</span><span>
|
||||
</span><span id="line-119"></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="GQLKeepAlive"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLKeepAlive"><span class="hs-identifier hs-var">GQLKeepAlive</span></a></span></span><span>
|
||||
</span><span id="line-120"></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span id="local-6989586621679168044"><span id="local-6989586621679168046"><span id="local-6989586621679168048"><span class="annot"><span class="annottext">Int -> ServerMessage -> ShowS
|
||||
</span><span id="line-120"></span><span> </span><span class="hs-keyword">deriving</span><span> </span><span id="local-6989586621679168043"><span id="local-6989586621679168045"><span id="local-6989586621679168047"><span class="annot"><span class="annottext">Int -> ServerMessage -> ShowS
|
||||
[ServerMessage] -> ShowS
|
||||
ServerMessage -> String
|
||||
(Int -> ServerMessage -> ShowS)
|
||||
@ -409,8 +409,8 @@ $cshowsPrec :: Int -> ServerMessage -> ShowS
|
||||
</span><span id="line-122"></span><span class="hs-comment">-- NOTE: using https://github.com/apollographql/subscriptions-transport-ws/blob/master/src/message-types.ts</span><span>
|
||||
</span><span id="line-123"></span><span class="hs-comment">-- as source of truth for the message types</span><span>
|
||||
</span><span id="line-124"></span><span>
|
||||
</span><span id="line-125"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679168041"><span class="annot"><span class="hs-identifier hs-type">A.FromJSON</span></span><span> </span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#ClientMessage"><span class="hs-identifier hs-type">ClientMessage</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-126"></span><span> </span><span id="local-6989586621679168039"><span class="annot"><span class="annottext">parseJSON :: Value -> Parser ClientMessage
|
||||
</span><span id="line-125"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679168040"><span class="annot"><span class="hs-identifier hs-type">A.FromJSON</span></span><span> </span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#ClientMessage"><span class="hs-identifier hs-type">ClientMessage</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-126"></span><span> </span><span id="local-6989586621679168038"><span class="annot"><span class="annottext">parseJSON :: Value -> Parser ClientMessage
|
||||
</span><span class="hs-identifier hs-var hs-var hs-var hs-var">parseJSON</span></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
|
||||
-> (Object -> Parser ClientMessage)
|
||||
-> Value
|
||||
@ -422,16 +422,16 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a
|
||||
-> Value
|
||||
-> Parser ClientMessage
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679168036"><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168036"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-127"></span><span> </span><span id="local-6989586621679168035"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679168035"><span class="hs-identifier hs-var">ty</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168036"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser String
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679168035"><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168035"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-127"></span><span> </span><span id="local-6989586621679168034"><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679168034"><span class="hs-identifier hs-var">ty</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">String</span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168035"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser String
|
||||
forall a. FromJSON a => Object -> Text -> Parser a
|
||||
</span><span class="hs-operator hs-var">.:</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"type"</span></span><span>
|
||||
</span><span id="line-128"></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><a href="#local-6989586621679168035"><span class="hs-identifier hs-var">ty</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><a href="#local-6989586621679168034"><span class="hs-identifier hs-var">ty</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-129"></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"connection_init"</span></span><span>
|
||||
</span><span id="line-130"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Maybe Value -> ClientMessage
|
||||
@ -439,23 +439,23 @@ forall a. FromJSON a => Object -> Text -> Parser a
|
||||
-> Parser (Maybe Value) -> Parser ClientMessage
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168036"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser (Maybe Value)
|
||||
</span><a href="#local-6989586621679168035"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser (Maybe Value)
|
||||
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
|
||||
</span><span class="hs-operator hs-var">.:?</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"payload"</span></span><span>
|
||||
</span><span id="line-131"></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"start"</span></span><span>
|
||||
</span><span id="line-132"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span> </span><span id="local-6989586621679168033"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168033"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168036"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser Text
|
||||
</span><span id="line-132"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">do</span><span> </span><span id="local-6989586621679168032"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168032"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168035"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser Text
|
||||
forall a. FromJSON a => Object -> Text -> Parser a
|
||||
</span><span class="hs-operator hs-var">.:</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"id"</span></span><span>
|
||||
</span><span id="line-133"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679168032"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168032"><span class="hs-identifier hs-var">q</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679168031"><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168031"><span class="hs-identifier hs-var">vrs</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679168030"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168030"><span class="hs-identifier hs-var">opN</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168036"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser Value
|
||||
</span><span id="line-133"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679168031"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168031"><span class="hs-identifier hs-var">q</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679168030"><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168030"><span class="hs-identifier hs-var">vrs</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679168029"><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168029"><span class="hs-identifier hs-var">opN</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168035"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser Value
|
||||
forall a. FromJSON a => Object -> Text -> Parser a
|
||||
</span><span class="hs-operator hs-var">.:</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"payload"</span></span><span> </span><span class="annot"><span class="annottext">Parser Value
|
||||
@ -463,7 +463,7 @@ forall a. FromJSON a => Object -> Text -> Parser a
|
||||
-> Parser (Text, VariableMapC, Maybe Text)
|
||||
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
|
||||
</span><span class="hs-operator hs-var">>>=</span></span><span> </span><span class="annot"><span class="annottext">Value -> Parser (Text, VariableMapC, Maybe Text)
|
||||
</span><a href="#local-6989586621679168029"><span class="hs-identifier hs-var">parsePayload</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168028"><span class="hs-identifier hs-var">parsePayload</span></a></span><span>
|
||||
</span><span id="line-134"></span><span> </span><span class="annot"><span class="annottext">ClientMessage -> Parser ClientMessage
|
||||
forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
</span><span class="hs-identifier hs-var">pure</span></span><span> </span><span class="annot"><span class="annottext">(ClientMessage -> Parser ClientMessage)
|
||||
@ -471,17 +471,17 @@ forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
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 -> Text -> VariableMapC -> Maybe Text -> ClientMessage
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#GQLStart"><span class="hs-identifier hs-var">GQLStart</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168033"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168032"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168031"><span class="hs-identifier hs-var">vrs</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168030"><span class="hs-identifier hs-var">opN</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168032"><span class="hs-identifier hs-var">i</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168031"><span class="hs-identifier hs-var">q</span></a></span><span> </span><span class="annot"><span class="annottext">VariableMapC
|
||||
</span><a href="#local-6989586621679168030"><span class="hs-identifier hs-var">vrs</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Text
|
||||
</span><a href="#local-6989586621679168029"><span class="hs-identifier hs-var">opN</span></a></span><span>
|
||||
</span><span id="line-135"></span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span class="hs-string">"stop"</span></span><span>
|
||||
</span><span id="line-136"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text -> ClientMessage
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#GQLStop"><span class="hs-identifier hs-var">GQLStop</span></a></span><span> </span><span class="annot"><span class="annottext">(Text -> ClientMessage) -> Parser Text -> Parser ClientMessage
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168036"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser Text
|
||||
</span><a href="#local-6989586621679168035"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser Text
|
||||
forall a. FromJSON a => Object -> Text -> Parser a
|
||||
</span><span class="hs-operator hs-var">.:</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"id"</span></span><span>
|
||||
@ -496,8 +496,8 @@ forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
forall (f :: * -> *) a. Alternative f => f a
|
||||
</span><span class="hs-identifier hs-var">empty</span></span><span>
|
||||
</span><span id="line-140"></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-141"></span><span> </span><span id="local-6989586621679168029"><span class="annot"><span class="annottext">parsePayload :: Value -> Parser (Text, VariableMapC, Maybe Text)
|
||||
</span><a href="#local-6989586621679168029"><span class="hs-identifier hs-var hs-var">parsePayload</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
|
||||
</span><span id="line-141"></span><span> </span><span id="local-6989586621679168028"><span class="annot"><span class="annottext">parsePayload :: Value -> Parser (Text, VariableMapC, Maybe Text)
|
||||
</span><a href="#local-6989586621679168028"><span class="hs-identifier hs-var hs-var">parsePayload</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String
|
||||
-> (Object -> Parser (Text, VariableMapC, Maybe Text))
|
||||
-> Value
|
||||
-> Parser (Text, VariableMapC, Maybe Text)
|
||||
@ -510,15 +510,15 @@ forall a. String -> (Object -> Parser a) -> Value -> Parser a
|
||||
-> Parser (Text, VariableMapC, Maybe Text)
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span>
|
||||
</span><span id="line-142"></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679168027"><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168027"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-special">,</span><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Text
|
||||
</span><span id="line-142"></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679168026"><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168026"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-special">(</span><span class="hs-special">,</span><span class="hs-special">,</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Text
|
||||
-> VariableMapC -> Maybe Text -> (Text, VariableMapC, Maybe Text))
|
||||
-> Parser Text
|
||||
-> Parser
|
||||
(VariableMapC -> Maybe Text -> (Text, VariableMapC, Maybe Text))
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168027"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser Text
|
||||
</span><a href="#local-6989586621679168026"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser Text
|
||||
forall a. FromJSON a => Object -> Text -> Parser a
|
||||
</span><span class="hs-operator hs-var">.:</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"query"</span></span><span>
|
||||
@ -528,7 +528,7 @@ forall a. FromJSON a => Object -> Text -> Parser a
|
||||
-> Parser (Maybe Text -> (Text, VariableMapC, Maybe Text))
|
||||
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><*></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168027"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser VariableMapC
|
||||
</span><a href="#local-6989586621679168026"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser VariableMapC
|
||||
forall a. FromJSON a => Object -> Text -> Parser a
|
||||
</span><span class="hs-operator hs-var">.:</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"variables"</span></span><span> </span><span class="annot"><span class="annottext">Parser VariableMapC -> Parser VariableMapC -> Parser VariableMapC
|
||||
@ -542,24 +542,24 @@ forall k v. HashMap k v
|
||||
-> Parser (Maybe Text) -> Parser (Text, VariableMapC, Maybe Text)
|
||||
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><*></span></span><span> </span><span class="annot"><span class="annottext">Object
|
||||
</span><a href="#local-6989586621679168027"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser (Maybe Text)
|
||||
</span><a href="#local-6989586621679168026"><span class="hs-identifier hs-var">v</span></a></span><span> </span><span class="annot"><span class="annottext">Object -> Text -> Parser (Maybe Text)
|
||||
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
|
||||
</span><span class="hs-operator hs-var">.:?</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"operationName"</span></span><span>
|
||||
</span><span id="line-145"></span><span>
|
||||
</span><span id="line-146"></span><span id="local-6989586621679168139"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#theType"><span class="hs-identifier hs-type">theType</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">A.KeyValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679168139"><span class="hs-identifier hs-type">kv</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">T.Text</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679168139"><span class="hs-identifier hs-type">kv</span></a></span></span><span>
|
||||
</span><span id="line-146"></span><span id="local-6989586621679168138"><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#theType"><span class="hs-identifier hs-type">theType</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">A.KeyValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679168138"><span class="hs-identifier hs-type">kv</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">T.Text</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679168138"><span class="hs-identifier hs-type">kv</span></a></span></span><span>
|
||||
</span><span id="line-147"></span><span id="theType"><span class="annot"><span class="annottext">theType :: Text -> kv
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#theType"><span class="hs-identifier hs-var hs-var">theType</span></a></span></span><span> </span><span id="local-6989586621679168023"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168023"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#theType"><span class="hs-identifier hs-var hs-var">theType</span></a></span></span><span> </span><span id="local-6989586621679168022"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168022"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"type"</span></span><span> </span><span class="annot"><span class="annottext">Text -> Text -> kv
|
||||
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
|
||||
</span><span class="hs-operator hs-var">.=</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168023"><span class="hs-identifier hs-var">t</span></a></span><span>
|
||||
</span><a href="#local-6989586621679168022"><span class="hs-identifier hs-var">t</span></a></span><span>
|
||||
</span><span id="line-148"></span><span>
|
||||
</span><span id="line-149"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679168016"><span id="local-6989586621679168018"><span id="local-6989586621679168020"><span class="annot"><span class="hs-identifier hs-type">A.ToJSON</span></span><span> </span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#ServerMessage"><span class="hs-identifier hs-type">ServerMessage</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-150"></span><span> </span><span id="local-6989586621679168014"><span class="annot"><span class="annottext">toJSON :: ServerMessage -> Value
|
||||
</span><a href="#local-6989586621679168014"><span class="hs-identifier hs-var hs-var hs-var hs-var">toJSON</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLConnectionError"><span class="hs-identifier hs-type">GQLConnectionError</span></a></span><span> </span><span id="local-6989586621679168013"><span class="annot"><span class="annottext">Maybe Value
|
||||
</span><a href="#local-6989586621679168013"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-149"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679168015"><span id="local-6989586621679168017"><span id="local-6989586621679168019"><span class="annot"><span class="hs-identifier hs-type">A.ToJSON</span></span><span> </span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#ServerMessage"><span class="hs-identifier hs-type">ServerMessage</span></a></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-150"></span><span> </span><span id="local-6989586621679168013"><span class="annot"><span class="annottext">toJSON :: ServerMessage -> Value
|
||||
</span><a href="#local-6989586621679168013"><span class="hs-identifier hs-var hs-var hs-var hs-var">toJSON</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLConnectionError"><span class="hs-identifier hs-type">GQLConnectionError</span></a></span><span> </span><span id="local-6989586621679168012"><span class="annot"><span class="annottext">Maybe Value
|
||||
</span><a href="#local-6989586621679168012"><span class="hs-identifier hs-var">e</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-151"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Pair] -> Value
|
||||
</span><span class="hs-identifier hs-var">A.object</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Text -> Pair
|
||||
forall kv. KeyValue kv => Text -> kv
|
||||
@ -568,7 +568,7 @@ forall kv. KeyValue kv => Text -> kv
|
||||
</span><span class="hs-string">"payload"</span></span><span> </span><span class="annot"><span class="annottext">Text -> Maybe Value -> Pair
|
||||
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
|
||||
</span><span class="hs-operator hs-var">.=</span></span><span> </span><span class="annot"><span class="annottext">Maybe Value
|
||||
</span><a href="#local-6989586621679168013"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><a href="#local-6989586621679168012"><span class="hs-identifier hs-var">e</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-152"></span><span> </span><span class="annot"><span class="hs-identifier hs-var">toJSON</span></span><span> </span><span class="annot"><span class="annottext">ServerMessage
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#GQLConnectionAck"><span class="hs-identifier hs-var">GQLConnectionAck</span></a></span><span>
|
||||
</span><span id="line-153"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Pair] -> Value
|
||||
@ -576,9 +576,9 @@ forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
|
||||
forall kv. KeyValue kv => Text -> kv
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#theType"><span class="hs-identifier hs-var">theType</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"connection_ack"</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-154"></span><span> </span><span class="annot"><span class="hs-identifier hs-var">toJSON</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLData"><span class="hs-identifier hs-type">GQLData</span></a></span><span> </span><span id="local-6989586621679168011"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168011"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span id="local-6989586621679168010"><span class="annot"><span class="annottext">Value
|
||||
</span><a href="#local-6989586621679168010"><span class="hs-identifier hs-var">p</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-154"></span><span> </span><span class="annot"><span class="hs-identifier hs-var">toJSON</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLData"><span class="hs-identifier hs-type">GQLData</span></a></span><span> </span><span id="local-6989586621679168010"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168010"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span id="local-6989586621679168009"><span class="annot"><span class="annottext">Value
|
||||
</span><a href="#local-6989586621679168009"><span class="hs-identifier hs-var">p</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-155"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Pair] -> Value
|
||||
</span><span class="hs-identifier hs-var">A.object</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Text -> Pair
|
||||
forall kv. KeyValue kv => Text -> kv
|
||||
@ -587,14 +587,14 @@ forall kv. KeyValue kv => Text -> kv
|
||||
</span><span class="hs-string">"id"</span></span><span> </span><span class="annot"><span class="annottext">Text -> Text -> Pair
|
||||
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
|
||||
</span><span class="hs-operator hs-var">.=</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168011"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168010"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"payload"</span></span><span> </span><span class="annot"><span class="annottext">Text -> Value -> Pair
|
||||
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
|
||||
</span><span class="hs-operator hs-var">.=</span></span><span> </span><span class="annot"><span class="annottext">Value
|
||||
</span><a href="#local-6989586621679168010"><span class="hs-identifier hs-var">p</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-156"></span><span> </span><span class="annot"><span class="hs-identifier hs-var">toJSON</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLError"><span class="hs-identifier hs-type">GQLError</span></a></span><span> </span><span id="local-6989586621679168009"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168009"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span id="local-6989586621679168008"><span class="annot"><span class="annottext">Value
|
||||
</span><a href="#local-6989586621679168008"><span class="hs-identifier hs-var">p</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679168009"><span class="hs-identifier hs-var">p</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-156"></span><span> </span><span class="annot"><span class="hs-identifier hs-var">toJSON</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLError"><span class="hs-identifier hs-type">GQLError</span></a></span><span> </span><span id="local-6989586621679168008"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168008"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span id="local-6989586621679168007"><span class="annot"><span class="annottext">Value
|
||||
</span><a href="#local-6989586621679168007"><span class="hs-identifier hs-var">p</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-157"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Pair] -> Value
|
||||
</span><span class="hs-identifier hs-var">A.object</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Text -> Pair
|
||||
forall kv. KeyValue kv => Text -> kv
|
||||
@ -603,13 +603,13 @@ forall kv. KeyValue kv => Text -> kv
|
||||
</span><span class="hs-string">"id"</span></span><span> </span><span class="annot"><span class="annottext">Text -> Text -> Pair
|
||||
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
|
||||
</span><span class="hs-operator hs-var">.=</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168009"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168008"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><span class="hs-string">"payload"</span></span><span> </span><span class="annot"><span class="annottext">Text -> Value -> Pair
|
||||
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
|
||||
</span><span class="hs-operator hs-var">.=</span></span><span> </span><span class="annot"><span class="annottext">Value
|
||||
</span><a href="#local-6989586621679168008"><span class="hs-identifier hs-var">p</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-158"></span><span> </span><span class="annot"><span class="hs-identifier hs-var">toJSON</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLComplete"><span class="hs-identifier hs-type">GQLComplete</span></a></span><span> </span><span id="local-6989586621679168007"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168007"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679168007"><span class="hs-identifier hs-var">p</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-158"></span><span> </span><span class="annot"><span class="hs-identifier hs-var">toJSON</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GraphQL.Subscription.Protocol.html#GQLComplete"><span class="hs-identifier hs-type">GQLComplete</span></a></span><span> </span><span id="local-6989586621679168006"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168006"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-159"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Pair] -> Value
|
||||
</span><span class="hs-identifier hs-var">A.object</span></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Text -> Pair
|
||||
forall kv. KeyValue kv => Text -> kv
|
||||
@ -618,7 +618,7 @@ forall kv. KeyValue kv => Text -> kv
|
||||
</span><span class="hs-string">"id"</span></span><span> </span><span class="annot"><span class="annottext">Text -> Text -> Pair
|
||||
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
|
||||
</span><span class="hs-operator hs-var">.=</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679168007"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><a href="#local-6989586621679168006"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-160"></span><span> </span><span class="annot"><span class="hs-identifier hs-var">toJSON</span></span><span> </span><span class="annot"><span class="annottext">ServerMessage
|
||||
</span><a href="Mu.GraphQL.Subscription.Protocol.html#GQLKeepAlive"><span class="hs-identifier hs-var">GQLKeepAlive</span></a></span><span>
|
||||
</span><span id="line-161"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Pair] -> Value
|
||||
|
Binary file not shown.
@ -26,33 +26,33 @@ Look at the source code of this module.
|
||||
</span><span id="line-26"></span><span>
|
||||
</span><span id="line-27"></span><span class="annot"><a href="Mu.GRpc.Client.Examples.html#sayHello%27"><span class="hs-identifier hs-type">sayHello'</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">HostName</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">PortNumber</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</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="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-28"></span><span id="sayHello%27"><span class="annot"><span class="annottext">sayHello' :: HostName -> PortNumber -> Text -> IO (GRpcReply Text)
|
||||
</span><a href="Mu.GRpc.Client.Examples.html#sayHello%27"><span class="hs-identifier hs-var hs-var">sayHello'</span></a></span></span><span> </span><span id="local-6989586621679146741"><span class="annot"><span class="annottext">HostName
|
||||
</span><a href="#local-6989586621679146741"><span class="hs-identifier hs-var">host</span></a></span></span><span> </span><span id="local-6989586621679146740"><span class="annot"><span class="annottext">PortNumber
|
||||
</span><a href="#local-6989586621679146740"><span class="hs-identifier hs-var">port</span></a></span></span><span> </span><span id="local-6989586621679146739"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146739"><span class="hs-identifier hs-var">req</span></a></span></span><span>
|
||||
</span><span id="line-29"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679146738"><span class="annot"><span class="annottext">GrpcClient
|
||||
</span><a href="#local-6989586621679146738"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">GrpcClientConfig -> IO (Either ClientError GrpcClient)
|
||||
</span><a href="Mu.GRpc.Client.Examples.html#sayHello%27"><span class="hs-identifier hs-var hs-var">sayHello'</span></a></span></span><span> </span><span id="local-6989586621679146743"><span class="annot"><span class="annottext">HostName
|
||||
</span><a href="#local-6989586621679146743"><span class="hs-identifier hs-var">host</span></a></span></span><span> </span><span id="local-6989586621679146742"><span class="annot"><span class="annottext">PortNumber
|
||||
</span><a href="#local-6989586621679146742"><span class="hs-identifier hs-var">port</span></a></span></span><span> </span><span id="local-6989586621679146741"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146741"><span class="hs-identifier hs-var">req</span></a></span></span><span>
|
||||
</span><span id="line-29"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679146740"><span class="annot"><span class="annottext">GrpcClient
|
||||
</span><a href="#local-6989586621679146740"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">GrpcClientConfig -> IO (Either ClientError GrpcClient)
|
||||
forall (m :: * -> *).
|
||||
MonadIO m =>
|
||||
GrpcClientConfig -> m (Either ClientError GrpcClient)
|
||||
</span><a href="Mu.GRpc.Client.Internal.html#setupGrpcClient%27"><span class="hs-identifier hs-var">setupGrpcClient'</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HostName -> PortNumber -> UseTlsOrNot -> GrpcClientConfig
|
||||
</span><span class="hs-identifier hs-var">grpcClientConfigSimple</span></span><span> </span><span class="annot"><span class="annottext">HostName
|
||||
</span><a href="#local-6989586621679146741"><span class="hs-identifier hs-var">host</span></a></span><span> </span><span class="annot"><span class="annottext">PortNumber
|
||||
</span><a href="#local-6989586621679146740"><span class="hs-identifier hs-var">port</span></a></span><span> </span><span class="annot"><span class="annottext">UseTlsOrNot
|
||||
</span><a href="#local-6989586621679146743"><span class="hs-identifier hs-var">host</span></a></span><span> </span><span class="annot"><span class="annottext">PortNumber
|
||||
</span><a href="#local-6989586621679146742"><span class="hs-identifier hs-var">port</span></a></span><span> </span><span class="annot"><span class="annottext">UseTlsOrNot
|
||||
</span><span class="hs-identifier hs-var">False</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-30"></span><span> </span><span class="annot"><span class="annottext">(HelloResponse -> Text)
|
||||
-> GRpcReply HelloResponse -> GRpcReply Text
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-identifier hs-var">fmap</span></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">HelloResponse</span></span><span> </span><span id="local-6989586621679146734"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146734"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146734"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(GRpcReply HelloResponse -> GRpcReply Text)
|
||||
</span><span class="hs-identifier hs-var">fmap</span></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">HelloResponse</span></span><span> </span><span id="local-6989586621679146736"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146736"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146736"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(GRpcReply HelloResponse -> GRpcReply Text)
|
||||
-> IO (GRpcReply HelloResponse) -> IO (GRpcReply Text)
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="annot"><span class="annottext">GrpcClient -> HelloRequest -> IO (GRpcReply HelloResponse)
|
||||
</span><a href="Mu.GRpc.Client.Examples.html#sayHello"><span class="hs-identifier hs-var">sayHello</span></a></span><span> </span><span class="annot"><span class="annottext">GrpcClient
|
||||
</span><a href="#local-6989586621679146738"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> HelloRequest
|
||||
</span><a href="#local-6989586621679146740"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Text -> HelloRequest
|
||||
</span><span class="hs-identifier hs-var">HelloRequest</span></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146739"><span class="hs-identifier hs-var">req</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679146741"><span class="hs-identifier hs-var">req</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-31"></span><span>
|
||||
</span><span id="line-32"></span><span class="annot"><a href="Mu.GRpc.Client.Examples.html#sayHello"><span class="hs-identifier hs-type">sayHello</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GrpcClient</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">HelloRequest</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="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">HelloResponse</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-33"></span><span id="sayHello"><span class="annot"><span class="annottext">sayHello :: GrpcClient -> HelloRequest -> IO (GRpcReply HelloResponse)
|
||||
@ -81,34 +81,34 @@ GrpcClient -> h
|
||||
</span><span id="line-34"></span><span>
|
||||
</span><span id="line-35"></span><span class="annot"><a href="Mu.GRpc.Client.Examples.html#sayHi%27"><span class="hs-identifier hs-type">sayHi'</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">HostName</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">PortNumber</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</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="hs-special">[</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-36"></span><span id="sayHi%27"><span class="annot"><span class="annottext">sayHi' :: HostName -> PortNumber -> Int -> IO [GRpcReply Text]
|
||||
</span><a href="Mu.GRpc.Client.Examples.html#sayHi%27"><span class="hs-identifier hs-var hs-var">sayHi'</span></a></span></span><span> </span><span id="local-6989586621679146728"><span class="annot"><span class="annottext">HostName
|
||||
</span><a href="#local-6989586621679146728"><span class="hs-identifier hs-var">host</span></a></span></span><span> </span><span id="local-6989586621679146727"><span class="annot"><span class="annottext">PortNumber
|
||||
</span><a href="#local-6989586621679146727"><span class="hs-identifier hs-var">port</span></a></span></span><span> </span><span id="local-6989586621679146726"><span class="annot"><span class="annottext">Int
|
||||
</span><a href="#local-6989586621679146726"><span class="hs-identifier hs-var">n</span></a></span></span><span>
|
||||
</span><span id="line-37"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679146725"><span class="annot"><span class="annottext">GrpcClient
|
||||
</span><a href="#local-6989586621679146725"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">GrpcClientConfig -> IO (Either ClientError GrpcClient)
|
||||
</span><a href="Mu.GRpc.Client.Examples.html#sayHi%27"><span class="hs-identifier hs-var hs-var">sayHi'</span></a></span></span><span> </span><span id="local-6989586621679146730"><span class="annot"><span class="annottext">HostName
|
||||
</span><a href="#local-6989586621679146730"><span class="hs-identifier hs-var">host</span></a></span></span><span> </span><span id="local-6989586621679146729"><span class="annot"><span class="annottext">PortNumber
|
||||
</span><a href="#local-6989586621679146729"><span class="hs-identifier hs-var">port</span></a></span></span><span> </span><span id="local-6989586621679146728"><span class="annot"><span class="annottext">Int
|
||||
</span><a href="#local-6989586621679146728"><span class="hs-identifier hs-var">n</span></a></span></span><span>
|
||||
</span><span id="line-37"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679146727"><span class="annot"><span class="annottext">GrpcClient
|
||||
</span><a href="#local-6989586621679146727"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">GrpcClientConfig -> IO (Either ClientError GrpcClient)
|
||||
forall (m :: * -> *).
|
||||
MonadIO m =>
|
||||
GrpcClientConfig -> m (Either ClientError GrpcClient)
|
||||
</span><a href="Mu.GRpc.Client.Internal.html#setupGrpcClient%27"><span class="hs-identifier hs-var">setupGrpcClient'</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HostName -> PortNumber -> UseTlsOrNot -> GrpcClientConfig
|
||||
</span><span class="hs-identifier hs-var">grpcClientConfigSimple</span></span><span> </span><span class="annot"><span class="annottext">HostName
|
||||
</span><a href="#local-6989586621679146728"><span class="hs-identifier hs-var">host</span></a></span><span> </span><span class="annot"><span class="annottext">PortNumber
|
||||
</span><a href="#local-6989586621679146727"><span class="hs-identifier hs-var">port</span></a></span><span> </span><span class="annot"><span class="annottext">UseTlsOrNot
|
||||
</span><a href="#local-6989586621679146730"><span class="hs-identifier hs-var">host</span></a></span><span> </span><span class="annot"><span class="annottext">PortNumber
|
||||
</span><a href="#local-6989586621679146729"><span class="hs-identifier hs-var">port</span></a></span><span> </span><span class="annot"><span class="annottext">UseTlsOrNot
|
||||
</span><span class="hs-identifier hs-var">False</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-38"></span><span> </span><span id="local-6989586621679146724"><span class="annot"><span class="annottext">ConduitT () (GRpcReply HelloResponse) IO ()
|
||||
</span><a href="#local-6989586621679146724"><span class="hs-identifier hs-var">cndt</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">GrpcClient
|
||||
</span><span id="line-38"></span><span> </span><span id="local-6989586621679146726"><span class="annot"><span class="annottext">ConduitT () (GRpcReply HelloResponse) IO ()
|
||||
</span><a href="#local-6989586621679146726"><span class="hs-identifier hs-var">cndt</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">GrpcClient
|
||||
-> HiRequest -> IO (ConduitT () (GRpcReply HelloResponse) IO ())
|
||||
</span><a href="Mu.GRpc.Client.Examples.html#sayHi"><span class="hs-identifier hs-var">sayHi</span></a></span><span> </span><span class="annot"><span class="annottext">GrpcClient
|
||||
</span><a href="#local-6989586621679146725"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -> HiRequest
|
||||
</span><a href="#local-6989586621679146727"><span class="hs-identifier hs-var">c</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -> HiRequest
|
||||
</span><span class="hs-identifier hs-var">HiRequest</span></span><span> </span><span class="annot"><span class="annottext">Int
|
||||
</span><a href="#local-6989586621679146726"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679146728"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-39"></span><span> </span><span class="annot"><span class="annottext">ConduitT () Void IO [GRpcReply Text] -> IO [GRpcReply Text]
|
||||
forall (m :: * -> *) r. Monad m => ConduitT () Void m r -> m r
|
||||
</span><span class="hs-identifier hs-var">runConduit</span></span><span> </span><span class="annot"><span class="annottext">(ConduitT () Void IO [GRpcReply Text] -> IO [GRpcReply Text])
|
||||
-> ConduitT () Void IO [GRpcReply Text] -> IO [GRpcReply Text]
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="annot"><span class="annottext">ConduitT () (GRpcReply HelloResponse) IO ()
|
||||
</span><a href="#local-6989586621679146724"><span class="hs-identifier hs-var">cndt</span></a></span><span> </span><span class="annot"><span class="annottext">ConduitT () (GRpcReply HelloResponse) IO ()
|
||||
</span><a href="#local-6989586621679146726"><span class="hs-identifier hs-var">cndt</span></a></span><span> </span><span class="annot"><span class="annottext">ConduitT () (GRpcReply HelloResponse) IO ()
|
||||
-> ConduitM (GRpcReply HelloResponse) Void IO [GRpcReply Text]
|
||||
-> ConduitT () Void IO [GRpcReply Text]
|
||||
forall (m :: * -> *) a b c r.
|
||||
@ -120,9 +120,9 @@ forall (m :: * -> *) a b. Monad m => (a -> b) -> ConduitT a b m ()
|
||||
</span><span class="hs-identifier hs-var">C.map</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(HelloResponse -> Text)
|
||||
-> GRpcReply HelloResponse -> GRpcReply Text
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-identifier hs-var">fmap</span></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">HelloResponse</span></span><span> </span><span id="local-6989586621679146718"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146718"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146718"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ConduitT (GRpcReply HelloResponse) (GRpcReply Text) IO ()
|
||||
</span><span class="hs-identifier hs-var">fmap</span></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">HelloResponse</span></span><span> </span><span id="local-6989586621679146720"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146720"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146720"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ConduitT (GRpcReply HelloResponse) (GRpcReply Text) IO ()
|
||||
-> ConduitM (GRpcReply Text) Void IO [GRpcReply Text]
|
||||
-> ConduitM (GRpcReply HelloResponse) Void IO [GRpcReply Text]
|
||||
forall (m :: * -> *) a b c r.
|
||||
|
File diff suppressed because it is too large
Load Diff
@ -52,7 +52,7 @@ consult the <http://hackage.haskell.org/package/http2-client-grpc http2-clien
|
||||
</span><span id="line-52"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Mu.Schema.Optics</span></span><span>
|
||||
</span><span id="line-53"></span><span>
|
||||
</span><span id="line-54"></span><span class="hs-comment">-- | Represents a connection to the service @s@.</span><span>
|
||||
</span><span id="line-55"></span><span class="hs-keyword">newtype</span><span> </span><span id="GRpcConnection"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#GRpcConnection"><span class="hs-identifier hs-var">GRpcConnection</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146170"><span class="annot"><a href="#local-6989586621679146170"><span class="hs-identifier hs-type">s</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package'</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146169"><span class="annot"><a href="#local-6989586621679146169"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GRpcMessageProtocol</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-55"></span><span class="hs-keyword">newtype</span><span> </span><span id="GRpcConnection"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#GRpcConnection"><span class="hs-identifier hs-var">GRpcConnection</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146172"><span class="annot"><a href="#local-6989586621679146172"><span class="hs-identifier hs-type">s</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package'</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146171"><span class="annot"><a href="#local-6989586621679146171"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GRpcMessageProtocol</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-56"></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="GRpcConnection"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#GRpcConnection"><span class="hs-identifier hs-var">GRpcConnection</span></a></span></span><span> </span><span class="hs-special">{</span><span> </span><span id="gcClient"><span class="annot"><span class="annottext">GRpcConnection s p -> GrpcClient
|
||||
</span><a href="Mu.GRpc.Client.Optics.html#gcClient"><span class="hs-identifier hs-var hs-var">gcClient</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">G.GrpcClient</span></span><span> </span><span class="hs-special">}</span><span>
|
||||
</span><span id="line-57"></span><span>
|
||||
@ -63,24 +63,24 @@ consult the <http://hackage.haskell.org/package/http2-client-grpc http2-clien
|
||||
</span><span id="line-62"></span><span class="hs-comment">--</span><span>
|
||||
</span><span id="line-63"></span><span class="hs-comment">-- > initGRpc config msgProtoBuf @Service</span><span>
|
||||
</span><span id="line-64"></span><span class="hs-comment">--</span><span>
|
||||
</span><span id="line-65"></span><span id="local-6989586621679146024"><span id="local-6989586621679146025"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#initGRpc"><span class="hs-identifier hs-type">initGRpc</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">MonadIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679146025"><span class="hs-identifier hs-type">m</span></a></span><span>
|
||||
</span><span id="line-65"></span><span id="local-6989586621679146026"><span id="local-6989586621679146027"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#initGRpc"><span class="hs-identifier hs-type">initGRpc</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">MonadIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679146027"><span class="hs-identifier hs-type">m</span></a></span><span>
|
||||
</span><span id="line-66"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">G.GrpcClientConfig</span></span><span> </span><span class="hs-comment">-- ^ gRPC configuration</span><span>
|
||||
</span><span id="line-67"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146024"><span class="hs-identifier hs-type">p</span></a></span><span>
|
||||
</span><span id="line-68"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679146181"><span class="annot"><a href="#local-6989586621679146181"><span class="hs-identifier hs-type">s</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="#local-6989586621679146025"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Either</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ClientError</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#GRpcConnection"><span class="hs-identifier hs-type">GRpcConnection</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146181"><span class="hs-identifier hs-type">s</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146024"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-67"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146026"><span class="hs-identifier hs-type">p</span></a></span><span>
|
||||
</span><span id="line-68"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679146183"><span class="annot"><a href="#local-6989586621679146183"><span class="hs-identifier hs-type">s</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="#local-6989586621679146027"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Either</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ClientError</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#GRpcConnection"><span class="hs-identifier hs-type">GRpcConnection</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146183"><span class="hs-identifier hs-type">s</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146026"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-69"></span><span id="initGRpc"><span class="annot"><span class="annottext">initGRpc :: GrpcClientConfig
|
||||
-> Proxy p
|
||||
-> forall (s :: Package').
|
||||
m (Either ClientError (GRpcConnection s p))
|
||||
</span><a href="Mu.GRpc.Client.Optics.html#initGRpc"><span class="hs-identifier hs-var hs-var">initGRpc</span></a></span></span><span> </span><span id="local-6989586621679146023"><span class="annot"><span class="annottext">GrpcClientConfig
|
||||
</span><a href="#local-6989586621679146023"><span class="hs-identifier hs-var">config</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy p
|
||||
</span><a href="Mu.GRpc.Client.Optics.html#initGRpc"><span class="hs-identifier hs-var hs-var">initGRpc</span></a></span></span><span> </span><span id="local-6989586621679146025"><span class="annot"><span class="annottext">GrpcClientConfig
|
||||
</span><a href="#local-6989586621679146025"><span class="hs-identifier hs-var">config</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy p
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-70"></span><span> </span><span id="local-6989586621679146022"><span class="annot"><span class="annottext">Either ClientError GrpcClient
|
||||
</span><a href="#local-6989586621679146022"><span class="hs-identifier hs-var">setup</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">GrpcClientConfig -> m (Either ClientError GrpcClient)
|
||||
</span><span id="line-70"></span><span> </span><span id="local-6989586621679146024"><span class="annot"><span class="annottext">Either ClientError GrpcClient
|
||||
</span><a href="#local-6989586621679146024"><span class="hs-identifier hs-var">setup</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">GrpcClientConfig -> m (Either ClientError GrpcClient)
|
||||
forall (m :: * -> *).
|
||||
MonadIO m =>
|
||||
GrpcClientConfig -> m (Either ClientError GrpcClient)
|
||||
</span><a href="Mu.GRpc.Client.Internal.html#setupGrpcClient%27"><span class="hs-identifier hs-var">setupGrpcClient'</span></a></span><span> </span><span class="annot"><span class="annottext">GrpcClientConfig
|
||||
</span><a href="#local-6989586621679146023"><span class="hs-identifier hs-var">config</span></a></span><span>
|
||||
</span><a href="#local-6989586621679146025"><span class="hs-identifier hs-var">config</span></a></span><span>
|
||||
</span><span id="line-71"></span><span> </span><span class="annot"><span class="annottext">Either ClientError (GRpcConnection s p)
|
||||
-> m (Either ClientError (GRpcConnection s p))
|
||||
forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
@ -90,14 +90,14 @@ forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
-> m (Either ClientError (GRpcConnection s p))
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Either ClientError GrpcClient
|
||||
</span><a href="#local-6989586621679146022"><span class="hs-identifier hs-var">setup</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-72"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679146020"><span class="annot"><span class="annottext">ClientError
|
||||
</span><a href="#local-6989586621679146020"><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="annottext">ClientError -> Either ClientError (GRpcConnection s p)
|
||||
</span><a href="#local-6989586621679146024"><span class="hs-identifier hs-var">setup</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-72"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679146022"><span class="annot"><span class="annottext">ClientError
|
||||
</span><a href="#local-6989586621679146022"><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="annottext">ClientError -> Either ClientError (GRpcConnection s p)
|
||||
forall a b. a -> Either a b
|
||||
</span><span class="hs-identifier hs-var">Left</span></span><span> </span><span class="annot"><span class="annottext">ClientError
|
||||
</span><a href="#local-6989586621679146020"><span class="hs-identifier hs-var">e</span></a></span><span>
|
||||
</span><span id="line-73"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679146019"><span class="annot"><span class="annottext">GrpcClient
|
||||
</span><a href="#local-6989586621679146019"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">GRpcConnection s p -> Either ClientError (GRpcConnection s p)
|
||||
</span><a href="#local-6989586621679146022"><span class="hs-identifier hs-var">e</span></a></span><span>
|
||||
</span><span id="line-73"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679146021"><span class="annot"><span class="annottext">GrpcClient
|
||||
</span><a href="#local-6989586621679146021"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">GRpcConnection s p -> Either ClientError (GRpcConnection s p)
|
||||
forall a b. b -> Either a b
|
||||
</span><span class="hs-identifier hs-var">Right</span></span><span> </span><span class="annot"><span class="annottext">(GRpcConnection s p -> Either ClientError (GRpcConnection s p))
|
||||
-> GRpcConnection s p -> Either ClientError (GRpcConnection s p)
|
||||
@ -106,7 +106,7 @@ forall a b. (a -> b) -> a -> b
|
||||
forall (s :: Package') (p :: GRpcMessageProtocol).
|
||||
GrpcClient -> GRpcConnection s p
|
||||
</span><a href="Mu.GRpc.Client.Optics.html#GRpcConnection"><span class="hs-identifier hs-var">GRpcConnection</span></a></span><span> </span><span class="annot"><span class="annottext">GrpcClient
|
||||
</span><a href="#local-6989586621679146019"><span class="hs-identifier hs-var">c</span></a></span><span>
|
||||
</span><a href="#local-6989586621679146021"><span class="hs-identifier hs-var">c</span></a></span><span>
|
||||
</span><span id="line-74"></span><span>
|
||||
</span><span id="line-75"></span><span class="hs-comment">-- | Initializes a connection to a gRPC server,</span><span>
|
||||
</span><span id="line-76"></span><span class="hs-comment">-- creating a new span for distributed tracing.</span><span>
|
||||
@ -116,28 +116,28 @@ GrpcClient -> GRpcConnection s p
|
||||
</span><span id="line-80"></span><span class="hs-comment">--</span><span>
|
||||
</span><span id="line-81"></span><span class="hs-comment">-- > initGRpcZipkin config msgProtoBuf "person" @Service</span><span>
|
||||
</span><span id="line-82"></span><span class="hs-comment">--</span><span>
|
||||
</span><span id="line-83"></span><span id="local-6989586621679146017"><span id="local-6989586621679146018"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#initGRpcZipkin"><span class="hs-identifier hs-type">initGRpcZipkin</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">MonadIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679146018"><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">MonadTrace</span></span><span> </span><span class="annot"><a href="#local-6989586621679146018"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-83"></span><span id="local-6989586621679146019"><span id="local-6989586621679146020"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#initGRpcZipkin"><span class="hs-identifier hs-type">initGRpcZipkin</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">MonadIO</span></span><span> </span><span class="annot"><a href="#local-6989586621679146020"><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">MonadTrace</span></span><span> </span><span class="annot"><a href="#local-6989586621679146020"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-84"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">G.GrpcClientConfig</span></span><span> </span><span class="hs-comment">-- ^ gRPC configuration</span><span>
|
||||
</span><span id="line-85"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146017"><span class="hs-identifier hs-type">p</span></a></span><span>
|
||||
</span><span id="line-85"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146019"><span class="hs-identifier hs-type">p</span></a></span><span>
|
||||
</span><span id="line-86"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">T.Text</span></span><span>
|
||||
</span><span id="line-87"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679146165"><span class="annot"><a href="#local-6989586621679146165"><span class="hs-identifier hs-type">s</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="#local-6989586621679146018"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Either</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ClientError</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#GRpcConnection"><span class="hs-identifier hs-type">GRpcConnection</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146165"><span class="hs-identifier hs-type">s</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146017"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-87"></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679146167"><span class="annot"><a href="#local-6989586621679146167"><span class="hs-identifier hs-type">s</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="#local-6989586621679146020"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Either</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">ClientError</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#GRpcConnection"><span class="hs-identifier hs-type">GRpcConnection</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146167"><span class="hs-identifier hs-type">s</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146019"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span></span></span><span>
|
||||
</span><span id="line-88"></span><span id="initGRpcZipkin"><span class="annot"><span class="annottext">initGRpcZipkin :: GrpcClientConfig
|
||||
-> Proxy p
|
||||
-> Text
|
||||
-> forall (s :: Package').
|
||||
m (Either ClientError (GRpcConnection s p))
|
||||
</span><a href="Mu.GRpc.Client.Optics.html#initGRpcZipkin"><span class="hs-identifier hs-var hs-var">initGRpcZipkin</span></a></span></span><span> </span><span id="local-6989586621679146016"><span class="annot"><span class="annottext">GrpcClientConfig
|
||||
</span><a href="#local-6989586621679146016"><span class="hs-identifier hs-var">config</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy p
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679146015"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146015"><span class="hs-identifier hs-var">spanName</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-89"></span><span> </span><span id="local-6989586621679146014"><span class="annot"><span class="annottext">Either ClientError GrpcClient
|
||||
</span><a href="#local-6989586621679146014"><span class="hs-identifier hs-var">setup</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">GrpcClientConfig -> Text -> m (Either ClientError GrpcClient)
|
||||
</span><a href="Mu.GRpc.Client.Optics.html#initGRpcZipkin"><span class="hs-identifier hs-var hs-var">initGRpcZipkin</span></a></span></span><span> </span><span id="local-6989586621679146018"><span class="annot"><span class="annottext">GrpcClientConfig
|
||||
</span><a href="#local-6989586621679146018"><span class="hs-identifier hs-var">config</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy p
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679146017"><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146017"><span class="hs-identifier hs-var">spanName</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
|
||||
</span><span id="line-89"></span><span> </span><span id="local-6989586621679146016"><span class="annot"><span class="annottext">Either ClientError GrpcClient
|
||||
</span><a href="#local-6989586621679146016"><span class="hs-identifier hs-var">setup</span></a></span></span><span> </span><span class="hs-glyph"><-</span><span> </span><span class="annot"><span class="annottext">GrpcClientConfig -> Text -> m (Either ClientError GrpcClient)
|
||||
forall (m :: * -> *).
|
||||
(MonadIO m, MonadTrace m) =>
|
||||
GrpcClientConfig -> Text -> m (Either ClientError GrpcClient)
|
||||
</span><a href="Mu.GRpc.Client.Internal.html#setupGrpcClientZipkin"><span class="hs-identifier hs-var">setupGrpcClientZipkin</span></a></span><span> </span><span class="annot"><span class="annottext">GrpcClientConfig
|
||||
</span><a href="#local-6989586621679146016"><span class="hs-identifier hs-var">config</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146015"><span class="hs-identifier hs-var">spanName</span></a></span><span>
|
||||
</span><a href="#local-6989586621679146018"><span class="hs-identifier hs-var">config</span></a></span><span> </span><span class="annot"><span class="annottext">Text
|
||||
</span><a href="#local-6989586621679146017"><span class="hs-identifier hs-var">spanName</span></a></span><span>
|
||||
</span><span id="line-90"></span><span> </span><span class="annot"><span class="annottext">Either ClientError (GRpcConnection s p)
|
||||
-> m (Either ClientError (GRpcConnection s p))
|
||||
forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
@ -147,14 +147,14 @@ forall (f :: * -> *) a. Applicative f => a -> f a
|
||||
-> m (Either ClientError (GRpcConnection s p))
|
||||
forall a b. (a -> b) -> a -> b
|
||||
</span><span class="hs-operator hs-var">$</span></span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Either ClientError GrpcClient
|
||||
</span><a href="#local-6989586621679146014"><span class="hs-identifier hs-var">setup</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-91"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679146012"><span class="annot"><span class="annottext">ClientError
|
||||
</span><a href="#local-6989586621679146012"><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="annottext">ClientError -> Either ClientError (GRpcConnection s p)
|
||||
</span><a href="#local-6989586621679146016"><span class="hs-identifier hs-var">setup</span></a></span><span> </span><span class="hs-keyword">of</span><span>
|
||||
</span><span id="line-91"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Left</span></span><span> </span><span id="local-6989586621679146014"><span class="annot"><span class="annottext">ClientError
|
||||
</span><a href="#local-6989586621679146014"><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="annottext">ClientError -> Either ClientError (GRpcConnection s p)
|
||||
forall a b. a -> Either a b
|
||||
</span><span class="hs-identifier hs-var">Left</span></span><span> </span><span class="annot"><span class="annottext">ClientError
|
||||
</span><a href="#local-6989586621679146012"><span class="hs-identifier hs-var">e</span></a></span><span>
|
||||
</span><span id="line-92"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679146011"><span class="annot"><span class="annottext">GrpcClient
|
||||
</span><a href="#local-6989586621679146011"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">GRpcConnection s p -> Either ClientError (GRpcConnection s p)
|
||||
</span><a href="#local-6989586621679146014"><span class="hs-identifier hs-var">e</span></a></span><span>
|
||||
</span><span id="line-92"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Right</span></span><span> </span><span id="local-6989586621679146013"><span class="annot"><span class="annottext">GrpcClient
|
||||
</span><a href="#local-6989586621679146013"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">GRpcConnection s p -> Either ClientError (GRpcConnection s p)
|
||||
forall a b. b -> Either a b
|
||||
</span><span class="hs-identifier hs-var">Right</span></span><span> </span><span class="annot"><span class="annottext">(GRpcConnection s p -> Either ClientError (GRpcConnection s p))
|
||||
-> GRpcConnection s p -> Either ClientError (GRpcConnection s p)
|
||||
@ -163,24 +163,24 @@ forall a b. (a -> b) -> a -> b
|
||||
forall (s :: Package') (p :: GRpcMessageProtocol).
|
||||
GrpcClient -> GRpcConnection s p
|
||||
</span><a href="Mu.GRpc.Client.Optics.html#GRpcConnection"><span class="hs-identifier hs-var">GRpcConnection</span></a></span><span> </span><span class="annot"><span class="annottext">GrpcClient
|
||||
</span><a href="#local-6989586621679146011"><span class="hs-identifier hs-var">c</span></a></span><span>
|
||||
</span><a href="#local-6989586621679146013"><span class="hs-identifier hs-var">c</span></a></span><span>
|
||||
</span><span id="line-93"></span><span>
|
||||
</span><span id="line-94"></span><span class="hs-keyword">instance</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146008"><span class="annot"><a href="#local-6989586621679146008"><span class="hs-identifier hs-type">pkg</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package'</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146007"><span class="annot"><a href="#local-6989586621679146007"><span class="hs-identifier hs-type">pkgName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-95"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146006"><span class="annot"><a href="#local-6989586621679146006"><span class="hs-identifier hs-type">service</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Service'</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146005"><span class="annot"><a href="#local-6989586621679146005"><span class="hs-identifier hs-type">serviceName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-96"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146004"><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">methods</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">Method'</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-97"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146003"><span class="annot"><a href="#local-6989586621679146003"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GRpcMessageProtocol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146002"><span class="annot"><a href="#local-6989586621679146002"><span class="hs-identifier hs-type">m</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679146001"><span class="annot"><a href="#local-6989586621679146001"><span class="hs-identifier hs-type">t</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-98"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="#local-6989586621679146008"><span class="hs-identifier hs-type">pkg</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679146007"><span class="hs-identifier hs-type">pkgName</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span class="annot"><a href="#local-6989586621679146006"><span class="hs-identifier hs-type">service</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-99"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679146006"><span class="hs-identifier hs-type">service</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679146005"><span class="hs-identifier hs-type">serviceName</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">methods</span></a></span><span>
|
||||
</span><span id="line-100"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#SearchMethodOptic"><span class="hs-identifier hs-type">SearchMethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146003"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">methods</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146002"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146001"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-101"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">KnownName</span></span><span> </span><span class="annot"><a href="#local-6989586621679146005"><span class="hs-identifier hs-type">serviceName</span></a></span><span>
|
||||
</span><span id="line-102"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">KnownName</span></span><span> </span><span class="annot"><a href="#local-6989586621679146007"><span class="hs-identifier hs-type">pkgName</span></a></span><span>
|
||||
</span><span id="line-103"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">KnownName</span></span><span> </span><span class="annot"><a href="#local-6989586621679146002"><span class="hs-identifier hs-type">m</span></a></span><span>
|
||||
</span><span id="line-104"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">MkRPC</span></span><span> </span><span class="annot"><a href="#local-6989586621679146003"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-105"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">LabelOptic</span></span><span> </span><span class="annot"><a href="#local-6989586621679146002"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">A_Getter</span></span><span>
|
||||
</span><span id="line-106"></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#GRpcConnection"><span class="hs-identifier hs-type">GRpcConnection</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146008"><span class="hs-identifier hs-type">pkg</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146003"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-107"></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#GRpcConnection"><span class="hs-identifier hs-type">GRpcConnection</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146008"><span class="hs-identifier hs-type">pkg</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146003"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-108"></span><span> </span><span class="annot"><a href="#local-6989586621679146001"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146001"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-109"></span><span> </span><span id="local-6989586621679146000"><span class="annot"><span class="annottext">labelOptic :: Optic
|
||||
</span><span id="line-94"></span><span class="hs-keyword">instance</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146010"><span class="annot"><a href="#local-6989586621679146010"><span class="hs-identifier hs-type">pkg</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package'</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146009"><span class="annot"><a href="#local-6989586621679146009"><span class="hs-identifier hs-type">pkgName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-95"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146008"><span class="annot"><a href="#local-6989586621679146008"><span class="hs-identifier hs-type">service</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Service'</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146007"><span class="annot"><a href="#local-6989586621679146007"><span class="hs-identifier hs-type">serviceName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-96"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146006"><span class="annot"><a href="#local-6989586621679146006"><span class="hs-identifier hs-type">methods</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">Method'</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-97"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146005"><span class="annot"><a href="#local-6989586621679146005"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GRpcMessageProtocol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146004"><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">m</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679146003"><span class="annot"><a href="#local-6989586621679146003"><span class="hs-identifier hs-type">t</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-98"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="#local-6989586621679146010"><span class="hs-identifier hs-type">pkg</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679146009"><span class="hs-identifier hs-type">pkgName</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span class="annot"><a href="#local-6989586621679146008"><span class="hs-identifier hs-type">service</span></a></span><span class="hs-special">]</span><span>
|
||||
</span><span id="line-99"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679146008"><span class="hs-identifier hs-type">service</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679146007"><span class="hs-identifier hs-type">serviceName</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146006"><span class="hs-identifier hs-type">methods</span></a></span><span>
|
||||
</span><span id="line-100"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#SearchMethodOptic"><span class="hs-identifier hs-type">SearchMethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146005"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146006"><span class="hs-identifier hs-type">methods</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146003"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-101"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">KnownName</span></span><span> </span><span class="annot"><a href="#local-6989586621679146007"><span class="hs-identifier hs-type">serviceName</span></a></span><span>
|
||||
</span><span id="line-102"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">KnownName</span></span><span> </span><span class="annot"><a href="#local-6989586621679146009"><span class="hs-identifier hs-type">pkgName</span></a></span><span>
|
||||
</span><span id="line-103"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">KnownName</span></span><span> </span><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">m</span></a></span><span>
|
||||
</span><span id="line-104"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">MkRPC</span></span><span> </span><span class="annot"><a href="#local-6989586621679146005"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-105"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">LabelOptic</span></span><span> </span><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">A_Getter</span></span><span>
|
||||
</span><span id="line-106"></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#GRpcConnection"><span class="hs-identifier hs-type">GRpcConnection</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146010"><span class="hs-identifier hs-type">pkg</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146005"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-107"></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#GRpcConnection"><span class="hs-identifier hs-type">GRpcConnection</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146010"><span class="hs-identifier hs-type">pkg</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146005"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-108"></span><span> </span><span class="annot"><a href="#local-6989586621679146003"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146003"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-109"></span><span> </span><span id="local-6989586621679146002"><span class="annot"><span class="annottext">labelOptic :: Optic
|
||||
A_Getter NoIx (GRpcConnection pkg p) (GRpcConnection pkg p) t t
|
||||
</span><span class="hs-identifier hs-var hs-var hs-var hs-var">labelOptic</span></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(GRpcConnection pkg p -> t)
|
||||
-> Optic
|
||||
@ -191,12 +191,12 @@ forall (p :: GRpcMessageProtocol) (methods :: [Method'])
|
||||
(m :: Symbol) t.
|
||||
SearchMethodOptic p methods m t =>
|
||||
Proxy methods -> Proxy m -> RPCTy p -> GrpcClient -> t
|
||||
</span><a href="Mu.GRpc.Client.Optics.html#searchMethodOptic"><span class="hs-identifier hs-var">searchMethodOptic</span></a></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146003"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy methods
|
||||
</span><a href="Mu.GRpc.Client.Optics.html#searchMethodOptic"><span class="hs-identifier hs-var">searchMethodOptic</span></a></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146005"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy methods
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">methods</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy m
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146006"><span class="hs-identifier hs-type">methods</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy m
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146002"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">RPCTy p
|
||||
</span><a href="#local-6989586621679145995"><span class="hs-identifier hs-var">rpc</span></a></span><span> </span><span class="annot"><span class="annottext">(GrpcClient -> t)
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">RPCTy p
|
||||
</span><a href="#local-6989586621679145997"><span class="hs-identifier hs-var">rpc</span></a></span><span> </span><span class="annot"><span class="annottext">(GrpcClient -> t)
|
||||
-> (GRpcConnection pkg p -> GrpcClient)
|
||||
-> GRpcConnection pkg p
|
||||
-> t
|
||||
@ -205,134 +205,134 @@ forall b c a. (b -> c) -> (a -> b) -> a -> c
|
||||
forall (s :: Package') (p :: GRpcMessageProtocol).
|
||||
GRpcConnection s p -> GrpcClient
|
||||
</span><a href="Mu.GRpc.Client.Optics.html#gcClient"><span class="hs-identifier hs-var hs-var">gcClient</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-110"></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145993"><span class="annot"><span class="annottext">pkgName :: ByteString
|
||||
</span><a href="#local-6989586621679145993"><span class="hs-identifier hs-var hs-var">pkgName</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -> ByteString
|
||||
</span><span id="line-110"></span><span> </span><span class="hs-keyword">where</span><span> </span><span id="local-6989586621679145995"><span class="annot"><span class="annottext">pkgName :: ByteString
|
||||
</span><a href="#local-6989586621679145995"><span class="hs-identifier hs-var hs-var">pkgName</span></a></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">BS.pack</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy pkgName -> String
|
||||
forall k (a :: k) (proxy :: k -> *).
|
||||
KnownName a =>
|
||||
proxy a -> String
|
||||
</span><span class="hs-identifier hs-var">nameVal</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy pkgName
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146007"><span class="hs-identifier hs-type">pkgName</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-111"></span><span> </span><span id="local-6989586621679145990"><span class="annot"><span class="annottext">svrName :: ByteString
|
||||
</span><a href="#local-6989586621679145990"><span class="hs-identifier hs-var hs-var">svrName</span></a></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">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146009"><span class="hs-identifier hs-type">pkgName</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-111"></span><span> </span><span id="local-6989586621679145992"><span class="annot"><span class="annottext">svrName :: ByteString
|
||||
</span><a href="#local-6989586621679145992"><span class="hs-identifier hs-var hs-var">svrName</span></a></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">BS.pack</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy serviceName -> String
|
||||
forall k (a :: k) (proxy :: k -> *).
|
||||
KnownName a =>
|
||||
proxy a -> String
|
||||
</span><span class="hs-identifier hs-var">nameVal</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy serviceName
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146005"><span class="hs-identifier hs-type">serviceName</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-112"></span><span> </span><span id="local-6989586621679145989"><span class="annot"><span class="annottext">metName :: ByteString
|
||||
</span><a href="#local-6989586621679145989"><span class="hs-identifier hs-var hs-var">metName</span></a></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">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146007"><span class="hs-identifier hs-type">serviceName</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-112"></span><span> </span><span id="local-6989586621679145991"><span class="annot"><span class="annottext">metName :: ByteString
|
||||
</span><a href="#local-6989586621679145991"><span class="hs-identifier hs-var hs-var">metName</span></a></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">BS.pack</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy m -> String
|
||||
forall k (a :: k) (proxy :: k -> *).
|
||||
KnownName a =>
|
||||
proxy a -> String
|
||||
</span><span class="hs-identifier hs-var">nameVal</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy m
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146002"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-113"></span><span> </span><span id="local-6989586621679145995"><span class="annot"><span class="annottext">rpc :: RPCTy p
|
||||
</span><a href="#local-6989586621679145995"><span class="hs-identifier hs-var hs-var">rpc</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Proxy p -> ByteString -> ByteString -> ByteString -> RPCTy p
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146004"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-113"></span><span> </span><span id="local-6989586621679145997"><span class="annot"><span class="annottext">rpc :: RPCTy p
|
||||
</span><a href="#local-6989586621679145997"><span class="hs-identifier hs-var hs-var">rpc</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Proxy p -> ByteString -> ByteString -> ByteString -> RPCTy p
|
||||
forall (p :: GRpcMessageProtocol).
|
||||
MkRPC p =>
|
||||
Proxy p -> ByteString -> ByteString -> ByteString -> RPCTy p
|
||||
</span><span class="hs-identifier hs-var">mkRPC</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy p
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146003"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679145993"><span class="hs-identifier hs-var">pkgName</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679145990"><span class="hs-identifier hs-var">svrName</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679145989"><span class="hs-identifier hs-var">metName</span></a></span><span>
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146005"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679145995"><span class="hs-identifier hs-var">pkgName</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679145992"><span class="hs-identifier hs-var">svrName</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
|
||||
</span><a href="#local-6989586621679145991"><span class="hs-identifier hs-var">metName</span></a></span><span>
|
||||
</span><span id="line-114"></span><span>
|
||||
</span><span id="line-115"></span><span class="hs-keyword">class</span><span> </span><span id="SearchMethodOptic"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#SearchMethodOptic"><span class="hs-identifier hs-var">SearchMethodOptic</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146131"><span class="annot"><a href="#local-6989586621679146131"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GRpcMessageProtocol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146130"><span class="annot"><a href="#local-6989586621679146130"><span class="hs-identifier hs-type">methods</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">Method'</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146129"><span class="annot"><a href="#local-6989586621679146129"><span class="hs-identifier hs-type">m</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679146128"><span class="annot"><a href="#local-6989586621679146128"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-116"></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="#local-6989586621679146131"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146130"><span class="hs-identifier hs-type">methods</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146129"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679146128"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-117"></span><span> </span><span id="searchMethodOptic"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#searchMethodOptic"><span class="hs-identifier hs-type">searchMethodOptic</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146130"><span class="hs-identifier hs-type">methods</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146129"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">RPCTy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146131"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">G.GrpcClient</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679146128"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-115"></span><span class="hs-keyword">class</span><span> </span><span id="SearchMethodOptic"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#SearchMethodOptic"><span class="hs-identifier hs-var">SearchMethodOptic</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146133"><span class="annot"><a href="#local-6989586621679146133"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GRpcMessageProtocol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146132"><span class="annot"><a href="#local-6989586621679146132"><span class="hs-identifier hs-type">methods</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">Method'</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146131"><span class="annot"><a href="#local-6989586621679146131"><span class="hs-identifier hs-type">m</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679146130"><span class="annot"><a href="#local-6989586621679146130"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-116"></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="#local-6989586621679146133"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146132"><span class="hs-identifier hs-type">methods</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146131"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679146130"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-117"></span><span> </span><span id="searchMethodOptic"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#searchMethodOptic"><span class="hs-identifier hs-type">searchMethodOptic</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146132"><span class="hs-identifier hs-type">methods</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146131"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">RPCTy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146133"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">G.GrpcClient</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679146130"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-118"></span><span>
|
||||
</span><span id="line-119"></span><span class="hs-comment">{- Not possible due to functional dependency
|
||||
instance TypeError ('Text "could not find method " ':<>: ShowType m)
|
||||
=> SearchMethodOptic '[] m t where
|
||||
-}</span><span>
|
||||
</span><span id="line-123"></span><span id="local-6989586621679145982"><span id="local-6989586621679145983"><span id="local-6989586621679145984"><span id="local-6989586621679145985"><span id="local-6989586621679145986"><span id="local-6989586621679145987"><span class="hs-keyword">instance</span><span> </span><span class="hs-pragma">{-# OVERLAPS</span><span> </span><span class="hs-pragma">#-}</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145987"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145986"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145985"><span class="hs-identifier hs-type">ins</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145984"><span class="hs-identifier hs-type">outs</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145983"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-124"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#SearchMethodOptic"><span class="hs-identifier hs-type">SearchMethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145987"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145986"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145985"><span class="hs-identifier hs-type">ins</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145984"><span class="hs-identifier hs-type">outs</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679145982"><span class="hs-identifier hs-type">rest</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145986"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145983"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-125"></span><span> </span><span id="local-6989586621679145979"><span class="annot"><span class="annottext">searchMethodOptic :: Proxy ('Method name ins outs : rest)
|
||||
</span><span id="line-123"></span><span id="local-6989586621679145984"><span id="local-6989586621679145985"><span id="local-6989586621679145986"><span id="local-6989586621679145987"><span id="local-6989586621679145988"><span id="local-6989586621679145989"><span class="hs-keyword">instance</span><span> </span><span class="hs-pragma">{-# OVERLAPS</span><span> </span><span class="hs-pragma">#-}</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145989"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145988"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145987"><span class="hs-identifier hs-type">ins</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145986"><span class="hs-identifier hs-type">outs</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145985"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-124"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#SearchMethodOptic"><span class="hs-identifier hs-type">SearchMethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145989"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145988"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145987"><span class="hs-identifier hs-type">ins</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145986"><span class="hs-identifier hs-type">outs</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679145984"><span class="hs-identifier hs-type">rest</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145988"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145985"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-125"></span><span> </span><span id="local-6989586621679145981"><span class="annot"><span class="annottext">searchMethodOptic :: Proxy ('Method name ins outs : rest)
|
||||
-> Proxy name -> RPCTy p -> GrpcClient -> t
|
||||
</span><a href="#local-6989586621679145979"><span class="hs-identifier hs-var hs-var hs-var hs-var">searchMethodOptic</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy ('Method name ins outs : rest)
|
||||
</span><a href="#local-6989586621679145981"><span class="hs-identifier hs-var hs-var hs-var hs-var">searchMethodOptic</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy ('Method name ins outs : rest)
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Proxy name
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679145978"><span class="annot"><span class="annottext">RPCTy p
|
||||
</span><a href="#local-6989586621679145978"><span class="hs-identifier hs-var">rpc</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">RPCTy p -> Proxy ('Method name ins outs) -> GrpcClient -> t
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679145980"><span class="annot"><span class="annottext">RPCTy p
|
||||
</span><a href="#local-6989586621679145980"><span class="hs-identifier hs-var">rpc</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">RPCTy p -> Proxy ('Method name ins outs) -> GrpcClient -> t
|
||||
forall (p :: GRpcMessageProtocol) (method :: Method') t.
|
||||
MethodOptic p method t =>
|
||||
RPCTy p -> Proxy method -> GrpcClient -> t
|
||||
</span><a href="Mu.GRpc.Client.Optics.html#methodOptic"><span class="hs-identifier hs-var">methodOptic</span></a></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679145987"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><span class="annottext">RPCTy p
|
||||
</span><a href="#local-6989586621679145978"><span class="hs-identifier hs-var">rpc</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy ('Method name ins outs)
|
||||
</span><a href="Mu.GRpc.Client.Optics.html#methodOptic"><span class="hs-identifier hs-var">methodOptic</span></a></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679145989"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><span class="annottext">RPCTy p
|
||||
</span><a href="#local-6989586621679145980"><span class="hs-identifier hs-var">rpc</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy ('Method name ins outs)
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145986"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145985"><span class="hs-identifier hs-type">ins</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145984"><span class="hs-identifier hs-type">outs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-126"></span><span id="local-6989586621679145970"><span id="local-6989586621679145971"><span id="local-6989586621679145972"><span id="local-6989586621679145973"><span id="local-6989586621679145974"><span id="local-6989586621679145975"><span id="local-6989586621679145976"><span class="hs-keyword">instance</span><span> </span><span class="hs-pragma">{-# OVERLAPPABLE</span><span> </span><span class="hs-pragma">#-}</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#SearchMethodOptic"><span class="hs-identifier hs-type">SearchMethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145976"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145975"><span class="hs-identifier hs-type">rest</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145974"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145973"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-127"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#SearchMethodOptic"><span class="hs-identifier hs-type">SearchMethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145976"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145972"><span class="hs-identifier hs-type">other</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145971"><span class="hs-identifier hs-type">ins</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145970"><span class="hs-identifier hs-type">outs</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679145975"><span class="hs-identifier hs-type">rest</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145974"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145973"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-128"></span><span> </span><span id="local-6989586621679145968"><span class="annot"><span class="annottext">searchMethodOptic :: Proxy ('Method other ins outs : rest)
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145988"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145987"><span class="hs-identifier hs-type">ins</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145986"><span class="hs-identifier hs-type">outs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-126"></span><span id="local-6989586621679145972"><span id="local-6989586621679145973"><span id="local-6989586621679145974"><span id="local-6989586621679145975"><span id="local-6989586621679145976"><span id="local-6989586621679145977"><span id="local-6989586621679145978"><span class="hs-keyword">instance</span><span> </span><span class="hs-pragma">{-# OVERLAPPABLE</span><span> </span><span class="hs-pragma">#-}</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#SearchMethodOptic"><span class="hs-identifier hs-type">SearchMethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145978"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145977"><span class="hs-identifier hs-type">rest</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145976"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145975"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-127"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#SearchMethodOptic"><span class="hs-identifier hs-type">SearchMethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145978"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145974"><span class="hs-identifier hs-type">other</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145973"><span class="hs-identifier hs-type">ins</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145972"><span class="hs-identifier hs-type">outs</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679145977"><span class="hs-identifier hs-type">rest</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145976"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145975"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-128"></span><span> </span><span id="local-6989586621679145970"><span class="annot"><span class="annottext">searchMethodOptic :: Proxy ('Method other ins outs : rest)
|
||||
-> Proxy name -> RPCTy p -> GrpcClient -> t
|
||||
</span><a href="#local-6989586621679145968"><span class="hs-identifier hs-var hs-var hs-var hs-var">searchMethodOptic</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy ('Method other ins outs : rest)
|
||||
</span><a href="#local-6989586621679145970"><span class="hs-identifier hs-var hs-var hs-var hs-var">searchMethodOptic</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy ('Method other ins outs : rest)
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Proxy rest -> Proxy name -> RPCTy p -> GrpcClient -> t
|
||||
forall (p :: GRpcMessageProtocol) (methods :: [Method'])
|
||||
(m :: Symbol) t.
|
||||
SearchMethodOptic p methods m t =>
|
||||
Proxy methods -> Proxy m -> RPCTy p -> GrpcClient -> t
|
||||
</span><a href="Mu.GRpc.Client.Optics.html#searchMethodOptic"><span class="hs-identifier hs-var">searchMethodOptic</span></a></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679145976"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy rest
|
||||
</span><a href="Mu.GRpc.Client.Optics.html#searchMethodOptic"><span class="hs-identifier hs-var">searchMethodOptic</span></a></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679145978"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy rest
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679145975"><span class="hs-identifier hs-type">rest</span></a></span><span class="hs-special">)</span></span></span></span></span></span></span></span><span>
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679145977"><span class="hs-identifier hs-type">rest</span></a></span><span class="hs-special">)</span></span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-129"></span><span>
|
||||
</span><span id="line-130"></span><span class="hs-keyword">class</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146106"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146105"><span class="hs-identifier hs-type">method</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146104"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-131"></span><span> </span><span class="hs-glyph">=></span><span> </span><span id="MethodOptic"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-var">MethodOptic</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146106"><span class="annot"><a href="#local-6989586621679146106"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GRpcMessageProtocol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146105"><span class="annot"><a href="#local-6989586621679146105"><span class="hs-identifier hs-type">method</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Method'</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679146104"><span class="annot"><a href="#local-6989586621679146104"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-132"></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="#local-6989586621679146106"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146105"><span class="hs-identifier hs-type">method</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679146104"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-133"></span><span> </span><span id="methodOptic"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#methodOptic"><span class="hs-identifier hs-type">methodOptic</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">RPCTy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146106"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146105"><span class="hs-identifier hs-type">method</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">G.GrpcClient</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679146104"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-134"></span><span> </span><span id="local-6989586621679145967"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#methodOptic"><span class="hs-identifier hs-var hs-var">methodOptic</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">forall (p :: GRpcMessageProtocol) (method :: Method') h.
|
||||
</span><span id="line-130"></span><span class="hs-keyword">class</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146108"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146107"><span class="hs-identifier hs-type">method</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146106"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-131"></span><span> </span><span class="hs-glyph">=></span><span> </span><span id="MethodOptic"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-var">MethodOptic</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146108"><span class="annot"><a href="#local-6989586621679146108"><span class="hs-identifier hs-type">p</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GRpcMessageProtocol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146107"><span class="annot"><a href="#local-6989586621679146107"><span class="hs-identifier hs-type">method</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Method'</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679146106"><span class="annot"><a href="#local-6989586621679146106"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-132"></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="#local-6989586621679146108"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146107"><span class="hs-identifier hs-type">method</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679146106"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-133"></span><span> </span><span id="methodOptic"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#methodOptic"><span class="hs-identifier hs-type">methodOptic</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">RPCTy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146108"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679146107"><span class="hs-identifier hs-type">method</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">G.GrpcClient</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679146106"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-134"></span><span> </span><span id="local-6989586621679145969"><span class="annot"><a href="Mu.GRpc.Client.Optics.html#methodOptic"><span class="hs-identifier hs-var hs-var">methodOptic</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">forall (p :: GRpcMessageProtocol) (method :: Method') h.
|
||||
GRpcMethodCall p method h =>
|
||||
RPCTy p -> Proxy method -> GrpcClient -> h
|
||||
forall (method :: Method') h.
|
||||
GRpcMethodCall p method h =>
|
||||
RPCTy p -> Proxy method -> GrpcClient -> h
|
||||
</span><a href="Mu.GRpc.Client.Internal.html#gRpcMethodCall"><span class="hs-identifier hs-var">gRpcMethodCall</span></a></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146106"><span class="hs-identifier hs-type">p</span></a></span></span><span>
|
||||
</span><a href="Mu.GRpc.Client.Internal.html#gRpcMethodCall"><span class="hs-identifier hs-var">gRpcMethodCall</span></a></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146108"><span class="hs-identifier hs-type">p</span></a></span></span><span>
|
||||
</span><span id="line-135"></span><span>
|
||||
</span><span id="line-136"></span><span class="hs-comment">-- No arguments</span><span>
|
||||
</span><span id="line-137"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145963"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145961"><span class="annot"><a href="#local-6989586621679145961"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145960"><span class="annot"><a href="#local-6989586621679145960"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145959"><span class="annot"><a href="#local-6989586621679145959"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-138"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145959"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145961"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetNothing</span></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145960"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-139"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145960"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-140"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145959"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145961"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetNothing</span></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145960"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-141"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145956"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145955"><span class="annot"><a href="#local-6989586621679145955"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145954"><span class="annot"><a href="#local-6989586621679145954"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145953"><span class="annot"><a href="#local-6989586621679145953"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145952"><span class="annot"><a href="#local-6989586621679145952"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145951"><span class="annot"><a href="#local-6989586621679145951"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-142"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145951"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145955"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetSingle</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145954"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145953"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145952"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-143"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145952"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145954"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145954"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145953"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-144"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145951"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145955"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetSingle</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145954"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145953"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145952"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-145"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145948"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145947"><span class="annot"><a href="#local-6989586621679145947"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145946"><span class="annot"><a href="#local-6989586621679145946"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145945"><span class="annot"><a href="#local-6989586621679145945"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145944"><span class="annot"><a href="#local-6989586621679145944"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145943"><span class="annot"><a href="#local-6989586621679145943"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-146"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145943"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145947"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetStream</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145946"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145945"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145944"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-147"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145944"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">ConduitT</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145946"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145946"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145945"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-148"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145943"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145947"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetStream</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145946"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145945"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145944"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-137"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145965"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145963"><span class="annot"><a href="#local-6989586621679145963"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145962"><span class="annot"><a href="#local-6989586621679145962"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145961"><span class="annot"><a href="#local-6989586621679145961"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-138"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145961"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145963"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetNothing</span></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145962"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-139"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145962"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-140"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145961"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145963"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetNothing</span></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145962"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-141"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145958"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145957"><span class="annot"><a href="#local-6989586621679145957"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145956"><span class="annot"><a href="#local-6989586621679145956"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145955"><span class="annot"><a href="#local-6989586621679145955"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145954"><span class="annot"><a href="#local-6989586621679145954"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145953"><span class="annot"><a href="#local-6989586621679145953"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-142"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145953"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145957"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetSingle</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145956"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145955"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145954"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-143"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145954"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145956"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145956"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145955"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-144"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145953"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145957"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetSingle</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145956"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145955"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145954"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-145"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145950"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145949"><span class="annot"><a href="#local-6989586621679145949"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145948"><span class="annot"><a href="#local-6989586621679145948"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145947"><span class="annot"><a href="#local-6989586621679145947"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145946"><span class="annot"><a href="#local-6989586621679145946"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145945"><span class="annot"><a href="#local-6989586621679145945"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-146"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145945"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145949"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetStream</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145948"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145947"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145946"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-147"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145946"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">ConduitT</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145948"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145948"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145947"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-148"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145945"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145949"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetStream</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145948"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145947"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145946"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-149"></span><span class="hs-comment">-- Simple arguments</span><span>
|
||||
</span><span id="line-150"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145940"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145939"><span class="annot"><a href="#local-6989586621679145939"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145938"><span class="annot"><a href="#local-6989586621679145938"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145937"><span class="annot"><a href="#local-6989586621679145937"><span class="hs-identifier hs-type">v</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145936"><span class="annot"><a href="#local-6989586621679145936"><span class="hs-identifier hs-type">aname</span></a></span></span><span> </span><span id="local-6989586621679145935"><span class="annot"><a href="#local-6989586621679145935"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145934"><span class="annot"><a href="#local-6989586621679145934"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-151"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145934"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145939"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679145936"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145938"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145937"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetNothing</span></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145935"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-152"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145935"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145938"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145938"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145937"><span class="hs-identifier hs-type">v</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="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-153"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145934"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145939"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679145936"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145938"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145937"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetNothing</span></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145935"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-154"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145931"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145930"><span class="annot"><a href="#local-6989586621679145930"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145929"><span class="annot"><a href="#local-6989586621679145929"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145928"><span class="annot"><a href="#local-6989586621679145928"><span class="hs-identifier hs-type">v</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145927"><span class="annot"><a href="#local-6989586621679145927"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145926"><span class="annot"><a href="#local-6989586621679145926"><span class="hs-identifier hs-type">aname</span></a></span></span><span> </span><span id="local-6989586621679145925"><span class="annot"><a href="#local-6989586621679145925"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145924"><span class="annot"><a href="#local-6989586621679145924"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-155"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145924"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145930"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679145926"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145929"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145928"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetSingle</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145929"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145927"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145925"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-156"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145925"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145929"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145929"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145928"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-157"></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="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145929"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145929"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145927"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-158"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145924"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145930"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679145926"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145929"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145928"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetSingle</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145929"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145927"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145925"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-159"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145921"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145920"><span class="annot"><a href="#local-6989586621679145920"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145919"><span class="annot"><a href="#local-6989586621679145919"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145918"><span class="annot"><a href="#local-6989586621679145918"><span class="hs-identifier hs-type">v</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145917"><span class="annot"><a href="#local-6989586621679145917"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145916"><span class="annot"><a href="#local-6989586621679145916"><span class="hs-identifier hs-type">aname</span></a></span></span><span> </span><span id="local-6989586621679145915"><span class="annot"><a href="#local-6989586621679145915"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145914"><span class="annot"><a href="#local-6989586621679145914"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-160"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145914"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145920"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679145916"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145919"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145918"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetStream</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145919"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145917"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145915"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-161"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145915"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145919"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145919"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145918"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-162"></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="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">ConduitT</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145919"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145919"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145917"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-163"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145914"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145920"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679145916"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145919"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145918"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetStream</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145919"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145917"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145915"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-150"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145942"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145941"><span class="annot"><a href="#local-6989586621679145941"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145940"><span class="annot"><a href="#local-6989586621679145940"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145939"><span class="annot"><a href="#local-6989586621679145939"><span class="hs-identifier hs-type">v</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145938"><span class="annot"><a href="#local-6989586621679145938"><span class="hs-identifier hs-type">aname</span></a></span></span><span> </span><span id="local-6989586621679145937"><span class="annot"><a href="#local-6989586621679145937"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145936"><span class="annot"><a href="#local-6989586621679145936"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-151"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145936"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145941"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679145938"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145940"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145939"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetNothing</span></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145937"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-152"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145937"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145940"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145940"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145939"><span class="hs-identifier hs-type">v</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="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-153"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145936"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145941"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679145938"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145940"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145939"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetNothing</span></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145937"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-154"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145933"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145932"><span class="annot"><a href="#local-6989586621679145932"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145931"><span class="annot"><a href="#local-6989586621679145931"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145930"><span class="annot"><a href="#local-6989586621679145930"><span class="hs-identifier hs-type">v</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145929"><span class="annot"><a href="#local-6989586621679145929"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145928"><span class="annot"><a href="#local-6989586621679145928"><span class="hs-identifier hs-type">aname</span></a></span></span><span> </span><span id="local-6989586621679145927"><span class="annot"><a href="#local-6989586621679145927"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145926"><span class="annot"><a href="#local-6989586621679145926"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-155"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145926"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145932"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679145928"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145931"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145930"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetSingle</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145931"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145929"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145927"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-156"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145927"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145931"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145931"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145930"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-157"></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="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145931"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145931"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145929"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-158"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145926"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145932"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679145928"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145931"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145930"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetSingle</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145931"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145929"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145927"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-159"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145923"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145922"><span class="annot"><a href="#local-6989586621679145922"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145921"><span class="annot"><a href="#local-6989586621679145921"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145920"><span class="annot"><a href="#local-6989586621679145920"><span class="hs-identifier hs-type">v</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145919"><span class="annot"><a href="#local-6989586621679145919"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145918"><span class="annot"><a href="#local-6989586621679145918"><span class="hs-identifier hs-type">aname</span></a></span></span><span> </span><span id="local-6989586621679145917"><span class="annot"><a href="#local-6989586621679145917"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145916"><span class="annot"><a href="#local-6989586621679145916"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-160"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145916"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145922"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679145918"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145921"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145920"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetStream</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145921"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145919"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145917"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-161"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145917"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145921"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145921"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145920"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-162"></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="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">ConduitT</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145921"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145921"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145919"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-163"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145916"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145922"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgSingle</span></span><span> </span><span class="annot"><a href="#local-6989586621679145918"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145921"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145920"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetStream</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145921"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145919"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145917"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-164"></span><span class="hs-comment">-- Stream arguments</span><span>
|
||||
</span><span id="line-165"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145911"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145910"><span class="annot"><a href="#local-6989586621679145910"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145909"><span class="annot"><a href="#local-6989586621679145909"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145908"><span class="annot"><a href="#local-6989586621679145908"><span class="hs-identifier hs-type">v</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145907"><span class="annot"><a href="#local-6989586621679145907"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145906"><span class="annot"><a href="#local-6989586621679145906"><span class="hs-identifier hs-type">aname</span></a></span></span><span> </span><span id="local-6989586621679145905"><span class="annot"><a href="#local-6989586621679145905"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145904"><span class="annot"><a href="#local-6989586621679145904"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-166"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145904"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145910"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgStream</span></span><span> </span><span class="annot"><a href="#local-6989586621679145906"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145909"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145908"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetSingle</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145909"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145907"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145905"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-167"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145905"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">CompressMode</span></span><span>
|
||||
</span><span id="line-168"></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="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">ConduitT</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145909"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145909"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145908"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-165"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145913"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145912"><span class="annot"><a href="#local-6989586621679145912"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145911"><span class="annot"><a href="#local-6989586621679145911"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145910"><span class="annot"><a href="#local-6989586621679145910"><span class="hs-identifier hs-type">v</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145909"><span class="annot"><a href="#local-6989586621679145909"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145908"><span class="annot"><a href="#local-6989586621679145908"><span class="hs-identifier hs-type">aname</span></a></span></span><span> </span><span id="local-6989586621679145907"><span class="annot"><a href="#local-6989586621679145907"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145906"><span class="annot"><a href="#local-6989586621679145906"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-166"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145906"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145912"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgStream</span></span><span> </span><span class="annot"><a href="#local-6989586621679145908"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145911"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145910"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetSingle</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145911"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145909"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145907"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-167"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145907"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">CompressMode</span></span><span>
|
||||
</span><span id="line-168"></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="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">ConduitT</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145911"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145911"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145910"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-169"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Void</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span>
|
||||
</span><span id="line-170"></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145909"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145909"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145907"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-171"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145904"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145910"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgStream</span></span><span> </span><span class="annot"><a href="#local-6989586621679145906"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145909"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145908"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetSingle</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145909"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145907"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145905"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-172"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145901"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145900"><span class="annot"><a href="#local-6989586621679145900"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145899"><span class="annot"><a href="#local-6989586621679145899"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145898"><span class="annot"><a href="#local-6989586621679145898"><span class="hs-identifier hs-type">v</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145897"><span class="annot"><a href="#local-6989586621679145897"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145896"><span class="annot"><a href="#local-6989586621679145896"><span class="hs-identifier hs-type">aname</span></a></span></span><span> </span><span id="local-6989586621679145895"><span class="annot"><a href="#local-6989586621679145895"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145894"><span class="annot"><a href="#local-6989586621679145894"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-173"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145894"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145900"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgStream</span></span><span> </span><span class="annot"><a href="#local-6989586621679145896"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145899"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145898"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetStream</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145899"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145897"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145895"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-174"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145895"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">CompressMode</span></span><span>
|
||||
</span><span id="line-175"></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="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">ConduitT</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145899"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145899"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145898"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-176"></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145899"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145899"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145897"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-177"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145894"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145900"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgStream</span></span><span> </span><span class="annot"><a href="#local-6989586621679145896"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145899"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145898"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetStream</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145899"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145897"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145895"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-170"></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145911"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145911"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145909"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-171"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145906"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145912"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgStream</span></span><span> </span><span class="annot"><a href="#local-6989586621679145908"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145911"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145910"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetSingle</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145911"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145909"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145907"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-172"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679145903"><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145902"><span class="annot"><a href="#local-6989586621679145902"><span class="hs-identifier hs-type">name</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145901"><span class="annot"><a href="#local-6989586621679145901"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145900"><span class="annot"><a href="#local-6989586621679145900"><span class="hs-identifier hs-type">v</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679145899"><span class="annot"><a href="#local-6989586621679145899"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679145898"><span class="annot"><a href="#local-6989586621679145898"><span class="hs-identifier hs-type">aname</span></a></span></span><span> </span><span id="local-6989586621679145897"><span class="annot"><a href="#local-6989586621679145897"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span id="local-6989586621679145896"><span class="annot"><a href="#local-6989586621679145896"><span class="hs-identifier hs-type">p</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-173"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcMethodCall"><span class="hs-identifier hs-type">GRpcMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145896"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145902"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgStream</span></span><span> </span><span class="annot"><a href="#local-6989586621679145898"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145901"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145900"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetStream</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145901"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145899"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145897"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-174"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679145897"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">CompressMode</span></span><span>
|
||||
</span><span id="line-175"></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="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">ConduitT</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145901"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145901"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145900"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-176"></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcReply"><span class="hs-identifier hs-type">GRpcReply</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679145901"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679145901"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679145899"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-177"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Optics.html#MethodOptic"><span class="hs-identifier hs-type">MethodOptic</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145896"><span class="hs-identifier hs-type">p</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Method</span></span><span> </span><span class="annot"><a href="#local-6989586621679145902"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ArgStream</span></span><span> </span><span class="annot"><a href="#local-6989586621679145898"><span class="hs-identifier hs-type">aname</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145901"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145900"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">RetStream</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">SchemaRef</span></span><span> </span><span class="annot"><a href="#local-6989586621679145901"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679145899"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679145897"><span class="hs-identifier hs-type">t</span></a></span></span><span>
|
||||
</span><span id="line-178"></span></pre></body></html>
|
File diff suppressed because it is too large
Load Diff
@ -47,13 +47,13 @@ consult the <http://hackage.haskell.org/package/http2-client-grpc http2-clien
|
||||
</span><span id="line-47"></span><span class="hs-comment">-- * The resulting value is always wrapped in 'GRpcReply'.</span><span>
|
||||
</span><span id="line-48"></span><span class="hs-comment">-- * A single input or output turns into a single value.</span><span>
|
||||
</span><span id="line-49"></span><span class="hs-comment">-- * A streaming input or output turns into a Conduit.</span><span>
|
||||
</span><span id="line-50"></span><span class="annot"><a href="Mu.GRpc.Client.TyApps.html#gRpcCall"><span class="hs-identifier hs-type">gRpcCall</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146687"><span class="annot"><a href="#local-6989586621679146687"><span class="hs-identifier hs-type">pro</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GRpcMessageProtocol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146686"><span class="annot"><a href="#local-6989586621679146686"><span class="hs-identifier hs-type">pkg</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package'</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-51"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146684"><span class="annot"><a href="#local-6989586621679146684"><span class="hs-identifier hs-type">srvName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146683"><span class="annot"><a href="#local-6989586621679146683"><span class="hs-identifier hs-type">methodName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679146682"><span class="annot"><a href="#local-6989586621679146682"><span class="hs-identifier hs-type">h</span></a></span></span><span>
|
||||
</span><span id="line-52"></span><span> </span><span id="local-6989586621679146681"><span class="annot"><a href="#local-6989586621679146681"><span class="hs-identifier hs-type">pkgName</span></a></span></span><span> </span><span id="local-6989586621679146680"><span class="annot"><a href="#local-6989586621679146680"><span class="hs-identifier hs-type">services</span></a></span></span><span> </span><span id="local-6989586621679146679"><span class="annot"><a href="#local-6989586621679146679"><span class="hs-identifier hs-type">methods</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-53"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="#local-6989586621679146686"><span class="hs-identifier hs-type">pkg</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span>  </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679146681"><span class="hs-identifier hs-type">pkgName</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679146680"><span class="hs-identifier hs-type">services</span></a></span><span>
|
||||
</span><span id="line-54"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679146680"><span class="hs-identifier hs-type">services</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146684"><span class="hs-identifier hs-type">srvName</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679146684"><span class="hs-identifier hs-type">srvName</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146679"><span class="hs-identifier hs-type">methods</span></a></span><span>
|
||||
</span><span id="line-55"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcServiceMethodCall"><span class="hs-identifier hs-type">GRpcServiceMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146687"><span class="hs-identifier hs-type">pro</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146681"><span class="hs-identifier hs-type">pkgName</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146684"><span class="hs-identifier hs-type">srvName</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LookupMethod</span></span><span> </span><span class="annot"><a href="#local-6989586621679146679"><span class="hs-identifier hs-type">methods</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146683"><span class="hs-identifier hs-type">methodName</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679146682"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-56"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GrpcClient</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679146682"><span class="hs-identifier hs-type">h</span></a></span><span>
|
||||
</span><span id="line-50"></span><span class="annot"><a href="Mu.GRpc.Client.TyApps.html#gRpcCall"><span class="hs-identifier hs-type">gRpcCall</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146689"><span class="annot"><a href="#local-6989586621679146689"><span class="hs-identifier hs-type">pro</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">GRpcMessageProtocol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146688"><span class="annot"><a href="#local-6989586621679146688"><span class="hs-identifier hs-type">pkg</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Package'</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-51"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146686"><span class="annot"><a href="#local-6989586621679146686"><span class="hs-identifier hs-type">srvName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679146685"><span class="annot"><a href="#local-6989586621679146685"><span class="hs-identifier hs-type">methodName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679146684"><span class="annot"><a href="#local-6989586621679146684"><span class="hs-identifier hs-type">h</span></a></span></span><span>
|
||||
</span><span id="line-52"></span><span> </span><span id="local-6989586621679146683"><span class="annot"><a href="#local-6989586621679146683"><span class="hs-identifier hs-type">pkgName</span></a></span></span><span> </span><span id="local-6989586621679146682"><span class="annot"><a href="#local-6989586621679146682"><span class="hs-identifier hs-type">services</span></a></span></span><span> </span><span id="local-6989586621679146681"><span class="annot"><a href="#local-6989586621679146681"><span class="hs-identifier hs-type">methods</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-53"></span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="#local-6989586621679146688"><span class="hs-identifier hs-type">pkg</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span>  </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Package</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Just</span></span><span> </span><span class="annot"><a href="#local-6989586621679146683"><span class="hs-identifier hs-type">pkgName</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679146682"><span class="hs-identifier hs-type">services</span></a></span><span>
|
||||
</span><span id="line-54"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">LookupService</span></span><span> </span><span class="annot"><a href="#local-6989586621679146682"><span class="hs-identifier hs-type">services</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146686"><span class="hs-identifier hs-type">srvName</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Service</span></span><span> </span><span class="annot"><a href="#local-6989586621679146686"><span class="hs-identifier hs-type">srvName</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146681"><span class="hs-identifier hs-type">methods</span></a></span><span>
|
||||
</span><span id="line-55"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.GRpc.Client.Internal.html#GRpcServiceMethodCall"><span class="hs-identifier hs-type">GRpcServiceMethodCall</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146689"><span class="hs-identifier hs-type">pro</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146683"><span class="hs-identifier hs-type">pkgName</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146686"><span class="hs-identifier hs-type">srvName</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LookupMethod</span></span><span> </span><span class="annot"><a href="#local-6989586621679146681"><span class="hs-identifier hs-type">methods</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146685"><span class="hs-identifier hs-type">methodName</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679146684"><span class="hs-identifier hs-type">h</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-56"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">GrpcClient</span></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679146684"><span class="hs-identifier hs-type">h</span></a></span><span>
|
||||
</span><span id="line-57"></span><span id="gRpcCall"><span class="annot"><span class="annottext">gRpcCall :: GrpcClient -> h
|
||||
</span><a href="Mu.GRpc.Client.TyApps.html#gRpcCall"><span class="hs-identifier hs-var hs-var">gRpcCall</span></a></span></span><span>
|
||||
</span><span id="line-58"></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Proxy pro
|
||||
@ -68,12 +68,12 @@ GRpcServiceMethodCall p pkg s m h =>
|
||||
Proxy p -> Proxy pkg -> Proxy s -> Proxy m -> GrpcClient -> h
|
||||
</span><a href="Mu.GRpc.Client.Internal.html#gRpcServiceMethodCall"><span class="hs-identifier hs-var">gRpcServiceMethodCall</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy pro
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146687"><span class="hs-identifier hs-type">pro</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy pkgName
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146689"><span class="hs-identifier hs-type">pro</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy pkgName
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146681"><span class="hs-identifier hs-type">pkgName</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy srvName
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146683"><span class="hs-identifier hs-type">pkgName</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy srvName
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146684"><span class="hs-identifier hs-type">srvName</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679146686"><span class="hs-identifier hs-type">srvName</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-59"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy (LookupMethod methods methodName)
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LookupMethod</span></span><span> </span><span class="annot"><a href="#local-6989586621679146679"><span class="hs-identifier hs-type">methods</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146683"><span class="hs-identifier hs-type">methodName</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">LookupMethod</span></span><span> </span><span class="annot"><a href="#local-6989586621679146681"><span class="hs-identifier hs-type">methods</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679146685"><span class="hs-identifier hs-type">methodName</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-60"></span></pre></body></html>
|
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
File diff suppressed because one or more lines are too long
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -50,12 +50,12 @@ as values in the schema type.
|
||||
</span><span id="line-50"></span><span>
|
||||
</span><span id="line-51"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-identifier">Mu.Schema</span></span><span>
|
||||
</span><span id="line-52"></span><span>
|
||||
</span><span id="line-53"></span><span id="local-6989586621679047170"><span id="local-6989586621679047171"><span id="local-6989586621679047172"><span id="local-6989586621679047173"><span id="local-6989586621679047174"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.Schema.Optics.html#FieldLabel"><span class="hs-identifier hs-type">FieldLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047174"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047173"><span class="hs-identifier hs-type">args</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047172"><span class="hs-identifier hs-type">fieldName</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047171"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-54"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">LabelOptic</span></span><span> </span><span class="annot"><a href="#local-6989586621679047172"><span class="hs-identifier hs-type">fieldName</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">A_Lens</span></span><span>
|
||||
</span><span id="line-55"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047174"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DRecord</span></span><span> </span><span class="annot"><a href="#local-6989586621679047170"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047173"><span class="hs-identifier hs-type">args</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-56"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047174"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DRecord</span></span><span> </span><span class="annot"><a href="#local-6989586621679047170"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047173"><span class="hs-identifier hs-type">args</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-57"></span><span> </span><span class="annot"><a href="#local-6989586621679047171"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047171"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-58"></span><span> </span><span id="local-6989586621679047167"><span class="annot"><span class="annottext">labelOptic :: Optic
|
||||
</span><span id="line-53"></span><span id="local-6989586621679047171"><span id="local-6989586621679047172"><span id="local-6989586621679047173"><span id="local-6989586621679047174"><span id="local-6989586621679047175"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.Schema.Optics.html#FieldLabel"><span class="hs-identifier hs-type">FieldLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047175"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047174"><span class="hs-identifier hs-type">args</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047173"><span class="hs-identifier hs-type">fieldName</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047172"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-54"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">LabelOptic</span></span><span> </span><span class="annot"><a href="#local-6989586621679047173"><span class="hs-identifier hs-type">fieldName</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">A_Lens</span></span><span>
|
||||
</span><span id="line-55"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047175"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DRecord</span></span><span> </span><span class="annot"><a href="#local-6989586621679047171"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047174"><span class="hs-identifier hs-type">args</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-56"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047175"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DRecord</span></span><span> </span><span class="annot"><a href="#local-6989586621679047171"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047174"><span class="hs-identifier hs-type">args</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-57"></span><span> </span><span class="annot"><a href="#local-6989586621679047172"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047172"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-58"></span><span> </span><span id="local-6989586621679047168"><span class="annot"><span class="annottext">labelOptic :: Optic
|
||||
A_Lens
|
||||
NoIx
|
||||
(Term sch ('DRecord name args))
|
||||
@ -73,20 +73,20 @@ as values in the schema type.
|
||||
r
|
||||
r
|
||||
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
|
||||
</span><span class="hs-identifier hs-var">lens</span></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TRecord</span></span><span> </span><span id="local-6989586621679047163"><span class="annot"><span class="annottext">NP (Field sch) args
|
||||
</span><a href="#local-6989586621679047163"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Proxy fieldName -> NP (Field sch) args -> r
|
||||
</span><span class="hs-identifier hs-var">lens</span></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TRecord</span></span><span> </span><span id="local-6989586621679047164"><span class="annot"><span class="annottext">NP (Field sch) args
|
||||
</span><a href="#local-6989586621679047164"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Proxy fieldName -> NP (Field sch) args -> r
|
||||
forall (sch :: Schema Symbol Symbol)
|
||||
(args :: [FieldDef Symbol Symbol]) (fieldName :: Symbol) r.
|
||||
FieldLabel sch args fieldName r =>
|
||||
Proxy fieldName -> NP (Field sch) args -> r
|
||||
</span><a href="Mu.Schema.Optics.html#fieldLensGet"><span class="hs-identifier hs-var">fieldLensGet</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy fieldName
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679047172"><span class="hs-identifier hs-type">fieldName</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">NP (Field sch) args
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679047173"><span class="hs-identifier hs-type">fieldName</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">NP (Field sch) args
|
||||
NP (Field sch) args
|
||||
</span><a href="#local-6989586621679047163"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-59"></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TRecord</span></span><span> </span><span id="local-6989586621679047160"><span class="annot"><span class="annottext">NP (Field sch) args
|
||||
</span><a href="#local-6989586621679047160"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047159"><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047159"><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">NP (Field sch) args -> Term sch ('DRecord name args)
|
||||
</span><a href="#local-6989586621679047164"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-59"></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TRecord</span></span><span> </span><span id="local-6989586621679047161"><span class="annot"><span class="annottext">NP (Field sch) args
|
||||
</span><a href="#local-6989586621679047161"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047160"><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047160"><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">NP (Field sch) args -> Term sch ('DRecord name args)
|
||||
forall typeName fieldName (sch :: Schema typeName fieldName)
|
||||
(args :: [FieldDef typeName fieldName]) (name :: typeName).
|
||||
NP (Field sch) args -> Term sch ('DRecord name args)
|
||||
@ -100,19 +100,19 @@ FieldLabel sch args fieldName r =>
|
||||
Proxy fieldName -> NP (Field sch) args -> r -> NP (Field sch) args
|
||||
</span><a href="Mu.Schema.Optics.html#fieldLensSet"><span class="hs-identifier hs-var">fieldLensSet</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy fieldName
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679047172"><span class="hs-identifier hs-type">fieldName</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">NP (Field sch) args
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679047173"><span class="hs-identifier hs-type">fieldName</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">NP (Field sch) args
|
||||
NP (Field sch) args
|
||||
</span><a href="#local-6989586621679047160"><span class="hs-identifier hs-var">r</span></a></span><span> </span><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047159"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">)</span></span></span></span></span></span><span>
|
||||
</span><a href="#local-6989586621679047161"><span class="hs-identifier hs-var">r</span></a></span><span> </span><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047160"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">)</span></span></span></span></span></span><span>
|
||||
</span><span id="line-60"></span><span>
|
||||
</span><span id="line-61"></span><span class="hs-comment">-- | Build a Mu record 'Term' from a tuple of its values.</span><span>
|
||||
</span><span id="line-62"></span><span class="hs-comment">--</span><span>
|
||||
</span><span id="line-63"></span><span class="hs-comment">-- Note: if the record has exactly _one_ field,</span><span>
|
||||
</span><span id="line-64"></span><span class="hs-comment">-- you must use 'record1' instead.</span><span>
|
||||
</span><span id="line-65"></span><span id="local-6989586621679047154"><span id="local-6989586621679047155"><span id="local-6989586621679047156"><span id="local-6989586621679047157"><span class="annot"><a href="Mu.Schema.Optics.html#record"><span class="hs-identifier hs-type">record</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#BuildRecord"><span class="hs-identifier hs-type">BuildRecord</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047157"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047156"><span class="hs-identifier hs-type">args</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047155"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="#local-6989586621679047155"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047157"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DRecord</span></span><span> </span><span class="annot"><a href="#local-6989586621679047154"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047156"><span class="hs-identifier hs-type">args</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
|
||||
</span><span id="line-65"></span><span id="local-6989586621679047155"><span id="local-6989586621679047156"><span id="local-6989586621679047157"><span id="local-6989586621679047158"><span class="annot"><a href="Mu.Schema.Optics.html#record"><span class="hs-identifier hs-type">record</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#BuildRecord"><span class="hs-identifier hs-type">BuildRecord</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047158"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047157"><span class="hs-identifier hs-type">args</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047156"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="#local-6989586621679047156"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047158"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DRecord</span></span><span> </span><span class="annot"><a href="#local-6989586621679047155"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047157"><span class="hs-identifier hs-type">args</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
|
||||
</span><span id="line-66"></span><span id="record"><span class="annot"><span class="annottext">record :: r -> Term sch ('DRecord name args)
|
||||
</span><a href="Mu.Schema.Optics.html#record"><span class="hs-identifier hs-var hs-var">record</span></a></span></span><span> </span><span id="local-6989586621679047153"><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047153"><span class="hs-identifier hs-var">values</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">NP (Field sch) args -> Term sch ('DRecord name args)
|
||||
</span><a href="Mu.Schema.Optics.html#record"><span class="hs-identifier hs-var hs-var">record</span></a></span></span><span> </span><span id="local-6989586621679047154"><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047154"><span class="hs-identifier hs-var">values</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">NP (Field sch) args -> Term sch ('DRecord name args)
|
||||
forall typeName fieldName (sch :: Schema typeName fieldName)
|
||||
(args :: [FieldDef typeName fieldName]) (name :: typeName).
|
||||
NP (Field sch) args -> Term sch ('DRecord name args)
|
||||
@ -125,13 +125,13 @@ forall (sch :: Schema Symbol Symbol)
|
||||
BuildRecord sch args r =>
|
||||
r -> NP (Field sch) args
|
||||
</span><a href="Mu.Schema.Optics.html#buildR"><span class="hs-identifier hs-var">buildR</span></a></span><span> </span><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047153"><span class="hs-identifier hs-var">values</span></a></span><span>
|
||||
</span><a href="#local-6989586621679047154"><span class="hs-identifier hs-var">values</span></a></span><span>
|
||||
</span><span id="line-67"></span><span>
|
||||
</span><span id="line-68"></span><span class="hs-comment">-- | Build a Mu record 'Term' with exactly one field.</span><span>
|
||||
</span><span id="line-69"></span><span id="local-6989586621679047147"><span id="local-6989586621679047148"><span id="local-6989586621679047149"><span id="local-6989586621679047150"><span id="local-6989586621679047151"><span class="annot"><a href="Mu.Schema.Optics.html#record1"><span class="hs-identifier hs-type">record1</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047151"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047150"><span class="hs-identifier hs-type">t1</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047149"><span class="hs-identifier hs-type">r1</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="#local-6989586621679047149"><span class="hs-identifier hs-type">r1</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047151"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DRecord</span></span><span> </span><span class="annot"><a href="#local-6989586621679047148"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679047147"><span class="hs-identifier hs-type">x1</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047150"><span class="hs-identifier hs-type">t1</span></a></span><span> </span><span class="hs-special">]</span><span class="hs-special">)</span></span></span></span></span></span><span>
|
||||
</span><span id="line-69"></span><span id="local-6989586621679047148"><span id="local-6989586621679047149"><span id="local-6989586621679047150"><span id="local-6989586621679047151"><span id="local-6989586621679047152"><span class="annot"><a href="Mu.Schema.Optics.html#record1"><span class="hs-identifier hs-type">record1</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047152"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047151"><span class="hs-identifier hs-type">t1</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047150"><span class="hs-identifier hs-type">r1</span></a></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="#local-6989586621679047150"><span class="hs-identifier hs-type">r1</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047152"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DRecord</span></span><span> </span><span class="annot"><a href="#local-6989586621679047149"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679047148"><span class="hs-identifier hs-type">x1</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047151"><span class="hs-identifier hs-type">t1</span></a></span><span> </span><span class="hs-special">]</span><span class="hs-special">)</span></span></span></span></span></span><span>
|
||||
</span><span id="line-70"></span><span id="record1"><span class="annot"><span class="annottext">record1 :: r1 -> Term sch ('DRecord name '[ 'FieldDef x1 t1])
|
||||
</span><a href="Mu.Schema.Optics.html#record1"><span class="hs-identifier hs-var hs-var">record1</span></a></span></span><span> </span><span id="local-6989586621679047146"><span class="annot"><span class="annottext">r1
|
||||
</span><a href="#local-6989586621679047146"><span class="hs-identifier hs-var">value</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">NP (Field sch) '[ 'FieldDef x1 t1]
|
||||
</span><a href="Mu.Schema.Optics.html#record1"><span class="hs-identifier hs-var hs-var">record1</span></a></span></span><span> </span><span id="local-6989586621679047147"><span class="annot"><span class="annottext">r1
|
||||
</span><a href="#local-6989586621679047147"><span class="hs-identifier hs-var">value</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">NP (Field sch) '[ 'FieldDef x1 t1]
|
||||
-> Term sch ('DRecord name '[ 'FieldDef x1 t1])
|
||||
forall typeName fieldName (sch :: Schema typeName fieldName)
|
||||
(args :: [FieldDef typeName fieldName]) (name :: typeName).
|
||||
@ -150,7 +150,7 @@ forall (sch :: Schema Symbol Symbol) (t :: FieldType Symbol) r.
|
||||
TypeLabel sch t r =>
|
||||
r -> FieldValue sch t
|
||||
</span><a href="Mu.Schema.Optics.html#typeLensSet"><span class="hs-identifier hs-var">typeLensSet</span></a></span><span> </span><span class="annot"><span class="annottext">r1
|
||||
</span><a href="#local-6989586621679047146"><span class="hs-identifier hs-var">value</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Field sch ('FieldDef x1 t1)
|
||||
</span><a href="#local-6989586621679047147"><span class="hs-identifier hs-var">value</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Field sch ('FieldDef x1 t1)
|
||||
-> NP (Field sch) '[] -> NP (Field sch) '[ 'FieldDef x1 t1]
|
||||
forall k (a :: k -> *) (x :: k) (xs :: [k]).
|
||||
a x -> NP a xs -> NP a (x : xs)
|
||||
@ -158,24 +158,24 @@ a x -> NP a xs -> NP a (x : xs)
|
||||
forall k (a :: k -> *). NP a '[]
|
||||
</span><span class="hs-identifier hs-var">Nil</span></span><span>
|
||||
</span><span id="line-71"></span><span>
|
||||
</span><span id="line-72"></span><span class="hs-keyword">class</span><span> </span><span id="BuildRecord"><span class="annot"><a href="Mu.Schema.Optics.html#BuildRecord"><span class="hs-identifier hs-var">BuildRecord</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047423"><span class="annot"><a href="#local-6989586621679047423"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-73"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047422"><span class="annot"><a href="#local-6989586621679047422"><span class="hs-identifier hs-type">args</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-74"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047421"><span class="annot"><a href="#local-6989586621679047421"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="#local-6989586621679047423"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047422"><span class="hs-identifier hs-type">args</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679047421"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-75"></span><span> </span><span id="buildR"><span class="annot"><a href="Mu.Schema.Optics.html#buildR"><span class="hs-identifier hs-type">buildR</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679047421"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NP</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679047423"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047422"><span class="hs-identifier hs-type">args</span></a></span><span>
|
||||
</span><span id="line-72"></span><span class="hs-keyword">class</span><span> </span><span id="BuildRecord"><span class="annot"><a href="Mu.Schema.Optics.html#BuildRecord"><span class="hs-identifier hs-var">BuildRecord</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047424"><span class="annot"><a href="#local-6989586621679047424"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-73"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047423"><span class="annot"><a href="#local-6989586621679047423"><span class="hs-identifier hs-type">args</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-74"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047422"><span class="annot"><a href="#local-6989586621679047422"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="#local-6989586621679047424"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047423"><span class="hs-identifier hs-type">args</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679047422"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-75"></span><span> </span><span id="buildR"><span class="annot"><a href="Mu.Schema.Optics.html#buildR"><span class="hs-identifier hs-type">buildR</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679047422"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NP</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679047424"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047423"><span class="hs-identifier hs-type">args</span></a></span><span>
|
||||
</span><span id="line-76"></span><span>
|
||||
</span><span id="line-77"></span><span id="local-6989586621679047141"><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#BuildRecord"><span class="hs-identifier hs-type">BuildRecord</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047141"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-78"></span><span> </span><span id="local-6989586621679047138"><span class="annot"><span class="annottext">buildR :: () -> NP (Field sch) '[]
|
||||
</span><a href="#local-6989586621679047138"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildR</span></a></span></span><span> </span><span class="annot"><span class="annottext">()
|
||||
</span><span id="line-77"></span><span id="local-6989586621679047142"><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#BuildRecord"><span class="hs-identifier hs-type">BuildRecord</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047142"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-78"></span><span> </span><span id="local-6989586621679047139"><span class="annot"><span class="annottext">buildR :: () -> NP (Field sch) '[]
|
||||
</span><a href="#local-6989586621679047139"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildR</span></a></span></span><span> </span><span class="annot"><span class="annottext">()
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">NP (Field sch) '[]
|
||||
forall k (a :: k -> *). NP a '[]
|
||||
</span><span class="hs-identifier hs-var">Nil</span></span></span><span>
|
||||
</span><span id="line-79"></span><span>
|
||||
</span><span id="line-80"></span><span id="local-6989586621679047131"><span id="local-6989586621679047132"><span id="local-6989586621679047133"><span id="local-6989586621679047134"><span id="local-6989586621679047135"><span id="local-6989586621679047136"><span id="local-6989586621679047137"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047137"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047136"><span class="hs-identifier hs-type">t1</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047135"><span class="hs-identifier hs-type">r1</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047137"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047134"><span class="hs-identifier hs-type">t2</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047133"><span class="hs-identifier hs-type">r2</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-81"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#BuildRecord"><span class="hs-identifier hs-type">BuildRecord</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047137"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679047132"><span class="hs-identifier hs-type">x1</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047136"><span class="hs-identifier hs-type">t1</span></a></span><span class="hs-special">,</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679047131"><span class="hs-identifier hs-type">x2</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047134"><span class="hs-identifier hs-type">t2</span></a></span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047135"><span class="hs-identifier hs-type">r1</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679047133"><span class="hs-identifier hs-type">r2</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-82"></span><span> </span><span id="local-6989586621679047129"><span class="annot"><span class="annottext">buildR :: (r1, r2) -> NP (Field sch) '[ 'FieldDef x1 t1, 'FieldDef x2 t2]
|
||||
</span><a href="#local-6989586621679047129"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildR</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047128"><span class="annot"><span class="annottext">r1
|
||||
</span><a href="#local-6989586621679047128"><span class="hs-identifier hs-var">v1</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679047127"><span class="annot"><span class="annottext">r2
|
||||
</span><a href="#local-6989586621679047127"><span class="hs-identifier hs-var">v2</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FieldValue sch t1 -> Field sch ('FieldDef x1 t1)
|
||||
</span><span id="line-80"></span><span id="local-6989586621679047132"><span id="local-6989586621679047133"><span id="local-6989586621679047134"><span id="local-6989586621679047135"><span id="local-6989586621679047136"><span id="local-6989586621679047137"><span id="local-6989586621679047138"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047138"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047137"><span class="hs-identifier hs-type">t1</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047136"><span class="hs-identifier hs-type">r1</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047138"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047135"><span class="hs-identifier hs-type">t2</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047134"><span class="hs-identifier hs-type">r2</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-81"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#BuildRecord"><span class="hs-identifier hs-type">BuildRecord</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047138"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679047133"><span class="hs-identifier hs-type">x1</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047137"><span class="hs-identifier hs-type">t1</span></a></span><span class="hs-special">,</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679047132"><span class="hs-identifier hs-type">x2</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047135"><span class="hs-identifier hs-type">t2</span></a></span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047136"><span class="hs-identifier hs-type">r1</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679047134"><span class="hs-identifier hs-type">r2</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-82"></span><span> </span><span id="local-6989586621679047130"><span class="annot"><span class="annottext">buildR :: (r1, r2) -> NP (Field sch) '[ 'FieldDef x1 t1, 'FieldDef x2 t2]
|
||||
</span><a href="#local-6989586621679047130"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildR</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047129"><span class="annot"><span class="annottext">r1
|
||||
</span><a href="#local-6989586621679047129"><span class="hs-identifier hs-var">v1</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679047128"><span class="annot"><span class="annottext">r2
|
||||
</span><a href="#local-6989586621679047128"><span class="hs-identifier hs-var">v2</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FieldValue sch t1 -> Field sch ('FieldDef x1 t1)
|
||||
forall typeName fieldName (sch :: Schema typeName fieldName)
|
||||
(t :: FieldType typeName) (name :: fieldName).
|
||||
FieldValue sch t -> Field sch ('FieldDef name t)
|
||||
@ -184,7 +184,7 @@ forall (sch :: Schema Symbol Symbol) (t :: FieldType Symbol) r.
|
||||
TypeLabel sch t r =>
|
||||
r -> FieldValue sch t
|
||||
</span><a href="Mu.Schema.Optics.html#typeLensSet"><span class="hs-identifier hs-var">typeLensSet</span></a></span><span> </span><span class="annot"><span class="annottext">r1
|
||||
</span><a href="#local-6989586621679047128"><span class="hs-identifier hs-var">v1</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679047129"><span class="hs-identifier hs-var">v1</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-83"></span><span> </span><span class="annot"><span class="annottext">Field sch ('FieldDef x1 t1)
|
||||
-> NP (Field sch) '[ 'FieldDef x2 t2]
|
||||
-> NP (Field sch) '[ 'FieldDef x1 t1, 'FieldDef x2 t2]
|
||||
@ -199,7 +199,7 @@ forall (sch :: Schema Symbol Symbol) (t :: FieldType Symbol) r.
|
||||
TypeLabel sch t r =>
|
||||
r -> FieldValue sch t
|
||||
</span><a href="Mu.Schema.Optics.html#typeLensSet"><span class="hs-identifier hs-var">typeLensSet</span></a></span><span> </span><span class="annot"><span class="annottext">r2
|
||||
</span><a href="#local-6989586621679047127"><span class="hs-identifier hs-var">v2</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Field sch ('FieldDef x2 t2)
|
||||
</span><a href="#local-6989586621679047128"><span class="hs-identifier hs-var">v2</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Field sch ('FieldDef x2 t2)
|
||||
-> NP (Field sch) '[] -> NP (Field sch) '[ 'FieldDef x2 t2]
|
||||
forall k (a :: k -> *) (x :: k) (xs :: [k]).
|
||||
a x -> NP a xs -> NP a (x : xs)
|
||||
@ -207,16 +207,16 @@ a x -> NP a xs -> NP a (x : xs)
|
||||
forall k (a :: k -> *). NP a '[]
|
||||
</span><span class="hs-identifier hs-var">Nil</span></span></span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-84"></span><span>
|
||||
</span><span id="line-85"></span><span id="local-6989586621679047117"><span id="local-6989586621679047118"><span id="local-6989586621679047119"><span id="local-6989586621679047120"><span id="local-6989586621679047121"><span id="local-6989586621679047122"><span id="local-6989586621679047123"><span id="local-6989586621679047124"><span id="local-6989586621679047125"><span id="local-6989586621679047126"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047126"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047125"><span class="hs-identifier hs-type">t1</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047124"><span class="hs-identifier hs-type">r1</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047126"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047123"><span class="hs-identifier hs-type">t2</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047122"><span class="hs-identifier hs-type">r2</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047126"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047121"><span class="hs-identifier hs-type">t3</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047120"><span class="hs-identifier hs-type">r3</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-86"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#BuildRecord"><span class="hs-identifier hs-type">BuildRecord</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047126"><span class="hs-identifier hs-type">sch</span></a></span><span>
|
||||
</span><span id="line-87"></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679047119"><span class="hs-identifier hs-type">x1</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047125"><span class="hs-identifier hs-type">t1</span></a></span><span class="hs-special">,</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679047118"><span class="hs-identifier hs-type">x2</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047123"><span class="hs-identifier hs-type">t2</span></a></span><span class="hs-special">,</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679047117"><span class="hs-identifier hs-type">x3</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047121"><span class="hs-identifier hs-type">t3</span></a></span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047124"><span class="hs-identifier hs-type">r1</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679047122"><span class="hs-identifier hs-type">r2</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679047120"><span class="hs-identifier hs-type">r3</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-88"></span><span> </span><span id="local-6989586621679047115"><span class="annot"><span class="annottext">buildR :: (r1, r2, r3)
|
||||
</span><span id="line-85"></span><span id="local-6989586621679047118"><span id="local-6989586621679047119"><span id="local-6989586621679047120"><span id="local-6989586621679047121"><span id="local-6989586621679047122"><span id="local-6989586621679047123"><span id="local-6989586621679047124"><span id="local-6989586621679047125"><span id="local-6989586621679047126"><span id="local-6989586621679047127"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047127"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047126"><span class="hs-identifier hs-type">t1</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047125"><span class="hs-identifier hs-type">r1</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047127"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047124"><span class="hs-identifier hs-type">t2</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047123"><span class="hs-identifier hs-type">r2</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047127"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047122"><span class="hs-identifier hs-type">t3</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047121"><span class="hs-identifier hs-type">r3</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-86"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#BuildRecord"><span class="hs-identifier hs-type">BuildRecord</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047127"><span class="hs-identifier hs-type">sch</span></a></span><span>
|
||||
</span><span id="line-87"></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679047120"><span class="hs-identifier hs-type">x1</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047126"><span class="hs-identifier hs-type">t1</span></a></span><span class="hs-special">,</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679047119"><span class="hs-identifier hs-type">x2</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047124"><span class="hs-identifier hs-type">t2</span></a></span><span class="hs-special">,</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679047118"><span class="hs-identifier hs-type">x3</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047122"><span class="hs-identifier hs-type">t3</span></a></span><span> </span><span class="hs-special">]</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047125"><span class="hs-identifier hs-type">r1</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679047123"><span class="hs-identifier hs-type">r2</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679047121"><span class="hs-identifier hs-type">r3</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-88"></span><span> </span><span id="local-6989586621679047116"><span class="annot"><span class="annottext">buildR :: (r1, r2, r3)
|
||||
-> NP
|
||||
(Field sch) '[ 'FieldDef x1 t1, 'FieldDef x2 t2, 'FieldDef x3 t3]
|
||||
</span><a href="#local-6989586621679047115"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildR</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047114"><span class="annot"><span class="annottext">r1
|
||||
</span><a href="#local-6989586621679047114"><span class="hs-identifier hs-var">v1</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679047113"><span class="annot"><span class="annottext">r2
|
||||
</span><a href="#local-6989586621679047113"><span class="hs-identifier hs-var">v2</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679047112"><span class="annot"><span class="annottext">r3
|
||||
</span><a href="#local-6989586621679047112"><span class="hs-identifier hs-var">v3</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FieldValue sch t1 -> Field sch ('FieldDef x1 t1)
|
||||
</span><a href="#local-6989586621679047116"><span class="hs-identifier hs-var hs-var hs-var hs-var">buildR</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047115"><span class="annot"><span class="annottext">r1
|
||||
</span><a href="#local-6989586621679047115"><span class="hs-identifier hs-var">v1</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679047114"><span class="annot"><span class="annottext">r2
|
||||
</span><a href="#local-6989586621679047114"><span class="hs-identifier hs-var">v2</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679047113"><span class="annot"><span class="annottext">r3
|
||||
</span><a href="#local-6989586621679047113"><span class="hs-identifier hs-var">v3</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FieldValue sch t1 -> Field sch ('FieldDef x1 t1)
|
||||
forall typeName fieldName (sch :: Schema typeName fieldName)
|
||||
(t :: FieldType typeName) (name :: fieldName).
|
||||
FieldValue sch t -> Field sch ('FieldDef name t)
|
||||
@ -225,7 +225,7 @@ forall (sch :: Schema Symbol Symbol) (t :: FieldType Symbol) r.
|
||||
TypeLabel sch t r =>
|
||||
r -> FieldValue sch t
|
||||
</span><a href="Mu.Schema.Optics.html#typeLensSet"><span class="hs-identifier hs-var">typeLensSet</span></a></span><span> </span><span class="annot"><span class="annottext">r1
|
||||
</span><a href="#local-6989586621679047114"><span class="hs-identifier hs-var">v1</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679047115"><span class="hs-identifier hs-var">v1</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-89"></span><span> </span><span class="annot"><span class="annottext">Field sch ('FieldDef x1 t1)
|
||||
-> NP (Field sch) '[ 'FieldDef x2 t2, 'FieldDef x3 t3]
|
||||
-> NP
|
||||
@ -241,7 +241,7 @@ forall (sch :: Schema Symbol Symbol) (t :: FieldType Symbol) r.
|
||||
TypeLabel sch t r =>
|
||||
r -> FieldValue sch t
|
||||
</span><a href="Mu.Schema.Optics.html#typeLensSet"><span class="hs-identifier hs-var">typeLensSet</span></a></span><span> </span><span class="annot"><span class="annottext">r2
|
||||
</span><a href="#local-6989586621679047113"><span class="hs-identifier hs-var">v2</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679047114"><span class="hs-identifier hs-var">v2</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-90"></span><span> </span><span class="annot"><span class="annottext">Field sch ('FieldDef x2 t2)
|
||||
-> NP (Field sch) '[ 'FieldDef x3 t3]
|
||||
-> NP (Field sch) '[ 'FieldDef x2 t2, 'FieldDef x3 t3]
|
||||
@ -256,7 +256,7 @@ forall (sch :: Schema Symbol Symbol) (t :: FieldType Symbol) r.
|
||||
TypeLabel sch t r =>
|
||||
r -> FieldValue sch t
|
||||
</span><a href="Mu.Schema.Optics.html#typeLensSet"><span class="hs-identifier hs-var">typeLensSet</span></a></span><span> </span><span class="annot"><span class="annottext">r3
|
||||
</span><a href="#local-6989586621679047112"><span class="hs-identifier hs-var">v3</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Field sch ('FieldDef x3 t3)
|
||||
</span><a href="#local-6989586621679047113"><span class="hs-identifier hs-var">v3</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Field sch ('FieldDef x3 t3)
|
||||
-> NP (Field sch) '[] -> NP (Field sch) '[ 'FieldDef x3 t3]
|
||||
forall k (a :: k -> *) (x :: k) (xs :: [k]).
|
||||
a x -> NP a xs -> NP a (x : xs)
|
||||
@ -264,12 +264,12 @@ a x -> NP a xs -> NP a (x : xs)
|
||||
forall k (a :: k -> *). NP a '[]
|
||||
</span><span class="hs-identifier hs-var">Nil</span></span></span></span></span></span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-91"></span><span>
|
||||
</span><span id="line-92"></span><span class="hs-keyword">class</span><span> </span><span id="FieldLabel"><span class="annot"><a href="Mu.Schema.Optics.html#FieldLabel"><span class="hs-identifier hs-var">FieldLabel</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047442"><span class="annot"><a href="#local-6989586621679047442"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-93"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047441"><span class="annot"><a href="#local-6989586621679047441"><span class="hs-identifier hs-type">args</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-94"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047440"><span class="annot"><a href="#local-6989586621679047440"><span class="hs-identifier hs-type">fieldName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047439"><span class="annot"><a href="#local-6989586621679047439"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-95"></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="#local-6989586621679047442"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047441"><span class="hs-identifier hs-type">args</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047440"><span class="hs-identifier hs-type">fieldName</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679047439"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-96"></span><span> </span><span id="fieldLensGet"><span class="annot"><a href="Mu.Schema.Optics.html#fieldLensGet"><span class="hs-identifier hs-type">fieldLensGet</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679047440"><span class="hs-identifier hs-type">fieldName</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NP</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679047442"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047441"><span class="hs-identifier hs-type">args</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679047439"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-97"></span><span> </span><span id="fieldLensSet"><span class="annot"><a href="Mu.Schema.Optics.html#fieldLensSet"><span class="hs-identifier hs-type">fieldLensSet</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679047440"><span class="hs-identifier hs-type">fieldName</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NP</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679047442"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047441"><span class="hs-identifier hs-type">args</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679047439"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NP</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679047442"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047441"><span class="hs-identifier hs-type">args</span></a></span><span>
|
||||
</span><span id="line-92"></span><span class="hs-keyword">class</span><span> </span><span id="FieldLabel"><span class="annot"><a href="Mu.Schema.Optics.html#FieldLabel"><span class="hs-identifier hs-var">FieldLabel</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047443"><span class="annot"><a href="#local-6989586621679047443"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-93"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047442"><span class="annot"><a href="#local-6989586621679047442"><span class="hs-identifier hs-type">args</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-94"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047441"><span class="annot"><a href="#local-6989586621679047441"><span class="hs-identifier hs-type">fieldName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047440"><span class="annot"><a href="#local-6989586621679047440"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-95"></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="#local-6989586621679047443"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047442"><span class="hs-identifier hs-type">args</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047441"><span class="hs-identifier hs-type">fieldName</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679047440"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-96"></span><span> </span><span id="fieldLensGet"><span class="annot"><a href="Mu.Schema.Optics.html#fieldLensGet"><span class="hs-identifier hs-type">fieldLensGet</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679047441"><span class="hs-identifier hs-type">fieldName</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NP</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679047443"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047442"><span class="hs-identifier hs-type">args</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679047440"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-97"></span><span> </span><span id="fieldLensSet"><span class="annot"><a href="Mu.Schema.Optics.html#fieldLensSet"><span class="hs-identifier hs-type">fieldLensSet</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679047441"><span class="hs-identifier hs-type">fieldName</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NP</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679047443"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047442"><span class="hs-identifier hs-type">args</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679047440"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NP</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Field</span></span><span> </span><span class="annot"><a href="#local-6989586621679047443"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047442"><span class="hs-identifier hs-type">args</span></a></span><span>
|
||||
</span><span id="line-98"></span><span>
|
||||
</span><span id="line-99"></span><span class="hs-comment">{- Removed due to FunDeps
|
||||
instance TypeError ('Text "cannot find field " ':<>: 'ShowType f)
|
||||
@ -277,27 +277,27 @@ instance TypeError ('Text "cannot find field " ':<>: 'ShowType f
|
||||
fieldLensGet = error "this should never be run"
|
||||
fieldLensSet = error "this should never be run"
|
||||
-}</span><span>
|
||||
</span><span id="line-105"></span><span id="local-6989586621679047107"><span id="local-6989586621679047108"><span id="local-6989586621679047109"><span id="local-6989586621679047110"><span id="local-6989586621679047111"><span class="hs-keyword">instance</span><span> </span><span class="hs-pragma">{-# OVERLAPS</span><span> </span><span class="hs-pragma">#-}</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047111"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047110"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047109"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-106"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#FieldLabel"><span class="hs-identifier hs-type">FieldLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047111"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679047108"><span class="hs-identifier hs-type">f</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047110"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047107"><span class="hs-identifier hs-type">rest</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047108"><span class="hs-identifier hs-type">f</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047109"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-107"></span><span> </span><span id="local-6989586621679047103"><span class="annot"><span class="annottext">fieldLensGet :: Proxy f -> NP (Field sch) ('FieldDef f t : rest) -> r
|
||||
</span><a href="#local-6989586621679047103"><span class="hs-identifier hs-var hs-var hs-var hs-var">fieldLensGet</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy f
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Field</span></span><span> </span><span id="local-6989586621679047102"><span class="annot"><span class="annottext">FieldValue sch t
|
||||
</span><a href="#local-6989586621679047102"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="annot"><span class="hs-operator hs-type">:*</span></span><span> </span><span class="annot"><span class="annottext">NP (Field sch) xs
|
||||
</span><span id="line-105"></span><span id="local-6989586621679047108"><span id="local-6989586621679047109"><span id="local-6989586621679047110"><span id="local-6989586621679047111"><span id="local-6989586621679047112"><span class="hs-keyword">instance</span><span> </span><span class="hs-pragma">{-# OVERLAPS</span><span> </span><span class="hs-pragma">#-}</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047112"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047111"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047110"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-106"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#FieldLabel"><span class="hs-identifier hs-type">FieldLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047112"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">FieldDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679047109"><span class="hs-identifier hs-type">f</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047111"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047108"><span class="hs-identifier hs-type">rest</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047109"><span class="hs-identifier hs-type">f</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047110"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-107"></span><span> </span><span id="local-6989586621679047104"><span class="annot"><span class="annottext">fieldLensGet :: Proxy f -> NP (Field sch) ('FieldDef f t : rest) -> r
|
||||
</span><a href="#local-6989586621679047104"><span class="hs-identifier hs-var hs-var hs-var hs-var">fieldLensGet</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy f
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Field</span></span><span> </span><span id="local-6989586621679047103"><span class="annot"><span class="annottext">FieldValue sch t
|
||||
</span><a href="#local-6989586621679047103"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="annot"><span class="hs-operator hs-type">:*</span></span><span> </span><span class="annot"><span class="annottext">NP (Field sch) xs
|
||||
</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">FieldValue sch t -> r
|
||||
forall (sch :: Schema Symbol Symbol) (t :: FieldType Symbol) r.
|
||||
TypeLabel sch t r =>
|
||||
FieldValue sch t -> r
|
||||
</span><a href="Mu.Schema.Optics.html#typeLensGet"><span class="hs-identifier hs-var">typeLensGet</span></a></span><span> </span><span class="annot"><span class="annottext">FieldValue sch t
|
||||
</span><a href="#local-6989586621679047102"><span class="hs-identifier hs-var">x</span></a></span><span>
|
||||
</span><span id="line-108"></span><span> </span><span id="local-6989586621679047100"><span class="annot"><span class="annottext">fieldLensSet :: Proxy f
|
||||
</span><a href="#local-6989586621679047103"><span class="hs-identifier hs-var">x</span></a></span><span>
|
||||
</span><span id="line-108"></span><span> </span><span id="local-6989586621679047101"><span class="annot"><span class="annottext">fieldLensSet :: Proxy f
|
||||
-> NP (Field sch) ('FieldDef f t : rest)
|
||||
-> r
|
||||
-> NP (Field sch) ('FieldDef f t : rest)
|
||||
</span><a href="#local-6989586621679047100"><span class="hs-identifier hs-var hs-var hs-var hs-var">fieldLensSet</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy f
|
||||
</span><a href="#local-6989586621679047101"><span class="hs-identifier hs-var hs-var hs-var hs-var">fieldLensSet</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy f
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Field sch x
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="hs-operator hs-type">:*</span></span><span> </span><span id="local-6989586621679047099"><span class="annot"><span class="annottext">NP (Field sch) xs
|
||||
</span><a href="#local-6989586621679047099"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047098"><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047098"><span class="hs-identifier hs-var">new</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FieldValue sch t -> Field sch ('FieldDef f t)
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="hs-operator hs-type">:*</span></span><span> </span><span id="local-6989586621679047100"><span class="annot"><span class="annottext">NP (Field sch) xs
|
||||
</span><a href="#local-6989586621679047100"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047099"><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047099"><span class="hs-identifier hs-var">new</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FieldValue sch t -> Field sch ('FieldDef f t)
|
||||
forall typeName fieldName (sch :: Schema typeName fieldName)
|
||||
(t :: FieldType typeName) (name :: fieldName).
|
||||
FieldValue sch t -> Field sch ('FieldDef name t)
|
||||
@ -306,34 +306,34 @@ forall (sch :: Schema Symbol Symbol) (t :: FieldType Symbol) r.
|
||||
TypeLabel sch t r =>
|
||||
r -> FieldValue sch t
|
||||
</span><a href="Mu.Schema.Optics.html#typeLensSet"><span class="hs-identifier hs-var">typeLensSet</span></a></span><span> </span><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047098"><span class="hs-identifier hs-var">new</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Field sch ('FieldDef f t)
|
||||
</span><a href="#local-6989586621679047099"><span class="hs-identifier hs-var">new</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Field sch ('FieldDef f t)
|
||||
-> NP (Field sch) xs -> NP (Field sch) ('FieldDef f t : xs)
|
||||
forall k (a :: k -> *) (x :: k) (xs :: [k]).
|
||||
a x -> NP a xs -> NP a (x : xs)
|
||||
</span><span class="hs-operator hs-var">:*</span></span><span> </span><span class="annot"><span class="annottext">NP (Field sch) xs
|
||||
</span><a href="#local-6989586621679047099"><span class="hs-identifier hs-var">r</span></a></span></span></span></span></span></span><span>
|
||||
</span><span id="line-109"></span><span id="local-6989586621679047093"><span id="local-6989586621679047094"><span id="local-6989586621679047095"><span id="local-6989586621679047096"><span id="local-6989586621679047097"><span class="hs-keyword">instance</span><span> </span><span class="hs-pragma">{-# OVERLAPPABLE</span><span> </span><span class="hs-pragma">#-}</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#FieldLabel"><span class="hs-identifier hs-type">FieldLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047097"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047096"><span class="hs-identifier hs-type">rest</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047095"><span class="hs-identifier hs-type">g</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047094"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-110"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#FieldLabel"><span class="hs-identifier hs-type">FieldLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047097"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047093"><span class="hs-identifier hs-type">f</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047096"><span class="hs-identifier hs-type">rest</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047095"><span class="hs-identifier hs-type">g</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047094"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-111"></span><span> </span><span id="local-6989586621679047090"><span class="annot"><span class="annottext">fieldLensGet :: Proxy g -> NP (Field sch) (f : rest) -> t
|
||||
</span><a href="#local-6989586621679047090"><span class="hs-identifier hs-var hs-var hs-var hs-var">fieldLensGet</span></a></span></span><span> </span><span id="local-6989586621679047089"><span class="annot"><span class="annottext">Proxy g
|
||||
</span><a href="#local-6989586621679047089"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Field sch x
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="hs-operator hs-type">:*</span></span><span> </span><span id="local-6989586621679047088"><span class="annot"><span class="annottext">NP (Field sch) xs
|
||||
</span><a href="#local-6989586621679047088"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Proxy g -> NP (Field sch) xs -> t
|
||||
</span><a href="#local-6989586621679047100"><span class="hs-identifier hs-var">r</span></a></span></span></span></span></span></span><span>
|
||||
</span><span id="line-109"></span><span id="local-6989586621679047094"><span id="local-6989586621679047095"><span id="local-6989586621679047096"><span id="local-6989586621679047097"><span id="local-6989586621679047098"><span class="hs-keyword">instance</span><span> </span><span class="hs-pragma">{-# OVERLAPPABLE</span><span> </span><span class="hs-pragma">#-}</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#FieldLabel"><span class="hs-identifier hs-type">FieldLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047098"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047097"><span class="hs-identifier hs-type">rest</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047096"><span class="hs-identifier hs-type">g</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047095"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-110"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#FieldLabel"><span class="hs-identifier hs-type">FieldLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047098"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047094"><span class="hs-identifier hs-type">f</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047097"><span class="hs-identifier hs-type">rest</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047096"><span class="hs-identifier hs-type">g</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047095"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-111"></span><span> </span><span id="local-6989586621679047091"><span class="annot"><span class="annottext">fieldLensGet :: Proxy g -> NP (Field sch) (f : rest) -> t
|
||||
</span><a href="#local-6989586621679047091"><span class="hs-identifier hs-var hs-var hs-var hs-var">fieldLensGet</span></a></span></span><span> </span><span id="local-6989586621679047090"><span class="annot"><span class="annottext">Proxy g
|
||||
</span><a href="#local-6989586621679047090"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Field sch x
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="hs-operator hs-type">:*</span></span><span> </span><span id="local-6989586621679047089"><span class="annot"><span class="annottext">NP (Field sch) xs
|
||||
</span><a href="#local-6989586621679047089"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Proxy g -> NP (Field sch) xs -> t
|
||||
forall (sch :: Schema Symbol Symbol)
|
||||
(args :: [FieldDef Symbol Symbol]) (fieldName :: Symbol) r.
|
||||
FieldLabel sch args fieldName r =>
|
||||
Proxy fieldName -> NP (Field sch) args -> r
|
||||
</span><a href="Mu.Schema.Optics.html#fieldLensGet"><span class="hs-identifier hs-var">fieldLensGet</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy g
|
||||
</span><a href="#local-6989586621679047089"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">NP (Field sch) xs
|
||||
</span><a href="#local-6989586621679047088"><span class="hs-identifier hs-var">r</span></a></span><span>
|
||||
</span><span id="line-112"></span><span> </span><span id="local-6989586621679047087"><span class="annot"><span class="annottext">fieldLensSet :: Proxy g
|
||||
</span><a href="#local-6989586621679047090"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">NP (Field sch) xs
|
||||
</span><a href="#local-6989586621679047089"><span class="hs-identifier hs-var">r</span></a></span><span>
|
||||
</span><span id="line-112"></span><span> </span><span id="local-6989586621679047088"><span class="annot"><span class="annottext">fieldLensSet :: Proxy g
|
||||
-> NP (Field sch) (f : rest) -> t -> NP (Field sch) (f : rest)
|
||||
</span><a href="#local-6989586621679047087"><span class="hs-identifier hs-var hs-var hs-var hs-var">fieldLensSet</span></a></span></span><span> </span><span id="local-6989586621679047086"><span class="annot"><span class="annottext">Proxy g
|
||||
</span><a href="#local-6989586621679047086"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047085"><span class="annot"><span class="annottext">Field sch x
|
||||
</span><a href="#local-6989586621679047085"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="annot"><span class="hs-operator hs-type">:*</span></span><span> </span><span id="local-6989586621679047084"><span class="annot"><span class="annottext">NP (Field sch) xs
|
||||
</span><a href="#local-6989586621679047084"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047083"><span class="annot"><span class="annottext">t
|
||||
</span><a href="#local-6989586621679047083"><span class="hs-identifier hs-var">new</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Field sch x
|
||||
</span><a href="#local-6989586621679047085"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Field sch x -> NP (Field sch) xs -> NP (Field sch) (x : xs)
|
||||
</span><a href="#local-6989586621679047088"><span class="hs-identifier hs-var hs-var hs-var hs-var">fieldLensSet</span></a></span></span><span> </span><span id="local-6989586621679047087"><span class="annot"><span class="annottext">Proxy g
|
||||
</span><a href="#local-6989586621679047087"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047086"><span class="annot"><span class="annottext">Field sch x
|
||||
</span><a href="#local-6989586621679047086"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="annot"><span class="hs-operator hs-type">:*</span></span><span> </span><span id="local-6989586621679047085"><span class="annot"><span class="annottext">NP (Field sch) xs
|
||||
</span><a href="#local-6989586621679047085"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047084"><span class="annot"><span class="annottext">t
|
||||
</span><a href="#local-6989586621679047084"><span class="hs-identifier hs-var">new</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Field sch x
|
||||
</span><a href="#local-6989586621679047086"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Field sch x -> NP (Field sch) xs -> NP (Field sch) (x : xs)
|
||||
forall k (a :: k -> *) (x :: k) (xs :: [k]).
|
||||
a x -> NP a xs -> NP a (x : xs)
|
||||
</span><span class="hs-operator hs-var">:*</span></span><span> </span><span class="annot"><span class="annottext">Proxy g -> NP (Field sch) xs -> t -> NP (Field sch) xs
|
||||
@ -342,55 +342,55 @@ forall (sch :: Schema Symbol Symbol)
|
||||
FieldLabel sch args fieldName r =>
|
||||
Proxy fieldName -> NP (Field sch) args -> r -> NP (Field sch) args
|
||||
</span><a href="Mu.Schema.Optics.html#fieldLensSet"><span class="hs-identifier hs-var">fieldLensSet</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy g
|
||||
</span><a href="#local-6989586621679047086"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">NP (Field sch) xs
|
||||
</span><a href="#local-6989586621679047084"><span class="hs-identifier hs-var">r</span></a></span><span> </span><span class="annot"><span class="annottext">t
|
||||
</span><a href="#local-6989586621679047083"><span class="hs-identifier hs-var">new</span></a></span></span></span></span></span></span><span>
|
||||
</span><a href="#local-6989586621679047087"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">NP (Field sch) xs
|
||||
</span><a href="#local-6989586621679047085"><span class="hs-identifier hs-var">r</span></a></span><span> </span><span class="annot"><span class="annottext">t
|
||||
</span><a href="#local-6989586621679047084"><span class="hs-identifier hs-var">new</span></a></span></span></span></span></span></span><span>
|
||||
</span><span id="line-113"></span><span>
|
||||
</span><span id="line-114"></span><span class="hs-keyword">class</span><span> </span><span id="TypeLabel"><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-var">TypeLabel</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047406"><span class="annot"><a href="#local-6989586621679047406"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047405"><span class="annot"><a href="#local-6989586621679047405"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">FieldType</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047404"><span class="annot"><a href="#local-6989586621679047404"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-115"></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="#local-6989586621679047406"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047405"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679047404"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-116"></span><span> </span><span id="typeLensGet"><span class="annot"><a href="Mu.Schema.Optics.html#typeLensGet"><span class="hs-identifier hs-type">typeLensGet</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047406"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047405"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679047404"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-117"></span><span> </span><span id="typeLensSet"><span class="annot"><a href="Mu.Schema.Optics.html#typeLensSet"><span class="hs-identifier hs-type">typeLensSet</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679047404"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047406"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047405"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-114"></span><span class="hs-keyword">class</span><span> </span><span id="TypeLabel"><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-var">TypeLabel</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047407"><span class="annot"><a href="#local-6989586621679047407"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047406"><span class="annot"><a href="#local-6989586621679047406"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">FieldType</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047405"><span class="annot"><a href="#local-6989586621679047405"><span class="hs-identifier hs-type">r</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Type</span></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-115"></span><span> </span><span class="hs-glyph">|</span><span> </span><span class="annot"><a href="#local-6989586621679047407"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047406"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679047405"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-116"></span><span> </span><span id="typeLensGet"><span class="annot"><a href="Mu.Schema.Optics.html#typeLensGet"><span class="hs-identifier hs-type">typeLensGet</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047407"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047406"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><a href="#local-6989586621679047405"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-117"></span><span> </span><span id="typeLensSet"><span class="annot"><a href="Mu.Schema.Optics.html#typeLensSet"><span class="hs-identifier hs-type">typeLensSet</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="#local-6989586621679047405"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047407"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047406"><span class="hs-identifier hs-type">t</span></a></span><span>
|
||||
</span><span id="line-118"></span><span>
|
||||
</span><span id="line-119"></span><span id="local-6989586621679047081"><span id="local-6989586621679047082"><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047082"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TPrimitive</span></span><span> </span><span class="annot"><a href="#local-6989586621679047081"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047081"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-120"></span><span> </span><span id="local-6989586621679047077"><span class="annot"><span class="annottext">typeLensGet :: FieldValue sch ('TPrimitive t) -> t
|
||||
</span><a href="#local-6989586621679047077"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensGet</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FPrimitive</span></span><span> </span><span id="local-6989586621679047075"><span class="annot"><span class="annottext">t1
|
||||
</span><a href="#local-6989586621679047075"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">t
|
||||
</span><span id="line-119"></span><span id="local-6989586621679047082"><span id="local-6989586621679047083"><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047083"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TPrimitive</span></span><span> </span><span class="annot"><a href="#local-6989586621679047082"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047082"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-120"></span><span> </span><span id="local-6989586621679047078"><span class="annot"><span class="annottext">typeLensGet :: FieldValue sch ('TPrimitive t) -> t
|
||||
</span><a href="#local-6989586621679047078"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensGet</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FPrimitive</span></span><span> </span><span id="local-6989586621679047076"><span class="annot"><span class="annottext">t1
|
||||
</span><a href="#local-6989586621679047076"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">t
|
||||
t1
|
||||
</span><a href="#local-6989586621679047075"><span class="hs-identifier hs-var">x</span></a></span><span>
|
||||
</span><span id="line-121"></span><span> </span><span id="local-6989586621679047074"><span class="annot"><span class="annottext">typeLensSet :: t -> FieldValue sch ('TPrimitive t)
|
||||
</span><a href="#local-6989586621679047074"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensSet</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">t -> FieldValue sch ('TPrimitive t)
|
||||
</span><a href="#local-6989586621679047076"><span class="hs-identifier hs-var">x</span></a></span><span>
|
||||
</span><span id="line-121"></span><span> </span><span id="local-6989586621679047075"><span class="annot"><span class="annottext">typeLensSet :: t -> FieldValue sch ('TPrimitive t)
|
||||
</span><a href="#local-6989586621679047075"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensSet</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">t -> FieldValue sch ('TPrimitive t)
|
||||
forall typeName fieldName t1 (sch :: Schema typeName fieldName).
|
||||
t1 -> FieldValue sch ('TPrimitive t1)
|
||||
</span><span class="hs-identifier hs-var">FPrimitive</span></span></span></span><span>
|
||||
</span><span id="line-122"></span><span>
|
||||
</span><span id="line-123"></span><span id="local-6989586621679047071"><span id="local-6989586621679047072"><span id="local-6989586621679047073"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047073"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047072"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679047071"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047072"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TSchematic</span></span><span> </span><span class="annot"><a href="#local-6989586621679047071"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047072"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047073"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-124"></span><span> </span><span id="local-6989586621679047068"><span class="annot"><span class="annottext">typeLensGet :: FieldValue sch ('TSchematic t) -> Term sch r
|
||||
</span><a href="#local-6989586621679047068"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensGet</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FSchematic</span></span><span> </span><span id="local-6989586621679047066"><span class="annot"><span class="annottext">Term sch (sch :/: t1)
|
||||
</span><a href="#local-6989586621679047066"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Term sch r
|
||||
</span><span id="line-123"></span><span id="local-6989586621679047072"><span id="local-6989586621679047073"><span id="local-6989586621679047074"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047074"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047073"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><span class="hs-operator hs-type">:/:</span></span><span> </span><span class="annot"><a href="#local-6989586621679047072"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047073"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TSchematic</span></span><span> </span><span class="annot"><a href="#local-6989586621679047072"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047073"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047074"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-124"></span><span> </span><span id="local-6989586621679047069"><span class="annot"><span class="annottext">typeLensGet :: FieldValue sch ('TSchematic t) -> Term sch r
|
||||
</span><a href="#local-6989586621679047069"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensGet</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FSchematic</span></span><span> </span><span id="local-6989586621679047067"><span class="annot"><span class="annottext">Term sch (sch :/: t1)
|
||||
</span><a href="#local-6989586621679047067"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Term sch r
|
||||
Term sch (sch :/: t1)
|
||||
</span><a href="#local-6989586621679047066"><span class="hs-identifier hs-var">x</span></a></span><span>
|
||||
</span><span id="line-125"></span><span> </span><span id="local-6989586621679047065"><span class="annot"><span class="annottext">typeLensSet :: Term sch r -> FieldValue sch ('TSchematic t)
|
||||
</span><a href="#local-6989586621679047065"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensSet</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Term sch r -> FieldValue sch ('TSchematic t)
|
||||
</span><a href="#local-6989586621679047067"><span class="hs-identifier hs-var">x</span></a></span><span>
|
||||
</span><span id="line-125"></span><span> </span><span id="local-6989586621679047066"><span class="annot"><span class="annottext">typeLensSet :: Term sch r -> FieldValue sch ('TSchematic t)
|
||||
</span><a href="#local-6989586621679047066"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensSet</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Term sch r -> FieldValue sch ('TSchematic t)
|
||||
forall typeName fieldName (sch :: Schema typeName fieldName)
|
||||
(t1 :: typeName).
|
||||
Term sch (sch :/: t1) -> FieldValue sch ('TSchematic t1)
|
||||
</span><span class="hs-identifier hs-var">FSchematic</span></span></span></span></span><span>
|
||||
</span><span id="line-126"></span><span>
|
||||
</span><span id="line-127"></span><span id="local-6989586621679047061"><span id="local-6989586621679047062"><span id="local-6989586621679047063"><span id="local-6989586621679047064"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047064"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047063"><span class="hs-identifier hs-type">o</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047062"><span class="hs-identifier hs-type">r'</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679047061"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Maybe</span></span><span> </span><span class="annot"><a href="#local-6989586621679047062"><span class="hs-identifier hs-type">r'</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-128"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047064"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TOption</span></span><span> </span><span class="annot"><a href="#local-6989586621679047063"><span class="hs-identifier hs-type">o</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047061"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-129"></span><span> </span><span id="local-6989586621679047058"><span class="annot"><span class="annottext">typeLensGet :: FieldValue sch ('TOption o) -> r
|
||||
</span><a href="#local-6989586621679047058"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensGet</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FOption</span></span><span> </span><span id="local-6989586621679047056"><span class="annot"><span class="annottext">Maybe (FieldValue sch t1)
|
||||
</span><a href="#local-6989586621679047056"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FieldValue sch t1 -> r'
|
||||
</span><span id="line-127"></span><span id="local-6989586621679047062"><span id="local-6989586621679047063"><span id="local-6989586621679047064"><span id="local-6989586621679047065"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047065"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047064"><span class="hs-identifier hs-type">o</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047063"><span class="hs-identifier hs-type">r'</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679047062"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Maybe</span></span><span> </span><span class="annot"><a href="#local-6989586621679047063"><span class="hs-identifier hs-type">r'</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-128"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047065"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TOption</span></span><span> </span><span class="annot"><a href="#local-6989586621679047064"><span class="hs-identifier hs-type">o</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047062"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-129"></span><span> </span><span id="local-6989586621679047059"><span class="annot"><span class="annottext">typeLensGet :: FieldValue sch ('TOption o) -> r
|
||||
</span><a href="#local-6989586621679047059"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensGet</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FOption</span></span><span> </span><span id="local-6989586621679047057"><span class="annot"><span class="annottext">Maybe (FieldValue sch t1)
|
||||
</span><a href="#local-6989586621679047057"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FieldValue sch t1 -> r'
|
||||
forall (sch :: Schema Symbol Symbol) (t :: FieldType Symbol) r.
|
||||
TypeLabel sch t r =>
|
||||
FieldValue sch t -> r
|
||||
</span><a href="Mu.Schema.Optics.html#typeLensGet"><span class="hs-identifier hs-var">typeLensGet</span></a></span><span> </span><span class="annot"><span class="annottext">(FieldValue sch t1 -> r') -> Maybe (FieldValue sch t1) -> Maybe r'
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="annot"><span class="annottext">Maybe (FieldValue sch t1)
|
||||
</span><a href="#local-6989586621679047056"><span class="hs-identifier hs-var">x</span></a></span><span>
|
||||
</span><span id="line-130"></span><span> </span><span id="local-6989586621679047054"><span class="annot"><span class="annottext">typeLensSet :: r -> FieldValue sch ('TOption o)
|
||||
</span><a href="#local-6989586621679047054"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensSet</span></a></span></span><span> </span><span id="local-6989586621679047053"><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047053"><span class="hs-identifier hs-var">new</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe (FieldValue sch o) -> FieldValue sch ('TOption o)
|
||||
</span><a href="#local-6989586621679047057"><span class="hs-identifier hs-var">x</span></a></span><span>
|
||||
</span><span id="line-130"></span><span> </span><span id="local-6989586621679047055"><span class="annot"><span class="annottext">typeLensSet :: r -> FieldValue sch ('TOption o)
|
||||
</span><a href="#local-6989586621679047055"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensSet</span></a></span></span><span> </span><span id="local-6989586621679047054"><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047054"><span class="hs-identifier hs-var">new</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe (FieldValue sch o) -> FieldValue sch ('TOption o)
|
||||
forall typeName fieldName (sch :: Schema typeName fieldName)
|
||||
(t1 :: FieldType typeName).
|
||||
Maybe (FieldValue sch t1) -> FieldValue sch ('TOption t1)
|
||||
@ -402,23 +402,23 @@ r -> FieldValue sch t
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="annot"><span class="annottext">r
|
||||
Maybe r'
|
||||
</span><a href="#local-6989586621679047053"><span class="hs-identifier hs-var">new</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
|
||||
</span><a href="#local-6989586621679047054"><span class="hs-identifier hs-var">new</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
|
||||
</span><span id="line-131"></span><span>
|
||||
</span><span id="line-132"></span><span id="local-6989586621679047049"><span id="local-6989586621679047050"><span id="local-6989586621679047051"><span id="local-6989586621679047052"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047052"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047051"><span class="hs-identifier hs-type">o</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047050"><span class="hs-identifier hs-type">r'</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679047049"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="#local-6989586621679047050"><span class="hs-identifier hs-type">r'</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-133"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047052"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TList</span></span><span> </span><span class="annot"><a href="#local-6989586621679047051"><span class="hs-identifier hs-type">o</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047049"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-134"></span><span> </span><span id="local-6989586621679047046"><span class="annot"><span class="annottext">typeLensGet :: FieldValue sch ('TList o) -> r
|
||||
</span><a href="#local-6989586621679047046"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensGet</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FList</span></span><span> </span><span id="local-6989586621679047044"><span class="annot"><span class="annottext">[FieldValue sch t1]
|
||||
</span><a href="#local-6989586621679047044"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FieldValue sch t1 -> r'
|
||||
</span><span id="line-132"></span><span id="local-6989586621679047050"><span id="local-6989586621679047051"><span id="local-6989586621679047052"><span id="local-6989586621679047053"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047053"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047052"><span class="hs-identifier hs-type">o</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047051"><span class="hs-identifier hs-type">r'</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679047050"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="#local-6989586621679047051"><span class="hs-identifier hs-type">r'</span></a></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-133"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047053"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TList</span></span><span> </span><span class="annot"><a href="#local-6989586621679047052"><span class="hs-identifier hs-type">o</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047050"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-134"></span><span> </span><span id="local-6989586621679047047"><span class="annot"><span class="annottext">typeLensGet :: FieldValue sch ('TList o) -> r
|
||||
</span><a href="#local-6989586621679047047"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensGet</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FList</span></span><span> </span><span id="local-6989586621679047045"><span class="annot"><span class="annottext">[FieldValue sch t1]
|
||||
</span><a href="#local-6989586621679047045"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FieldValue sch t1 -> r'
|
||||
forall (sch :: Schema Symbol Symbol) (t :: FieldType Symbol) r.
|
||||
TypeLabel sch t r =>
|
||||
FieldValue sch t -> r
|
||||
</span><a href="Mu.Schema.Optics.html#typeLensGet"><span class="hs-identifier hs-var">typeLensGet</span></a></span><span> </span><span class="annot"><span class="annottext">(FieldValue sch t1 -> r') -> [FieldValue sch t1] -> [r']
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="annot"><span class="annottext">[FieldValue sch t1]
|
||||
</span><a href="#local-6989586621679047044"><span class="hs-identifier hs-var">x</span></a></span><span>
|
||||
</span><span id="line-135"></span><span> </span><span id="local-6989586621679047043"><span class="annot"><span class="annottext">typeLensSet :: r -> FieldValue sch ('TList o)
|
||||
</span><a href="#local-6989586621679047043"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensSet</span></a></span></span><span> </span><span id="local-6989586621679047042"><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047042"><span class="hs-identifier hs-var">new</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[FieldValue sch o] -> FieldValue sch ('TList o)
|
||||
</span><a href="#local-6989586621679047045"><span class="hs-identifier hs-var">x</span></a></span><span>
|
||||
</span><span id="line-135"></span><span> </span><span id="local-6989586621679047044"><span class="annot"><span class="annottext">typeLensSet :: r -> FieldValue sch ('TList o)
|
||||
</span><a href="#local-6989586621679047044"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensSet</span></a></span></span><span> </span><span id="local-6989586621679047043"><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047043"><span class="hs-identifier hs-var">new</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[FieldValue sch o] -> FieldValue sch ('TList o)
|
||||
forall typeName fieldName (sch :: Schema typeName fieldName)
|
||||
(t1 :: FieldType typeName).
|
||||
[FieldValue sch t1] -> FieldValue sch ('TList t1)
|
||||
@ -430,14 +430,14 @@ r -> FieldValue sch t
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="annot"><span class="annottext">r
|
||||
[r']
|
||||
</span><a href="#local-6989586621679047042"><span class="hs-identifier hs-var">new</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
|
||||
</span><a href="#local-6989586621679047043"><span class="hs-identifier hs-var">new</span></a></span><span class="hs-special">)</span></span></span></span></span><span>
|
||||
</span><span id="line-136"></span><span>
|
||||
</span><span id="line-137"></span><span id="local-6989586621679047036"><span id="local-6989586621679047037"><span id="local-6989586621679047038"><span id="local-6989586621679047039"><span id="local-6989586621679047040"><span id="local-6989586621679047041"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047041"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047040"><span class="hs-identifier hs-type">k</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047039"><span class="hs-identifier hs-type">k'</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047041"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047038"><span class="hs-identifier hs-type">v</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047037"><span class="hs-identifier hs-type">v'</span></a></span><span>
|
||||
</span><span id="line-138"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679047036"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Map</span></span><span> </span><span class="annot"><a href="#local-6989586621679047039"><span class="hs-identifier hs-type">k'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047037"><span class="hs-identifier hs-type">v'</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Ord</span></span><span> </span><span class="annot"><a href="#local-6989586621679047039"><span class="hs-identifier hs-type">k'</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Ord</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047041"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047040"><span class="hs-identifier hs-type">k</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-139"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047041"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TMap</span></span><span> </span><span class="annot"><a href="#local-6989586621679047040"><span class="hs-identifier hs-type">k</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047038"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047036"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-140"></span><span> </span><span id="local-6989586621679047033"><span class="annot"><span class="annottext">typeLensGet :: FieldValue sch ('TMap k v) -> r
|
||||
</span><a href="#local-6989586621679047033"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensGet</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FMap</span></span><span> </span><span id="local-6989586621679047031"><span class="annot"><span class="annottext">Map (FieldValue sch k) (FieldValue sch v)
|
||||
</span><a href="#local-6989586621679047031"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FieldValue sch k -> k') -> Map (FieldValue sch k) v' -> Map k' v'
|
||||
</span><span id="line-137"></span><span id="local-6989586621679047037"><span id="local-6989586621679047038"><span id="local-6989586621679047039"><span id="local-6989586621679047040"><span id="local-6989586621679047041"><span id="local-6989586621679047042"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047042"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047041"><span class="hs-identifier hs-type">k</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047040"><span class="hs-identifier hs-type">k'</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047042"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047039"><span class="hs-identifier hs-type">v</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047038"><span class="hs-identifier hs-type">v'</span></a></span><span>
|
||||
</span><span id="line-138"></span><span> </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679047037"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Map</span></span><span> </span><span class="annot"><a href="#local-6989586621679047040"><span class="hs-identifier hs-type">k'</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047038"><span class="hs-identifier hs-type">v'</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Ord</span></span><span> </span><span class="annot"><a href="#local-6989586621679047040"><span class="hs-identifier hs-type">k'</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Ord</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047042"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047041"><span class="hs-identifier hs-type">k</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-139"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047042"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TMap</span></span><span> </span><span class="annot"><a href="#local-6989586621679047041"><span class="hs-identifier hs-type">k</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047039"><span class="hs-identifier hs-type">v</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047037"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-140"></span><span> </span><span id="local-6989586621679047034"><span class="annot"><span class="annottext">typeLensGet :: FieldValue sch ('TMap k v) -> r
|
||||
</span><a href="#local-6989586621679047034"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensGet</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FMap</span></span><span> </span><span id="local-6989586621679047032"><span class="annot"><span class="annottext">Map (FieldValue sch k) (FieldValue sch v)
|
||||
</span><a href="#local-6989586621679047032"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(FieldValue sch k -> k') -> Map (FieldValue sch k) v' -> Map k' v'
|
||||
forall k2 k1 a. Ord k2 => (k1 -> k2) -> Map k1 a -> Map k2 a
|
||||
</span><span class="hs-identifier hs-var">mapKeys</span></span><span> </span><span class="annot"><span class="annottext">FieldValue sch k -> k'
|
||||
forall (sch :: Schema Symbol Symbol) (t :: FieldType Symbol) r.
|
||||
@ -452,10 +452,10 @@ FieldValue sch t -> r
|
||||
-> Map (FieldValue sch k) v'
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="annot"><span class="annottext">Map (FieldValue sch k) (FieldValue sch v)
|
||||
</span><a href="#local-6989586621679047031"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-141"></span><span> </span><span id="local-6989586621679047029"><span class="annot"><span class="annottext">typeLensSet :: r -> FieldValue sch ('TMap k v)
|
||||
</span><a href="#local-6989586621679047029"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensSet</span></a></span></span><span> </span><span id="local-6989586621679047028"><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047028"><span class="hs-identifier hs-var">new</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Map (FieldValue sch k) (FieldValue sch v)
|
||||
</span><a href="#local-6989586621679047032"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-141"></span><span> </span><span id="local-6989586621679047030"><span class="annot"><span class="annottext">typeLensSet :: r -> FieldValue sch ('TMap k v)
|
||||
</span><a href="#local-6989586621679047030"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensSet</span></a></span></span><span> </span><span id="local-6989586621679047029"><span class="annot"><span class="annottext">r
|
||||
</span><a href="#local-6989586621679047029"><span class="hs-identifier hs-var">new</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Map (FieldValue sch k) (FieldValue sch v)
|
||||
-> FieldValue sch ('TMap k v)
|
||||
forall typeName fieldName (sch :: Schema typeName fieldName)
|
||||
(k :: FieldType typeName) (v :: FieldType typeName).
|
||||
@ -478,26 +478,26 @@ r -> FieldValue sch t
|
||||
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
|
||||
</span><span class="hs-operator hs-var"><$></span></span><span> </span><span class="annot"><span class="annottext">r
|
||||
Map k' v'
|
||||
</span><a href="#local-6989586621679047028"><span class="hs-identifier hs-var">new</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span></span></span></span></span></span></span><span>
|
||||
</span><a href="#local-6989586621679047029"><span class="hs-identifier hs-var">new</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span></span></span></span></span></span></span><span>
|
||||
</span><span id="line-142"></span><span>
|
||||
</span><span id="line-143"></span><span id="local-6989586621679047025"><span id="local-6989586621679047026"><span id="local-6989586621679047027"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047027"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047026"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047025"><span class="hs-identifier hs-type">choices</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-144"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047026"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TUnion</span></span><span> </span><span class="annot"><a href="#local-6989586621679047025"><span class="hs-identifier hs-type">choices</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047027"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-145"></span><span> </span><span id="local-6989586621679047022"><span class="annot"><span class="annottext">typeLensGet :: FieldValue sch ('TUnion choices) -> r
|
||||
</span><a href="#local-6989586621679047022"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensGet</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FUnion</span></span><span> </span><span id="local-6989586621679047020"><span class="annot"><span class="annottext">NS (FieldValue sch) choices
|
||||
</span><a href="#local-6989586621679047020"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">r
|
||||
</span><span id="line-143"></span><span id="local-6989586621679047026"><span id="local-6989586621679047027"><span id="local-6989586621679047028"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047028"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047027"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047026"><span class="hs-identifier hs-type">choices</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-144"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047027"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">TUnion</span></span><span> </span><span class="annot"><a href="#local-6989586621679047026"><span class="hs-identifier hs-type">choices</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047028"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-145"></span><span> </span><span id="local-6989586621679047023"><span class="annot"><span class="annottext">typeLensGet :: FieldValue sch ('TUnion choices) -> r
|
||||
</span><a href="#local-6989586621679047023"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensGet</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FUnion</span></span><span> </span><span id="local-6989586621679047021"><span class="annot"><span class="annottext">NS (FieldValue sch) choices
|
||||
</span><a href="#local-6989586621679047021"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">r
|
||||
NS (FieldValue sch) choices
|
||||
</span><a href="#local-6989586621679047020"><span class="hs-identifier hs-var">x</span></a></span><span>
|
||||
</span><span id="line-146"></span><span> </span><span id="local-6989586621679047019"><span class="annot"><span class="annottext">typeLensSet :: r -> FieldValue sch ('TUnion choices)
|
||||
</span><a href="#local-6989586621679047019"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensSet</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">r -> FieldValue sch ('TUnion choices)
|
||||
</span><a href="#local-6989586621679047021"><span class="hs-identifier hs-var">x</span></a></span><span>
|
||||
</span><span id="line-146"></span><span> </span><span id="local-6989586621679047020"><span class="annot"><span class="annottext">typeLensSet :: r -> FieldValue sch ('TUnion choices)
|
||||
</span><a href="#local-6989586621679047020"><span class="hs-identifier hs-var hs-var hs-var hs-var">typeLensSet</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">r -> FieldValue sch ('TUnion choices)
|
||||
forall typeName fieldName (sch :: Schema typeName fieldName)
|
||||
(choices :: [FieldType typeName]).
|
||||
NS (FieldValue sch) choices -> FieldValue sch ('TUnion choices)
|
||||
</span><span class="hs-identifier hs-var">FUnion</span></span></span></span></span><span>
|
||||
</span><span id="line-147"></span><span>
|
||||
</span><span id="line-148"></span><span class="hs-comment">-- | Build a Mu enumeration 'Term' from the name of the choice.</span><span>
|
||||
</span><span id="line-149"></span><span class="annot"><a href="Mu.Schema.Optics.html#enum"><span class="hs-identifier hs-type">enum</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047018"><span class="annot"><a href="#local-6989586621679047018"><span class="hs-identifier hs-type">choiceName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047017"><span class="annot"><a href="#local-6989586621679047017"><span class="hs-identifier hs-type">choices</span></a></span></span><span> </span><span id="local-6989586621679047016"><span class="annot"><a href="#local-6989586621679047016"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span id="local-6989586621679047015"><span class="annot"><a href="#local-6989586621679047015"><span class="hs-identifier hs-type">name</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-150"></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#EnumLabel"><span class="hs-identifier hs-type">EnumLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047017"><span class="hs-identifier hs-type">choices</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047018"><span class="hs-identifier hs-type">choiceName</span></a></span><span>
|
||||
</span><span id="line-151"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047016"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DEnum</span></span><span> </span><span class="annot"><a href="#local-6989586621679047015"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047017"><span class="hs-identifier hs-type">choices</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-149"></span><span class="annot"><a href="Mu.Schema.Optics.html#enum"><span class="hs-identifier hs-type">enum</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047019"><span class="annot"><a href="#local-6989586621679047019"><span class="hs-identifier hs-type">choiceName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047018"><span class="annot"><a href="#local-6989586621679047018"><span class="hs-identifier hs-type">choices</span></a></span></span><span> </span><span id="local-6989586621679047017"><span class="annot"><a href="#local-6989586621679047017"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span id="local-6989586621679047016"><span class="annot"><a href="#local-6989586621679047016"><span class="hs-identifier hs-type">name</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-150"></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#EnumLabel"><span class="hs-identifier hs-type">EnumLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047018"><span class="hs-identifier hs-type">choices</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047019"><span class="hs-identifier hs-type">choiceName</span></a></span><span>
|
||||
</span><span id="line-151"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047017"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DEnum</span></span><span> </span><span class="annot"><a href="#local-6989586621679047016"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047018"><span class="hs-identifier hs-type">choices</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-152"></span><span id="enum"><span class="annot"><span class="annottext">enum :: Term sch ('DEnum name choices)
|
||||
</span><a href="Mu.Schema.Optics.html#enum"><span class="hs-identifier hs-var hs-var">enum</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">NS Proxy choices -> Term sch ('DEnum name choices)
|
||||
forall fieldName typeName (choices :: [ChoiceDef fieldName])
|
||||
@ -512,41 +512,41 @@ EnumLabel choices choiceName =>
|
||||
Proxy choiceName -> NS Proxy choices
|
||||
</span><a href="Mu.Schema.Optics.html#enumPrismBuild"><span class="hs-identifier hs-var">enumPrismBuild</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy choiceName
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679047018"><span class="hs-identifier hs-type">choiceName</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679047019"><span class="hs-identifier hs-type">choiceName</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-comment">-- Useful utility to check whether a value</span><span>
|
||||
</span><span id="line-155"></span><span class="hs-comment">-- matches a given enumeration choice.</span><span>
|
||||
</span><span id="line-156"></span><span class="hs-comment">--</span><span>
|
||||
</span><span id="line-157"></span><span class="hs-comment">-- > f e | e `is` #sunny = ...</span><span>
|
||||
</span><span id="line-158"></span><span class="hs-comment">-- > | e `is` #rainy = ...</span><span>
|
||||
</span><span id="line-159"></span><span id="local-6989586621679047009"><span id="local-6989586621679047010"><span id="local-6989586621679047011"><span id="local-6989586621679047012"><span class="annot"><a href="Mu.Schema.Optics.html#is"><span class="hs-identifier hs-type">is</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Is</span></span><span> </span><span class="annot"><a href="#local-6989586621679047012"><span class="hs-identifier hs-type">k</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">An_AffineFold</span></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="#local-6989586621679047011"><span class="hs-identifier hs-type">s</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Optic'</span></span><span> </span><span class="annot"><a href="#local-6989586621679047012"><span class="hs-identifier hs-type">k</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047010"><span class="hs-identifier hs-type">is</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047011"><span class="hs-identifier hs-type">s</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047009"><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">Bool</span></span></span></span></span></span><span>
|
||||
</span><span id="line-159"></span><span id="local-6989586621679047010"><span id="local-6989586621679047011"><span id="local-6989586621679047012"><span id="local-6989586621679047013"><span class="annot"><a href="Mu.Schema.Optics.html#is"><span class="hs-identifier hs-type">is</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Is</span></span><span> </span><span class="annot"><a href="#local-6989586621679047013"><span class="hs-identifier hs-type">k</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">An_AffineFold</span></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="#local-6989586621679047012"><span class="hs-identifier hs-type">s</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Optic'</span></span><span> </span><span class="annot"><a href="#local-6989586621679047013"><span class="hs-identifier hs-type">k</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047011"><span class="hs-identifier hs-type">is</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047012"><span class="hs-identifier hs-type">s</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047010"><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">Bool</span></span></span></span></span></span><span>
|
||||
</span><span id="line-160"></span><span id="is"><span class="annot"><span class="annottext">is :: s -> Optic' k is s a -> Bool
|
||||
</span><a href="Mu.Schema.Optics.html#is"><span class="hs-identifier hs-var hs-var">is</span></a></span></span><span> </span><span id="local-6989586621679047008"><span class="annot"><span class="annottext">s
|
||||
</span><a href="#local-6989586621679047008"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span id="local-6989586621679047007"><span class="annot"><span class="annottext">Optic' k is s a
|
||||
</span><a href="#local-6989586621679047007"><span class="hs-identifier hs-var">k</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe a -> Bool
|
||||
</span><a href="Mu.Schema.Optics.html#is"><span class="hs-identifier hs-var hs-var">is</span></a></span></span><span> </span><span id="local-6989586621679047009"><span class="annot"><span class="annottext">s
|
||||
</span><a href="#local-6989586621679047009"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span id="local-6989586621679047008"><span class="annot"><span class="annottext">Optic' k is s a
|
||||
</span><a href="#local-6989586621679047008"><span class="hs-identifier hs-var">k</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe a -> Bool
|
||||
forall a. Maybe a -> Bool
|
||||
</span><span class="hs-identifier hs-var">isJust</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Optic' k is s a -> s -> Maybe a
|
||||
forall k (is :: IxList) s a.
|
||||
Is k An_AffineFold =>
|
||||
Optic' k is s a -> s -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">preview</span></span><span> </span><span class="annot"><span class="annottext">Optic' k is s a
|
||||
</span><a href="#local-6989586621679047007"><span class="hs-identifier hs-var">k</span></a></span><span> </span><span class="annot"><span class="annottext">s
|
||||
</span><a href="#local-6989586621679047008"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679047008"><span class="hs-identifier hs-var">k</span></a></span><span> </span><span class="annot"><span class="annottext">s
|
||||
</span><a href="#local-6989586621679047009"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-161"></span><span class="hs-pragma">{-# INLINE</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#is"><span class="hs-pragma hs-type">is</span></a></span><span> </span><span class="hs-pragma">#-}</span><span>
|
||||
</span><span id="line-162"></span><span>
|
||||
</span><span id="line-163"></span><span id="local-6989586621679047001"><span id="local-6989586621679047002"><span id="local-6989586621679047003"><span id="local-6989586621679047004"><span id="local-6989586621679047005"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.Schema.Optics.html#EnumLabel"><span class="hs-identifier hs-type">EnumLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047005"><span class="hs-identifier hs-type">choices</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047004"><span class="hs-identifier hs-type">choiceName</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679047003"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-164"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">LabelOptic</span></span><span> </span><span class="annot"><a href="#local-6989586621679047004"><span class="hs-identifier hs-type">choiceName</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">A_Prism</span></span><span>
|
||||
</span><span id="line-165"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047002"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DEnum</span></span><span> </span><span class="annot"><a href="#local-6989586621679047001"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047005"><span class="hs-identifier hs-type">choices</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-166"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047002"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DEnum</span></span><span> </span><span class="annot"><a href="#local-6989586621679047001"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047005"><span class="hs-identifier hs-type">choices</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-167"></span><span> </span><span class="annot"><a href="#local-6989586621679047003"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047003"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-168"></span><span> </span><span id="local-6989586621679046999"><span class="annot"><span class="annottext">labelOptic :: Optic
|
||||
</span><span id="line-163"></span><span id="local-6989586621679047002"><span id="local-6989586621679047003"><span id="local-6989586621679047004"><span id="local-6989586621679047005"><span id="local-6989586621679047006"><span class="hs-keyword">instance</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Mu.Schema.Optics.html#EnumLabel"><span class="hs-identifier hs-type">EnumLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047006"><span class="hs-identifier hs-type">choices</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047005"><span class="hs-identifier hs-type">choiceName</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="#local-6989586621679047004"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><span class="hs-glyph hs-type">~</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-164"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">LabelOptic</span></span><span> </span><span class="annot"><a href="#local-6989586621679047005"><span class="hs-identifier hs-type">choiceName</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">A_Prism</span></span><span>
|
||||
</span><span id="line-165"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047003"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DEnum</span></span><span> </span><span class="annot"><a href="#local-6989586621679047002"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047006"><span class="hs-identifier hs-type">choices</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-166"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Term</span></span><span> </span><span class="annot"><a href="#local-6989586621679047003"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">DEnum</span></span><span> </span><span class="annot"><a href="#local-6989586621679047002"><span class="hs-identifier hs-type">name</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047006"><span class="hs-identifier hs-type">choices</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-167"></span><span> </span><span class="annot"><a href="#local-6989586621679047004"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047004"><span class="hs-identifier hs-type">r</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-168"></span><span> </span><span id="local-6989586621679047000"><span class="annot"><span class="annottext">labelOptic :: Optic
|
||||
A_Prism
|
||||
NoIx
|
||||
(Term sch ('DEnum name choices))
|
||||
(Term sch ('DEnum name choices))
|
||||
r
|
||||
r
|
||||
</span><a href="#local-6989586621679046999"><span class="hs-identifier hs-var hs-var hs-var hs-var">labelOptic</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(r -> Term sch ('DEnum name choices))
|
||||
</span><a href="#local-6989586621679047000"><span class="hs-identifier hs-var hs-var hs-var hs-var">labelOptic</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(r -> Term sch ('DEnum name choices))
|
||||
-> (Term sch ('DEnum name choices) -> Maybe r)
|
||||
-> Optic
|
||||
A_Prism
|
||||
@ -570,44 +570,44 @@ EnumLabel choices choiceName =>
|
||||
Proxy choiceName -> NS Proxy choices
|
||||
</span><a href="Mu.Schema.Optics.html#enumPrismBuild"><span class="hs-identifier hs-var">enumPrismBuild</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy choiceName
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679047004"><span class="hs-identifier hs-type">choiceName</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-169"></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TEnum</span></span><span> </span><span id="local-6989586621679046997"><span class="annot"><span class="annottext">NS Proxy choices
|
||||
</span><a href="#local-6989586621679046997"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Proxy choiceName -> NS Proxy choices -> Maybe ()
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679047005"><span class="hs-identifier hs-type">choiceName</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-169"></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">TEnum</span></span><span> </span><span id="local-6989586621679046998"><span class="annot"><span class="annottext">NS Proxy choices
|
||||
</span><a href="#local-6989586621679046998"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">Proxy choiceName -> NS Proxy choices -> Maybe ()
|
||||
forall (choices :: [ChoiceDef Symbol]) (choiceName :: Symbol).
|
||||
EnumLabel choices choiceName =>
|
||||
Proxy choiceName -> NS Proxy choices -> Maybe ()
|
||||
</span><a href="Mu.Schema.Optics.html#enumPrismMatch"><span class="hs-identifier hs-var">enumPrismMatch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy choiceName
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679047004"><span class="hs-identifier hs-type">choiceName</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">NS Proxy choices
|
||||
</span><a href="#local-6989586621679046997"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span></span></span></span></span></span><span>
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span> </span><span class="hs-glyph">@</span><span class="annot"><a href="#local-6989586621679047005"><span class="hs-identifier hs-type">choiceName</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">NS Proxy choices
|
||||
</span><a href="#local-6989586621679046998"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">)</span></span></span></span></span></span><span>
|
||||
</span><span id="line-170"></span><span>
|
||||
</span><span id="line-171"></span><span class="hs-keyword">class</span><span> </span><span id="EnumLabel"><span class="annot"><a href="Mu.Schema.Optics.html#EnumLabel"><span class="hs-identifier hs-var">EnumLabel</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047297"><span class="annot"><a href="#local-6989586621679047297"><span class="hs-identifier hs-type">choices</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">ChoiceDef</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-172"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047296"><span class="annot"><a href="#local-6989586621679047296"><span class="hs-identifier hs-type">choiceName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-173"></span><span> </span><span id="enumPrismBuild"><span class="annot"><a href="Mu.Schema.Optics.html#enumPrismBuild"><span class="hs-identifier hs-type">enumPrismBuild</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679047296"><span class="hs-identifier hs-type">choiceName</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679047297"><span class="hs-identifier hs-type">choices</span></a></span><span>
|
||||
</span><span id="line-174"></span><span> </span><span id="enumPrismMatch"><span class="annot"><a href="Mu.Schema.Optics.html#enumPrismMatch"><span class="hs-identifier hs-type">enumPrismMatch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679047296"><span class="hs-identifier hs-type">choiceName</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679047297"><span class="hs-identifier hs-type">choices</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="hs-special">(</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-171"></span><span class="hs-keyword">class</span><span> </span><span id="EnumLabel"><span class="annot"><a href="Mu.Schema.Optics.html#EnumLabel"><span class="hs-identifier hs-var">EnumLabel</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047298"><span class="annot"><a href="#local-6989586621679047298"><span class="hs-identifier hs-type">choices</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="hs-identifier hs-type">ChoiceDef</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">]</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-172"></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047297"><span class="annot"><a href="#local-6989586621679047297"><span class="hs-identifier hs-type">choiceName</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Symbol</span></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-173"></span><span> </span><span id="enumPrismBuild"><span class="annot"><a href="Mu.Schema.Optics.html#enumPrismBuild"><span class="hs-identifier hs-type">enumPrismBuild</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679047297"><span class="hs-identifier hs-type">choiceName</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679047298"><span class="hs-identifier hs-type">choices</span></a></span><span>
|
||||
</span><span id="line-174"></span><span> </span><span id="enumPrismMatch"><span class="annot"><a href="Mu.Schema.Optics.html#enumPrismMatch"><span class="hs-identifier hs-type">enumPrismMatch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679047297"><span class="hs-identifier hs-type">choiceName</span></a></span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Proxy</span></span><span> </span><span class="annot"><a href="#local-6989586621679047298"><span class="hs-identifier hs-type">choices</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="hs-special">(</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-175"></span><span>
|
||||
</span><span id="line-176"></span><span id="local-6989586621679046995"><span class="hs-keyword">instance</span><span> </span><span class="annot"><span class="hs-identifier hs-type">TypeError</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Text</span></span><span> </span><span class="annot"><span class="hs-string">"cannot find choice "</span></span><span> </span><span class="hs-special">'</span><span class="hs-operator">:<>:</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ShowType</span></span><span> </span><span class="annot"><a href="#local-6989586621679046995"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-177"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#EnumLabel"><span class="hs-identifier hs-type">EnumLabel</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="annot"><a href="#local-6989586621679046995"><span class="hs-identifier hs-type">c</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-178"></span><span> </span><span id="local-6989586621679046991"><span class="annot"><span class="annottext">enumPrismBuild :: Proxy c -> NS Proxy '[]
|
||||
</span><a href="#local-6989586621679046991"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumPrismBuild</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Char] -> Proxy c -> NS Proxy '[]
|
||||
</span><span id="line-176"></span><span id="local-6989586621679046996"><span class="hs-keyword">instance</span><span> </span><span class="annot"><span class="hs-identifier hs-type">TypeError</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">Text</span></span><span> </span><span class="annot"><span class="hs-string">"cannot find choice "</span></span><span> </span><span class="hs-special">'</span><span class="hs-operator">:<>:</span><span> </span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ShowType</span></span><span> </span><span class="annot"><a href="#local-6989586621679046996"><span class="hs-identifier hs-type">c</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-177"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#EnumLabel"><span class="hs-identifier hs-type">EnumLabel</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="annot"><a href="#local-6989586621679046996"><span class="hs-identifier hs-type">c</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-178"></span><span> </span><span id="local-6989586621679046992"><span class="annot"><span class="annottext">enumPrismBuild :: Proxy c -> NS Proxy '[]
|
||||
</span><a href="#local-6989586621679046992"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumPrismBuild</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Char] -> Proxy c -> NS Proxy '[]
|
||||
forall a. HasCallStack => [Char] -> a
|
||||
</span><span class="hs-identifier hs-var">error</span></span><span> </span><span class="annot"><span class="annottext">[Char]
|
||||
</span><span class="hs-string">"this should never be run"</span></span><span>
|
||||
</span><span id="line-179"></span><span> </span><span id="local-6989586621679046989"><span class="annot"><span class="annottext">enumPrismMatch :: Proxy c -> NS Proxy '[] -> Maybe ()
|
||||
</span><a href="#local-6989586621679046989"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumPrismMatch</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Char] -> Proxy c -> NS Proxy '[] -> Maybe ()
|
||||
</span><span id="line-179"></span><span> </span><span id="local-6989586621679046990"><span class="annot"><span class="annottext">enumPrismMatch :: Proxy c -> NS Proxy '[] -> Maybe ()
|
||||
</span><a href="#local-6989586621679046990"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumPrismMatch</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Char] -> Proxy c -> NS Proxy '[] -> Maybe ()
|
||||
forall a. HasCallStack => [Char] -> a
|
||||
</span><span class="hs-identifier hs-var">error</span></span><span> </span><span class="annot"><span class="annottext">[Char]
|
||||
</span><span class="hs-string">"this should never be run"</span></span></span><span>
|
||||
</span><span id="line-180"></span><span id="local-6989586621679046987"><span id="local-6989586621679046988"><span class="hs-keyword">instance</span><span> </span><span class="hs-pragma">{-# OVERLAPS</span><span> </span><span class="hs-pragma">#-}</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#EnumLabel"><span class="hs-identifier hs-type">EnumLabel</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ChoiceDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679046988"><span class="hs-identifier hs-type">c</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679046987"><span class="hs-identifier hs-type">rest</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679046988"><span class="hs-identifier hs-type">c</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-181"></span><span> </span><span id="local-6989586621679046984"><span class="annot"><span class="annottext">enumPrismBuild :: Proxy c -> NS Proxy ('ChoiceDef c : rest)
|
||||
</span><a href="#local-6989586621679046984"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumPrismBuild</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy c
|
||||
</span><span id="line-180"></span><span id="local-6989586621679046988"><span id="local-6989586621679046989"><span class="hs-keyword">instance</span><span> </span><span class="hs-pragma">{-# OVERLAPS</span><span> </span><span class="hs-pragma">#-}</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#EnumLabel"><span class="hs-identifier hs-type">EnumLabel</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">'</span><span class="annot"><span class="hs-identifier hs-type">ChoiceDef</span></span><span> </span><span class="annot"><a href="#local-6989586621679046989"><span class="hs-identifier hs-type">c</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679046988"><span class="hs-identifier hs-type">rest</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679046989"><span class="hs-identifier hs-type">c</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-181"></span><span> </span><span id="local-6989586621679046985"><span class="annot"><span class="annottext">enumPrismBuild :: Proxy c -> NS Proxy ('ChoiceDef c : rest)
|
||||
</span><a href="#local-6989586621679046985"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumPrismBuild</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy c
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Proxy ('ChoiceDef c) -> NS Proxy ('ChoiceDef c : rest)
|
||||
forall k (a :: k -> *) (x :: k) (xs :: [k]). a x -> NS a (x : xs)
|
||||
</span><span class="hs-identifier hs-var">Z</span></span><span> </span><span class="annot"><span class="annottext">Proxy ('ChoiceDef c)
|
||||
forall k (t :: k). Proxy t
|
||||
</span><span class="hs-identifier hs-var">Proxy</span></span><span>
|
||||
</span><span id="line-182"></span><span> </span><span id="local-6989586621679046982"><span class="annot"><span class="annottext">enumPrismMatch :: Proxy c -> NS Proxy ('ChoiceDef c : rest) -> Maybe ()
|
||||
</span><a href="#local-6989586621679046982"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumPrismMatch</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy c
|
||||
</span><span id="line-182"></span><span> </span><span id="local-6989586621679046983"><span class="annot"><span class="annottext">enumPrismMatch :: Proxy c -> NS Proxy ('ChoiceDef c : rest) -> Maybe ()
|
||||
</span><a href="#local-6989586621679046983"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumPrismMatch</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy c
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Z</span></span><span> </span><span class="annot"><span class="annottext">Proxy x
|
||||
</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">() -> Maybe ()
|
||||
forall a. a -> Maybe a
|
||||
@ -617,11 +617,11 @@ forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe ()
|
||||
forall a. Maybe a
|
||||
</span><span class="hs-identifier hs-var">Nothing</span></span></span></span><span>
|
||||
</span><span id="line-184"></span><span id="local-6989586621679046979"><span id="local-6989586621679046980"><span id="local-6989586621679046981"><span class="hs-keyword">instance</span><span> </span><span class="hs-pragma">{-# OVERLAPPABLE</span><span> </span><span class="hs-pragma">#-}</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#EnumLabel"><span class="hs-identifier hs-type">EnumLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679046981"><span class="hs-identifier hs-type">rest</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679046980"><span class="hs-identifier hs-type">c</span></a></span><span>
|
||||
</span><span id="line-185"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#EnumLabel"><span class="hs-identifier hs-type">EnumLabel</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679046979"><span class="hs-identifier hs-type">d</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679046981"><span class="hs-identifier hs-type">rest</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679046980"><span class="hs-identifier hs-type">c</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-186"></span><span> </span><span id="local-6989586621679046976"><span class="annot"><span class="annottext">enumPrismBuild :: Proxy c -> NS Proxy (d : rest)
|
||||
</span><a href="#local-6989586621679046976"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumPrismBuild</span></a></span></span><span> </span><span id="local-6989586621679046975"><span class="annot"><span class="annottext">Proxy c
|
||||
</span><a href="#local-6989586621679046975"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">NS Proxy rest -> NS Proxy (d : rest)
|
||||
</span><span id="line-184"></span><span id="local-6989586621679046980"><span id="local-6989586621679046981"><span id="local-6989586621679046982"><span class="hs-keyword">instance</span><span> </span><span class="hs-pragma">{-# OVERLAPPABLE</span><span> </span><span class="hs-pragma">#-}</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#EnumLabel"><span class="hs-identifier hs-type">EnumLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679046982"><span class="hs-identifier hs-type">rest</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679046981"><span class="hs-identifier hs-type">c</span></a></span><span>
|
||||
</span><span id="line-185"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#EnumLabel"><span class="hs-identifier hs-type">EnumLabel</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679046980"><span class="hs-identifier hs-type">d</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679046982"><span class="hs-identifier hs-type">rest</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679046981"><span class="hs-identifier hs-type">c</span></a></span><span> </span><span class="hs-keyword">where</span><span>
|
||||
</span><span id="line-186"></span><span> </span><span id="local-6989586621679046977"><span class="annot"><span class="annottext">enumPrismBuild :: Proxy c -> NS Proxy (d : rest)
|
||||
</span><a href="#local-6989586621679046977"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumPrismBuild</span></a></span></span><span> </span><span id="local-6989586621679046976"><span class="annot"><span class="annottext">Proxy c
|
||||
</span><a href="#local-6989586621679046976"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">NS Proxy rest -> NS Proxy (d : rest)
|
||||
forall k (a :: k -> *) (xs :: [k]) (x :: k).
|
||||
NS a xs -> NS a (x : xs)
|
||||
</span><span class="hs-identifier hs-var">S</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Proxy c -> NS Proxy rest
|
||||
@ -629,26 +629,26 @@ forall (choices :: [ChoiceDef Symbol]) (choiceName :: Symbol).
|
||||
EnumLabel choices choiceName =>
|
||||
Proxy choiceName -> NS Proxy choices
|
||||
</span><a href="Mu.Schema.Optics.html#enumPrismBuild"><span class="hs-identifier hs-var">enumPrismBuild</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy c
|
||||
</span><a href="#local-6989586621679046975"><span class="hs-identifier hs-var">p</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-187"></span><span> </span><span id="local-6989586621679046973"><span class="annot"><span class="annottext">enumPrismMatch :: Proxy c -> NS Proxy (d : rest) -> Maybe ()
|
||||
</span><a href="#local-6989586621679046973"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumPrismMatch</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy c
|
||||
</span><a href="#local-6989586621679046976"><span class="hs-identifier hs-var">p</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-187"></span><span> </span><span id="local-6989586621679046974"><span class="annot"><span class="annottext">enumPrismMatch :: Proxy c -> NS Proxy (d : rest) -> Maybe ()
|
||||
</span><a href="#local-6989586621679046974"><span class="hs-identifier hs-var hs-var hs-var hs-var">enumPrismMatch</span></a></span></span><span> </span><span class="annot"><span class="annottext">Proxy c
|
||||
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Z</span></span><span> </span><span class="annot"><span class="annottext">Proxy x
|
||||
</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">Maybe ()
|
||||
forall a. Maybe a
|
||||
</span><span class="hs-identifier hs-var">Nothing</span></span><span>
|
||||
</span><span id="line-188"></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#enumPrismMatch"><span class="hs-identifier hs-var">enumPrismMatch</span></a></span><span> </span><span id="local-6989586621679046972"><span class="annot"><span class="annottext">Proxy c
|
||||
</span><a href="#local-6989586621679046972"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">S</span></span><span> </span><span id="local-6989586621679046971"><span class="annot"><span class="annottext">NS Proxy xs
|
||||
</span><a href="#local-6989586621679046971"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Proxy c -> NS Proxy xs -> Maybe ()
|
||||
</span><span id="line-188"></span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#enumPrismMatch"><span class="hs-identifier hs-var">enumPrismMatch</span></a></span><span> </span><span id="local-6989586621679046973"><span class="annot"><span class="annottext">Proxy c
|
||||
</span><a href="#local-6989586621679046973"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">S</span></span><span> </span><span id="local-6989586621679046972"><span class="annot"><span class="annottext">NS Proxy xs
|
||||
</span><a href="#local-6989586621679046972"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Proxy c -> NS Proxy xs -> Maybe ()
|
||||
forall (choices :: [ChoiceDef Symbol]) (choiceName :: Symbol).
|
||||
EnumLabel choices choiceName =>
|
||||
Proxy choiceName -> NS Proxy choices -> Maybe ()
|
||||
</span><a href="Mu.Schema.Optics.html#enumPrismMatch"><span class="hs-identifier hs-var">enumPrismMatch</span></a></span><span> </span><span class="annot"><span class="annottext">Proxy c
|
||||
</span><a href="#local-6989586621679046972"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">NS Proxy xs
|
||||
</span><a href="#local-6989586621679046971"><span class="hs-identifier hs-var">x</span></a></span></span></span></span><span>
|
||||
</span><a href="#local-6989586621679046973"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">NS Proxy xs
|
||||
</span><a href="#local-6989586621679046972"><span class="hs-identifier hs-var">x</span></a></span></span></span></span><span>
|
||||
</span><span id="line-189"></span><span>
|
||||
</span><span id="line-190"></span><span class="hs-comment">-- | Prism to access the first choice of a union.</span><span>
|
||||
</span><span id="line-191"></span><span class="annot"><a href="Mu.Schema.Optics.html#_U0"><span class="hs-identifier hs-type">_U0</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047212"><span class="annot"><a href="#local-6989586621679047212"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema'</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047211"><span class="annot"><a href="#local-6989586621679047211"><span class="hs-identifier hs-type">x</span></a></span></span><span> </span><span id="local-6989586621679047209"><span class="annot"><a href="#local-6989586621679047209"><span class="hs-identifier hs-type">xs</span></a></span></span><span> </span><span id="local-6989586621679047210"><span class="annot"><a href="#local-6989586621679047210"><span class="hs-identifier hs-type">r</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047212"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047211"><span class="hs-identifier hs-type">x</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047210"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-192"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Prism'</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047212"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047211"><span class="hs-identifier hs-type">x</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047209"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047210"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-191"></span><span class="annot"><a href="Mu.Schema.Optics.html#_U0"><span class="hs-identifier hs-type">_U0</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047213"><span class="annot"><a href="#local-6989586621679047213"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema'</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047212"><span class="annot"><a href="#local-6989586621679047212"><span class="hs-identifier hs-type">x</span></a></span></span><span> </span><span id="local-6989586621679047210"><span class="annot"><a href="#local-6989586621679047210"><span class="hs-identifier hs-type">xs</span></a></span></span><span> </span><span id="local-6989586621679047211"><span class="annot"><a href="#local-6989586621679047211"><span class="hs-identifier hs-type">r</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047213"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047212"><span class="hs-identifier hs-type">x</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047211"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-192"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Prism'</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047213"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047212"><span class="hs-identifier hs-type">x</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047210"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047211"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-193"></span><span id="_U0"><span class="annot"><span class="annottext">_U0 :: Prism' (NS (FieldValue sch) (x : xs)) r
|
||||
</span><a href="Mu.Schema.Optics.html#_U0"><span class="hs-identifier hs-var hs-var">_U0</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(r -> NS (FieldValue sch) (x : xs))
|
||||
-> (NS (FieldValue sch) (x : xs) -> Maybe r)
|
||||
@ -664,8 +664,8 @@ forall (sch :: Schema Symbol Symbol) (t :: FieldType Symbol) r.
|
||||
TypeLabel sch t r =>
|
||||
r -> FieldValue sch t
|
||||
</span><a href="Mu.Schema.Optics.html#typeLensSet"><span class="hs-identifier hs-var">typeLensSet</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-194"></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-glyph">case</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Z</span></span><span> </span><span id="local-6989586621679046968"><span class="annot"><span class="annottext">FieldValue sch x
|
||||
</span><a href="#local-6989586621679046968"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">r -> Maybe r
|
||||
</span><span id="line-194"></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-glyph">case</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Z</span></span><span> </span><span id="local-6989586621679046969"><span class="annot"><span class="annottext">FieldValue sch x
|
||||
</span><a href="#local-6989586621679046969"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">r -> Maybe r
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">(r -> Maybe r) -> r -> Maybe r
|
||||
forall a b. (a -> b) -> a -> b
|
||||
@ -674,7 +674,7 @@ forall (sch :: Schema Symbol Symbol) (t :: FieldType Symbol) r.
|
||||
TypeLabel sch t r =>
|
||||
FieldValue sch t -> r
|
||||
</span><a href="Mu.Schema.Optics.html#typeLensGet"><span class="hs-identifier hs-var">typeLensGet</span></a></span><span> </span><span class="annot"><span class="annottext">FieldValue sch x
|
||||
</span><a href="#local-6989586621679046968"><span class="hs-identifier hs-var">x</span></a></span><span>
|
||||
</span><a href="#local-6989586621679046969"><span class="hs-identifier hs-var">x</span></a></span><span>
|
||||
</span><span id="line-195"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">S</span></span><span> </span><span class="annot"><span class="annottext">NS (FieldValue sch) xs
|
||||
</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">Maybe r
|
||||
forall a. Maybe a
|
||||
@ -686,9 +686,9 @@ forall a. Maybe a
|
||||
</span><span id="line-200"></span><span class="hs-comment">-- with '_U0'.</span><span>
|
||||
</span><span id="line-201"></span><span class="hs-comment">--</span><span>
|
||||
</span><span id="line-202"></span><span class="hs-comment">-- > _Next % _Next % _U0 -- access third choice</span><span>
|
||||
</span><span id="line-203"></span><span class="annot"><a href="Mu.Schema.Optics.html#_Next"><span class="hs-identifier hs-type">_Next</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047229"><span class="annot"><a href="#local-6989586621679047229"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema'</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047228"><span class="annot"><a href="#local-6989586621679047228"><span class="hs-identifier hs-type">x</span></a></span></span><span> </span><span id="local-6989586621679047227"><span class="annot"><a href="#local-6989586621679047227"><span class="hs-identifier hs-type">xs</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-204"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Prism'</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047229"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047228"><span class="hs-identifier hs-type">x</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047227"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-205"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047229"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047227"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-203"></span><span class="annot"><a href="Mu.Schema.Optics.html#_Next"><span class="hs-identifier hs-type">_Next</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047230"><span class="annot"><a href="#local-6989586621679047230"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema'</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047229"><span class="annot"><a href="#local-6989586621679047229"><span class="hs-identifier hs-type">x</span></a></span></span><span> </span><span id="local-6989586621679047228"><span class="annot"><a href="#local-6989586621679047228"><span class="hs-identifier hs-type">xs</span></a></span></span><span class="hs-operator">.</span><span>
|
||||
</span><span id="line-204"></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Prism'</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047230"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047229"><span class="hs-identifier hs-type">x</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047228"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-205"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047230"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047228"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-206"></span><span id="_Next"><span class="annot"><span class="annottext">_Next :: Prism' (NS (FieldValue sch) (x : xs)) (NS (FieldValue sch) xs)
|
||||
</span><a href="Mu.Schema.Optics.html#_Next"><span class="hs-identifier hs-var hs-var">_Next</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(NS (FieldValue sch) xs -> NS (FieldValue sch) (x : xs))
|
||||
-> (NS (FieldValue sch) (x : xs) -> Maybe (NS (FieldValue sch) xs))
|
||||
@ -702,15 +702,15 @@ NS a xs -> NS a (x : xs)
|
||||
</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">Maybe (NS (FieldValue sch) xs)
|
||||
forall a. Maybe a
|
||||
</span><span class="hs-identifier hs-var">Nothing</span></span><span>
|
||||
</span><span id="line-208"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">S</span></span><span> </span><span id="local-6989586621679046967"><span class="annot"><span class="annottext">NS (FieldValue sch) xs
|
||||
</span><a href="#local-6989586621679046967"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">NS (FieldValue sch) xs -> Maybe (NS (FieldValue sch) xs)
|
||||
</span><span id="line-208"></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">S</span></span><span> </span><span id="local-6989586621679046968"><span class="annot"><span class="annottext">NS (FieldValue sch) xs
|
||||
</span><a href="#local-6989586621679046968"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-></span><span> </span><span class="annot"><span class="annottext">NS (FieldValue sch) xs -> Maybe (NS (FieldValue sch) xs)
|
||||
forall a. a -> Maybe a
|
||||
</span><span class="hs-identifier hs-var">Just</span></span><span> </span><span class="annot"><span class="annottext">NS (FieldValue sch) xs
|
||||
</span><a href="#local-6989586621679046967"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><a href="#local-6989586621679046968"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">)</span><span>
|
||||
</span><span id="line-209"></span><span>
|
||||
</span><span id="line-210"></span><span class="hs-comment">-- | Prism to access the second choice of a union.</span><span>
|
||||
</span><span id="line-211"></span><span class="annot"><a href="Mu.Schema.Optics.html#_U1"><span class="hs-identifier hs-type">_U1</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047202"><span class="annot"><a href="#local-6989586621679047202"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema'</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047199"><span class="annot"><a href="#local-6989586621679047199"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span id="local-6989586621679047201"><span class="annot"><a href="#local-6989586621679047201"><span class="hs-identifier hs-type">b</span></a></span></span><span> </span><span id="local-6989586621679047198"><span class="annot"><a href="#local-6989586621679047198"><span class="hs-identifier hs-type">xs</span></a></span></span><span> </span><span id="local-6989586621679047200"><span class="annot"><a href="#local-6989586621679047200"><span class="hs-identifier hs-type">r</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047202"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047201"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047200"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-212"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Prism'</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047202"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047199"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047201"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047198"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047200"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-211"></span><span class="annot"><a href="Mu.Schema.Optics.html#_U1"><span class="hs-identifier hs-type">_U1</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047203"><span class="annot"><a href="#local-6989586621679047203"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema'</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047200"><span class="annot"><a href="#local-6989586621679047200"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span id="local-6989586621679047202"><span class="annot"><a href="#local-6989586621679047202"><span class="hs-identifier hs-type">b</span></a></span></span><span> </span><span id="local-6989586621679047199"><span class="annot"><a href="#local-6989586621679047199"><span class="hs-identifier hs-type">xs</span></a></span></span><span> </span><span id="local-6989586621679047201"><span class="annot"><a href="#local-6989586621679047201"><span class="hs-identifier hs-type">r</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047203"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047202"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047201"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-212"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Prism'</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047203"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047200"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047202"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047199"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047201"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-213"></span><span id="_U1"><span class="annot"><span class="annottext">_U1 :: Prism' (NS (FieldValue sch) (a : b : xs)) r
|
||||
</span><a href="Mu.Schema.Optics.html#_U1"><span class="hs-identifier hs-var hs-var">_U1</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Prism'
|
||||
(NS (FieldValue sch) (a : b : xs)) (NS (FieldValue sch) (b : xs))
|
||||
@ -745,8 +745,8 @@ Prism' (NS (FieldValue sch) (x : xs)) r
|
||||
</span><a href="Mu.Schema.Optics.html#_U0"><span class="hs-identifier hs-var">_U0</span></a></span><span>
|
||||
</span><span id="line-214"></span><span>
|
||||
</span><span id="line-215"></span><span class="hs-comment">-- | Prism to access the third choice of a union.</span><span>
|
||||
</span><span id="line-216"></span><span class="annot"><a href="Mu.Schema.Optics.html#_U2"><span class="hs-identifier hs-type">_U2</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047190"><span class="annot"><a href="#local-6989586621679047190"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema'</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047187"><span class="annot"><a href="#local-6989586621679047187"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span id="local-6989586621679047186"><span class="annot"><a href="#local-6989586621679047186"><span class="hs-identifier hs-type">b</span></a></span></span><span> </span><span id="local-6989586621679047189"><span class="annot"><a href="#local-6989586621679047189"><span class="hs-identifier hs-type">c</span></a></span></span><span> </span><span id="local-6989586621679047185"><span class="annot"><a href="#local-6989586621679047185"><span class="hs-identifier hs-type">xs</span></a></span></span><span> </span><span id="local-6989586621679047188"><span class="annot"><a href="#local-6989586621679047188"><span class="hs-identifier hs-type">r</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047190"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047189"><span class="hs-identifier hs-type">c</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047188"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-217"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Prism'</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047190"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047187"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047186"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047189"><span class="hs-identifier hs-type">c</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047185"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047188"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-216"></span><span class="annot"><a href="Mu.Schema.Optics.html#_U2"><span class="hs-identifier hs-type">_U2</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679047191"><span class="annot"><a href="#local-6989586621679047191"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema'</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679047188"><span class="annot"><a href="#local-6989586621679047188"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span id="local-6989586621679047187"><span class="annot"><a href="#local-6989586621679047187"><span class="hs-identifier hs-type">b</span></a></span></span><span> </span><span id="local-6989586621679047190"><span class="annot"><a href="#local-6989586621679047190"><span class="hs-identifier hs-type">c</span></a></span></span><span> </span><span id="local-6989586621679047186"><span class="annot"><a href="#local-6989586621679047186"><span class="hs-identifier hs-type">xs</span></a></span></span><span> </span><span id="local-6989586621679047189"><span class="annot"><a href="#local-6989586621679047189"><span class="hs-identifier hs-type">r</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047191"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047190"><span class="hs-identifier hs-type">c</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679047189"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-217"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Prism'</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679047191"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679047188"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047187"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047190"><span class="hs-identifier hs-type">c</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679047186"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679047189"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-218"></span><span id="_U2"><span class="annot"><span class="annottext">_U2 :: Prism' (NS (FieldValue sch) (a : b : c : xs)) r
|
||||
</span><a href="Mu.Schema.Optics.html#_U2"><span class="hs-identifier hs-var hs-var">_U2</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Prism'
|
||||
(NS (FieldValue sch) (a : b : c : xs))
|
||||
@ -783,8 +783,8 @@ Prism' (NS (FieldValue sch) (a : b : xs)) r
|
||||
</span><a href="Mu.Schema.Optics.html#_U1"><span class="hs-identifier hs-var">_U1</span></a></span><span>
|
||||
</span><span id="line-219"></span><span>
|
||||
</span><span id="line-220"></span><span class="hs-comment">-- | Prism to access the fourth choice of a union.</span><span>
|
||||
</span><span id="line-221"></span><span class="annot"><a href="Mu.Schema.Optics.html#_U3"><span class="hs-identifier hs-type">_U3</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679046965"><span class="annot"><a href="#local-6989586621679046965"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema'</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679046964"><span class="annot"><a href="#local-6989586621679046964"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span id="local-6989586621679046963"><span class="annot"><a href="#local-6989586621679046963"><span class="hs-identifier hs-type">b</span></a></span></span><span> </span><span id="local-6989586621679046962"><span class="annot"><a href="#local-6989586621679046962"><span class="hs-identifier hs-type">c</span></a></span></span><span> </span><span id="local-6989586621679046961"><span class="annot"><a href="#local-6989586621679046961"><span class="hs-identifier hs-type">d</span></a></span></span><span> </span><span id="local-6989586621679046960"><span class="annot"><a href="#local-6989586621679046960"><span class="hs-identifier hs-type">xs</span></a></span></span><span> </span><span id="local-6989586621679046959"><span class="annot"><a href="#local-6989586621679046959"><span class="hs-identifier hs-type">r</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679046965"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679046961"><span class="hs-identifier hs-type">d</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679046959"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-222"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Prism'</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679046965"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679046964"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679046963"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679046962"><span class="hs-identifier hs-type">c</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679046961"><span class="hs-identifier hs-type">d</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679046960"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679046959"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-221"></span><span class="annot"><a href="Mu.Schema.Optics.html#_U3"><span class="hs-identifier hs-type">_U3</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679046966"><span class="annot"><a href="#local-6989586621679046966"><span class="hs-identifier hs-type">sch</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Schema'</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679046965"><span class="annot"><a href="#local-6989586621679046965"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span id="local-6989586621679046964"><span class="annot"><a href="#local-6989586621679046964"><span class="hs-identifier hs-type">b</span></a></span></span><span> </span><span id="local-6989586621679046963"><span class="annot"><a href="#local-6989586621679046963"><span class="hs-identifier hs-type">c</span></a></span></span><span> </span><span id="local-6989586621679046962"><span class="annot"><a href="#local-6989586621679046962"><span class="hs-identifier hs-type">d</span></a></span></span><span> </span><span id="local-6989586621679046961"><span class="annot"><a href="#local-6989586621679046961"><span class="hs-identifier hs-type">xs</span></a></span></span><span> </span><span id="local-6989586621679046960"><span class="annot"><a href="#local-6989586621679046960"><span class="hs-identifier hs-type">r</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="Mu.Schema.Optics.html#TypeLabel"><span class="hs-identifier hs-type">TypeLabel</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679046966"><span class="hs-identifier hs-type">sch</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679046962"><span class="hs-identifier hs-type">d</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679046960"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-222"></span><span> </span><span class="hs-glyph">=></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Prism'</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">NS</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">FieldValue</span></span><span> </span><span class="annot"><a href="#local-6989586621679046966"><span class="hs-identifier hs-type">sch</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679046965"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679046964"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679046963"><span class="hs-identifier hs-type">c</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679046962"><span class="hs-identifier hs-type">d</span></a></span><span> </span><span class="hs-special">'</span><span class="hs-glyph">:</span><span> </span><span class="annot"><a href="#local-6989586621679046961"><span class="hs-identifier hs-type">xs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679046960"><span class="hs-identifier hs-type">r</span></a></span><span>
|
||||
</span><span id="line-223"></span><span id="_U3"><span class="annot"><span class="annottext">_U3 :: Prism' (NS (FieldValue sch) (a : b : c : d : xs)) r
|
||||
</span><a href="Mu.Schema.Optics.html#_U3"><span class="hs-identifier hs-var hs-var">_U3</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Prism'
|
||||
(NS (FieldValue sch) (a : b : c : d : xs))
|
||||
|
Binary file not shown.
Binary file not shown.
Binary file not shown.
File diff suppressed because one or more lines are too long
Binary file not shown.
File diff suppressed because one or more lines are too long
Binary file not shown.
@ -1,4 +1,4 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span id="%24con2tag_7PpHTHA3RWb7bWMC8Hbrpt"><span id="%24con2tag_BFqy8E5y5N9AuEfEEvMDmE"></span></span><span class="hs-pragma">{-# language DataKinds #-}</span><span>
|
||||
<!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 id="%24con2tag_Bm485fVFagt99WBpM3CUkO"><span id="%24con2tag_1Eores7sMpP2SvdyO27E0t"></span></span><span class="hs-pragma">{-# language DataKinds #-}</span><span>
|
||||
</span><span id="line-2"></span><span class="hs-pragma">{-# language DeriveAnyClass #-}</span><span>
|
||||
</span><span id="line-3"></span><span class="hs-pragma">{-# language DeriveGeneric #-}</span><span>
|
||||
</span><span id="line-4"></span><span class="hs-pragma">{-# language DerivingVia #-}</span><span>
|
||||
|
@ -1,4 +1,4 @@
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span id="%24con2tag_857exIShtjU8IdnMgx9mPf"></span><span class="hs-pragma">{-# language AllowAmbiguousTypes #-}</span><span>
|
||||
<!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 id="%24con2tag_KW3dskwzxl57J0iG074T0J"></span><span class="hs-pragma">{-# language AllowAmbiguousTypes #-}</span><span>
|
||||
</span><span id="line-2"></span><span class="hs-pragma">{-# language DataKinds #-}</span><span>
|
||||
</span><span id="line-3"></span><span class="hs-pragma">{-# language FlexibleContexts #-}</span><span>
|
||||
</span><span id="line-4"></span><span class="hs-pragma">{-# language FlexibleInstances #-}</span><span>
|
||||
|
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue
Block a user