@@ -68,6 +68,7 @@ attachWidget' :: DOM.IsElement e => e -> WebViewSingleton x -> Widget x a -> IO
68attachWidget' rootElement wv w = do
68attachWidget' rootElement wv w = do
69 Just doc <- getOwnerDocument rootElement
69 Just doc <- getOwnerDocument rootElement
70 events <- newChan
70 events <- newChan
71+ setInnerHTML rootElement $ Just (""::String)
71 (result, fc@(FireCommand fire)) <- runSpiderHost $ do
72 (result, fc@(FireCommand fire)) <- runSpiderHost $ do
72 (postBuild, postBuildTriggerRef) <- newEventWithTriggerRef
73 (postBuild, postBuildTriggerRef) <- newEventWithTriggerRef
73 let builderEnv = ImmediateDomBuilderEnv
74 let builderEnv = ImmediateDomBuilderEnv