equal
deleted
inserted
replaced
801 processAction (ReactCmd cmd) = do |
801 processAction (ReactCmd cmd) = do |
802 (Just ci) <- gets clientIndex |
802 (Just ci) <- gets clientIndex |
803 rnc <- gets roomsClients |
803 rnc <- gets roomsClients |
804 actions <- liftIO $ withRoomsAndClients rnc (\irnc -> runReader (handleCmd cmd) (ci, irnc)) |
804 actions <- liftIO $ withRoomsAndClients rnc (\irnc -> runReader (handleCmd cmd) (ci, irnc)) |
805 forM_ (actions `deepseq` actions) processAction |
805 forM_ (actions `deepseq` actions) processAction |
|
806 |
|
807 processAction CheckVotes = |
|
808 checkVotes >>= mapM_ processAction |