diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs index 517251a7a9..69864dc6d3 100644 --- a/Utility/WebApp.hs +++ b/Utility/WebApp.hs @@ -69,7 +69,7 @@ localSocket = do go $ Prelude.head addrs where hints = defaultHints - { addrFlags = [AI_ADDRCONFIG, AI_NUMERICSERV] + { addrFlags = [AI_ADDRCONFIG] , addrSocketType = Stream } go addr = bracketOnError (open addr) close (use addr)