 a → m a
embed bm children = snd <$> embed' bm children

-- | A short-hand notion for @ el\' \"embed\" ... @
embedN' ∷ forall t m a. DomBuilder t m ⇒ m a 
embed' ∷ forall t m a. DomBuilder t m ⇒ Embed → m a → m (Element EventResult (DomBuilderSpace m) t, a)
embed' bm  = elAttr' "embed" (A.attrMap bm)
embed' bm  = elAttr' "embed" (A.attrMap bm)