textAreaC ∷ (DomBuilder t m, PostBuild t m) ⇒ TextArea → m () → m (Event t ())
textAreaC bm children = do
  (e,_) ← elAttr' "textarea" (A.attrMap bm) children
  return $ domEvent Click e
textAreaC bm children = do
  (e,_) ← elAttr' "textarea" (A.attrMap bm) children
  return $ domEvent Click e