@@ -19,10 +19,10 @@ listenOnLocalhost (PortNumber port) = do
1919 localhost <- inet_addr "127.0.0.1"
2020 bracketOnError
2121 (socket AF_INET Stream proto)
22− (sClose)
22+ (close)
2323 (\sock -> do
2424 setSocketOption sock ReuseAddr 1
25− bindSocket sock (SockAddrInet port localhost)
25+ bind sock (SockAddrInet port localhost)
2626 listen sock maxListenQueue
2727 return sock
2828 )
@@ -32,10 +32,10 @@ listenOnLocalhostAnyPort = do
3232 localhost <- inet_addr "127.0.0.1"
3333 bracketOnError
3434 (socket AF_INET Stream proto)
35− (sClose)
35+ (close)
3636 (\sock -> do
3737 setSocketOption sock ReuseAddr 1
38− bindSocket sock (SockAddrInet aNY_PORT localhost)
38+ bind sock (SockAddrInet aNY_PORT localhost)
3939 listen sock maxListenQueue
4040 port <- socketPort sock
4141 return (sock, port)