From 9fbd312b4c707d73fefb77eb6724767f4a4d0623 Mon Sep 17 00:00:00 2001
From: Alp Mestanogullari <alpmestan@gmail.com>
Date: Fri, 19 Jun 2015 10:03:24 +0200
Subject: [PATCH] adapt tests to the modified HasLink instance for QueryParam

---
 servant/test/Servant/Utils/LinksSpec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/servant/test/Servant/Utils/LinksSpec.hs b/servant/test/Servant/Utils/LinksSpec.hs
index 0fa17b3a..b261559e 100644
--- a/servant/test/Servant/Utils/LinksSpec.hs
+++ b/servant/test/Servant/Utils/LinksSpec.hs
@@ -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"