@@ -17,6 +17,7 @@ module Reflex.Dom.Old
1717 , buildEmptyElementNS
1818 , deleteBetweenExclusive
1919 , onEventName
20+ , schedulePostBuild
2021 ) where
2122
2223import Control.Arrow ((***))
@@ -131,3 +132,8 @@ deleteBetweenExclusive s e = do
131132
132133onEventName :: IsElement e => EventName en -> e -> EventM e (EventType en) () -> IO (IO ())
133134onEventName = elementOnEventName
135+
136+schedulePostBuild :: (PostBuild t m, PerformEvent t m) => WidgetHost m () -> m ()
137+schedulePostBuild w = do
138+ postBuild <- getPostBuild
139+ performEvent_ $ w <$ postBuild