-- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:69 -- {-# LANGUAGE OverloadedStrings #-} -- | This module exports HTML combinators used to create documents. -- module Text.Blaze.Html4.Strict ( module Text.Blaze.Html , docType , docTypeHtml , a , abbr , acronym , address , area , b , bdo , big , blockquote , body , br , button , caption , cite , code , col , colgroup , dd , del , dfn , div , dl , dt , em , fieldset , form , h1 , h2 , h3 , h4 , h5 , h6 , head , hr , html , i , img , input , ins , kbd , label , legend , li , link , map , meta , noscript , object , ol , optgroup , option , p , param , pre , q , samp , script , select , small , span , strong , style , sub , sup , table , tbody , td , textarea , tfoot , th , thead , title , tr , tt , ul , var ) where -- WARNING: The next block of code was automatically generated by -- src/Util/GenerateHtmlCombinators.hs:77 -- 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:156 -- -- | 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/strict.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:177 -- -- | Combinator for the @\@ element. This combinator will also -- insert the correct doctype. -- -- Example: -- -- > docTypeHtml $ span $ toHtml "foo" -- -- Result: -- -- > "http://www.w3.org/TR/html4/strict.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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:226 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:226 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:226 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | 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:226 -- -- | 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:199 -- -- | 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:199 -- -- | 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:226 -- -- | 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:226 -- -- | 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:199 -- -- | 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:199 -- -- | 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:199 -- -- | Combinator for the @\