equal
deleted
inserted
replaced
11 import CoreTypes |
11 import CoreTypes |
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 $ do |
16 acceptLoop servSock chan = forever $ |
17 Exception.handle |
17 Exception.handle |
18 (\(_ :: Exception.IOException) -> putStrLn "exception on connect") $ |
18 (\(_ :: Exception.IOException) -> putStrLn "exception on connect") $ |
19 do |
19 do |
20 (sock, sockAddr) <- Network.Socket.accept servSock |
20 (sock, sockAddr) <- Network.Socket.accept servSock |
21 |
21 |