git.iko.soy/reflex-dom
on develop help sign in
Avoid using ++ where it would be slow
1177c3dHamish Mackenzie
reflex-dom-core/src/Reflex/Dom/Builder/Immediate.hs+3−3
compare with develop
unifiedsplit
@@ -224,11 +224,11 @@ runImmediateDomBuilderT (ImmediateDomBuilderT a) env eventChan = do
224 freeRequestAnimationFrameCallback cb
224 freeRequestAnimationFrameCallback cb
225 handlersToRun <- liftIO $ takeMVar handlersMVar
225 handlersToRun <- liftIO $ takeMVar handlersMVar
226 liftIO $ putMVar handlersMVar []
226 liftIO $ putMVar handlersMVar []
227− sequence_ handlersToRun
227+ sequence_ (reverse handlersToRun)
228 void $ Window.requestAnimationFrame win cb
228 void $ Window.requestAnimationFrame win cb
229− liftIO $ putMVar handlersMVar $ handlers ++ [do
229+ liftIO $ putMVar handlersMVar ((do
230 v <- synchronously x
230 v <- synchronously x
231− void . liftIO $ f v]
231+ void . liftIO $ f v) : handlers)
232
232
233class Monad m => HasDocument m where
233class Monad m => HasDocument m where
234 askDocument :: m Document
234 askDocument :: m Document