# HG changeset patch
# User unc0rr
# Date 1390367948 -14400
# Node ID ca11d122f54e6833f4c6184d00a716c6a1f5e840
# Parent  97d11e754dd2d02b1a83a44389d6d3843e2ab3e5
Oops, forgot this

diff -r 97d11e754dd2 -r ca11d122f54e gameServer/Votes.hs
--- /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