gameServer/Actions.hs
branchqmlfrontend
changeset 10748 dc587913987c
parent 10732 7c4f9e5e447c
child 10786 712283ed86e0
--- a/gameServer/Actions.hs	Thu Dec 18 00:03:53 2014 +0300
+++ b/gameServer/Actions.hs	Sat Jan 03 23:46:26 2015 +0300
@@ -415,11 +415,12 @@
 processAction RemoveClientTeams = do
     (Just ci) <- gets clientIndex
     rnc <- gets roomsClients
+    n <- client's nick
 
     removeTeamActions <- io $ do
         rId <- clientRoomM rnc ci
         roomTeams <- room'sM rnc teams rId
-        return . Prelude.map (RemoveTeam . teamname) . Prelude.filter (\t -> teamownerId t == ci) $ roomTeams
+        return . Prelude.map (RemoveTeam . teamname) . Prelude.filter (\t -> teamowner t == n) $ roomTeams
 
     mapM_ processAction removeTeamActions