[sc-40147] - Adds more aria props

flipstone · Nov 26, 2024 · bf0de58 · bf0de58
1 parent e15779e
commit bf0de58
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/DOM/Erumu/HTML/Attributes.purs b/src/DOM/Erumu/HTML/Attributes.purs
@@ -2,10 +2,13 @@ module DOM.Erumu.HTML.Attributes
   ( action
   , alt
   , ariaControls
+  , ariaDescribedby
   , ariaExpanded
   , ariaHaspopup
   , ariaHidden
+  , ariaInvalid
   , ariaLabelledby
+  , ariaLive
   , ariaModal
   , ariaOrientation
   , autocomplete
@@ -82,6 +85,9 @@ alt = attribute "alt"
 ariaControls :: forall msg. String -> Prop msg
 ariaControls = attribute "aria-controls"
 
+ariaDescribedby :: forall msg. String -> Prop msg
+ariaDescribedby = attribute "aria-describedby"
+
 ariaExpanded :: forall msg. Boolean -> Prop msg
 ariaExpanded = attribute "aria-expanded" <<< show
 
@@ -91,9 +97,15 @@ ariaHaspopup = attribute "aria-haspopup" <<< show
 ariaHidden :: forall msg. Boolean -> Prop msg
 ariaHidden = attribute "aria-hidden" <<< show
 
+ariaInvalid :: forall msg. Boolean -> Prop msg
+ariaInvalid = attribute "aria-invalid" <<< show
+
 ariaLabelledby :: forall msg. String -> Prop msg
 ariaLabelledby = attribute "aria-labelledby"
 
+ariaLive :: forall msg. String -> Prop msg
+ariaLive = attribute "aria-live"
+
 ariaModal :: forall msg. Boolean -> Prop msg
 ariaModal = attribute "aria-modal" <<< show