diff -r 4346566c5a58 -r 4cb423f42105 gameServer/Actions.hs --- a/gameServer/Actions.hs Tue Sep 04 12:43:55 2012 +0200 +++ b/gameServer/Actions.hs Tue Sep 04 15:18:22 2012 +0400 @@ -244,11 +244,13 @@ newMasterId <- liftM (head . filter (/= ci)) . io $ roomClientsIndicesM rnc ri newMaster <- io $ client'sM rnc id newMasterId oldRoomName <- io $ room'sM rnc name ri + thisRoomChans <- liftM (map sendChan) $ roomClientsS ri let newRoomName = nick newMaster mapM_ processAction [ ModifyRoom (\r -> r{masterID = newMasterId, name = newRoomName, isRestrictedJoins = False, isRestrictedTeams = False}), ModifyClient2 newMasterId (\c -> c{isMaster = True}), - AnswerClients [sendChan newMaster] ["ROOM_CONTROL_ACCESS", "1"] + AnswerClients [sendChan newMaster] ["ROOM_CONTROL_ACCESS", "1"], + AnswerClients thisRoomChans ["WARNING", "New room admin is " `B.append` nick newMaster] ] proto <- client's clientProto