{-# LANGUAGE OverloadedStrings #-}
module Text.Blaze.Html5
( module Text.Blaze.Html
, docType
, docTypeHtml
, a
, abbr
, address
, area
, article
, aside
, audio
, b
, base
, bdo
, blockquote
, body
, br
, button
, canvas
, caption
, cite
, code
, col
, colgroup
, command
, datalist
, dd
, del
, details
, dfn
, div
, dl
, dt
, em
, embed
, fieldset
, figcaption
, figure
, footer
, form
, h1
, h2
, h3
, h4
, h5
, h6
, head
, header
, hgroup
, hr
, html
, i
, iframe
, img
, input
, ins
, kbd
, keygen
, label
, legend
, li
, link
, map
, mark
, menu
, menuitem
, meta
, meter
, nav
, noscript
, object
, ol
, optgroup
, option
, output
, p
, param
, pre
, progress
, q
, rp
, rt
, ruby
, samp
, script
, section
, select
, small
, source
, span
, strong
, style
, sub
, summary
, sup
, table
, tbody
, td
, textarea
, tfoot
, th
, thead
, time
, title
, tr
, track
, ul
, var
, video
, wbr
) where
import Prelude ((>>), (.))
import Text.Blaze
import Text.Blaze.Internal
import Text.Blaze.Html
docType :: Html
docType = preEscapedText "<!DOCTYPE HTML>\n"
{-# INLINE docType #-}
docTypeHtml :: Html
-> Html
docTypeHtml inner = docType >> html inner
{-# INLINE docTypeHtml #-}
a :: Html
-> Html
a = Parent "a" "<a" "</a>"
{-# INLINE a #-}
abbr :: Html
-> Html
abbr = Parent "abbr" "<abbr" "</abbr>"
{-# INLINE abbr #-}
address :: Html
-> Html
address = Parent "address" "<address" "</address>"
{-# INLINE address #-}
area :: Html
area = Leaf "area" "<area" ">"
{-# INLINE area #-}
article :: Html
-> Html
article = Parent "article" "<article" "</article>"
{-# INLINE article #-}
aside :: Html
-> Html
aside = Parent "aside" "<aside" "</aside>"
{-# INLINE aside #-}
audio :: Html
-> Html
audio = Parent "audio" "<audio" "</audio>"
{-# INLINE audio #-}
b :: Html
-> Html
b = Parent "b" "<b" "</b>"
{-# INLINE b #-}
base :: Html
base = Leaf "base" "<base" ">"
{-# INLINE base #-}
bdo :: Html
-> Html
bdo = Parent "bdo" "<bdo" "</bdo>"
{-# INLINE bdo #-}
blockquote :: Html
-> Html
blockquote = Parent "blockquote" "<blockquote" "</blockquote>"
{-# INLINE blockquote #-}
body :: Html
-> Html
body = Parent "body" "<body" "</body>"
{-# INLINE body #-}
br :: Html
br = Leaf "br" "<br" ">"
{-# INLINE br #-}
button :: Html
-> Html
button = Parent "button" "<button" "</button>"
{-# INLINE button #-}
canvas :: Html
-> Html
canvas = Parent "canvas" "<canvas" "</canvas>"
{-# INLINE canvas #-}
caption :: Html
-> Html
caption = Parent "caption" "<caption" "</caption>"
{-# INLINE caption #-}
cite :: Html
-> Html
cite = Parent "cite" "<cite" "</cite>"
{-# INLINE cite #-}
code :: Html
-> Html
code = Parent "code" "<code" "</code>"
{-# INLINE code #-}
col :: Html
col = Leaf "col" "<col" ">"
{-# INLINE col #-}
colgroup :: Html
-> Html
colgroup = Parent "colgroup" "<colgroup" "</colgroup>"
{-# INLINE colgroup #-}
command :: Html
-> Html
command = Parent "command" "<command" "</command>"
{-# INLINE command #-}
datalist :: Html
-> Html
datalist = Parent "datalist" "<datalist" "</datalist>"
{-# INLINE datalist #-}
dd :: Html
-> Html
dd = Parent "dd" "<dd" "</dd>"
{-# INLINE dd #-}
del :: Html
-> Html
del = Parent "del" "<del" "</del>"
{-# INLINE del #-}
details :: Html
-> Html
details = Parent "details" "<details" "</details>"
{-# INLINE details #-}
dfn :: Html
-> Html
dfn = Parent "dfn" "<dfn" "</dfn>"
{-# INLINE dfn #-}
div :: Html
-> Html
div = Parent "div" "<div" "</div>"
{-# INLINE div #-}
dl :: Html
-> Html
dl = Parent "dl" "<dl" "</dl>"
{-# INLINE dl #-}
dt :: Html
-> Html
dt = Parent "dt" "<dt" "</dt>"
{-# INLINE dt #-}
em :: Html
-> Html
em = Parent "em" "<em" "</em>"
{-# INLINE em #-}
embed :: Html
embed = Leaf "embed" "<embed" ">"
{-# INLINE embed #-}
fieldset :: Html
-> Html
fieldset = Parent "fieldset" "<fieldset" "</fieldset>"
{-# INLINE fieldset #-}
figcaption :: Html
-> Html
figcaption = Parent "figcaption" "<figcaption" "</figcaption>"
{-# INLINE figcaption #-}
figure :: Html
-> Html
figure = Parent "figure" "<figure" "</figure>"
{-# INLINE figure #-}
footer :: Html
-> Html
footer = Parent "footer" "<footer" "</footer>"
{-# INLINE footer #-}
form :: Html
-> Html
form = Parent "form" "<form" "</form>"
{-# INLINE form #-}
h1 :: Html
-> Html
h1 = Parent "h1" "<h1" "</h1>"
{-# INLINE h1 #-}
h2 :: Html
-> Html
h2 = Parent "h2" "<h2" "</h2>"
{-# INLINE h2 #-}
h3 :: Html
-> Html
h3 = Parent "h3" "<h3" "</h3>"
{-# INLINE h3 #-}
h4 :: Html
-> Html
h4 = Parent "h4" "<h4" "</h4>"
{-# INLINE h4 #-}
h5 :: Html
-> Html
h5 = Parent "h5" "<h5" "</h5>"
{-# INLINE h5 #-}
h6 :: Html
-> Html
h6 = Parent "h6" "<h6" "</h6>"
{-# INLINE h6 #-}
head :: Html
-> Html
head = Parent "head" "<head" "</head>"
{-# INLINE head #-}
header :: Html
-> Html
header = Parent "header" "<header" "</header>"
{-# INLINE header #-}
hgroup :: Html
-> Html
hgroup = Parent "hgroup" "<hgroup" "</hgroup>"
{-# INLINE hgroup #-}
hr :: Html
hr = Leaf "hr" "<hr" ">"
{-# INLINE hr #-}
html :: Html
-> Html
html = Parent "html" "<html" "</html>"
{-# INLINE html #-}
i :: Html
-> Html
i = Parent "i" "<i" "</i>"
{-# INLINE i #-}
iframe :: Html
-> Html
iframe = Parent "iframe" "<iframe" "</iframe>"
{-# INLINE iframe #-}
img :: Html
img = Leaf "img" "<img" ">"
{-# INLINE img #-}
input :: Html
input = Leaf "input" "<input" ">"
{-# INLINE input #-}
ins :: Html
-> Html
ins = Parent "ins" "<ins" "</ins>"
{-# INLINE ins #-}
kbd :: Html
-> Html
kbd = Parent "kbd" "<kbd" "</kbd>"
{-# INLINE kbd #-}
keygen :: Html
keygen = Leaf "keygen" "<keygen" ">"
{-# INLINE keygen #-}
label :: Html
-> Html
label = Parent "label" "<label" "</label>"
{-# INLINE label #-}
legend :: Html
-> Html
legend = Parent "legend" "<legend" "</legend>"
{-# INLINE legend #-}
li :: Html
-> Html
li = Parent "li" "<li" "</li>"
{-# INLINE li #-}
link :: Html
link = Leaf "link" "<link" ">"
{-# INLINE link #-}
map :: Html
-> Html
map = Parent "map" "<map" "</map>"
{-# INLINE map #-}
mark :: Html
-> Html
mark = Parent "mark" "<mark" "</mark>"
{-# INLINE mark #-}
menu :: Html
-> Html
menu = Parent "menu" "<menu" "</menu>"
{-# INLINE menu #-}
menuitem :: Html
menuitem = Leaf "menuitem" "<menuitem" ">"
{-# INLINE menuitem #-}
meta :: Html
meta = Leaf "meta" "<meta" ">"
{-# INLINE meta #-}
meter :: Html
-> Html
meter = Parent "meter" "<meter" "</meter>"
{-# INLINE meter #-}
nav :: Html
-> Html
nav = Parent "nav" "<nav" "</nav>"
{-# INLINE nav #-}
noscript :: Html
-> Html
noscript = Parent "noscript" "<noscript" "</noscript>"
{-# INLINE noscript #-}
object :: Html
-> Html
object = Parent "object" "<object" "</object>"
{-# INLINE object #-}
ol :: Html
-> Html
ol = Parent "ol" "<ol" "</ol>"
{-# INLINE ol #-}
optgroup :: Html
-> Html
optgroup = Parent "optgroup" "<optgroup" "</optgroup>"
{-# INLINE optgroup #-}
option :: Html
-> Html
option = Parent "option" "<option" "</option>"
{-# INLINE option #-}
output :: Html
-> Html
output = Parent "output" "<output" "</output>"
{-# INLINE output #-}
p :: Html
-> Html
p = Parent "p" "<p" "</p>"
{-# INLINE p #-}
param :: Html
param = Leaf "param" "<param" ">"
{-# INLINE param #-}
pre :: Html
-> Html
pre = Parent "pre" "<pre" "</pre>"
{-# INLINE pre #-}
progress :: Html
-> Html
progress = Parent "progress" "<progress" "</progress>"
{-# INLINE progress #-}
q :: Html
-> Html
q = Parent "q" "<q" "</q>"
{-# INLINE q #-}
rp :: Html
-> Html
rp = Parent "rp" "<rp" "</rp>"
{-# INLINE rp #-}
rt :: Html
-> Html
rt = Parent "rt" "<rt" "</rt>"
{-# INLINE rt #-}
ruby :: Html
-> Html
ruby = Parent "ruby" "<ruby" "</ruby>"
{-# INLINE ruby #-}
samp :: Html
-> Html
samp = Parent "samp" "<samp" "</samp>"
{-# INLINE samp #-}
script :: Html
-> Html
script = Parent "script" "<script" "</script>" . external
{-# INLINE script #-}
section :: Html
-> Html
section = Parent "section" "<section" "</section>"
{-# INLINE section #-}
select :: Html
-> Html
select = Parent "select" "<select" "</select>"
{-# INLINE select #-}
small :: Html
-> Html
small = Parent "small" "<small" "</small>"
{-# INLINE small #-}
source :: Html
source = Leaf "source" "<source" ">"
{-# INLINE source #-}
span :: Html
-> Html
span = Parent "span" "<span" "</span>"
{-# INLINE span #-}
strong :: Html
-> Html
strong = Parent "strong" "<strong" "</strong>"
{-# INLINE strong #-}
style :: Html
-> Html
style = Parent "style" "<style" "</style>" . external
{-# INLINE style #-}
sub :: Html
-> Html
sub = Parent "sub" "<sub" "</sub>"
{-# INLINE sub #-}
summary :: Html
-> Html
summary = Parent "summary" "<summary" "</summary>"
{-# INLINE summary #-}
sup :: Html
-> Html
sup = Parent "sup" "<sup" "</sup>"
{-# INLINE sup #-}
table :: Html
-> Html
table = Parent "table" "<table" "</table>"
{-# INLINE table #-}
tbody :: Html
-> Html
tbody = Parent "tbody" "<tbody" "</tbody>"
{-# INLINE tbody #-}
td :: Html
-> Html
td = Parent "td" "<td" "</td>"
{-# INLINE td #-}
textarea :: Html
-> Html
textarea = Parent "textarea" "<textarea" "</textarea>"
{-# INLINE textarea #-}
tfoot :: Html
-> Html
tfoot = Parent "tfoot" "<tfoot" "</tfoot>"
{-# INLINE tfoot #-}
th :: Html
-> Html
th = Parent "th" "<th" "</th>"
{-# INLINE th #-}
thead :: Html
-> Html
thead = Parent "thead" "<thead" "</thead>"
{-# INLINE thead #-}
time :: Html
-> Html
time = Parent "time" "<time" "</time>"
{-# INLINE time #-}
title :: Html
-> Html
title = Parent "title" "<title" "</title>"
{-# INLINE title #-}
tr :: Html
-> Html
tr = Parent "tr" "<tr" "</tr>"
{-# INLINE tr #-}
track :: Html
track = Leaf "track" "<track" ">"
{-# INLINE track #-}
ul :: Html
-> Html
ul = Parent "ul" "<ul" "</ul>"
{-# INLINE ul #-}
var :: Html
-> Html
var = Parent "var" "<var" "</var>"
{-# INLINE var #-}
video :: Html
-> Html
video = Parent "video" "<video" "</video>"
{-# INLINE video #-}
wbr :: Html
wbr = Leaf "wbr" "<wbr" ">"
{-# INLINE wbr #-}