Clarify a comment in the client tests

haskell-servant · Dec 8, 2024 · 9a6b240 · 9a6b240
1 parent 86b0f6a
commit 9a6b240
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/servant-client/test/Servant/ClientTestUtils.hs b/servant-client/test/Servant/ClientTestUtils.hs
@@ -168,6 +168,8 @@ 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))