@@ -40,10 +40,10 @@ import Language.PureScript.Ide.Util
4040import Language.PureScript.Ide.Error
4141import Language.PureScript.Ide.Types
4242import Language.PureScript.Ide.Watcher
43−import Network hiding (socketPort)
43+import Network hiding (socketPort, accept)
4444import Network.BSD (getProtocolNumber)
4545import Network.Socket hiding (PortNumber, Type,
46− accept, sClose)
46+ sClose)
4747import Options.Applicative
4848import System.Directory
4949import System.FilePath
@@ -167,7 +167,9 @@ acceptCommand sock = do
167167 pure (cmd, h)
168168 where
169169 acceptConnection = liftIO $ do
170− (h,_,_) <- accept sock
170+ -- Use low level accept to prevent accidental reverse name resolution
171+ (s,_) <- accept sock
172+ h <- socketToHandle s ReadWriteMode
171173 hSetEncoding h utf8
172174 hSetBuffering h LineBuffering
173175 pure h