--- a/gameServer/CoreTypes.hs	Thu Mar 13 23:25:31 2014 +0400
+++ b/gameServer/CoreTypes.hs	Fri Mar 14 00:42:04 2014 +0400
@@ -79,6 +79,8 @@
     | ShowReplay B.ByteString
     | Cleanup
     | RegisterEvent Event
+    | SaveRoom B.ByteString
+    | LoadRoom B.ByteString
 
 
 data Event = LobbyChatMessage
@@ -293,6 +295,7 @@
 
 
 data VoteType = VoteKick B.ByteString
+              | VoteMap B.ByteString
 
 
 newVoting :: VoteType -> Voting