From a8459223edac80ea5fddbc38f887a8f6af69e523 Mon Sep 17 00:00:00 2001
From: Nick B <nick@declension.net>
Date: Tue, 7 Mar 2017 22:48:45 +0000
Subject: [PATCH] Use () for test QueryParam type too

...as suggested (thanks @jkarni)
---
 test/Servant/QuickCheck/InternalSpec.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/Servant/QuickCheck/InternalSpec.hs b/test/Servant/QuickCheck/InternalSpec.hs
index d52acc8..3d38a87 100644
--- a/test/Servant/QuickCheck/InternalSpec.hs
+++ b/test/Servant/QuickCheck/InternalSpec.hs
@@ -121,7 +121,7 @@ queryParamsSpec = describe "QueryParams" $ do
         gen = genRequest paramsAPI
         req = (unGen gen rng 0) burl
         qs = C.unpack $ queryString req
-    qs `shouldBe` "one=&two="
+    qs `shouldBe` "one=_&two=_"
 
 ------------------------------------------------------------------------------
 -- APIs
@@ -134,7 +134,7 @@ type API = ReqBody '[JSON] String :> Post '[JSON] String
 api :: Proxy API
 api = Proxy
 
-type ParamsAPI = QueryParam "one" String :> QueryParam "two" String :> Get '[JSON] ()
+type ParamsAPI = QueryParam "one" () :> QueryParam "two" () :> Get '[JSON] ()
 
 paramsAPI :: Proxy ParamsAPI
 paramsAPI = Proxy