equal
deleted
inserted
replaced
264 when (isJust newMasterId) $ |
264 when (isJust newMasterId) $ |
265 mapM_ processAction [ |
265 mapM_ processAction [ |
266 ModifyClient2 (fromJust newMasterId) (\c -> c{isMaster = True}) |
266 ModifyClient2 (fromJust newMasterId) (\c -> c{isMaster = True}) |
267 , AnswerClients [sendChan $ fromJust newMaster] ["ROOM_CONTROL_ACCESS", "1"] |
267 , AnswerClients [sendChan $ fromJust newMaster] ["ROOM_CONTROL_ACCESS", "1"] |
268 , AnswerClients thisRoomChans ["CLIENT_FLAGS", "+h", nick $ fromJust newMaster] |
268 , AnswerClients thisRoomChans ["CLIENT_FLAGS", "+h", nick $ fromJust newMaster] |
|
269 -- TODO: Send message to other clients, too (requires proper localization, however) |
|
270 , AnswerClients [sendChan $ fromJust newMaster] ["CHAT", nickServer, loc "You're the new room master!"] |
269 ] |
271 ] |
270 |
272 |
271 processAction $ |
273 processAction $ |
272 ModifyRoom (\r -> r{masterID = newMasterId |
274 ModifyRoom (\r -> r{masterID = newMasterId |
273 , name = newRoomName |
275 , name = newRoomName |
821 #else |
823 #else |
822 processAction SaveReplay = return () |
824 processAction SaveReplay = return () |
823 processAction CheckRecord = return () |
825 processAction CheckRecord = return () |
824 processAction (CheckFailed _) = return () |
826 processAction (CheckFailed _) = return () |
825 processAction (CheckSuccess _) = return () |
827 processAction (CheckSuccess _) = return () |
826 processAction (QueryReplay _) = return () |
828 processAction (QueryReplay _) = processAction $ Warning $ loc "This server does not support replays!" |
827 #endif |
829 #endif |
828 |
830 |
829 processAction (ShowReplay rname) = do |
831 processAction (ShowReplay rname) = do |
830 c <- client's sendChan |
832 c <- client's sendChan |
831 cl <- client's id |
833 cl <- client's id |