diff -r eac6a4d53752 -r 7c4f9e5e447c gameServer/Actions.hs --- a/gameServer/Actions.hs Tue Dec 30 22:12:07 2014 +0300 +++ b/gameServer/Actions.hs Tue Dec 30 22:59:15 2014 +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