fier hs-var"
	>Left</span
	></span
      ><span
      > </span
      ><span class="annot"
      ><span class="annottext"
	>((a -&gt; b) -&gt; Either (a -&gt; b) (b -&gt; a))
-&gt; (a -&gt; b) -&gt; Either (a -&gt; b) (b -&gt; a)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span
	><span class="hs-operator hs-var"
	>$</span
	></span
      ><span
      > </span
      ><span class="annot"
      ><span class="annottext"
	>b -&gt; a -&gt; b
forall a b. a -&gt; b -&gt; a
</span
	><span class="hs-identifier hs-var"
	>