blaze-html-0.9.2.0/0000755000000000000000000000000007346545000012110 5ustar0000000000000000blaze-html-0.9.2.0/CHANGELOG0000644000000000000000000000365007346545000013326 0ustar0000000000000000# Changelog - 0.9.2.0 (2024-03-06) * Make XHTML5 doctype lowercase * Add new attributes to (X)HTML5: - `download` - `minlength` - `muted` - `onkeypress` - `poster` - `property` * Add new elements to (X)HTML5: - `bdi` - `data` - `dialog` - `picture` - `s` - `search` - `slot` - `template` - 0.9.1.2 (2019-10-02) * Bump QuickCheck dependency to 2.13 * Bump containers dependency to 0.6 * Check in generated code * Regenerate .travis.yml using haskell-ci - 0.9.1.1 (2018-06-12) * Fix generated source code on Hackage - 0.9.1.0 * Add `u` element to HTML5 * Add `role` attribute to HTML5 * Bump HUnit dependency to 1.6 * Bump QuickCheck dependency to 2.11 - 0.9.0.1 * Fix CHANGELOG - 0.9.0.0 * Bump blaze-html dependency to 0.8. This has a few consequences: - Make `MarkupM` finally adhere to the Monad laws - Stricten the `IsString` instance to only work with `MarkupM ()` and not `MarkupM a` - Change the type of `contents` to `MarkupM a -> MarkupM a` - Add a `Semigroup` instance for `MarkupM` - 0.7.1.1 - 0.8.1.3 * Bump HUnit dependency to 1.5 - 0.8.1.2 * Bump QuickCheck dependency to 2.9 - 0.8.1.1 * Bump HUnit dependency to 1.3 - 0.8.1.0 * Add `
` element to HTML5 - 0.8.0.2 * Relax blaze-builder dependency to include 0.3 again - 0.8.0.1 * Bump QuickCheck dependency to 2.8 - 0.8.0.0 * Bump blaze-builder dependency to 0.4 - 0.7.1.0 * Add `itemscope` and `itemprop` attributes * Constraint `blaze-markup` dependency - 0.7.0.3 * Dependency bump to allow `text-1.2` - 0.7.0.2 * Bump QuickCheck dependency to 2.7 - 0.7.0.1 * Fix incorrect blaze-markup dependency in tests - 0.7.0.0 * Bump blaze-markup so we get the (!?) operator for conditionally setting attributes blaze-html-0.9.2.0/LICENSE0000644000000000000000000000277507346545000013130 0ustar0000000000000000Copyright Jasper Van der Jeugt 2010 All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. * Neither the name of Jasper Van der Jeugt nor the names of other contributors may be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. blaze-html-0.9.2.0/Setup.hs0000644000000000000000000000005607346545000013545 0ustar0000000000000000import Distribution.Simple main = defaultMain blaze-html-0.9.2.0/blaze-html.cabal0000644000000000000000000000576107346545000015144 0ustar0000000000000000Cabal-version: >= 1.10 Name: blaze-html Version: 0.9.2.0 Homepage: http://jaspervdj.be/blaze Bug-Reports: http://github.com/jaspervdj/blaze-html/issues License: BSD3 License-file: LICENSE Author: Jasper Van der Jeugt, Simon Meier Maintainer: Jasper Van der Jeugt Stability: Experimental Category: Text Synopsis: A blazingly fast HTML combinator library for Haskell Description: A blazingly fast HTML combinator library for the Haskell programming language. The Text.Blaze module is a good starting point, as well as this tutorial: . Build-type: Simple Tested-with: GHC == 9.8.2 GHC == 9.6.4 GHC == 9.4.8 GHC == 9.2.8 GHC == 9.0.2 GHC == 8.10.7 GHC == 8.8.4 GHC == 8.6.5 GHC == 8.4.4 GHC == 8.2.2 GHC == 8.0.2 Extra-source-files: CHANGELOG src/Util/Sanitize.hs src/Util/GenerateHtmlCombinators.hs Library Hs-source-dirs: src Ghc-Options: -Wall Default-language: Haskell98 Exposed-modules: Text.Blaze.Html Text.Blaze.Html.Renderer.Pretty Text.Blaze.Html.Renderer.String Text.Blaze.Html.Renderer.Text Text.Blaze.Html.Renderer.Utf8 Text.Blaze.Html4.FrameSet Text.Blaze.Html4.FrameSet.Attributes Text.Blaze.Html4.Strict Text.Blaze.Html4.Strict.Attributes Text.Blaze.Html4.Transitional Text.Blaze.Html4.Transitional.Attributes Text.Blaze.Html5 Text.Blaze.Html5.Attributes Text.Blaze.XHtml1.FrameSet Text.Blaze.XHtml1.FrameSet.Attributes Text.Blaze.XHtml1.Strict Text.Blaze.XHtml1.Strict.Attributes Text.Blaze.XHtml1.Transitional Text.Blaze.XHtml1.Transitional.Attributes Text.Blaze.XHtml5 Text.Blaze.XHtml5.Attributes Build-depends: base >= 4 && < 5, blaze-builder >= 0.3 && < 0.5, blaze-markup >= 0.8 && < 0.9, bytestring >= 0.9 && < 0.13, text >= 0.10 && < 2.2 Test-suite blaze-html-tests Type: exitcode-stdio-1.0 Hs-source-dirs: src tests Main-is: TestSuite.hs Ghc-options: -Wall Default-language: Haskell98 Other-modules: Text.Blaze.Html Text.Blaze.Html.Renderer.String Text.Blaze.Html.Renderer.Text Text.Blaze.Html.Renderer.Utf8 Text.Blaze.Html.Tests Text.Blaze.Html.Tests.Util Text.Blaze.Html5 Text.Blaze.Html5.Attributes Util.Sanitize Util.Tests Build-depends: HUnit >= 1.2 && < 1.7, QuickCheck >= 2.4 && < 2.15, containers >= 0.3 && < 0.7, test-framework >= 0.4 && < 0.9, test-framework-hunit >= 0.3 && < 0.4, test-framework-quickcheck2 >= 0.3 && < 0.4, -- Copied from regular dependencies... base >= 4 && < 5, blaze-builder >= 0.3 && < 0.5, blaze-markup >= 0.8 && < 0.9, bytestring >= 0.9 && < 0.13, text >= 0.10 && < 2.2 Source-repository head Type: git Location: http://github.com/jaspervdj/blaze-html.git blaze-html-0.9.2.0/src/Text/Blaze/0000755000000000000000000000000007346545000014660 5ustar0000000000000000blaze-html-0.9.2.0/src/Text/Blaze/Html.hs0000644000000000000000000000043107346545000016116 0ustar0000000000000000module Text.Blaze.Html ( module Text.Blaze , Html , toHtml , preEscapedToHtml ) where import Text.Blaze type Html = Markup toHtml :: ToMarkup a => a -> Html toHtml = toMarkup preEscapedToHtml :: ToMarkup a => a -> Html preEscapedToHtml = preEscapedToMarkup blaze-html-0.9.2.0/src/Text/Blaze/Html/Renderer/0000755000000000000000000000000007346545000017332 5ustar0000000000000000blaze-html-0.9.2.0/src/Text/Blaze/Html/Renderer/Pretty.hs0000644000000000000000000000031407346545000021153 0ustar0000000000000000module Text.Blaze.Html.Renderer.Pretty ( renderHtml ) where import Text.Blaze.Html (Html) import Text.Blaze.Renderer.Pretty (renderMarkup) renderHtml :: Html -> String renderHtml = renderMarkup blaze-html-0.9.2.0/src/Text/Blaze/Html/Renderer/String.hs0000644000000000000000000000031407346545000021132 0ustar0000000000000000module Text.Blaze.Html.Renderer.String ( renderHtml ) where import Text.Blaze.Html (Html) import Text.Blaze.Renderer.String (renderMarkup) renderHtml :: Html -> String renderHtml = renderMarkup blaze-html-0.9.2.0/src/Text/Blaze/Html/Renderer/Text.hs0000644000000000000000000000130107346545000020605 0ustar0000000000000000module Text.Blaze.Html.Renderer.Text ( renderHtmlBuilder , renderHtmlBuilderWith , renderHtml , renderHtmlWith ) where import Data.ByteString (ByteString) import Data.Text (Text) import Data.Text.Lazy.Builder (Builder) import Text.Blaze.Html (Html) import qualified Data.Text.Lazy as TL import qualified Text.Blaze.Renderer.Text as R renderHtmlBuilder :: Html -> Builder renderHtmlBuilder = R.renderMarkupBuilder renderHtmlBuilderWith :: (ByteString -> Text) -> Html -> Builder renderHtmlBuilderWith = R.renderMarkupBuilderWith renderHtml :: Html -> TL.Text renderHtml = R.renderMarkup renderHtmlWith :: (ByteString -> Text) -> Html -> TL.Text renderHtmlWith = R.renderMarkupWith blaze-html-0.9.2.0/src/Text/Blaze/Html/Renderer/Utf8.hs0000644000000000000000000000111607346545000020513 0ustar0000000000000000module Text.Blaze.Html.Renderer.Utf8 ( renderHtmlBuilder , renderHtml , renderHtmlToByteStringIO ) where import Blaze.ByteString.Builder (Builder) import Data.ByteString (ByteString) import Text.Blaze.Html (Html) import qualified Data.ByteString.Lazy as BL import qualified Text.Blaze.Renderer.Utf8 as R renderHtmlBuilder :: Html -> Builder renderHtmlBuilder = R.renderMarkupBuilder renderHtml :: Html -> BL.ByteString renderHtml = R.renderMarkup renderHtmlToByteStringIO :: (ByteString -> IO ()) -> Html -> IO () renderHtmlToByteStringIO = R.renderMarkupToByteStringIO blaze-html-0.9.2.0/src/Text/Blaze/Html4/0000755000000000000000000000000007346545000015650 5ustar0000000000000000blaze-html-0.9.2.0/src/Text/Blaze/Html4/FrameSet.hs0000644000000000000000000010670607346545000017724 0ustar0000000000000000-- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:70 -- {-# LANGUAGE OverloadedStrings #-} -- | This module exports HTML combinators used to create documents. -- module Text.Blaze.Html4.FrameSet ( module Text.Blaze.Html , docType , docTypeHtml , a , abbr , acronym , address , applet , area , b , basefont , bdo , big , blockquote , body , br , button , caption , center , cite , code , col , colgroup , dd , del , dfn , dir , div , dl , dt , em , fieldset , font , form , frame , frameset , h1 , h2 , h3 , h4 , h5 , h6 , head , hr , html , i , iframe , img , input , ins , isindex , kbd , label , legend , li , link , map , menu , meta , noframes , noscript , object , ol , optgroup , option , p , param , pre , q , s , samp , script , select , small , span , strong , style , sub , sup , table , tbody , td , textarea , tfoot , th , thead , title , tr , tt , u , ul , var ) where -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:78 -- import Prelude ((>>), (.)) import Text.Blaze import Text.Blaze.Internal import Text.Blaze.Html -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:157 -- -- | Combinator for the document type. This should be placed at the top -- of every HTML page. -- -- Example: -- -- > docType -- -- Result: -- -- > "http://www.w3.org/TR/html4/frameset.dtd"> -- docType :: Html -- ^ The document type HTML. docType = preEscapedText "\n" {-# INLINE docType #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:178 -- -- | Combinator for the @\@ element. This combinator will also -- insert the correct doctype. -- -- Example: -- -- > docTypeHtml $ span $ toHtml "foo" -- -- Result: -- -- > "http://www.w3.org/TR/html4/frameset.dtd"> -- > foo -- docTypeHtml :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. docTypeHtml inner = docType >> html inner {-# INLINE docTypeHtml #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > a $ span $ toHtml "foo" -- -- Result: -- -- > foo -- a :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. a = Parent "a" "" {-# INLINE a #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > abbr $ span $ toHtml "foo" -- -- Result: -- -- > foo -- abbr :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. abbr = Parent "abbr" "" {-# INLINE abbr #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > acronym $ span $ toHtml "foo" -- -- Result: -- -- > foo -- acronym :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. acronym = Parent "acronym" "" {-# INLINE acronym #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\
@ element. -- -- Example: -- -- > address $ span $ toHtml "foo" -- -- Result: -- -- >
foo
-- address :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. address = Parent "address" "" {-# INLINE address #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > applet $ span $ toHtml "foo" -- -- Result: -- -- > foo -- applet :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. applet = Parent "applet" "" {-# INLINE applet #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:227 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > area -- -- Result: -- -- > -- area :: Html -- ^ Resulting HTML. area = Leaf "area" "" () {-# INLINE area #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > b $ span $ toHtml "foo" -- -- Result: -- -- > foo -- b :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. b = Parent "b" "" {-# INLINE b #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:227 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > basefont -- -- Result: -- -- > -- basefont :: Html -- ^ Resulting HTML. basefont = Leaf "basefont" "" () {-# INLINE basefont #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > bdo $ span $ toHtml "foo" -- -- Result: -- -- > foo -- bdo :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. bdo = Parent "bdo" "" {-# INLINE bdo #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > big $ span $ toHtml "foo" -- -- Result: -- -- > foo -- big :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. big = Parent "big" "" {-# INLINE big #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\
@ element. -- -- Example: -- -- > blockquote $ span $ toHtml "foo" -- -- Result: -- -- >
foo
-- blockquote :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. blockquote = Parent "blockquote" "" {-# INLINE blockquote #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > body $ span $ toHtml "foo" -- -- Result: -- -- > foo -- body :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. body = Parent "body" "" {-# INLINE body #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:227 -- -- | Combinator for the @\
@ element. -- -- Example: -- -- > br -- -- Result: -- -- >
-- br :: Html -- ^ Resulting HTML. br = Leaf "br" "" () {-# INLINE br #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\ -- button :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. button = Parent "button" "" {-# INLINE button #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > caption $ span $ toHtml "foo" -- -- Result: -- -- > foo -- caption :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. caption = Parent "caption" "" {-# INLINE caption #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\
@ element. -- -- Example: -- -- > center $ span $ toHtml "foo" -- -- Result: -- -- >
foo
-- center :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. center = Parent "center" "" {-# INLINE center #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > cite $ span $ toHtml "foo" -- -- Result: -- -- > foo -- cite :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. cite = Parent "cite" "" {-# INLINE cite #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > code $ span $ toHtml "foo" -- -- Result: -- -- > foo -- code :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. code = Parent "code" "" {-# INLINE code #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:227 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > col -- -- Result: -- -- > -- col :: Html -- ^ Resulting HTML. col = Leaf "col" "" () {-# INLINE col #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > colgroup $ span $ toHtml "foo" -- -- Result: -- -- > foo -- colgroup :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. colgroup = Parent "colgroup" "" {-# INLINE colgroup #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\
@ element. -- -- Example: -- -- > dd $ span $ toHtml "foo" -- -- Result: -- -- >
foo
-- dd :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. dd = Parent "dd" "" {-# INLINE dd #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > del $ span $ toHtml "foo" -- -- Result: -- -- > foo -- del :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. del = Parent "del" "" {-# INLINE del #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > dfn $ span $ toHtml "foo" -- -- Result: -- -- > foo -- dfn :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. dfn = Parent "dfn" "" {-# INLINE dfn #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > dir $ span $ toHtml "foo" -- -- Result: -- -- > foo -- dir :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. dir = Parent "dir" "" {-# INLINE dir #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\
@ element. -- -- Example: -- -- > div $ span $ toHtml "foo" -- -- Result: -- -- >
foo
-- div :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. div = Parent "div" "" {-# INLINE div #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\
@ element. -- -- Example: -- -- > dl $ span $ toHtml "foo" -- -- Result: -- -- >
foo
-- dl :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. dl = Parent "dl" "" {-# INLINE dl #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\
@ element. -- -- Example: -- -- > dt $ span $ toHtml "foo" -- -- Result: -- -- >
foo
-- dt :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. dt = Parent "dt" "" {-# INLINE dt #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > em $ span $ toHtml "foo" -- -- Result: -- -- > foo -- em :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. em = Parent "em" "" {-# INLINE em #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\
@ element. -- -- Example: -- -- > fieldset $ span $ toHtml "foo" -- -- Result: -- -- >
foo
-- fieldset :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. fieldset = Parent "fieldset" "" {-# INLINE fieldset #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > font $ span $ toHtml "foo" -- -- Result: -- -- > foo -- font :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. font = Parent "font" "" {-# INLINE font #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\
@ element. -- -- Example: -- -- > form $ span $ toHtml "foo" -- -- Result: -- -- > foo
-- form :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. form = Parent "form" "" {-# INLINE form #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:227 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > frame -- -- Result: -- -- > -- frame :: Html -- ^ Resulting HTML. frame = Leaf "frame" "" () {-# INLINE frame #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > frameset $ span $ toHtml "foo" -- -- Result: -- -- > foo -- frameset :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. frameset = Parent "frameset" "" {-# INLINE frameset #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\

@ element. -- -- Example: -- -- > h1 $ span $ toHtml "foo" -- -- Result: -- -- >

foo

-- h1 :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. h1 = Parent "h1" "" {-# INLINE h1 #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\

@ element. -- -- Example: -- -- > h2 $ span $ toHtml "foo" -- -- Result: -- -- >

foo

-- h2 :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. h2 = Parent "h2" "" {-# INLINE h2 #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\

@ element. -- -- Example: -- -- > h3 $ span $ toHtml "foo" -- -- Result: -- -- >

foo

-- h3 :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. h3 = Parent "h3" "" {-# INLINE h3 #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\

@ element. -- -- Example: -- -- > h4 $ span $ toHtml "foo" -- -- Result: -- -- >

foo

-- h4 :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. h4 = Parent "h4" "" {-# INLINE h4 #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\
@ element. -- -- Example: -- -- > h5 $ span $ toHtml "foo" -- -- Result: -- -- >
foo
-- h5 :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. h5 = Parent "h5" "" {-# INLINE h5 #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\
@ element. -- -- Example: -- -- > h6 $ span $ toHtml "foo" -- -- Result: -- -- >
foo
-- h6 :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. h6 = Parent "h6" "" {-# INLINE h6 #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > head $ span $ toHtml "foo" -- -- Result: -- -- > foo -- head :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. head = Parent "head" "" {-# INLINE head #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:227 -- -- | Combinator for the @\
@ element. -- -- Example: -- -- > hr -- -- Result: -- -- >
-- hr :: Html -- ^ Resulting HTML. hr = Leaf "hr" "" () {-# INLINE hr #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > html $ span $ toHtml "foo" -- -- Result: -- -- > foo -- html :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. html = Parent "html" "" {-# INLINE html #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > i $ span $ toHtml "foo" -- -- Result: -- -- > foo -- i :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. i = Parent "i" "" {-# INLINE i #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\ -- iframe :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. iframe = Parent "iframe" "" {-# INLINE iframe #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:227 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > img -- -- Result: -- -- > -- img :: Html -- ^ Resulting HTML. img = Leaf "img" "" () {-# INLINE img #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:227 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > input -- -- Result: -- -- > -- input :: Html -- ^ Resulting HTML. input = Leaf "input" "" () {-# INLINE input #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > ins $ span $ toHtml "foo" -- -- Result: -- -- > foo -- ins :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. ins = Parent "ins" "" {-# INLINE ins #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > isindex $ span $ toHtml "foo" -- -- Result: -- -- > foo -- isindex :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. isindex = Parent "isindex" "" {-# INLINE isindex #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\@ element. -- -- Example: -- -- > kbd $ span $ toHtml "foo" -- -- Result: -- -- > foo -- kbd :: Html -- ^ Inner HTML. -> Html -- ^ Resulting HTML. kbd = Parent "kbd" "" {-# INLINE kbd #-} -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:200 -- -- | Combinator for the @\