@@ -640,22 +640,6 @@ elDynHtmlAttr' elementTag attrs html = do
640640 addVoidAction $ fmap (liftIO . htmlElementSetInnerHTML e) $ updated html
641641 wrapElement e
642642
643−{-
644−
645−--TODO: Update dynamically
646−{-# INLINABLE dynHtml #-}
647−dynHtml :: MonadWidget t m => Dynamic t String -> m ()
648−dynHtml ds = do
649− let mkSelf h = do
650− doc <- askDocument
651− Just e <- liftIO $ liftM (fmap castToHTMLElement) $ documentCreateElement doc "div"
652− liftIO $ htmlElementSetInnerHTML e h
653− return e
654− eCreated <- performEvent . fmap mkSelf . tagDyn ds =<< getEInit
655− putEChildren $ fmap ((:[]) . toNode) eCreated
656−
657−-}
658−
659643data Link t
660644 = Link { _link_clicked :: Event t ()
661645 }