File: remove-AI_ADDRCONFIG

package info (click to toggle)
haskell-connection 0.3.1-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, sid
  • size: 120 kB
  • sloc: haskell: 333; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 474 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
--- a/Network/Connection.hs
+++ b/Network/Connection.hs
@@ -226,7 +226,7 @@
     -- succeed
     resolve' :: String -> PortNumber -> IO (Socket, SockAddr)
     resolve' host port = do
-        let hints = defaultHints { addrFlags = [AI_ADDRCONFIG], addrSocketType = Stream }
+        let hints = defaultHints { addrSocketType = Stream }
         addrs <- getAddrInfo (Just hints) (Just host) (Just $ show port)
         firstSuccessful $ map tryToConnect addrs
       where