 bm children = snd <$> buttonD' bm children


buttonC ∷ (DomBuilder t m, PostBuild t m) ⇒ Button → m () → m (Event t ())
buttonC bm children = do
  (e,_) ← elAttr' "button" (A.attrMap bm) children
  retu
buttonD ∷ forall t m a. (DomBuilder t m, PostBuild t m) ⇒ Dynamic t Button → m a → m a
buttonD bm children = snd <$> buttonD' bm children
buttonD bm children = snd <$> buttonD' bm children