adapt tests to the modified HasLink instance for QueryParam
commit9fbd312b4c707d73fefb77eb6724767f4a4d0623
authorAlp Mestanogullari <alpmestan@gmail.com>
dateFri 19 Jun 2015, 10:03 (11 years ago)
parente8bae7d
servant/test/Servant/Utils/LinksSpec.hs+1−1
@@ -61,7 +61,7 @@ spec = describe "Servant.Utils.Links" $ do
6161 let l2 = Proxy :: Proxy ("hello" :> Capture "name" String
6262 :> QueryParam "capital" Bool
6363 :> Delete '[JSON] ())
64− apiLink l2 "bye" True `shouldBeURI` "hello/bye?capital=true"
64+ apiLink l2 "bye" (Just True) `shouldBeURI` "hello/bye?capital=true"
6565
6666 let l3 = Proxy :: Proxy ("parent" :> MatrixParams "name" String
6767 :> "child"