refactor: Carve out QueryParams module

test/Feature/QuerySpec.hs

@@ -914,7 +914,7 @@ spec actualPgVersion = do
         { matchHeaders = [matchContentTypeJson] }
 
     it "fails if an operator is not given" $
-      get "/ghostBusters?id=0" `shouldRespondWith` [json| {"details":"unexpected \"0\" expecting \"not\" or operator (eq, gt, ...)","message":"\"failed to parse filter (0)\" (line 1, column 1)"} |]
+      get "/ghostBusters?id=0" `shouldRespondWith` [json| {"details":"Failed to parse [(\"id\",\"0\")]","message":"Unexpected param or filter missing operator"} |]
         { matchStatus  = 400
         , matchHeaders = [matchContentTypeJson]
         }

test/doctests/Main.hs

@@ -8,10 +8,10 @@ import Protolude
 main :: IO ()
 main =
   doctest
-    [ "--verbose"
-    , "-XOverloadedStrings"
+    [ "-XOverloadedStrings"
     , "-XNoImplicitPrelude"
     , "-XStandaloneDeriving"
     , "-isrc"
     , "src/PostgREST/Request/Preferences.hs"
+    , "src/PostgREST/Request/QueryParams.hs"
     ]