equal
deleted
inserted
replaced
292 else |
292 else |
293 if isJust $ find (\r -> newName == name r) rs then |
293 if isJust $ find (\r -> newName == name r) rs then |
294 [Warning $ loc "Room with such name already exists"] |
294 [Warning $ loc "Room with such name already exists"] |
295 else |
295 else |
296 [ModifyRoom roomUpdate, |
296 [ModifyRoom roomUpdate, |
297 AnswerClients chans ("ROOM" : "UPD" : name rm : roomInfo (nick cl) (roomUpdate rm))] |
297 AnswerClients chans ("ROOM" : "UPD" : name rm : roomInfo (clientProto cl) (nick cl) (roomUpdate rm))] |
298 where |
298 where |
299 roomUpdate r = r{name = newName} |
299 roomUpdate r = r{name = newName} |
300 |
300 |
301 |
301 |
302 handleCmd_inRoom ["KICK", kickNick] = do |
302 handleCmd_inRoom ["KICK", kickNick] = do |