$ domEvent Click e

buttonCD ∷ (DomBuilder t m, PostBuild t m) ⇒ Dynamic t Button → m () → m (Event t ())
buttonCD bDyn children = do
  (e,_) ← elDynAttr' "button" (A.attrMap <$> bDyn) chi
buttonC ∷ (DomBuilder t m, PostBuild t m) ⇒ Button → m () → m (Event t ())
buttonC bm children = do
  (e,_) ← elAttr' "button" (A.attrMap bm) children
  return $ domEvent Click e
buttonC bm children = do
  (e,_) ← elAttr' "button" (A.attrMap bm) children
  return $ domEvent Click e