eeva/servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

adapt tests to the modified HasLink instance for QueryParam

Browse Source
This commit is contained in:
Alp Mestanogullari 2015-06-19 10:03:24 +02:00
parent e8bae7d035
commit 9fbd312b4c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
servant/test/Servant/Utils/LinksSpec.hs
View File

@ -61,7 +61,7 @@ spec = describe "Servant.Utils.Links" $ do
let l2 = Proxy :: Proxy ("hello" :> Capture "name" String
:> QueryParam "capital" Bool
:> Delete '[JSON] ())
apiLink l2 "bye" True `shouldBeURI` "hello/bye?capital=true"
apiLink l2 "bye" (Just True) `shouldBeURI` "hello/bye?capital=true"
let l3 = Proxy :: Proxy ("parent" :> MatrixParams "name" String
:> "child"