File: fix-tests

package info (click to toggle)
haskell-http-conduit 2.3.7.3-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 232 kB
  • sloc: haskell: 1,561; makefile: 3
file content (11 lines) | stat: -rw-r--r-- 540 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
 
--- a/test/main.hs
+++ b/test/main.hs
@@ -406,7 +406,7 @@
     describe "hostAddress" $ do
         it "overrides host" $ withApp app $ \port -> do
             req' <- parseUrlThrow $ "http://example.com:" ++ show port
-            let req = req' { hostAddress = Just 0x0100007f } -- 127.0.0.1
+            let req = req' { hostAddress = Just $ NS.tupleToHostAddress (127, 0, 0, 1) }
             manager <- newManager tlsManagerSettings
             res <- httpLbs req manager
             responseBody res @?= "homepage for example.com"