--- a/gameServer/Votes.hs	Wed Jan 29 09:17:25 2014 -0500
+++ b/gameServer/Votes.hs	Thu Jan 30 00:18:32 2014 +0400
@@ -11,7 +11,6 @@
 import Utils
 import CoreTypes
 import HandlerUtils
-import Actions
 
 
 voted :: Bool -> Reader (ClientIndex, IRnC) [Action]
@@ -67,7 +66,7 @@
 startVote :: VoteType -> Reader (ClientIndex, IRnC) [Action]
 startVote vt = do
     (ci, rnc) <- ask
-    cl <- thisClient
+    --cl <- thisClient
     rm <- thisRoom
     chans <- roomClientsChans