equal
deleted
inserted
replaced
324 else |
324 else |
325 if isJust $ find (\r -> newName == name r) rs then |
325 if isJust $ find (\r -> newName == name r) rs then |
326 [Warning $ loc "A room with the same name already exists."] |
326 [Warning $ loc "A room with the same name already exists."] |
327 else |
327 else |
328 [ModifyRoom roomUpdate, |
328 [ModifyRoom roomUpdate, |
329 AnswerClients chans ("ROOM" : "UPD" : name rm : roomInfo (clientProto cl) (nick cl) (roomUpdate rm))] |
329 AnswerClients chans ("ROOM" : "UPD" : name rm : roomInfo (clientProto cl) (nick cl) (roomUpdate rm)), |
|
330 RegisterEvent RoomNameUpdate] |
330 where |
331 where |
331 roomUpdate r = r{name = newName} |
332 roomUpdate r = r{name = newName} |
332 |
333 |
333 |
334 |
334 handleCmd_inRoom ["KICK", kickNick] = roomAdminOnly $ do |
335 handleCmd_inRoom ["KICK", kickNick] = roomAdminOnly $ do |