author | unc0rr |
Fri, 02 Nov 2012 10:07:30 +0400 | |
changeset 7924 | 351f970c60e1 |
parent 7921 | 6b074de32bea |
child 7926 | 550083f61a0e |
--- a/gameServer/Actions.hs Fri Nov 02 00:09:40 2012 +0400 +++ b/gameServer/Actions.hs Fri Nov 02 10:07:30 2012 +0400 @@ -327,7 +327,8 @@ ri <- io $ clientRoomM rnc clId rm <- io $ room'sM rnc id ri chans <- liftM (map sendChan) $! sameProtoClientsS proto - processAction $ AnswerClients chans ("ROOM" : "UPD" : name rm : roomInfo (name rm) rm) + n <- client's nick + processAction $ AnswerClients chans ("ROOM" : "UPD" : name rm : roomInfo n rm) processAction UnreadyRoomClients = do