diff -r 795f5f918c8c -r 4ed428389c4e gameServer/CoreTypes.hs
--- a/gameServer/CoreTypes.hs	Thu Jan 23 00:07:27 2014 +0400
+++ b/gameServer/CoreTypes.hs	Thu Jan 23 01:04:17 2014 +0400
@@ -277,8 +277,8 @@
 data VoteType = VoteKick B.ByteString
 
 
-newVote :: VoteType -> Voting
-newVote = Voting 2 [] []
+newVoting :: VoteType -> Voting
+newVoting = Voting 2 [] []
 
 
 data AccountInfo =