1 module Votes where

     2 

     3 import Data.Unique

     4 import CoreTypes

     5 import RoomsAndClients

     6 import Control.Monad.Reader

     7 import Control.Monad.State

     8 import ServerState

     9 

    10 voted :: Unique -> Bool -> Reader (ClientIndex, IRnC) [Action]

    11 voted = undefined

    12 

    13 startVote :: VoteType -> Reader (ClientIndex, IRnC) [Action]

    14 startVote = undefined

    15 

    16 checkVotes :: StateT ServerState IO ()

    17 checkVotes = undefined