equal
deleted
inserted
replaced
325 proto <- client's clientProto |
325 proto <- client's clientProto |
326 rnc <- gets roomsClients |
326 rnc <- gets roomsClients |
327 ri <- io $ clientRoomM rnc clId |
327 ri <- io $ clientRoomM rnc clId |
328 rm <- io $ room'sM rnc id ri |
328 rm <- io $ room'sM rnc id ri |
329 chans <- liftM (map sendChan) $! sameProtoClientsS proto |
329 chans <- liftM (map sendChan) $! sameProtoClientsS proto |
330 processAction $ AnswerClients chans ("ROOM" : "UPD" : name rm : roomInfo (name rm) rm) |
330 n <- client's nick |
|
331 processAction $ AnswerClients chans ("ROOM" : "UPD" : name rm : roomInfo n rm) |
331 |
332 |
332 |
333 |
333 processAction UnreadyRoomClients = do |
334 processAction UnreadyRoomClients = do |
334 ri <- clientRoomA |
335 ri <- clientRoomA |
335 roomPlayers <- roomClientsS ri |
336 roomPlayers <- roomClientsS ri |