1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
From 7151b07c79710fc845bac78f2e6fe3d69b7fce01 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 18 Jun 2020 14:40:29 +0300
Subject: [PATCH] Remove ADDRCONFIG and close #400
diff --git a/Network/HTTP/Client/Connection.hs b/Network/HTTP/Client/Connection.hs
index 7215f494..e56a8cf1 100644
--- a/Network/HTTP/Client/Connection.hs
+++ b/Network/HTTP/Client/Connection.hs
@@ -145,10 +145,7 @@ openSocketConnectionSize :: (Socket -> IO ())
-> Int -- ^ port
-> IO Connection
openSocketConnectionSize tweakSocket chunksize hostAddress' host' port' = do
- let hints = NS.defaultHints {
- NS.addrFlags = [NS.AI_ADDRCONFIG]
- , NS.addrSocketType = NS.Stream
- }
+ let hints = NS.defaultHints { NS.addrSocketType = NS.Stream }
addrs <- case hostAddress' of
Nothing ->
NS.getAddrInfo (Just hints) (Just host') (Just $ show port')
|
