gameServer/HWProtoInRoomState.hs
changeset 14862 111c4d750c6d
parent 14468 b444f100a625
child 15900 fc3cb23fd26f
equal deleted inserted replaced
14861:b02581c5b0c5 14862:111c4d750c6d
   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