From f0bde4694ee4cfa78af0840b1795dd10140de096 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Th=C3=A9ophile=20Choutri?= Date: Sun, 8 Dec 2024 23:07:43 +0100 Subject: [PATCH] Remove useless comment --- servant-client/test/Servant/ClientTestUtils.hs | 12 ------------ 1 file changed, 12 deletions(-) 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