fixup! servant-server: add spec for QueryString and DeepQuery

2022-12-15 16:30:55 +01:00 · 2022-12-15 16:30:55 +01:00 · c45002a021
parent 35ac209c91
commit c45002a021
1 changed files with 1 additions and 1 deletions
--- 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