--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gameServer/Votes.hs	Wed Jan 22 09:19:08 2014 +0400
@@ -0,0 +1,17 @@
+module Votes where
+
+import Data.Unique
+import CoreTypes
+import RoomsAndClients
+import Control.Monad.Reader
+import Control.Monad.State
+import ServerState
+
+voted :: Unique -> Bool -> Reader (ClientIndex, IRnC) [Action]
+voted = undefined
+
+startVote :: VoteType -> Reader (ClientIndex, IRnC) [Action]
+startVote = undefined
+
+checkVotes :: StateT ServerState IO ()
+checkVotes = undefined