m (Element EventResult (DomBuilderSpace m) t, a)
embedN' = el' "embed"

-- | 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 a
embed bm children = snd <$> embed' bm children
embed bm children = snd <$> embed' bm children