@@ -121,7 +121,7 @@ queryParamsSpec = describe "QueryParams" $ do
121121 gen = genRequest paramsAPI
122122 req = (unGen gen rng 0) burl
123123 qs = C.unpack $ queryString req
124− qs `shouldBe` "one=&two="
124+ qs `shouldBe` "one=_&two=_"
125125
126126------------------------------------------------------------------------------
127127-- APIs
@@ -134,7 +134,7 @@ type API = ReqBody '[JSON] String :> Post '[JSON] String
134134api :: Proxy API
135135api = Proxy
136136
137−type ParamsAPI = QueryParam "one" String :> QueryParam "two" String :> Get '[JSON] ()
137+type ParamsAPI = QueryParam "one" () :> QueryParam "two" () :> Get '[JSON] ()
138138
139139paramsAPI :: Proxy ParamsAPI
140140paramsAPI = Proxy