Remove useless comment

haskell-servant · Dec 8, 2024 · f0bde46 · f0bde46
1 parent 24e478d
commit f0bde46
Showing 1 changed file with 0 additions and 12 deletions.
diff --git a/servant-client/test/Servant/ClientTestUtils.hs b/servant-client/test/Servant/ClientTestUtils.hs
@@ -168,18 +168,6 @@ data MultipleChoicesIntResult
 
 instance GSOP.Generic MultipleChoicesIntResult
 
--- The 'AsUnion' instance can also be written manually as such:
---
--- instance => AsUnion MultipleChoicesIntResponses MultipleChoicesIntResult where
---   toUnion NegativeNumber = Z (I ())
---   toUnion (Even b) = S (Z (I b))
---   toUnion (Odd i) = S (S (Z (I i)))
---
---   fromUnion       (Z (I ())) = NegativeNumber
---   fromUnion    (S (Z (I b))) = Even b
---   fromUnion (S (S (Z (I i)))) = Odd i
---   fromUnion (S (S (S x))) = case x of {}
-
 -- This is our endpoint description
 type MultipleChoicesInt =
   Capture "int" Int