# HG changeset patch
# User unc0rr
# Date 1299871348 -10800
# Node ID a3a09b1076527f34f7e610dd56e77155a3658bb8
# Parent  cdcdf37e55324b70b9809318017bd5981328e190
 - Fix a problem with ghost teams (missing 'not')
 - Fix formatting a little bit

diff -r cdcdf37e5532 -r a3a09b107652 gameServer/Actions.hs
--- a/gameServer/Actions.hs	Thu Mar 10 22:28:40 2011 +0300
+++ b/gameServer/Actions.hs	Fri Mar 11 22:22:28 2011 +0300
@@ -206,11 +206,11 @@
         mapM_ processAction [AnswerClients chans ["LEFT", clNick, msg], RemoveClientTeams ci]
 
     io $ do
-            modifyRoom rnc (\r -> r{
-                    playersIn = playersIn r - 1,
-                    readyPlayers = if ready then readyPlayers r - 1 else readyPlayers r
-                    }) ri
-            moveClientToLobby rnc ci
+        modifyRoom rnc (\r -> r{
+                playersIn = playersIn r - 1,
+                readyPlayers = if ready then readyPlayers r - 1 else readyPlayers r
+                }) ri
+        moveClientToLobby rnc ci
 
 processAction ChangeMaster = do
     ri <- clientRoomA
@@ -282,7 +282,7 @@
     ri <- clientRoomA
     inGame <- io $ room'sM rnc gameinprogress ri
     chans <- othersChans
-    if inGame then
+    if not $ inGame then
             mapM_ processAction [
                 AnswerClients chans ["REMOVE_TEAM", teamName],
                 ModifyRoom (\r -> r{teams = Prelude.filter (\t -> teamName /= teamname t) $ teams r})