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