@@ -69,9 +69,8 @@ processAsyncEvents events run (FireCommand fire) = forkIO $ forever $ do
6969 ers <- readChan events
7070 _ <- run $ do
7171 mes <-
72− liftIO $ for ers $ \(EventTriggerRef er :=> TriggerInvocation a _) -> do
73− me <- readIORef er
74− return $ fmap (\e -> e :=> Identity a) me
72+ liftIO $ for ers $ \(EventTriggerRef er :=> TriggerInvocation a _) ->
73+ fmap (\ e -> e :=> Identity a) <$> readIORef er
7574 _ <- fire (catMaybes mes) $ return ()
7675 liftIO $ for_ ers $ \(_ :=> TriggerInvocation _ cb) -> cb
7776 return ()