mirror of
https://github.com/ilyakooo0/servant-quickcheck.git
synced 2024-08-17 06:10:27 +03:00
Use () for test QueryParam type too
...as suggested (thanks @jkarni)
This commit is contained in:
parent
6be6697165
commit
a8459223ed
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user