@@ -224,11 +224,11 @@ runImmediateDomBuilderT (ImmediateDomBuilderT a) env eventChan = do
224224 freeRequestAnimationFrameCallback cb
225225 handlersToRun <- liftIO $ takeMVar handlersMVar
226226 liftIO $ putMVar handlersMVar []
227− sequence_ handlersToRun
227+ sequence_ (reverse handlersToRun)
228228 void $ Window.requestAnimationFrame win cb
229− liftIO $ putMVar handlersMVar $ handlers ++ [do
229+ liftIO $ putMVar handlersMVar ((do
230230 v <- synchronously x
231− void . liftIO $ f v]
231+ void . liftIO $ f v) : handlers)
232232
233233class Monad m => HasDocument m where
234234 askDocument :: m Document