haskell/servant-quickcheck
1
0
Fork 0
Code Issues Pull Requests Actions 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 gen = genRequest paramsAPI
req = (unGen gen rng 0) burl req = (unGen gen rng 0) burl
qs = C.unpack $ queryString req qs = C.unpack $ queryString req
qs `shouldBe` "one=&two=" qs `shouldBe` "one=_&two=_"
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- APIs -- APIs
@ -134,7 +134,7 @@ type API = ReqBody '[JSON] String :> Post '[JSON] String
api :: Proxy API api :: Proxy API
api = Proxy 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 ParamsAPI
paramsAPI = Proxy paramsAPI = Proxy