Skip to content

Commit

Permalink
generate combinators
Browse files Browse the repository at this point in the history
  • Loading branch information
jaspervdj committed Mar 6, 2024
1 parent 890ac56 commit f56ba88
Show file tree
Hide file tree
Showing 2 changed files with 38 additions and 0 deletions.
19 changes: 19 additions & 0 deletions src/Text/Blaze/Html5/Attributes.hs
Original file line number Diff line number Diff line change
Expand Up @@ -140,6 +140,7 @@ module Text.Blaze.Html5.Attributes
, ping
, placeholder
, preload
, property
, pubdate
, radiogroup
, readonly
Expand Down Expand Up @@ -2596,6 +2597,24 @@ preload :: AttributeValue -- ^ Attribute value.
preload = attribute "preload" " preload=\""
{-# INLINE preload #-}

-- WARNING: The next block of code was automatically generated by
-- src/Util/GenerateHtmlCombinators.hs:249
--
-- | Combinator for the @property@ attribute.
--
-- Example:
--
-- > div ! property "bar" $ "Hello."
--
-- Result:
--
-- > <div property="bar">Hello.</div>
--
property :: AttributeValue -- ^ Attribute value.
-> Attribute -- ^ Resulting attribute.
property = attribute "property" " property=\""
{-# INLINE property #-}

-- WARNING: The next block of code was automatically generated by
-- src/Util/GenerateHtmlCombinators.hs:249
--
Expand Down
19 changes: 19 additions & 0 deletions src/Text/Blaze/XHtml5/Attributes.hs
Original file line number Diff line number Diff line change
Expand Up @@ -140,6 +140,7 @@ module Text.Blaze.XHtml5.Attributes
, ping
, placeholder
, preload
, property
, pubdate
, radiogroup
, readonly
Expand Down Expand Up @@ -2596,6 +2597,24 @@ preload :: AttributeValue -- ^ Attribute value.
preload = attribute "preload" " preload=\""
{-# INLINE preload #-}

-- WARNING: The next block of code was automatically generated by
-- src/Util/GenerateHtmlCombinators.hs:249
--
-- | Combinator for the @property@ attribute.
--
-- Example:
--
-- > div ! property "bar" $ "Hello."
--
-- Result:
--
-- > <div property="bar">Hello.</div>
--
property :: AttributeValue -- ^ Attribute value.
-> Attribute -- ^ Resulting attribute.
property = attribute "property" " property=\""
{-# INLINE property #-}

-- WARNING: The next block of code was automatically generated by
-- src/Util/GenerateHtmlCombinators.hs:249
--
Expand Down

0 comments on commit f56ba88

Please sign in to comment.