  , _textAreaAutoFocus   ∷ Maybe A.AutoFocus
  , _textAreaCols        ∷ Maybe A.Cols
  , _textAreaDirName     ∷ Maybe A.DirName
  , _textAreaDisabled    ∷ Maybe A.Disabled
  , _textAreaForm        ∷ Maybe A.Form
  , _textAreaMaxLength   ∷ Maybe A.MaxLength
  , _textAreaMinLength   ∷ Maybe A.MinLength
  , _textAreaName        ∷ Maybe A.Name
  , _textAreaPlaceholder ∷ Maybe A.Placeholder
  , _textAreaReadOnly    ∷ Maybe A.ReadOnly
  , _textAreaRequired    ∷ Maybe A.Required
  , _textAreaRows        ∷ Maybe A.Rows
  , _textAreaWrap        ∷ Maybe A.Wrap

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



------------------------------------------------------------------------------
------------------------------------------------------------------------------

-- | TextArea-element has the following attributes:
-- globals; autofocus; cols; dirname; disabled; form; maxlength; minlength;
-- name; placeholder; readonly; required; rows; wrap
--
selectCD bDyn children = do
  (e,_) ← elDynAttr' "select" (A.attrMap <$> bDyn) children
  return $ domEvent Click e



------------------------------------------------------------------------------
------------------------------------------------------------------------------

-- | TextArea-element has the following attributes:
-- globals; autofocus; cols; dirname; disabled; form; maxlength; minlength;
-- name; placeholder; readonly; required; rows; wrap
--