diff --git a/servant-client/test/Servant/ClientTestUtils.hs b/servant-client/test/Servant/ClientTestUtils.hs
index 7e4fd51ed..dbde8c193 100644
--- 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