Merge pull request #4192 from commercialhaskell/improve-4191-network-flags

upload integration test: Fix invocation to getAddrInfo

Author: mihaimaruseac

test/integration/tests/upload/files/FakeHackage.hs

@@ -18,7 +18,7 @@ main =
 serve :: IO ()
 serve = do
     let hints = defaultHints {addrFlags = [AI_PASSIVE], addrSocketType = Stream}
-    (addr:_) <- getAddrInfo Nothing Nothing (Just "12415")
+    (addr:_) <- getAddrInfo (Just hints) Nothing (Just "12415")
     sock <- socket (addrFamily addr) (addrSocketType addr) (addrProtocol addr)
     setSocketOption sock ReuseAddr 1
     bind sock (addrAddress addr)