300f893 · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

on develop help sign in

Add elDynHtmlAttr'

300f893Doug Beardsley12 years ago

src/Reflex/Dom/Widget/Basic.hs+7

@@ -433,6 +433,13 @@ elDynHtml' elementTag html = do

433 addVoidAction $ fmap (liftIO . htmlElementSetInnerHTML e) $ updated html

434 wrapElement e

435

436+elDynHtmlAttr' :: MonadWidget t m => String -> Map String String -> Dynamic t String -> m (El t)

437+elDynHtmlAttr' elementTag attrs html = do

438+ e <- buildEmptyElement elementTag attrs

439+ schedulePostBuild $ liftIO . htmlElementSetInnerHTML e =<< sample (current html)

440+ addVoidAction $ fmap (liftIO . htmlElementSetInnerHTML e) $ updated html

441+ wrapElement e

442+

436{-

443{-

437

444

438--TODO: Update dynamically

445--TODO: Update dynamically