summaryrefslogtreecommitdiff
path: root/p/haskell-http-client/debian/patches/disable-external-network-connection-test.diff
diff options
context:
space:
mode:
authorClint Adams <clint@debian.org>2015-06-27 03:08:19 +0300
committerClint Adams <clint@debian.org>2015-06-27 03:08:19 +0300
commit6c0259f1c563e594022fd56141730e64932bf3f2 (patch)
tree4181f4e8dbc70ae032cfd7965e5d566d7c5f6ae7 /p/haskell-http-client/debian/patches/disable-external-network-connection-test.diff
parent9b8b4c3274be94c42f31d390da4450647eb3b4b6 (diff)
downloadDHG_packages-6c0259f1c563e594022fd56141730e64932bf3f2.tar.gz
haskell-http-client: New upstream version 0.4.13.
Diffstat (limited to 'p/haskell-http-client/debian/patches/disable-external-network-connection-test.diff')
-rw-r--r--p/haskell-http-client/debian/patches/disable-external-network-connection-test.diff18
1 files changed, 12 insertions, 6 deletions
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 acbd51904..a201e4bef 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,14 +1,20 @@
--- a/test/Network/HTTP/ClientSpec.hs
+++ b/test/Network/HTTP/ClientSpec.hs
-@@ -55,11 +55,6 @@
+@@ -11,16 +11,4 @@
+ main = hspec spec
spec :: Spec
- spec = describe "Client" $ do
+-spec = describe "Client" $ do
- it "works" $ withSocketsDo $ do
-- req <- parseUrl "http://www.yesodweb.com/"
+- req <- parseUrl "http://httpbin.org/"
- man <- newManager defaultManagerSettings
- res <- httpLbs req man
- responseStatus res `shouldBe` status200
- describe "fails on empty hostnames #40" $ do
- let test url = it url $ do
- req <- parseUrl url
+-
+- it "managerModifyRequest" $ 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
++spec = return ()