ilyakooo0/servant-quickcheck
1
0
Fork 0
mirror of https://github.com/ilyakooo0/servant-quickcheck.git synced 2024-08-17 06:10:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

Use () for test QueryParam type too

Browse Source 
...as suggested (thanks @jkarni)
This commit is contained in:
Nick B 2017-03-07 22:48:45 +00:00
parent 6be6697165
commit a8459223ed
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/Servant/QuickCheck/InternalSpec.hs
View File

@ -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