--- a/gameServer/HWProtoInRoomState.hs	Tue Apr 12 21:28:37 2011 +0400
+++ b/gameServer/HWProtoInRoomState.hs	Tue Apr 12 22:31:48 2011 +0400
@@ -205,7 +205,8 @@
     chans <- roomClientsChans
 
     if isMaster cl && gameinprogress rm then
-        return $ ModifyRoom
+        return $ 
+            ModifyRoom
                 (\r -> r{
                     gameinprogress = False,
                     readyPlayers = 0,