@@ -47,20 +47,20 @@ spec :: Spec
4747spec = describe "responds even if there is an exception" $ do
4848 {- Disabling these tests. We can consider forcing evaluation in Warp.
4949 it "statusError" $ do
50− sc <- rspCode <$> sendGET "http://localhost:2345/statusError"
50+ sc <- rspCode <$> sendGET "http://127.0.0.1:2345/statusError"
5151 sc `shouldBe` (5,0,0)
5252 it "headersError" $ do
53− sc <- rspCode <$> sendGET "http://localhost:2345/headersError"
53+ sc <- rspCode <$> sendGET "http://127.0.0.1:2345/headersError"
5454 sc `shouldBe` (5,0,0)
5555 it "headerError" $ do
56− sc <- rspCode <$> sendGET "http://localhost:2345/headerError"
56+ sc <- rspCode <$> sendGET "http://127.0.0.1:2345/headerError"
5757 sc `shouldBe` (5,0,0)
5858 it "bodyError" $ do
59− sc <- rspCode <$> sendGET "http://localhost:2345/bodyError"
59+ sc <- rspCode <$> sendGET "http://127.0.0.1:2345/bodyError"
6060 sc `shouldBe` (5,0,0)
6161 -}
6262 it "ioException" $ withTestServer $ \prt -> do
63− sc <- rspCode <$> sendGET (concat $ ["http://localhost:", show prt, "/ioException"])
63+ sc <- rspCode <$> sendGET (concat $ ["http://127.0.0.1:", show prt, "/ioException"])
6464 sc `shouldBe` (5,0,0)
6565
6666----------------------------------------------------------------