@@ -19,10 +19,10 @@ listenOnLocalhost (PortNumber port) = do
19 localhost <- inet_addr "127.0.0.1"
19 localhost <- inet_addr "127.0.0.1"
20 bracketOnError
20 bracketOnError
21 (socket AF_INET Stream proto)
21 (socket AF_INET Stream proto)
23 (\sock -> do
23 (\sock -> do
24 setSocketOption sock ReuseAddr 1
24 setSocketOption sock ReuseAddr 1
25− bindSocket sock (SockAddrInet port localhost)
25+ bind sock (SockAddrInet port localhost)
26 listen sock maxListenQueue
26 listen sock maxListenQueue
27 return sock
27 return sock
@@ -32,10 +32,10 @@ listenOnLocalhostAnyPort = do
32 localhost <- inet_addr "127.0.0.1"
32 localhost <- inet_addr "127.0.0.1"
33 bracketOnError
33 bracketOnError
34 (socket AF_INET Stream proto)
34 (socket AF_INET Stream proto)
36 (\sock -> do
36 (\sock -> do
37 setSocketOption sock ReuseAddr 1
37 setSocketOption sock ReuseAddr 1
38− bindSocket sock (SockAddrInet aNY_PORT localhost)
38+ bind sock (SockAddrInet aNY_PORT localhost)
39 listen sock maxListenQueue
39 listen sock maxListenQueue
40 port <- socketPort sock
40 port <- socketPort sock
41 return (sock, port)
41 return (sock, port)