@@ -360,7 +360,7 @@ instance SupportsStaticDomBuilder t m => DomBuilder t (StaticDomBuilderT t m) wh
360 wrapRawElement () _ = return $ Element (EventSelector $ const never) ()
360 wrapRawElement () _ = return $ Element (EventSelector $ const never) ()
362--TODO: Make this more abstract --TODO: Put the WithWebView underneath PerformEventT - I think this would perform better
362--TODO: Make this more abstract --TODO: Put the WithWebView underneath PerformEventT - I think this would perform better
363−type StaticWidget x = StaticDomBuilderT DomTimeline (PostBuildT DomTimeline (PerformEventT DomTimeline DomHost))
363+type StaticWidget x = PostBuildT DomTimeline (StaticDomBuilderT DomTimeline (PerformEventT DomTimeline DomHost))
365{-# INLINE renderStatic #-}
365{-# INLINE renderStatic #-}
366renderStatic :: StaticWidget x a -> IO (a, ByteString)
366renderStatic :: StaticWidget x a -> IO (a, ByteString)
@@ -368,7 +368,7 @@ renderStatic w = do
368 runDomHost $ do
368 runDomHost $ do
369 (postBuild, postBuildTriggerRef) <- newEventWithTriggerRef
369 (postBuild, postBuildTriggerRef) <- newEventWithTriggerRef
370 let env0 = StaticDomBuilderEnv True Nothing
370 let env0 = StaticDomBuilderEnv True Nothing
371− ((res, bs), FireCommand fire) <- hostPerformEventT $ runPostBuildT (runStaticDomBuilderT w env0) postBuild
371+ ((res, bs), FireCommand fire) <- hostPerformEventT $ runStaticDomBuilderT (runPostBuildT w postBuild) env0
372 mPostBuildTrigger <- readRef postBuildTriggerRef
372 mPostBuildTrigger <- readRef postBuildTriggerRef
373 forM_ mPostBuildTrigger $ \postBuildTrigger -> fire [postBuildTrigger :=> Identity ()] $ return ()
373 forM_ mPostBuildTrigger $ \postBuildTrigger -> fire [postBuildTrigger :=> Identity ()] $ return ()
374 bs' <- sample bs
374 bs' <- sample bs