git.iko.soy/typeable/servant
on master help sign in
adapt tests to the modified HasLink instance for QueryParam
9fbd312Alp Mestanogullari
servant/test/Servant/Utils/LinksSpec.hs+1−1
compare with master
unifiedsplit
@@ -61,7 +61,7 @@ spec = describe "Servant.Utils.Links" $ do
61 let l2 = Proxy :: Proxy ("hello" :> Capture "name" String
61 let l2 = Proxy :: Proxy ("hello" :> Capture "name" String
62 :> QueryParam "capital" Bool
62 :> QueryParam "capital" Bool
63 :> Delete '[JSON] ())
63 :> Delete '[JSON] ())
64− apiLink l2 "bye" True `shouldBeURI` "hello/bye?capital=true"
64+ apiLink l2 "bye" (Just True) `shouldBeURI` "hello/bye?capital=true"
65
65
66 let l3 = Proxy :: Proxy ("parent" :> MatrixParams "name" String
66 let l3 = Proxy :: Proxy ("parent" :> MatrixParams "name" String
67 :> "child"
67 :> "child"