Fix compiler warnings

restaumatic · Apr 3, 2019 · 7a824cb · 7a824cb
1 parent c28661b
commit 7a824cb
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/http-proxy.cabal b/http-proxy.cabal
@@ -47,7 +47,7 @@ library
                       , http-conduit            >= 2.1.11      && < 2.2
                       , http-types              >= 0.8
                       , mtl                     >= 2.1
-                      , network                 >= 2.6
+                      , network                 == 2.7.*
                       , resourcet               >= 1.1
                       -- Not used directly but necessary to enforce < 0.2
                       , streaming-commons       >= 0.1         && < 0.2

diff --git a/test/Test/Util.hs b/test/Test/Util.hs
@@ -224,8 +224,9 @@ catchAny action onE =
 openLocalhostListenSocket :: IO (Socket, Port)
 openLocalhostListenSocket = do
     sock <- socket AF_INET Stream defaultProtocol
-    addr <- inet_addr "127.0.0.1"
-    bind sock (SockAddrInet aNY_PORT addr)
+    addr:_ <- getAddrInfo Nothing (Just "127.0.0.1") Nothing
+    bind sock (addrAddress addr)
     listen sock 10
     port <- fromIntegral <$> socketPort sock
     return (sock, port)
+