clear mount node before attaching a widget
commit814a03f7042cfb5f075054cdc7f855c9c2c3f0ad
authorLuigy Leon <luichi.19@gmail.com>
dateWed 8 Jun 2016, 16:43 (10 years ago)
parent7543c4a
src/Reflex/Dom/Internal.hs+1
@@ -68,6 +68,7 @@ attachWidget' :: DOM.IsElement e => e -> WebViewSingleton x -> Widget x a -> IO
6868attachWidget' rootElement wv w = do
6969 Just doc <- getOwnerDocument rootElement
7070 events <- newChan
71+ setInnerHTML rootElement $ Just (""::String)
7172 (result, fc@(FireCommand fire)) <- runSpiderHost $ do
7273 (postBuild, postBuildTriggerRef) <- newEventWithTriggerRef
7374 let builderEnv = ImmediateDomBuilderEnv