--- a/gameServer/HWProtoInRoomState.hs	Thu Mar 20 22:14:30 2014 +0400
+++ b/gameServer/HWProtoInRoomState.hs	Sun Mar 23 23:35:33 2014 +0400
@@ -9,7 +9,6 @@
 import Control.Monad.Reader
 --------------------------------------
 import CoreTypes
-import Actions
 import Utils
 import HandlerUtils
 import RoomsAndClients
@@ -398,6 +397,12 @@
             return [AnswerClients [sendChan cl] ["CHAT", "[server]", "callvote kick: no such user"]]
 
 
+handleCmd_inRoom ["CALLVOTE", "MAP"] = do
+    cl <- thisClient
+    s <- liftM (Map.keys . roomSaves) thisRoom
+    return [AnswerClients [sendChan cl] ["CHAT", "[server]", B.concat ["callvote map: ", B.intercalate ", " s]]]
+
+
 handleCmd_inRoom ["CALLVOTE", "MAP", roomSave] = do
     cl <- thisClient
     rm <- thisRoom