diff -r 426aafe1f3ed -r 26fc5502ba22 gameServer/Actions.hs --- a/gameServer/Actions.hs Mon Mar 24 21:32:24 2014 +0400 +++ b/gameServer/Actions.hs Thu Mar 27 23:25:31 2014 +0400 @@ -803,3 +803,6 @@ rnc <- gets roomsClients actions <- liftIO $ withRoomsAndClients rnc (\irnc -> runReader (handleCmd cmd) (ci, irnc)) forM_ (actions `deepseq` actions) processAction + +processAction CheckVotes = + checkVotes >>= mapM_ processAction \ No newline at end of file