@@ -14,6 +14,7 @@ import Control.Exception (bracketOnError)
1414
1515-- Copied from upstream impl of listenOn
1616-- bound to localhost interface instead of iNADDR_ANY
17+listenOnLocalhost :: PortID -> IO Socket
1718listenOnLocalhost (PortNumber port) = do
1819 proto <- getProtocolNumber "tcp"
1920 localhost <- inet_addr "127.0.0.1"
@@ -27,6 +28,7 @@ listenOnLocalhost (PortNumber port) = do
2728 return sock
2829 )
2930
31+listenOnLocalhostAnyPort :: IO (Socket, PortNumber)
3032listenOnLocalhostAnyPort = do
3133 proto <- getProtocolNumber "tcp"
3234 localhost <- inet_addr "127.0.0.1"