blob: acbd51904868aa0c1660d9223fda23fece013a31 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
--- a/test/Network/HTTP/ClientSpec.hs
+++ b/test/Network/HTTP/ClientSpec.hs
@@ -55,11 +55,6 @@
spec :: Spec
spec = describe "Client" $ do
- it "works" $ withSocketsDo $ do
- req <- parseUrl "http://www.yesodweb.com/"
- 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
|
