changeset 5209 | f7a610e2ef5f |
parent 4987 | cf9470964dba |
child 7757 | c20e6c80e249 |
--- a/gameServer/NetRoutines.hs Thu May 12 23:29:31 2011 +0200 +++ b/gameServer/NetRoutines.hs Sun May 15 18:10:01 2011 +0400 @@ -14,8 +14,6 @@ acceptLoop :: Socket -> Chan CoreMessage -> IO () acceptLoop servSock chan = forever $ - Exception.handle - (\(_ :: Exception.IOException) -> putStrLn "exception on connect") $ do (sock, sockAddr) <- Network.Socket.accept servSock