diff -r 878e551f0b4a -r f7a610e2ef5f gameServer/NetRoutines.hs
--- 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