equal
deleted
inserted
replaced
244 newMasterId <- liftM (head . filter (/= ci)) . io $ roomClientsIndicesM rnc ri |
244 newMasterId <- liftM (head . filter (/= ci)) . io $ roomClientsIndicesM rnc ri |
245 newMaster <- io $ client'sM rnc id newMasterId |
245 newMaster <- io $ client'sM rnc id newMasterId |
246 oldRoomName <- io $ room'sM rnc name ri |
246 oldRoomName <- io $ room'sM rnc name ri |
247 let newRoomName = nick newMaster |
247 let newRoomName = nick newMaster |
248 mapM_ processAction [ |
248 mapM_ processAction [ |
249 ModifyRoom (\r -> r{masterID = newMasterId, name = newRoomName}), |
249 ModifyRoom (\r -> r{masterID = newMasterId, name = newRoomName, isRestrictedJoins = False, isRestrictedTeams = False}), |
250 ModifyClient2 newMasterId (\c -> c{isMaster = True}), |
250 ModifyClient2 newMasterId (\c -> c{isMaster = True}), |
251 AnswerClients [sendChan newMaster] ["ROOM_CONTROL_ACCESS", "1"] |
251 AnswerClients [sendChan newMaster] ["ROOM_CONTROL_ACCESS", "1"] |
252 ] |
252 ] |
253 |
253 |
254 proto <- client's clientProto |
254 proto <- client's clientProto |