@@ -523,10 +523,12 @@ instance (Reflex t, MonadAdjust t m, MonadJSM m, MonadHold t m, PerformEvent t m
523523 result <- runReaderT (unImmediateDomBuilderT child) $ initialEnv
524524 { _immediateDomBuilderEnv_parent = toNode df
525525 }
526− deleteBetweenExclusive before after
527− insertBefore df after
528− return result
529− return (result0, result')
526+ let update = do
527+ deleteBetweenExclusive before after
528+ insertBefore df after
529+ return (result, update)
530+ requestDomAction_ $ snd <$> result'
531+ return (result0, fst <$> result')
530532 traverseDMapWithKeyWithAdjust (f :: forall a. k a -> v a -> ImmediateDomBuilderT t m (v' a)) (dm0 :: DMap k v) dm' = do
531533 initialEnv <- ImmediateDomBuilderT ask
532534 (children0, children') <- ImmediateDomBuilderT $ lift $ traverseDMapWithKeyWithAdjust (\k v -> drawChildUpdate initialEnv $ f k v) dm0 dm'