git.iko.soy/Idris-dev
on master help sign in
utility to listen on any port, returning the port number and the socket
7a3b2e7Hannes Mehnert
src/Util/Net.hs+15−2
compare with master
unifiedsplit
@@ -1,6 +1,6 @@
1−module Util.Net (listenOnLocalhost) where
1+module Util.Net (listenOnLocalhost, listenOnLocalhostAnyPort) where
2
2
3−import Network
3+import Network hiding (socketPort)
4import Network.Socket hiding (sClose, PortNumber)
4import Network.Socket hiding (sClose, PortNumber)
5import Network.BSD (getProtocolNumber)
5import Network.BSD (getProtocolNumber)
6import Control.Exception (bracketOnError)
6import Control.Exception (bracketOnError)
@@ -20,3 +20,16 @@ listenOnLocalhost (PortNumber port) = do
20 return sock
20 return sock
21 )
21 )
22
22
23+listenOnLocalhostAnyPort = do
24+ proto <- getProtocolNumber "tcp"
25+ localhost <- inet_addr "127.0.0.1"
26+ bracketOnError
27+ (socket AF_INET Stream proto)
28+ (sClose)
29+ (\sock -> do
30+ setSocketOption sock ReuseAddr 1
31+ bindSocket sock (SockAddrInet aNY_PORT localhost)
32+ listen sock maxListenQueue
33+ port <- socketPort sock
34+ return (sock, port)
35+ )