on develop help sign in
getPostBuild
c1e8e10ali abrar
src/Reflex/Dom/Class.hs+6
@@ -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
124
124
125+getPostBuild :: MonadWidget t m => m (Event t ())
126+getPostBuild = do
127+ (e, trigger) <- newEventWithTriggerRef
128+ schedulePostBuild $ runFrameWithTriggerRef trigger ()
129+ return e
130+
125--------------------------------------------------------------------------------
131--------------------------------------------------------------------------------
126--------------------------------------------------------------------------------
132--------------------------------------------------------------------------------
127{-
133{-