diff options
| author | Clint Adams <clint@debian.org> | 2017-06-17 14:50:04 -0400 |
|---|---|---|
| committer | Clint Adams <clint@debian.org> | 2017-06-18 11:28:30 -0400 |
| commit | 864224de75c1f0dbeb8180a1e7ac0bc3a5df3c46 (patch) | |
| tree | 17bb413bb0c7008415e9a4882e2dc6ab4684eee4 /p/haskell-http-client | |
| parent | 3976432f1c22af38551d1240913c2ad6f5733489 (diff) | |
| download | DHG_packages-864224de75c1f0dbeb8180a1e7ac0bc3a5df3c46.tar.gz | |
http-client: Upgrading from 0.4.31.1 to 0.4.31.2
Diffstat (limited to 'p/haskell-http-client')
| -rw-r--r-- | p/haskell-http-client/debian/changelog | 6 | ||||
| -rw-r--r-- | p/haskell-http-client/debian/patches/disable-external-network-connection-test.diff | 16 |
2 files changed, 19 insertions, 3 deletions
diff --git a/p/haskell-http-client/debian/changelog b/p/haskell-http-client/debian/changelog index d2df74c1b..4abe6139b 100644 --- a/p/haskell-http-client/debian/changelog +++ b/p/haskell-http-client/debian/changelog @@ -1,3 +1,9 @@ +haskell-http-client (0.4.31.2-1) unstable; urgency=medium + + * New upstream release + + -- Clint Adams <clint@debian.org> Sat, 17 Jun 2017 14:50:04 -0400 + haskell-http-client (0.4.31.1-3) unstable; urgency=medium * Upload to unstable as part of GHC 8 transition. diff --git a/p/haskell-http-client/debian/patches/disable-external-network-connection-test.diff b/p/haskell-http-client/debian/patches/disable-external-network-connection-test.diff index 9e79448b4..ffd072ae4 100644 --- a/p/haskell-http-client/debian/patches/disable-external-network-connection-test.diff +++ b/p/haskell-http-client/debian/patches/disable-external-network-connection-test.diff @@ -1,6 +1,6 @@ --- a/test/Network/HTTP/ClientSpec.hs +++ b/test/Network/HTTP/ClientSpec.hs -@@ -12,38 +12,4 @@ main :: IO () +@@ -12,48 +12,4 @@ main = hspec spec spec :: Spec @@ -27,16 +27,26 @@ - res <- httpLbs req man - responseStatus res `shouldBe` status405 - -- it "managerModifyRequest" $ do +- describe "managerModifyRequest" $ do +- +- it "can set port to 80" $ do - let modify req = return req { port = 80 } - settings = defaultManagerSettings { managerModifyRequest = modify } - withManager settings $ \man -> do - res <- httpLbs "http://httpbin.org:1234" man - responseStatus res `shouldBe` status200 - -- it "managerModifyRequestCheckStatus" $ do +- it "can set 'checkStatus' to throw StatusCodeException" $ do - let modify req = return req { checkStatus = \s hs cj -> Just $ toException $ StatusCodeException s hs cj } - settings = defaultManagerSettings { managerModifyRequest = modify } - withManager settings $ \man -> - httpLbs "http://httpbin.org" man `shouldThrow` anyException +- +- it "can set redirectCount to 0 to prevent following redirects" $ do +- let modify req = return req { redirectCount = 0 } +- settings = defaultManagerSettings { managerModifyRequest = modify } +- man <- newManager settings +- httpLbs "http://httpbin.org/redirect-to?url=foo" man `shouldThrow` ( \ (StatusCodeException s _ _) -> s == found302) +- +- +spec = return () |