; autofocus; cols; dirname; disabled; form; maxlength; minlength;
-- name; placeholder; readonly; required; rows; wrap
--
data TextArea = TextArea
  { _textAreaGlobals     ∷ Maybe A.Global
selectC ∷ (DomBuilder t m, PostBuild t m) ⇒ Select → m () → m (Event t ())
selectC bm children = do
  (e,_) ← elAttr' "select" (A.attrMap bm) children
  return $ domEvent Click e
selectC bm children = do
  (e,_) ← elAttr' "select" (A.attrMap bm) children
  return $ domEvent Click e