add 'minlength' to list of html5 combinators and run combinator gener…

…ation (#141)
jaspervdj · Mar 6, 2024 · bfaedb0 · bfaedb0
1 parent 6c49d62
commit bfaedb0
Show file tree

Hide file tree

Showing 3 changed files with 39 additions and 1 deletion.
diff --git a/src/Text/Blaze/Html5/Attributes.hs b/src/Text/Blaze/Html5/Attributes.hs
@@ -68,6 +68,7 @@ module Text.Blaze.Html5.Attributes
     , media
     , method
     , min
+    , minlength
     , multiple
     , name
     , novalidate
@@ -1301,6 +1302,24 @@ min :: AttributeValue  -- ^ Attribute value.
 min = attribute "min" " min=\""
 {-# INLINE min #-}
 
+-- WARNING: The next block of code was automatically generated by
+-- src/Util/GenerateHtmlCombinators.hs:249
+--
+-- | Combinator for the @minlength@ attribute.
+--
+-- Example:
+--
+-- > div ! minlength "bar" $ "Hello."
+--
+-- Result:
+--
+-- > <div minlength="bar">Hello.</div>
+--
+minlength :: AttributeValue  -- ^ Attribute value.
+          -> Attribute       -- ^ Resulting attribute.
+minlength = attribute "minlength" " minlength=\""
+{-# INLINE minlength #-}
+
 -- WARNING: The next block of code was automatically generated by
 -- src/Util/GenerateHtmlCombinators.hs:249
 --

diff --git a/src/Text/Blaze/XHtml5/Attributes.hs b/src/Text/Blaze/XHtml5/Attributes.hs
@@ -68,6 +68,7 @@ module Text.Blaze.XHtml5.Attributes
     , media
     , method
     , min
+    , minlength
     , multiple
     , name
     , novalidate
@@ -1301,6 +1302,24 @@ min :: AttributeValue  -- ^ Attribute value.
 min = attribute "min" " min=\""
 {-# INLINE min #-}
 
+-- WARNING: The next block of code was automatically generated by
+-- src/Util/GenerateHtmlCombinators.hs:249
+--
+-- | Combinator for the @minlength@ attribute.
+--
+-- Example:
+--
+-- > div ! minlength "bar" $ "Hello."
+--
+-- Result:
+--
+-- > <div minlength="bar">Hello.</div>
+--
+minlength :: AttributeValue  -- ^ Attribute value.
+          -> Attribute       -- ^ Resulting attribute.
+minlength = attribute "minlength" " minlength=\""
+{-# INLINE minlength #-}
+
 -- WARNING: The next block of code was automatically generated by
 -- src/Util/GenerateHtmlCombinators.hs:249
 --

diff --git a/src/Util/GenerateHtmlCombinators.hs b/src/Util/GenerateHtmlCombinators.hs
@@ -431,7 +431,7 @@ html5 = HtmlVariant
         , "hreflang", "http-equiv", "icon", "id", "ismap", "item", "itemprop"
         , "itemscope", "itemtype"
         , "keytype", "label", "lang", "list", "loop", "low", "manifest", "max"
-        , "maxlength", "media", "method", "min", "multiple", "name"
+        , "maxlength", "media", "method", "min", "minlength", "multiple", "name"
         , "novalidate", "onbeforeonload", "onbeforeprint", "onblur", "oncanplay"
         , "oncanplaythrough", "onchange", "oncontextmenu", "onclick"
         , "ondblclick", "ondrag", "ondragend", "ondragenter", "ondragleave"