@@ -37,7 +37,7 @@ w = do
3737 _ <- widgetHold (text "Starting") $ text . T.pack . show <$> n
3838 return ()
3939 -}
40− {- Many dyns
40+-- {- Many dyns
4141 slow = elAttr "div" ("style" =: "position:relative;width:256px;height:256px") $ go maxDepth
4242 where maxDepth = 6 :: Int
4343 go 0 = blank
@@ -48,7 +48,7 @@ w = do
4848 elAttr "div" ("style" =: s "left:50%;right:0;top:0;bottom:50%") $ go $ pred n
4949 elAttr "div" ("style" =: s "left:50%;right:0;top:50%;bottom:0") $ go $ pred n
5050 elAttr "div" ("style" =: s "left:0;right:50%;top:50%;bottom:0") $ go $ pred n
51− -}
51+-- -}
5252 {- Many elDynAttrs
5353 slow = do
5454 let size = 64
@@ -94,6 +94,7 @@ w = do
9494 traverseDMapWithKeyWithAdjustWithMove f (DMap.singleton LeftTag $ Const2 ()) $ (PatchDMapWithMove.moveDMapKey LeftTag RightTag) <$ postBuild
9595 return ()
9696 -}
97+ {-
9798 slow = do
9899 let h x = do
99100 liftIO $ putStrLn "render hook"
@@ -110,11 +111,11 @@ w = do
110111 postBuild <- getPostBuild
111112 _ <- traverseDMapWithKeyWithAdjust f mempty $ PatchDMap (DMap.singleton (Const2 () :: Const2 () () ()) (ComposeMaybe $ Just $ Identity ())) <$ postBuild
112113 return ()
114+ -}
113115 el "div" $ do
114116 draw <- button "Draw"
115117 widgetHold blank $ ffor draw $ \_ -> do
116− postBuild <- getPostBuild
117− widgetHold (text "Loading...") $ slow <$ postBuild
118+ _ <- untilReady (text "Loading...") slow
118119 return ()
119120 return ()
120121