--- a/gameServer/NetRoutines.hs	Sun Feb 06 18:59:53 2011 +0300
+++ b/gameServer/NetRoutines.hs	Sun Feb 06 21:50:29 2011 +0300
@@ -13,7 +13,7 @@
 import RoomsAndClients
 
 acceptLoop :: Socket -> Chan CoreMessage -> IO ()
-acceptLoop servSock chan = forever $ do
+acceptLoop servSock chan = forever $
     Exception.handle
         (\(_ :: Exception.IOException) -> putStrLn "exception on connect") $
         do