| changeset 10090 | a471a7bbc339 |
| parent 10086 | 4a7ce724357f |
| child 10092 | a92a4ba39a79 |
| 10089:c6e5ed83fb83 | 10090:a471a7bbc339 |
|---|---|
780 jm <- gets joinsMonitor |
780 jm <- gets joinsMonitor |
781 |
781 |
782 io $ do |
782 io $ do |
783 t <- getCurrentTime |
783 t <- getCurrentTime |
784 cleanup jm t |
784 cleanup jm t |
785 |
|
786 |
|
787 processAction (RegisterEvent e) = do |
|
788 actions <- registerEvent e |
|
789 mapM_ processAction actions |