@@ -253,28 +253,6 @@ dynamicAttributesToModifyAttributesWithInitial attrs0 d = do
253 return $ if Map.null p then Nothing else Just p
253 return $ if Map.null p then Nothing else Just p
254 return modificationsNeeded
254 return modificationsNeeded
256−--------------------------------------------------------------------------------
257−-- Copied and pasted from Reflex.Widget.Class
258−--------------------------------------------------------------------------------
261−schedulePostBuild x = performEvent_ . (x <$) =<< getPostBuild
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
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
278{-# DEPRECATED Link, linkClass, link "Use domEvent directly" #-}
256{-# DEPRECATED Link, linkClass, link "Use domEvent directly" #-}
279newtype Link t
257newtype Link t
280 = Link { _link_clicked :: Event t ()
258 = Link { _link_clicked :: Event t ()