--- 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