{-# LANGUAGE OverloadedStrings #-}
module Text.Blaze.Html4.Transitional
( 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
, 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
import Prelude ((>>), (.))
import Text.Blaze
import Text.Blaze.Internal
import Text.Blaze.Html
docType :: Html
docType = preEscapedText "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"\n \"http://www.w3.org/TR/html4/loose.dtd\">\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 #-}
acronym :: Html
-> Html
acronym = Parent "acronym" "<acronym" "</acronym>"
{-# INLINE acronym #-}
address :: Html
-> Html
address = Parent "address" "<address" "</address>"
{-# INLINE address #-}
applet :: Html
-> Html
applet = Parent "applet" "<applet" "</applet>"
{-# INLINE applet #-}
area :: Html
area = Leaf "area" "<area" ">"
{-# INLINE area #-}
b :: Html
-> Html
b = Parent "b" "<b" "</b>"
{-# INLINE b #-}
basefont :: Html
basefont = Leaf "basefont" "<basefont" ">"
{-# INLINE basefont #-}
bdo :: Html
-> Html
bdo = Parent "bdo" "<bdo" "</bdo>"
{-# INLINE bdo #-}
big :: Html
-> Html
big = Parent "big" "<big" "</big>"
{-# INLINE big #-}
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 #-}
caption :: Html
-> Html
caption = Parent "caption" "<caption" "</caption>"
{-# INLINE caption #-}
center :: Html
-> Html
center = Parent "center" "<center" "</center>"
{-# INLINE center #-}
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 #-}
dd :: Html
-> Html
dd = Parent "dd" "<dd" "</dd>"
{-# INLINE dd #-}
del :: Html
-> Html
del = Parent "del" "<del" "</del>"
{-# INLINE del #-}
dfn :: Html
-> Html
dfn = Parent "dfn" "<dfn" "</dfn>"
{-# INLINE dfn #-}
dir :: Html
-> Html
dir = Parent "dir" "<dir" "</dir>"
{-# INLINE dir #-}
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 #-}
fieldset :: Html
-> Html
fieldset = Parent "fieldset" "<fieldset" "</fieldset>"
{-# INLINE fieldset #-}
font :: Html
-> Html
font = Parent "font" "<font" "</font>"
{-# INLINE font #-}
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 #-}
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 #-}
isindex :: Html
-> Html
isindex = Parent "isindex" "<isindex" "</isindex>"
{-# INLINE isindex #-}
kbd :: Html
-> Html
kbd = Parent "kbd" "<kbd" "</kbd>"
{-# INLINE kbd #-}
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 #-}
menu :: Html
-> Html
menu = Parent "menu" "<menu" "</menu>"
{-# INLINE menu #-}
meta :: Html
meta = Leaf "meta" "<meta" ">"
{-# INLINE meta #-}
noframes :: Html
-> Html
noframes = Parent "noframes" "<noframes" "</noframes>"
{-# INLINE noframes #-}
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 #-}
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 #-}
q :: Html
-> Html
q = Parent "q" "<q" "</q>"
{-# INLINE q #-}
s :: Html
-> Html
s = Parent "s" "<s" "</s>"
{-# INLINE s #-}
samp :: Html
-> Html
samp = Parent "samp" "<samp" "</samp>"
{-# INLINE samp #-}
script :: Html
-> Html
script = Parent "script" "<script" "</script>" . external
{-# INLINE script #-}
select :: Html
-> Html
select = Parent "select" "<select" "</select>"
{-# INLINE select #-}
small :: Html
-> Html
small = Parent "small" "<small" "</small>"
{-# INLINE small #-}
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 #-}
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 #-}
title :: Html
-> Html
title = Parent "title" "<title" "</title>"
{-# INLINE title #-}
tr :: Html
-> Html
tr = Parent "tr" "<tr" "</tr>"
{-# INLINE tr #-}
tt :: Html
-> Html
tt = Parent "tt" "<tt" "</tt>"
{-# INLINE tt #-}
u :: Html
-> Html
u = Parent "u" "<u" "</u>"
{-# INLINE u #-}
ul :: Html
-> Html
ul = Parent "ul" "<ul" "</ul>"
{-# INLINE ul #-}
var :: Html
-> Html
var = Parent "var" "<var" "</var>"
{-# INLINE var #-}