@@ -253,28 +253,6 @@ dynamicAttributesToModifyAttributesWithInitial attrs0 d = do
253253 return $ if Map.null p then Nothing else Just p
254254 return modificationsNeeded
255255
256−--------------------------------------------------------------------------------
257−-- Copied and pasted from Reflex.Widget.Class
258−--------------------------------------------------------------------------------
259−
260−{-
261−schedulePostBuild x = performEvent_ . (x <$) =<< getPostBuild
262−
263−elDynHtml' :: DomBuilder t m => Text -> Dynamic t Text -> m (El t)
264−elDynHtml' elementTag html = do
265− e <- buildEmptyElement elementTag (Map.empty :: Map Text Text)
266− schedulePostBuild $ setInnerHTML e . Just =<< sample (current html)
267− performEvent_ $ fmap (setInnerHTML e . Just) $ updated html
268− wrapElement defaultDomEventHandler e
269−
270−elDynHtmlAttr' :: DomBuilder t m => Text -> Map Text Text -> Dynamic t Text -> m (El t)
271−elDynHtmlAttr' elementTag attrs html = do
272− e <- buildEmptyElement elementTag attrs
273− schedulePostBuild $ setInnerHTML e . Just =<< sample (current html)
274− performEvent_ $ fmap (setInnerHTML e . Just) $ updated html
275− wrapElement defaultDomEventHandler e
276−-}
277−
278256{-# DEPRECATED Link, linkClass, link "Use domEvent directly" #-}
279257newtype Link t
280258 = Link { _link_clicked :: Event t ()