Fix the build with ‘http-client-0.7’
commitf285817efb120fd0fbe621a9d6501b2759cfc4c2
authorMark Karpov <markkarpov92@gmail.com>
dateSat 30 May 2020, 15:08 (6 years ago)
parent0c88e27
pure-tests/Network/HTTP/ReqSpec.hs+5−1
@@ -263,7 +263,11 @@ spec = do
263263 $ property
264264 $ \cjar -> do
265265 request <- req_ GET url NoReqBody (cookieJar cjar)
266− L.cookieJar request `shouldBe` pure cjar
266+#if MIN_VERSION_http_client(0,7,0)
267+ L.cookieJar request `shouldSatisfy` (maybe False (L.equalCookieJar cjar))
268+#else
269+ L.cookieJar request `shouldBe` Just cjar
270+#endif
267271 describe "basicAuth" $ do
268272 it "sets Authorization header to correct value"
269273 $ property