equal
deleted
inserted
replaced
490 voted (p == ["FORCE"]) (fromJust b) |
490 voted (p == ["FORCE"]) (fromJust b) |
491 else |
491 else |
492 return [AnswerClients [sendChan cl] ["CHAT", "[server]", "vote: 'yes' or 'no'"]] |
492 return [AnswerClients [sendChan cl] ["CHAT", "[server]", "vote: 'yes' or 'no'"]] |
493 |
493 |
494 |
494 |
495 handleCmd_inRoom ["SAVE", stateName] = serverAdminOnly $ do |
495 handleCmd_inRoom ["SAVE", stateName, location] = serverAdminOnly $ do |
496 return [ModifyRoom $ \r -> r{roomSaves = Map.insert stateName (mapParams r, params r) (roomSaves r)}] |
496 return [ModifyRoom $ \r -> r{roomSaves = Map.insert stateName (location, mapParams r, params r) (roomSaves r)}] |
497 |
497 |
498 handleCmd_inRoom ["DELETE", stateName] = serverAdminOnly $ do |
498 handleCmd_inRoom ["DELETE", stateName] = serverAdminOnly $ do |
499 return [ModifyRoom $ \r -> r{roomSaves = Map.delete stateName (roomSaves r)}] |
499 return [ModifyRoom $ \r -> r{roomSaves = Map.delete stateName (roomSaves r)}] |
500 |
500 |
501 handleCmd_inRoom ["SAVEROOM", fileName] = serverAdminOnly $ do |
501 handleCmd_inRoom ["SAVEROOM", fileName] = serverAdminOnly $ do |