summaryrefslogtreecommitdiff
path: root/Utility
diff options
context:
space:
mode:
Diffstat (limited to 'Utility')
-rw-r--r--Utility/WebApp.hs5
1 files changed, 1 insertions, 4 deletions
diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs
index bafc9ac22..1306b14c3 100644
--- a/Utility/WebApp.hs
+++ b/Utility/WebApp.hs
@@ -87,10 +87,7 @@ getSocket h = do
_ -> error "unable to bind to a local socket"
where
(hostname, port) = maybe (localhost, Nothing) splitHostPort h
- hints = defaultHints
- { addrFlags = [AI_ADDRCONFIG]
- , addrSocketType = Stream
- }
+ hints = defaultHints { addrSocketType = Stream }
{- Repeated attempts because bind sometimes fails for an
- unknown reason on OSX. -}
go addr = go' 100 addr