@@ -39,10 +39,10 @@ import Language.PureScript.Ide.Util
3939import Language.PureScript.Ide.Error
4040import Language.PureScript.Ide.Types
4141import Language.PureScript.Ide.Watcher
42−import Network hiding (socketPort)
42+import Network hiding (socketPort, accept)
4343import Network.BSD (getProtocolNumber)
4444import Network.Socket hiding (PortNumber, Type,
45− accept, sClose)
45+ sClose)
4646import Options.Applicative
4747import System.Directory
4848import System.FilePath
@@ -166,7 +166,9 @@ acceptCommand sock = do
166166 pure (cmd, h)
167167 where
168168 acceptConnection = liftIO $ do
169− (h,_,_) <- accept sock
169+ -- Use low level accept to prevent accidental reverse name resolution
170+ (s,_) <- accept sock
171+ h <- socketToHandle s ReadWriteMode
170172 hSetEncoding h utf8
171173 hSetBuffering h LineBuffering
172174 pure h