From c45002a021247147b4348d60454c441ff4e24733 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Cl=C3=A9ment=20Delafargue?= Date: Thu, 15 Dec 2022 16:30:55 +0100 Subject: [PATCH] fixup! servant-server: add spec for QueryString and DeepQuery --- servant-server/test/Servant/ServerSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant-server/test/Servant/ServerSpec.hs b/servant-server/test/Servant/ServerSpec.hs index 81d47804..50e1527a 100644 --- a/servant-server/test/Servant/ServerSpec.hs +++ b/servant-server/test/Servant/ServerSpec.hs @@ -330,7 +330,7 @@ data Filter = Filter deriving Show instance FromDeepQuery Filter where - fromDeepQuery params = traceShowId $ do + fromDeepQuery params = do let maybeToRight l = maybe (Left l) Right age' <- maybeToRight "missing age" $ readMaybe . T.unpack =<< join (lookup ["age"] params) name' <- maybeToRight "missing name" $ join $ lookup ["name"] params