 = elAttr' "button" (A.attrMap bm)

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