diff -r 8fd1808b12ed -r db7743e2fad1 gameServer/HWProtoInRoomState.hs --- a/gameServer/HWProtoInRoomState.hs Wed Feb 24 22:37:03 2016 +0300 +++ b/gameServer/HWProtoInRoomState.hs Thu Feb 25 23:17:52 2016 +0300 @@ -492,8 +492,8 @@ return [AnswerClients [sendChan cl] ["CHAT", "[server]", "vote: 'yes' or 'no'"]] -handleCmd_inRoom ["SAVE", stateName] = serverAdminOnly $ do - return [ModifyRoom $ \r -> r{roomSaves = Map.insert stateName (mapParams r, params r) (roomSaves r)}] +handleCmd_inRoom ["SAVE", stateName, location] = serverAdminOnly $ do + return [ModifyRoom $ \r -> r{roomSaves = Map.insert stateName (location, mapParams r, params r) (roomSaves r)}] handleCmd_inRoom ["DELETE", stateName] = serverAdminOnly $ do return [ModifyRoom $ \r -> r{roomSaves = Map.delete stateName (roomSaves r)}]