@@ -122,6 +122,12 @@ performEventAsync e = do
122 o $ \a -> postGui $ mapM_ (\t -> runWithActions [t :=> a]) =<< readRef reResultTrigger
122 o $ \a -> postGui $ mapM_ (\t -> runWithActions [t :=> a]) =<< readRef reResultTrigger
123 return eResult
123 return eResult
125+getPostBuild :: MonadWidget t m => m (Event t ())
127+ (e, trigger) <- newEventWithTriggerRef
128+ schedulePostBuild $ runFrameWithTriggerRef trigger ()
125--------------------------------------------------------------------------------
131--------------------------------------------------------------------------------
126--------------------------------------------------------------------------------
132--------------------------------------------------------------------------------