--- a/gameServer/Actions.hs Fri Nov 02 10:07:30 2012 +0400
+++ b/gameServer/Actions.hs Fri Nov 02 10:17:52 2012 +0400
@@ -255,7 +255,7 @@
proto <- client's clientProto
ri <- clientRoomA
rnc <- gets roomsClients
- newMasterId <- liftM (head . filter (/= ci)) . io $ roomClientsIndicesM rnc ri
+ newMasterId <- liftM (last . filter (/= ci)) . io $ roomClientsIndicesM rnc ri
newMaster <- io $ client'sM rnc id newMasterId
oldRoomName <- io $ room'sM rnc name ri
oldMaster <- client's nick
@@ -326,8 +326,8 @@
rnc <- gets roomsClients
ri <- io $ clientRoomM rnc clId
rm <- io $ room'sM rnc id ri
+ n <- io $ client'sM rnc nick (masterID rm)
chans <- liftM (map sendChan) $! sameProtoClientsS proto
- n <- client's nick
processAction $ AnswerClients chans ("ROOM" : "UPD" : name rm : roomInfo n rm)