--- a/gameServer/HWProtoInRoomState.hs	Sat Mar 05 22:39:26 2011 +0300
+++ b/gameServer/HWProtoInRoomState.hs	Sun Mar 06 21:54:37 2011 +0300
@@ -15,7 +15,7 @@
 import HandlerUtils
 import RoomsAndClients
 
-handleCmd_inRoom :: CmdHandler c
+handleCmd_inRoom :: CmdHandler
 
 handleCmd_inRoom ["CHAT", msg] = do
     n <- clientNick
@@ -99,8 +99,8 @@
                 ModifyClient
                     (\c -> c{
                         teamsInGame = teamsInGame c - 1,
-                            clientClan = if teamsInGame c == 1 then Nothing else Just $ anotherTeamClan ci r
-                        })
+                        clientClan = if teamsInGame c == 1 then Nothing else Just $ anotherTeamClan ci r
+                    })
                 ]
     where
         anotherTeamClan ci = teamcolor . fromJust . find (\t -> teamownerId t == ci) . teams