diff -r 304d149bb3dd -r 33fe91b2bcbf gameServer/HandlerUtils.hs --- a/gameServer/HandlerUtils.hs Sat Mar 05 13:07:02 2011 +0100 +++ b/gameServer/HandlerUtils.hs Sat Mar 05 22:16:29 2011 +0300 @@ -34,11 +34,8 @@ let ri = clientRoom rnc ci let otherRoomClients = map (client rnc) . filter (/= ci) $ roomClients rnc ri let cl = rnc `client` ci - let thisClan = clientClan cl - let sameClanClients = Prelude.filter (\c -> teamsInGame cl > 0 && clientClan c == thisClan) otherRoomClients - let spectators = Prelude.filter (\c -> teamsInGame c == 0) otherRoomClients - let sameClanOrSpec = if teamsInGame cl > 0 then sameClanClients else spectators - return $ map sendChan sameClanOrSpec + let sameClanClients = Prelude.filter (\c -> clientClan c == clientClan cl) otherRoomClients + return $ map sendChan sameClanClients roomClientsChans :: Reader (ClientIndex, IRnC) [ClientChan] roomClientsChans = do