module main where
import network.socket
import control.concurrent
main :: io ()
main = do
sock bindsocket sock (sockaddrinet 4242 inaddr_any)
listen sock 10240
mainloop sock
mainloop :: socket -> io ()
mainloop sock = do
conn forkio $ runconn conn
mainloop sock
runconn :: (socket, sockaddr) -> io ()
runconn (sock, tcp) = do
sms peeraddr putstrln sms
runconn (sock, tcp)