textAreaCD ∷ (DomBuilder t m, PostBuild t m) ⇒ Dynamic t TextArea → m () → m (Event t ())
textAreaCD bDyn children = do
  (e,_) ← elDynAttr' "textarea" (A.attrMap <$> bDyn) children
  return $ domEvent Click e
textAreaCD bDyn children = do
  (e,_) ← elDynAttr' "textarea" (A.attrMap <$> bDyn) children
  return $ domEvent Click e