1-- WARNING: The next block of code was automatically generated by
2-- src/Util/GenerateHtmlCombinators.hs:69
3--
4{-# LANGUAGE OverloadedStrings #-}
5-- | This module exports HTML combinators used to create documents.
6--
7module Text.Blaze.Html4.Transitional
8    ( module Text.Blaze.Html
9    , docType
10    , docTypeHtml
11    , a
12    , abbr
13    , acronym
14    , address
15    , applet
16    , area
17    , b
18    , basefont
19    , bdo
20    , big
21    , blockquote
22    , body
23    , br
24    , button
25    , caption
26    , center
27    , cite
28    , code
29    , col
30    , colgroup
31    , dd
32    , del
33    , dfn
34    , dir
35    , div
36    , dl
37    , dt
38    , em
39    , fieldset
40    , font
41    , form
42    , h1
43    , h2
44    , h3
45    , h4
46    , h5
47    , h6
48    , head
49    , hr
50    , html
51    , i
52    , iframe
53    , img
54    , input
55    , ins
56    , isindex
57    , kbd
58    , label
59    , legend
60    , li
61    , link
62    , map
63    , menu
64    , meta
65    , noframes
66    , noscript
67    , object
68    , ol
69    , optgroup
70    , option
71    , p
72    , param
73    , pre
74    , q
75    , s
76    , samp
77    , script
78    , select
79    , small
80    , span
81    , strong
82    , style
83    , sub
84    , sup
85    , table
86    , tbody
87    , td
88    , textarea
89    , tfoot
90    , th
91    , thead
92    , title
93    , tr
94    , tt
95    , u
96    , ul
97    , var
98    ) where
99
100-- WARNING: The next block of code was automatically generated by
101-- src/Util/GenerateHtmlCombinators.hs:77
102--
103import Prelude ((>>), (.))
104
105import Text.Blaze
106import Text.Blaze.Internal
107import Text.Blaze.Html
108
109-- WARNING: The next block of code was automatically generated by
110-- src/Util/GenerateHtmlCombinators.hs:156
111--
112-- | Combinator for the document type. This should be placed at the top
113-- of every HTML page.
114--
115-- Example:
116--
117-- > docType
118--
119-- Result:
120--
121-- > <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
122-- >     "http://www.w3.org/TR/html4/loose.dtd">
123--
124docType :: Html  -- ^ The document type HTML.
125docType = preEscapedText "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"\n    \"http://www.w3.org/TR/html4/loose.dtd\">\n"
126{-# INLINE docType #-}
127
128-- WARNING: The next block of code was automatically generated by
129-- src/Util/GenerateHtmlCombinators.hs:177
130--
131-- | Combinator for the @\<html>@ element. This combinator will also
132-- insert the correct doctype.
133--
134-- Example:
135--
136-- > docTypeHtml $ span $ toHtml "foo"
137--
138-- Result:
139--
140-- > <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
141-- >     "http://www.w3.org/TR/html4/loose.dtd">
142-- > <html><span>foo</span></html>
143--
144docTypeHtml :: Html  -- ^ Inner HTML.
145            -> Html  -- ^ Resulting HTML.
146docTypeHtml inner = docType >> html inner
147{-# INLINE docTypeHtml #-}
148
149-- WARNING: The next block of code was automatically generated by
150-- src/Util/GenerateHtmlCombinators.hs:199
151--
152-- | Combinator for the @\<a>@ element.
153--
154-- Example:
155--
156-- > a $ span $ toHtml "foo"
157--
158-- Result:
159--
160-- > <a><span>foo</span></a>
161--
162a :: Html  -- ^ Inner HTML.
163  -> Html  -- ^ Resulting HTML.
164a = Parent "a" "<a" "</a>"
165{-# INLINE a #-}
166
167-- WARNING: The next block of code was automatically generated by
168-- src/Util/GenerateHtmlCombinators.hs:199
169--
170-- | Combinator for the @\<abbr>@ element.
171--
172-- Example:
173--
174-- > abbr $ span $ toHtml "foo"
175--
176-- Result:
177--
178-- > <abbr><span>foo</span></abbr>
179--
180abbr :: Html  -- ^ Inner HTML.
181     -> Html  -- ^ Resulting HTML.
182abbr = Parent "abbr" "<abbr" "</abbr>"
183{-# INLINE abbr #-}
184
185-- WARNING: The next block of code was automatically generated by
186-- src/Util/GenerateHtmlCombinators.hs:199
187--
188-- | Combinator for the @\<acronym>@ element.
189--
190-- Example:
191--
192-- > acronym $ span $ toHtml "foo"
193--
194-- Result:
195--
196-- > <acronym><span>foo</span></acronym>
197--
198acronym :: Html  -- ^ Inner HTML.
199        -> Html  -- ^ Resulting HTML.
200acronym = Parent "acronym" "<acronym" "</acronym>"
201{-# INLINE acronym #-}
202
203-- WARNING: The next block of code was automatically generated by
204-- src/Util/GenerateHtmlCombinators.hs:199
205--
206-- | Combinator for the @\<address>@ element.
207--
208-- Example:
209--
210-- > address $ span $ toHtml "foo"
211--
212-- Result:
213--
214-- > <address><span>foo</span></address>
215--
216address :: Html  -- ^ Inner HTML.
217        -> Html  -- ^ Resulting HTML.
218address = Parent "address" "<address" "</address>"
219{-# INLINE address #-}
220
221-- WARNING: The next block of code was automatically generated by
222-- src/Util/GenerateHtmlCombinators.hs:199
223--
224-- | Combinator for the @\<applet>@ element.
225--
226-- Example:
227--
228-- > applet $ span $ toHtml "foo"
229--
230-- Result:
231--
232-- > <applet><span>foo</span></applet>
233--
234applet :: Html  -- ^ Inner HTML.
235       -> Html  -- ^ Resulting HTML.
236applet = Parent "applet" "<applet" "</applet>"
237{-# INLINE applet #-}
238
239-- WARNING: The next block of code was automatically generated by
240-- src/Util/GenerateHtmlCombinators.hs:226
241--
242-- | Combinator for the @\<area />@ element.
243--
244-- Example:
245--
246-- > area
247--
248-- Result:
249--
250-- > <area />
251--
252area :: Html  -- ^ Resulting HTML.
253area = Leaf "area" "<area" ">" ()
254{-# INLINE area #-}
255
256-- WARNING: The next block of code was automatically generated by
257-- src/Util/GenerateHtmlCombinators.hs:199
258--
259-- | Combinator for the @\<b>@ element.
260--
261-- Example:
262--
263-- > b $ span $ toHtml "foo"
264--
265-- Result:
266--
267-- > <b><span>foo</span></b>
268--
269b :: Html  -- ^ Inner HTML.
270  -> Html  -- ^ Resulting HTML.
271b = Parent "b" "<b" "</b>"
272{-# INLINE b #-}
273
274-- WARNING: The next block of code was automatically generated by
275-- src/Util/GenerateHtmlCombinators.hs:226
276--
277-- | Combinator for the @\<basefont />@ element.
278--
279-- Example:
280--
281-- > basefont
282--
283-- Result:
284--
285-- > <basefont />
286--
287basefont :: Html  -- ^ Resulting HTML.
288basefont = Leaf "basefont" "<basefont" ">" ()
289{-# INLINE basefont #-}
290
291-- WARNING: The next block of code was automatically generated by
292-- src/Util/GenerateHtmlCombinators.hs:199
293--
294-- | Combinator for the @\<bdo>@ element.
295--
296-- Example:
297--
298-- > bdo $ span $ toHtml "foo"
299--
300-- Result:
301--
302-- > <bdo><span>foo</span></bdo>
303--
304bdo :: Html  -- ^ Inner HTML.
305    -> Html  -- ^ Resulting HTML.
306bdo = Parent "bdo" "<bdo" "</bdo>"
307{-# INLINE bdo #-}
308
309-- WARNING: The next block of code was automatically generated by
310-- src/Util/GenerateHtmlCombinators.hs:199
311--
312-- | Combinator for the @\<big>@ element.
313--
314-- Example:
315--
316-- > big $ span $ toHtml "foo"
317--
318-- Result:
319--
320-- > <big><span>foo</span></big>
321--
322big :: Html  -- ^ Inner HTML.
323    -> Html  -- ^ Resulting HTML.
324big = Parent "big" "<big" "</big>"
325{-# INLINE big #-}
326
327-- WARNING: The next block of code was automatically generated by
328-- src/Util/GenerateHtmlCombinators.hs:199
329--
330-- | Combinator for the @\<blockquote>@ element.
331--
332-- Example:
333--
334-- > blockquote $ span $ toHtml "foo"
335--
336-- Result:
337--
338-- > <blockquote><span>foo</span></blockquote>
339--
340blockquote :: Html  -- ^ Inner HTML.
341           -> Html  -- ^ Resulting HTML.
342blockquote = Parent "blockquote" "<blockquote" "</blockquote>"
343{-# INLINE blockquote #-}
344
345-- WARNING: The next block of code was automatically generated by
346-- src/Util/GenerateHtmlCombinators.hs:199
347--
348-- | Combinator for the @\<body>@ element.
349--
350-- Example:
351--
352-- > body $ span $ toHtml "foo"
353--
354-- Result:
355--
356-- > <body><span>foo</span></body>
357--
358body :: Html  -- ^ Inner HTML.
359     -> Html  -- ^ Resulting HTML.
360body = Parent "body" "<body" "</body>"
361{-# INLINE body #-}
362
363-- WARNING: The next block of code was automatically generated by
364-- src/Util/GenerateHtmlCombinators.hs:226
365--
366-- | Combinator for the @\<br />@ element.
367--
368-- Example:
369--
370-- > br
371--
372-- Result:
373--
374-- > <br />
375--
376br :: Html  -- ^ Resulting HTML.
377br = Leaf "br" "<br" ">" ()
378{-# INLINE br #-}
379
380-- WARNING: The next block of code was automatically generated by
381-- src/Util/GenerateHtmlCombinators.hs:199
382--
383-- | Combinator for the @\<button>@ element.
384--
385-- Example:
386--
387-- > button $ span $ toHtml "foo"
388--
389-- Result:
390--
391-- > <button><span>foo</span></button>
392--
393button :: Html  -- ^ Inner HTML.
394       -> Html  -- ^ Resulting HTML.
395button = Parent "button" "<button" "</button>"
396{-# INLINE button #-}
397
398-- WARNING: The next block of code was automatically generated by
399-- src/Util/GenerateHtmlCombinators.hs:199
400--
401-- | Combinator for the @\<caption>@ element.
402--
403-- Example:
404--
405-- > caption $ span $ toHtml "foo"
406--
407-- Result:
408--
409-- > <caption><span>foo</span></caption>
410--
411caption :: Html  -- ^ Inner HTML.
412        -> Html  -- ^ Resulting HTML.
413caption = Parent "caption" "<caption" "</caption>"
414{-# INLINE caption #-}
415
416-- WARNING: The next block of code was automatically generated by
417-- src/Util/GenerateHtmlCombinators.hs:199
418--
419-- | Combinator for the @\<center>@ element.
420--
421-- Example:
422--
423-- > center $ span $ toHtml "foo"
424--
425-- Result:
426--
427-- > <center><span>foo</span></center>
428--
429center :: Html  -- ^ Inner HTML.
430       -> Html  -- ^ Resulting HTML.
431center = Parent "center" "<center" "</center>"
432{-# INLINE center #-}
433
434-- WARNING: The next block of code was automatically generated by
435-- src/Util/GenerateHtmlCombinators.hs:199
436--
437-- | Combinator for the @\<cite>@ element.
438--
439-- Example:
440--
441-- > cite $ span $ toHtml "foo"
442--
443-- Result:
444--
445-- > <cite><span>foo</span></cite>
446--
447cite :: Html  -- ^ Inner HTML.
448     -> Html  -- ^ Resulting HTML.
449cite = Parent "cite" "<cite" "</cite>"
450{-# INLINE cite #-}
451
452-- WARNING: The next block of code was automatically generated by
453-- src/Util/GenerateHtmlCombinators.hs:199
454--
455-- | Combinator for the @\<code>@ element.
456--
457-- Example:
458--
459-- > code $ span $ toHtml "foo"
460--
461-- Result:
462--
463-- > <code><span>foo</span></code>
464--
465code :: Html  -- ^ Inner HTML.
466     -> Html  -- ^ Resulting HTML.
467code = Parent "code" "<code" "</code>"
468{-# INLINE code #-}
469
470-- WARNING: The next block of code was automatically generated by
471-- src/Util/GenerateHtmlCombinators.hs:226
472--
473-- | Combinator for the @\<col />@ element.
474--
475-- Example:
476--
477-- > col
478--
479-- Result:
480--
481-- > <col />
482--
483col :: Html  -- ^ Resulting HTML.
484col = Leaf "col" "<col" ">" ()
485{-# INLINE col #-}
486
487-- WARNING: The next block of code was automatically generated by
488-- src/Util/GenerateHtmlCombinators.hs:199
489--
490-- | Combinator for the @\<colgroup>@ element.
491--
492-- Example:
493--
494-- > colgroup $ span $ toHtml "foo"
495--
496-- Result:
497--
498-- > <colgroup><span>foo</span></colgroup>
499--
500colgroup :: Html  -- ^ Inner HTML.
501         -> Html  -- ^ Resulting HTML.
502colgroup = Parent "colgroup" "<colgroup" "</colgroup>"
503{-# INLINE colgroup #-}
504
505-- WARNING: The next block of code was automatically generated by
506-- src/Util/GenerateHtmlCombinators.hs:199
507--
508-- | Combinator for the @\<dd>@ element.
509--
510-- Example:
511--
512-- > dd $ span $ toHtml "foo"
513--
514-- Result:
515--
516-- > <dd><span>foo</span></dd>
517--
518dd :: Html  -- ^ Inner HTML.
519   -> Html  -- ^ Resulting HTML.
520dd = Parent "dd" "<dd" "</dd>"
521{-# INLINE dd #-}
522
523-- WARNING: The next block of code was automatically generated by
524-- src/Util/GenerateHtmlCombinators.hs:199
525--
526-- | Combinator for the @\<del>@ element.
527--
528-- Example:
529--
530-- > del $ span $ toHtml "foo"
531--
532-- Result:
533--
534-- > <del><span>foo</span></del>
535--
536del :: Html  -- ^ Inner HTML.
537    -> Html  -- ^ Resulting HTML.
538del = Parent "del" "<del" "</del>"
539{-# INLINE del #-}
540
541-- WARNING: The next block of code was automatically generated by
542-- src/Util/GenerateHtmlCombinators.hs:199
543--
544-- | Combinator for the @\<dfn>@ element.
545--
546-- Example:
547--
548-- > dfn $ span $ toHtml "foo"
549--
550-- Result:
551--
552-- > <dfn><span>foo</span></dfn>
553--
554dfn :: Html  -- ^ Inner HTML.
555    -> Html  -- ^ Resulting HTML.
556dfn = Parent "dfn" "<dfn" "</dfn>"
557{-# INLINE dfn #-}
558
559-- WARNING: The next block of code was automatically generated by
560-- src/Util/GenerateHtmlCombinators.hs:199
561--
562-- | Combinator for the @\<dir>@ element.
563--
564-- Example:
565--
566-- > dir $ span $ toHtml "foo"
567--
568-- Result:
569--
570-- > <dir><span>foo</span></dir>
571--
572dir :: Html  -- ^ Inner HTML.
573    -> Html  -- ^ Resulting HTML.
574dir = Parent "dir" "<dir" "</dir>"
575{-# INLINE dir #-}
576
577-- WARNING: The next block of code was automatically generated by
578-- src/Util/GenerateHtmlCombinators.hs:199
579--
580-- | Combinator for the @\<div>@ element.
581--
582-- Example:
583--
584-- > div $ span $ toHtml "foo"
585--
586-- Result:
587--
588-- > <div><span>foo</span></div>
589--
590div :: Html  -- ^ Inner HTML.
591    -> Html  -- ^ Resulting HTML.
592div = Parent "div" "<div" "</div>"
593{-# INLINE div #-}
594
595-- WARNING: The next block of code was automatically generated by
596-- src/Util/GenerateHtmlCombinators.hs:199
597--
598-- | Combinator for the @\<dl>@ element.
599--
600-- Example:
601--
602-- > dl $ span $ toHtml "foo"
603--
604-- Result:
605--
606-- > <dl><span>foo</span></dl>
607--
608dl :: Html  -- ^ Inner HTML.
609   -> Html  -- ^ Resulting HTML.
610dl = Parent "dl" "<dl" "</dl>"
611{-# INLINE dl #-}
612
613-- WARNING: The next block of code was automatically generated by
614-- src/Util/GenerateHtmlCombinators.hs:199
615--
616-- | Combinator for the @\<dt>@ element.
617--
618-- Example:
619--
620-- > dt $ span $ toHtml "foo"
621--
622-- Result:
623--
624-- > <dt><span>foo</span></dt>
625--
626dt :: Html  -- ^ Inner HTML.
627   -> Html  -- ^ Resulting HTML.
628dt = Parent "dt" "<dt" "</dt>"
629{-# INLINE dt #-}
630
631-- WARNING: The next block of code was automatically generated by
632-- src/Util/GenerateHtmlCombinators.hs:199
633--
634-- | Combinator for the @\<em>@ element.
635--
636-- Example:
637--
638-- > em $ span $ toHtml "foo"
639--
640-- Result:
641--
642-- > <em><span>foo</span></em>
643--
644em :: Html  -- ^ Inner HTML.
645   -> Html  -- ^ Resulting HTML.
646em = Parent "em" "<em" "</em>"
647{-# INLINE em #-}
648
649-- WARNING: The next block of code was automatically generated by
650-- src/Util/GenerateHtmlCombinators.hs:199
651--
652-- | Combinator for the @\<fieldset>@ element.
653--
654-- Example:
655--
656-- > fieldset $ span $ toHtml "foo"
657--
658-- Result:
659--
660-- > <fieldset><span>foo</span></fieldset>
661--
662fieldset :: Html  -- ^ Inner HTML.
663         -> Html  -- ^ Resulting HTML.
664fieldset = Parent "fieldset" "<fieldset" "</fieldset>"
665{-# INLINE fieldset #-}
666
667-- WARNING: The next block of code was automatically generated by
668-- src/Util/GenerateHtmlCombinators.hs:199
669--
670-- | Combinator for the @\<font>@ element.
671--
672-- Example:
673--
674-- > font $ span $ toHtml "foo"
675--
676-- Result:
677--
678-- > <font><span>foo</span></font>
679--
680font :: Html  -- ^ Inner HTML.
681     -> Html  -- ^ Resulting HTML.
682font = Parent "font" "<font" "</font>"
683{-# INLINE font #-}
684
685-- WARNING: The next block of code was automatically generated by
686-- src/Util/GenerateHtmlCombinators.hs:199
687--
688-- | Combinator for the @\<form>@ element.
689--
690-- Example:
691--
692-- > form $ span $ toHtml "foo"
693--
694-- Result:
695--
696-- > <form><span>foo</span></form>
697--
698form :: Html  -- ^ Inner HTML.
699     -> Html  -- ^ Resulting HTML.
700form = Parent "form" "<form" "</form>"
701{-# INLINE form #-}
702
703-- WARNING: The next block of code was automatically generated by
704-- src/Util/GenerateHtmlCombinators.hs:199
705--
706-- | Combinator for the @\<h1>@ element.
707--
708-- Example:
709--
710-- > h1 $ span $ toHtml "foo"
711--
712-- Result:
713--
714-- > <h1><span>foo</span></h1>
715--
716h1 :: Html  -- ^ Inner HTML.
717   -> Html  -- ^ Resulting HTML.
718h1 = Parent "h1" "<h1" "</h1>"
719{-# INLINE h1 #-}
720
721-- WARNING: The next block of code was automatically generated by
722-- src/Util/GenerateHtmlCombinators.hs:199
723--
724-- | Combinator for the @\<h2>@ element.
725--
726-- Example:
727--
728-- > h2 $ span $ toHtml "foo"
729--
730-- Result:
731--
732-- > <h2><span>foo</span></h2>
733--
734h2 :: Html  -- ^ Inner HTML.
735   -> Html  -- ^ Resulting HTML.
736h2 = Parent "h2" "<h2" "</h2>"
737{-# INLINE h2 #-}
738
739-- WARNING: The next block of code was automatically generated by
740-- src/Util/GenerateHtmlCombinators.hs:199
741--
742-- | Combinator for the @\<h3>@ element.
743--
744-- Example:
745--
746-- > h3 $ span $ toHtml "foo"
747--
748-- Result:
749--
750-- > <h3><span>foo</span></h3>
751--
752h3 :: Html  -- ^ Inner HTML.
753   -> Html  -- ^ Resulting HTML.
754h3 = Parent "h3" "<h3" "</h3>"
755{-# INLINE h3 #-}
756
757-- WARNING: The next block of code was automatically generated by
758-- src/Util/GenerateHtmlCombinators.hs:199
759--
760-- | Combinator for the @\<h4>@ element.
761--
762-- Example:
763--
764-- > h4 $ span $ toHtml "foo"
765--
766-- Result:
767--
768-- > <h4><span>foo</span></h4>
769--
770h4 :: Html  -- ^ Inner HTML.
771   -> Html  -- ^ Resulting HTML.
772h4 = Parent "h4" "<h4" "</h4>"
773{-# INLINE h4 #-}
774
775-- WARNING: The next block of code was automatically generated by
776-- src/Util/GenerateHtmlCombinators.hs:199
777--
778-- | Combinator for the @\<h5>@ element.
779--
780-- Example:
781--
782-- > h5 $ span $ toHtml "foo"
783--
784-- Result:
785--
786-- > <h5><span>foo</span></h5>
787--
788h5 :: Html  -- ^ Inner HTML.
789   -> Html  -- ^ Resulting HTML.
790h5 = Parent "h5" "<h5" "</h5>"
791{-# INLINE h5 #-}
792
793-- WARNING: The next block of code was automatically generated by
794-- src/Util/GenerateHtmlCombinators.hs:199
795--
796-- | Combinator for the @\<h6>@ element.
797--
798-- Example:
799--
800-- > h6 $ span $ toHtml "foo"
801--
802-- Result:
803--
804-- > <h6><span>foo</span></h6>
805--
806h6 :: Html  -- ^ Inner HTML.
807   -> Html  -- ^ Resulting HTML.
808h6 = Parent "h6" "<h6" "</h6>"
809{-# INLINE h6 #-}
810
811-- WARNING: The next block of code was automatically generated by
812-- src/Util/GenerateHtmlCombinators.hs:199
813--
814-- | Combinator for the @\<head>@ element.
815--
816-- Example:
817--
818-- > head $ span $ toHtml "foo"
819--
820-- Result:
821--
822-- > <head><span>foo</span></head>
823--
824head :: Html  -- ^ Inner HTML.
825     -> Html  -- ^ Resulting HTML.
826head = Parent "head" "<head" "</head>"
827{-# INLINE head #-}
828
829-- WARNING: The next block of code was automatically generated by
830-- src/Util/GenerateHtmlCombinators.hs:226
831--
832-- | Combinator for the @\<hr />@ element.
833--
834-- Example:
835--
836-- > hr
837--
838-- Result:
839--
840-- > <hr />
841--
842hr :: Html  -- ^ Resulting HTML.
843hr = Leaf "hr" "<hr" ">" ()
844{-# INLINE hr #-}
845
846-- WARNING: The next block of code was automatically generated by
847-- src/Util/GenerateHtmlCombinators.hs:199
848--
849-- | Combinator for the @\<html>@ element.
850--
851-- Example:
852--
853-- > html $ span $ toHtml "foo"
854--
855-- Result:
856--
857-- > <html><span>foo</span></html>
858--
859html :: Html  -- ^ Inner HTML.
860     -> Html  -- ^ Resulting HTML.
861html = Parent "html" "<html" "</html>"
862{-# INLINE html #-}
863
864-- WARNING: The next block of code was automatically generated by
865-- src/Util/GenerateHtmlCombinators.hs:199
866--
867-- | Combinator for the @\<i>@ element.
868--
869-- Example:
870--
871-- > i $ span $ toHtml "foo"
872--
873-- Result:
874--
875-- > <i><span>foo</span></i>
876--
877i :: Html  -- ^ Inner HTML.
878  -> Html  -- ^ Resulting HTML.
879i = Parent "i" "<i" "</i>"
880{-# INLINE i #-}
881
882-- WARNING: The next block of code was automatically generated by
883-- src/Util/GenerateHtmlCombinators.hs:199
884--
885-- | Combinator for the @\<iframe>@ element.
886--
887-- Example:
888--
889-- > iframe $ span $ toHtml "foo"
890--
891-- Result:
892--
893-- > <iframe><span>foo</span></iframe>
894--
895iframe :: Html  -- ^ Inner HTML.
896       -> Html  -- ^ Resulting HTML.
897iframe = Parent "iframe" "<iframe" "</iframe>"
898{-# INLINE iframe #-}
899
900-- WARNING: The next block of code was automatically generated by
901-- src/Util/GenerateHtmlCombinators.hs:226
902--
903-- | Combinator for the @\<img />@ element.
904--
905-- Example:
906--
907-- > img
908--
909-- Result:
910--
911-- > <img />
912--
913img :: Html  -- ^ Resulting HTML.
914img = Leaf "img" "<img" ">" ()
915{-# INLINE img #-}
916
917-- WARNING: The next block of code was automatically generated by
918-- src/Util/GenerateHtmlCombinators.hs:226
919--
920-- | Combinator for the @\<input />@ element.
921--
922-- Example:
923--
924-- > input
925--
926-- Result:
927--
928-- > <input />
929--
930input :: Html  -- ^ Resulting HTML.
931input = Leaf "input" "<input" ">" ()
932{-# INLINE input #-}
933
934-- WARNING: The next block of code was automatically generated by
935-- src/Util/GenerateHtmlCombinators.hs:199
936--
937-- | Combinator for the @\<ins>@ element.
938--
939-- Example:
940--
941-- > ins $ span $ toHtml "foo"
942--
943-- Result:
944--
945-- > <ins><span>foo</span></ins>
946--
947ins :: Html  -- ^ Inner HTML.
948    -> Html  -- ^ Resulting HTML.
949ins = Parent "ins" "<ins" "</ins>"
950{-# INLINE ins #-}
951
952-- WARNING: The next block of code was automatically generated by
953-- src/Util/GenerateHtmlCombinators.hs:199
954--
955-- | Combinator for the @\<isindex>@ element.
956--
957-- Example:
958--
959-- > isindex $ span $ toHtml "foo"
960--
961-- Result:
962--
963-- > <isindex><span>foo</span></isindex>
964--
965isindex :: Html  -- ^ Inner HTML.
966        -> Html  -- ^ Resulting HTML.
967isindex = Parent "isindex" "<isindex" "</isindex>"
968{-# INLINE isindex #-}
969
970-- WARNING: The next block of code was automatically generated by
971-- src/Util/GenerateHtmlCombinators.hs:199
972--
973-- | Combinator for the @\<kbd>@ element.
974--
975-- Example:
976--
977-- > kbd $ span $ toHtml "foo"
978--
979-- Result:
980--
981-- > <kbd><span>foo</span></kbd>
982--
983kbd :: Html  -- ^ Inner HTML.
984    -> Html  -- ^ Resulting HTML.
985kbd = Parent "kbd" "<kbd" "</kbd>"
986{-# INLINE kbd #-}
987
988-- WARNING: The next block of code was automatically generated by
989-- src/Util/GenerateHtmlCombinators.hs:199
990--
991-- | Combinator for the @\<label>@ element.
992--
993-- Example:
994--
995-- > label $ span $ toHtml "foo"
996--
997-- Result:
998--
999-- > <label><span>foo</span></label>
1000--
1001label :: Html  -- ^ Inner HTML.
1002      -> Html  -- ^ Resulting HTML.
1003label = Parent "label" "<label" "</label>"
1004{-# INLINE label #-}
1005
1006-- WARNING: The next block of code was automatically generated by
1007-- src/Util/GenerateHtmlCombinators.hs:199
1008--
1009-- | Combinator for the @\<legend>@ element.
1010--
1011-- Example:
1012--
1013-- > legend $ span $ toHtml "foo"
1014--
1015-- Result:
1016--
1017-- > <legend><span>foo</span></legend>
1018--
1019legend :: Html  -- ^ Inner HTML.
1020       -> Html  -- ^ Resulting HTML.
1021legend = Parent "legend" "<legend" "</legend>"
1022{-# INLINE legend #-}
1023
1024-- WARNING: The next block of code was automatically generated by
1025-- src/Util/GenerateHtmlCombinators.hs:199
1026--
1027-- | Combinator for the @\<li>@ element.
1028--
1029-- Example:
1030--
1031-- > li $ span $ toHtml "foo"
1032--
1033-- Result:
1034--
1035-- > <li><span>foo</span></li>
1036--
1037li :: Html  -- ^ Inner HTML.
1038   -> Html  -- ^ Resulting HTML.
1039li = Parent "li" "<li" "</li>"
1040{-# INLINE li #-}
1041
1042-- WARNING: The next block of code was automatically generated by
1043-- src/Util/GenerateHtmlCombinators.hs:226
1044--
1045-- | Combinator for the @\<link />@ element.
1046--
1047-- Example:
1048--
1049-- > link
1050--
1051-- Result:
1052--
1053-- > <link />
1054--
1055link :: Html  -- ^ Resulting HTML.
1056link = Leaf "link" "<link" ">" ()
1057{-# INLINE link #-}
1058
1059-- WARNING: The next block of code was automatically generated by
1060-- src/Util/GenerateHtmlCombinators.hs:199
1061--
1062-- | Combinator for the @\<map>@ element.
1063--
1064-- Example:
1065--
1066-- > map $ span $ toHtml "foo"
1067--
1068-- Result:
1069--
1070-- > <map><span>foo</span></map>
1071--
1072map :: Html  -- ^ Inner HTML.
1073    -> Html  -- ^ Resulting HTML.
1074map = Parent "map" "<map" "</map>"
1075{-# INLINE map #-}
1076
1077-- WARNING: The next block of code was automatically generated by
1078-- src/Util/GenerateHtmlCombinators.hs:199
1079--
1080-- | Combinator for the @\<menu>@ element.
1081--
1082-- Example:
1083--
1084-- > menu $ span $ toHtml "foo"
1085--
1086-- Result:
1087--
1088-- > <menu><span>foo</span></menu>
1089--
1090menu :: Html  -- ^ Inner HTML.
1091     -> Html  -- ^ Resulting HTML.
1092menu = Parent "menu" "<menu" "</menu>"
1093{-# INLINE menu #-}
1094
1095-- WARNING: The next block of code was automatically generated by
1096-- src/Util/GenerateHtmlCombinators.hs:226
1097--
1098-- | Combinator for the @\<meta />@ element.
1099--
1100-- Example:
1101--
1102-- > meta
1103--
1104-- Result:
1105--
1106-- > <meta />
1107--
1108meta :: Html  -- ^ Resulting HTML.
1109meta = Leaf "meta" "<meta" ">" ()
1110{-# INLINE meta #-}
1111
1112-- WARNING: The next block of code was automatically generated by
1113-- src/Util/GenerateHtmlCombinators.hs:199
1114--
1115-- | Combinator for the @\<noframes>@ element.
1116--
1117-- Example:
1118--
1119-- > noframes $ span $ toHtml "foo"
1120--
1121-- Result:
1122--
1123-- > <noframes><span>foo</span></noframes>
1124--
1125noframes :: Html  -- ^ Inner HTML.
1126         -> Html  -- ^ Resulting HTML.
1127noframes = Parent "noframes" "<noframes" "</noframes>"
1128{-# INLINE noframes #-}
1129
1130-- WARNING: The next block of code was automatically generated by
1131-- src/Util/GenerateHtmlCombinators.hs:199
1132--
1133-- | Combinator for the @\<noscript>@ element.
1134--
1135-- Example:
1136--
1137-- > noscript $ span $ toHtml "foo"
1138--
1139-- Result:
1140--
1141-- > <noscript><span>foo</span></noscript>
1142--
1143noscript :: Html  -- ^ Inner HTML.
1144         -> Html  -- ^ Resulting HTML.
1145noscript = Parent "noscript" "<noscript" "</noscript>"
1146{-# INLINE noscript #-}
1147
1148-- WARNING: The next block of code was automatically generated by
1149-- src/Util/GenerateHtmlCombinators.hs:199
1150--
1151-- | Combinator for the @\<object>@ element.
1152--
1153-- Example:
1154--
1155-- > object $ span $ toHtml "foo"
1156--
1157-- Result:
1158--
1159-- > <object><span>foo</span></object>
1160--
1161object :: Html  -- ^ Inner HTML.
1162       -> Html  -- ^ Resulting HTML.
1163object = Parent "object" "<object" "</object>"
1164{-# INLINE object #-}
1165
1166-- WARNING: The next block of code was automatically generated by
1167-- src/Util/GenerateHtmlCombinators.hs:199
1168--
1169-- | Combinator for the @\<ol>@ element.
1170--
1171-- Example:
1172--
1173-- > ol $ span $ toHtml "foo"
1174--
1175-- Result:
1176--
1177-- > <ol><span>foo</span></ol>
1178--
1179ol :: Html  -- ^ Inner HTML.
1180   -> Html  -- ^ Resulting HTML.
1181ol = Parent "ol" "<ol" "</ol>"
1182{-# INLINE ol #-}
1183
1184-- WARNING: The next block of code was automatically generated by
1185-- src/Util/GenerateHtmlCombinators.hs:199
1186--
1187-- | Combinator for the @\<optgroup>@ element.
1188--
1189-- Example:
1190--
1191-- > optgroup $ span $ toHtml "foo"
1192--
1193-- Result:
1194--
1195-- > <optgroup><span>foo</span></optgroup>
1196--
1197optgroup :: Html  -- ^ Inner HTML.
1198         -> Html  -- ^ Resulting HTML.
1199optgroup = Parent "optgroup" "<optgroup" "</optgroup>"
1200{-# INLINE optgroup #-}
1201
1202-- WARNING: The next block of code was automatically generated by
1203-- src/Util/GenerateHtmlCombinators.hs:199
1204--
1205-- | Combinator for the @\<option>@ element.
1206--
1207-- Example:
1208--
1209-- > option $ span $ toHtml "foo"
1210--
1211-- Result:
1212--
1213-- > <option><span>foo</span></option>
1214--
1215option :: Html  -- ^ Inner HTML.
1216       -> Html  -- ^ Resulting HTML.
1217option = Parent "option" "<option" "</option>"
1218{-# INLINE option #-}
1219
1220-- WARNING: The next block of code was automatically generated by
1221-- src/Util/GenerateHtmlCombinators.hs:199
1222--
1223-- | Combinator for the @\<p>@ element.
1224--
1225-- Example:
1226--
1227-- > p $ span $ toHtml "foo"
1228--
1229-- Result:
1230--
1231-- > <p><span>foo</span></p>
1232--
1233p :: Html  -- ^ Inner HTML.
1234  -> Html  -- ^ Resulting HTML.
1235p = Parent "p" "<p" "</p>"
1236{-# INLINE p #-}
1237
1238-- WARNING: The next block of code was automatically generated by
1239-- src/Util/GenerateHtmlCombinators.hs:226
1240--
1241-- | Combinator for the @\<param />@ element.
1242--
1243-- Example:
1244--
1245-- > param
1246--
1247-- Result:
1248--
1249-- > <param />
1250--
1251param :: Html  -- ^ Resulting HTML.
1252param = Leaf "param" "<param" ">" ()
1253{-# INLINE param #-}
1254
1255-- WARNING: The next block of code was automatically generated by
1256-- src/Util/GenerateHtmlCombinators.hs:199
1257--
1258-- | Combinator for the @\<pre>@ element.
1259--
1260-- Example:
1261--
1262-- > pre $ span $ toHtml "foo"
1263--
1264-- Result:
1265--
1266-- > <pre><span>foo</span></pre>
1267--
1268pre :: Html  -- ^ Inner HTML.
1269    -> Html  -- ^ Resulting HTML.
1270pre = Parent "pre" "<pre" "</pre>"
1271{-# INLINE pre #-}
1272
1273-- WARNING: The next block of code was automatically generated by
1274-- src/Util/GenerateHtmlCombinators.hs:199
1275--
1276-- | Combinator for the @\<q>@ element.
1277--
1278-- Example:
1279--
1280-- > q $ span $ toHtml "foo"
1281--
1282-- Result:
1283--
1284-- > <q><span>foo</span></q>
1285--
1286q :: Html  -- ^ Inner HTML.
1287  -> Html  -- ^ Resulting HTML.
1288q = Parent "q" "<q" "</q>"
1289{-# INLINE q #-}
1290
1291-- WARNING: The next block of code was automatically generated by
1292-- src/Util/GenerateHtmlCombinators.hs:199
1293--
1294-- | Combinator for the @\<s>@ element.
1295--
1296-- Example:
1297--
1298-- > s $ span $ toHtml "foo"
1299--
1300-- Result:
1301--
1302-- > <s><span>foo</span></s>
1303--
1304s :: Html  -- ^ Inner HTML.
1305  -> Html  -- ^ Resulting HTML.
1306s = Parent "s" "<s" "</s>"
1307{-# INLINE s #-}
1308
1309-- WARNING: The next block of code was automatically generated by
1310-- src/Util/GenerateHtmlCombinators.hs:199
1311--
1312-- | Combinator for the @\<samp>@ element.
1313--
1314-- Example:
1315--
1316-- > samp $ span $ toHtml "foo"
1317--
1318-- Result:
1319--
1320-- > <samp><span>foo</span></samp>
1321--
1322samp :: Html  -- ^ Inner HTML.
1323     -> Html  -- ^ Resulting HTML.
1324samp = Parent "samp" "<samp" "</samp>"
1325{-# INLINE samp #-}
1326
1327-- WARNING: The next block of code was automatically generated by
1328-- src/Util/GenerateHtmlCombinators.hs:199
1329--
1330-- | Combinator for the @\<script>@ element.
1331--
1332-- Example:
1333--
1334-- > script $ span $ toHtml "foo"
1335--
1336-- Result:
1337--
1338-- > <script><span>foo</span></script>
1339--
1340script :: Html  -- ^ Inner HTML.
1341       -> Html  -- ^ Resulting HTML.
1342script = Parent "script" "<script" "</script>" . external
1343{-# INLINE script #-}
1344
1345-- WARNING: The next block of code was automatically generated by
1346-- src/Util/GenerateHtmlCombinators.hs:199
1347--
1348-- | Combinator for the @\<select>@ element.
1349--
1350-- Example:
1351--
1352-- > select $ span $ toHtml "foo"
1353--
1354-- Result:
1355--
1356-- > <select><span>foo</span></select>
1357--
1358select :: Html  -- ^ Inner HTML.
1359       -> Html  -- ^ Resulting HTML.
1360select = Parent "select" "<select" "</select>"
1361{-# INLINE select #-}
1362
1363-- WARNING: The next block of code was automatically generated by
1364-- src/Util/GenerateHtmlCombinators.hs:199
1365--
1366-- | Combinator for the @\<small>@ element.
1367--
1368-- Example:
1369--
1370-- > small $ span $ toHtml "foo"
1371--
1372-- Result:
1373--
1374-- > <small><span>foo</span></small>
1375--
1376small :: Html  -- ^ Inner HTML.
1377      -> Html  -- ^ Resulting HTML.
1378small = Parent "small" "<small" "</small>"
1379{-# INLINE small #-}
1380
1381-- WARNING: The next block of code was automatically generated by
1382-- src/Util/GenerateHtmlCombinators.hs:199
1383--
1384-- | Combinator for the @\<span>@ element.
1385--
1386-- Example:
1387--
1388-- > span $ span $ toHtml "foo"
1389--
1390-- Result:
1391--
1392-- > <span><span>foo</span></span>
1393--
1394span :: Html  -- ^ Inner HTML.
1395     -> Html  -- ^ Resulting HTML.
1396span = Parent "span" "<span" "</span>"
1397{-# INLINE span #-}
1398
1399-- WARNING: The next block of code was automatically generated by
1400-- src/Util/GenerateHtmlCombinators.hs:199
1401--
1402-- | Combinator for the @\<strong>@ element.
1403--
1404-- Example:
1405--
1406-- > strong $ span $ toHtml "foo"
1407--
1408-- Result:
1409--
1410-- > <strong><span>foo</span></strong>
1411--
1412strong :: Html  -- ^ Inner HTML.
1413       -> Html  -- ^ Resulting HTML.
1414strong = Parent "strong" "<strong" "</strong>"
1415{-# INLINE strong #-}
1416
1417-- WARNING: The next block of code was automatically generated by
1418-- src/Util/GenerateHtmlCombinators.hs:199
1419--
1420-- | Combinator for the @\<style>@ element.
1421--
1422-- Example:
1423--
1424-- > style $ span $ toHtml "foo"
1425--
1426-- Result:
1427--
1428-- > <style><span>foo</span></style>
1429--
1430style :: Html  -- ^ Inner HTML.
1431      -> Html  -- ^ Resulting HTML.
1432style = Parent "style" "<style" "</style>" . external
1433{-# INLINE style #-}
1434
1435-- WARNING: The next block of code was automatically generated by
1436-- src/Util/GenerateHtmlCombinators.hs:199
1437--
1438-- | Combinator for the @\<sub>@ element.
1439--
1440-- Example:
1441--
1442-- > sub $ span $ toHtml "foo"
1443--
1444-- Result:
1445--
1446-- > <sub><span>foo</span></sub>
1447--
1448sub :: Html  -- ^ Inner HTML.
1449    -> Html  -- ^ Resulting HTML.
1450sub = Parent "sub" "<sub" "</sub>"
1451{-# INLINE sub #-}
1452
1453-- WARNING: The next block of code was automatically generated by
1454-- src/Util/GenerateHtmlCombinators.hs:199
1455--
1456-- | Combinator for the @\<sup>@ element.
1457--
1458-- Example:
1459--
1460-- > sup $ span $ toHtml "foo"
1461--
1462-- Result:
1463--
1464-- > <sup><span>foo</span></sup>
1465--
1466sup :: Html  -- ^ Inner HTML.
1467    -> Html  -- ^ Resulting HTML.
1468sup = Parent "sup" "<sup" "</sup>"
1469{-# INLINE sup #-}
1470
1471-- WARNING: The next block of code was automatically generated by
1472-- src/Util/GenerateHtmlCombinators.hs:199
1473--
1474-- | Combinator for the @\<table>@ element.
1475--
1476-- Example:
1477--
1478-- > table $ span $ toHtml "foo"
1479--
1480-- Result:
1481--
1482-- > <table><span>foo</span></table>
1483--
1484table :: Html  -- ^ Inner HTML.
1485      -> Html  -- ^ Resulting HTML.
1486table = Parent "table" "<table" "</table>"
1487{-# INLINE table #-}
1488
1489-- WARNING: The next block of code was automatically generated by
1490-- src/Util/GenerateHtmlCombinators.hs:199
1491--
1492-- | Combinator for the @\<tbody>@ element.
1493--
1494-- Example:
1495--
1496-- > tbody $ span $ toHtml "foo"
1497--
1498-- Result:
1499--
1500-- > <tbody><span>foo</span></tbody>
1501--
1502tbody :: Html  -- ^ Inner HTML.
1503      -> Html  -- ^ Resulting HTML.
1504tbody = Parent "tbody" "<tbody" "</tbody>"
1505{-# INLINE tbody #-}
1506
1507-- WARNING: The next block of code was automatically generated by
1508-- src/Util/GenerateHtmlCombinators.hs:199
1509--
1510-- | Combinator for the @\<td>@ element.
1511--
1512-- Example:
1513--
1514-- > td $ span $ toHtml "foo"
1515--
1516-- Result:
1517--
1518-- > <td><span>foo</span></td>
1519--
1520td :: Html  -- ^ Inner HTML.
1521   -> Html  -- ^ Resulting HTML.
1522td = Parent "td" "<td" "</td>"
1523{-# INLINE td #-}
1524
1525-- WARNING: The next block of code was automatically generated by
1526-- src/Util/GenerateHtmlCombinators.hs:199
1527--
1528-- | Combinator for the @\<textarea>@ element.
1529--
1530-- Example:
1531--
1532-- > textarea $ span $ toHtml "foo"
1533--
1534-- Result:
1535--
1536-- > <textarea><span>foo</span></textarea>
1537--
1538textarea :: Html  -- ^ Inner HTML.
1539         -> Html  -- ^ Resulting HTML.
1540textarea = Parent "textarea" "<textarea" "</textarea>"
1541{-# INLINE textarea #-}
1542
1543-- WARNING: The next block of code was automatically generated by
1544-- src/Util/GenerateHtmlCombinators.hs:199
1545--
1546-- | Combinator for the @\<tfoot>@ element.
1547--
1548-- Example:
1549--
1550-- > tfoot $ span $ toHtml "foo"
1551--
1552-- Result:
1553--
1554-- > <tfoot><span>foo</span></tfoot>
1555--
1556tfoot :: Html  -- ^ Inner HTML.
1557      -> Html  -- ^ Resulting HTML.
1558tfoot = Parent "tfoot" "<tfoot" "</tfoot>"
1559{-# INLINE tfoot #-}
1560
1561-- WARNING: The next block of code was automatically generated by
1562-- src/Util/GenerateHtmlCombinators.hs:199
1563--
1564-- | Combinator for the @\<th>@ element.
1565--
1566-- Example:
1567--
1568-- > th $ span $ toHtml "foo"
1569--
1570-- Result:
1571--
1572-- > <th><span>foo</span></th>
1573--
1574th :: Html  -- ^ Inner HTML.
1575   -> Html  -- ^ Resulting HTML.
1576th = Parent "th" "<th" "</th>"
1577{-# INLINE th #-}
1578
1579-- WARNING: The next block of code was automatically generated by
1580-- src/Util/GenerateHtmlCombinators.hs:199
1581--
1582-- | Combinator for the @\<thead>@ element.
1583--
1584-- Example:
1585--
1586-- > thead $ span $ toHtml "foo"
1587--
1588-- Result:
1589--
1590-- > <thead><span>foo</span></thead>
1591--
1592thead :: Html  -- ^ Inner HTML.
1593      -> Html  -- ^ Resulting HTML.
1594thead = Parent "thead" "<thead" "</thead>"
1595{-# INLINE thead #-}
1596
1597-- WARNING: The next block of code was automatically generated by
1598-- src/Util/GenerateHtmlCombinators.hs:199
1599--
1600-- | Combinator for the @\<title>@ element.
1601--
1602-- Example:
1603--
1604-- > title $ span $ toHtml "foo"
1605--
1606-- Result:
1607--
1608-- > <title><span>foo</span></title>
1609--
1610title :: Html  -- ^ Inner HTML.
1611      -> Html  -- ^ Resulting HTML.
1612title = Parent "title" "<title" "</title>"
1613{-# INLINE title #-}
1614
1615-- WARNING: The next block of code was automatically generated by
1616-- src/Util/GenerateHtmlCombinators.hs:199
1617--
1618-- | Combinator for the @\<tr>@ element.
1619--
1620-- Example:
1621--
1622-- > tr $ span $ toHtml "foo"
1623--
1624-- Result:
1625--
1626-- > <tr><span>foo</span></tr>
1627--
1628tr :: Html  -- ^ Inner HTML.
1629   -> Html  -- ^ Resulting HTML.
1630tr = Parent "tr" "<tr" "</tr>"
1631{-# INLINE tr #-}
1632
1633-- WARNING: The next block of code was automatically generated by
1634-- src/Util/GenerateHtmlCombinators.hs:199
1635--
1636-- | Combinator for the @\<tt>@ element.
1637--
1638-- Example:
1639--
1640-- > tt $ span $ toHtml "foo"
1641--
1642-- Result:
1643--
1644-- > <tt><span>foo</span></tt>
1645--
1646tt :: Html  -- ^ Inner HTML.
1647   -> Html  -- ^ Resulting HTML.
1648tt = Parent "tt" "<tt" "</tt>"
1649{-# INLINE tt #-}
1650
1651-- WARNING: The next block of code was automatically generated by
1652-- src/Util/GenerateHtmlCombinators.hs:199
1653--
1654-- | Combinator for the @\<u>@ element.
1655--
1656-- Example:
1657--
1658-- > u $ span $ toHtml "foo"
1659--
1660-- Result:
1661--
1662-- > <u><span>foo</span></u>
1663--
1664u :: Html  -- ^ Inner HTML.
1665  -> Html  -- ^ Resulting HTML.
1666u = Parent "u" "<u" "</u>"
1667{-# INLINE u #-}
1668
1669-- WARNING: The next block of code was automatically generated by
1670-- src/Util/GenerateHtmlCombinators.hs:199
1671--
1672-- | Combinator for the @\<ul>@ element.
1673--
1674-- Example:
1675--
1676-- > ul $ span $ toHtml "foo"
1677--
1678-- Result:
1679--
1680-- > <ul><span>foo</span></ul>
1681--
1682ul :: Html  -- ^ Inner HTML.
1683   -> Html  -- ^ Resulting HTML.
1684ul = Parent "ul" "<ul" "</ul>"
1685{-# INLINE ul #-}
1686
1687-- WARNING: The next block of code was automatically generated by
1688-- src/Util/GenerateHtmlCombinators.hs:199
1689--
1690-- | Combinator for the @\<var>@ element.
1691--
1692-- Example:
1693--
1694-- > var $ span $ toHtml "foo"
1695--
1696-- Result:
1697--
1698-- > <var><span>foo</span></var>
1699--
1700var :: Html  -- ^ Inner HTML.
1701    -> Html  -- ^ Resulting HTML.
1702var = Parent "var" "<var" "</var>"
1703{-# INLINE var #-}
1704