@@ -128,10 +128,8 @@ attachWidgetFragment' rootElement wv w = do
128128 _ <- fire (catMaybes mes) $ return ()
129129 liftIO $ forM_ ers $ \(_ :=> TriggerInvocation _ cb) -> cb
130130 return ()
131− -- XXX should it `setInnerHtml rootElement ""` first? looks good without it
132− -- FIXME this assumes the `rootElement` already has a child
133− Just prerender <- getFirstChild rootElement
134− replaceChild rootElement (Just df) (Just prerender)
131+ setInnerHTML rootElement $ Just (""::String)
132+ appendChild rootElement (Just df)
135133 return (result, fc)
136134
137135data AppInput t = AppInput