 PostBuild t m) ⇒ Dynamic t Embed → m () → m (Event t ())
-- uiEmbedD bDyn children = do
embedCD ∷ (DomBuilder t m, PostBuild t m) ⇒ Dynamic t Embed → m (Event t ())
embedCD bDyn = do
  (e,_) ← elDynAttr' "embed" (A.attrMap <$> bDyn) blank
  return $ domEvent Click e




------------------------------------------------------------------------------
-------------------------------------------------------
embedC ∷ (DomBuilder t m, PostBuild t m) ⇒ Embed → m (Event t ())
embedC bm = do
  (e,_) ← elAttr' "embed" (A.attrMap bm) blank
  return $ domEvent Click e

-- uiEmbedD ∷ (DomBuilder t m, PostBuild t m) ⇒ Dynamic t Embed → m () → m (Event t ())
-- uiEmbedD bDyn children = do
embedC bm = do
  (e,_) ← elAttr' "embed" (A.attrMap bm) blank
  return $ domEvent Click e

-- uiEmbedD ∷ (DomBuilder t m, PostBuild t m) ⇒ Dynamic t Embed → m () → m (Event t ())
-- uiEmbedD bDyn children = do