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

textAreaCD ∷ (DomBuilder t m, 
textAreaN ∷ forall t m a. DomBuilder t m ⇒ m a → m a
textAreaN children = snd <$> textAreaN' children
textAreaN children = snd <$> textAreaN' children