equal
deleted
inserted
replaced
12 import Utils |
12 import Utils |
13 import RoomsAndClients |
13 import RoomsAndClients |
14 |
14 |
15 acceptLoop :: Socket -> Chan CoreMessage -> IO () |
15 acceptLoop :: Socket -> Chan CoreMessage -> IO () |
16 acceptLoop servSock chan = forever $ |
16 acceptLoop servSock chan = forever $ |
17 Exception.handle |
|
18 (\(_ :: Exception.IOException) -> putStrLn "exception on connect") $ |
|
19 do |
17 do |
20 (sock, sockAddr) <- Network.Socket.accept servSock |
18 (sock, sockAddr) <- Network.Socket.accept servSock |
21 |
19 |
22 clientHost <- sockAddr2String sockAddr |
20 clientHost <- sockAddr2String sockAddr |
23 |
21 |