@@ -263,7 +263,11 @@ spec = do
263 $ property
263 $ property
264 $ \cjar -> do
264 $ \cjar -> do
265 request <- req_ GET url NoReqBody (cookieJar cjar)
265 request <- req_ GET url NoReqBody (cookieJar cjar)
266+#if MIN_VERSION_http_client(0,7,0)
267+ L.cookieJar request `shouldSatisfy` (maybe False (L.equalCookieJar cjar))
266− L.cookieJar request `shouldBe` pure cjar
269+ L.cookieJar request `shouldBe` Just cjar
267 describe "basicAuth" $ do
271 describe "basicAuth" $ do
268 it "sets Authorization header to correct value"
272 it "sets Authorization header to correct value"
269 $ property
273 $ property