equal
deleted
inserted
replaced
274 , AnswerClients thisRoomChans ["CLIENT_FLAGS", "+hr", nick newMaster] |
274 , AnswerClients thisRoomChans ["CLIENT_FLAGS", "+hr", nick newMaster] |
275 ] |
275 ] |
276 |
276 |
277 newRoom' <- io $ room'sM rnc id ri |
277 newRoom' <- io $ room'sM rnc id ri |
278 chans <- liftM (map sendChan) $! sameProtoClientsS proto |
278 chans <- liftM (map sendChan) $! sameProtoClientsS proto |
279 processAction $ AnswerClients chans ("ROOM" : "UPD" : oldRoomName : roomInfo newRoomName newRoom') |
279 processAction $ AnswerClients chans ("ROOM" : "UPD" : oldRoomName : roomInfo (nick newMaster) newRoom') |
280 |
280 |
281 |
281 |
282 processAction (AddRoom roomName roomPassword) = do |
282 processAction (AddRoom roomName roomPassword) = do |
283 Just clId <- gets clientIndex |
283 Just clId <- gets clientIndex |
284 rnc <- gets roomsClients |
284 rnc <- gets roomsClients |