aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/Text/BlazeT
diff options
context:
space:
mode:
authorJohannes Gerer <oss@johannesgerer.com>2016-10-26 02:07:02 +0200
committerJohannes Gerer <oss@johannesgerer.com>2016-10-26 02:07:02 +0200
commit675085c2e0b0b851378da08b7d73024766107c87 (patch)
tree5a927de4a9576aef7e6129b96e74aa5c96f9ffb6 /src/Text/BlazeT
downloadblazeT-675085c2e0b0b851378da08b7d73024766107c87.tar.gz
blazeT-675085c2e0b0b851378da08b7d73024766107c87.tar.zst
blazeT-675085c2e0b0b851378da08b7d73024766107c87.zip
Initial
Diffstat (limited to 'src/Text/BlazeT')
-rw-r--r--src/Text/BlazeT/Html.hs22
-rw-r--r--src/Text/BlazeT/Html4/FrameSet.hs198
-rw-r--r--src/Text/BlazeT/Html4/FrameSet/Attributes.hs11
-rw-r--r--src/Text/BlazeT/Html4/Strict.hs172
-rw-r--r--src/Text/BlazeT/Html4/Strict/Attributes.hs11
-rw-r--r--src/Text/BlazeT/Html4/Transitional.hs194
-rw-r--r--src/Text/BlazeT/Html4/Transitional/Attributes.hs11
-rw-r--r--src/Text/BlazeT/Html5.hs234
-rw-r--r--src/Text/BlazeT/Html5/Attributes.hs11
-rw-r--r--src/Text/BlazeT/Internal.hs238
-rw-r--r--src/Text/BlazeT/Renderer/Pretty.hs22
-rw-r--r--src/Text/BlazeT/Renderer/String.hs27
-rw-r--r--src/Text/BlazeT/Renderer/Text.hs75
-rw-r--r--src/Text/BlazeT/Renderer/Utf8.hs66
-rw-r--r--src/Text/BlazeT/XHtml1/FrameSet.hs198
-rw-r--r--src/Text/BlazeT/XHtml1/FrameSet/Attributes.hs11
-rw-r--r--src/Text/BlazeT/XHtml1/Strict.hs172
-rw-r--r--src/Text/BlazeT/XHtml1/Strict/Attributes.hs11
-rw-r--r--src/Text/BlazeT/XHtml1/Transitional.hs194
-rw-r--r--src/Text/BlazeT/XHtml1/Transitional/Attributes.hs11
-rw-r--r--src/Text/BlazeT/XHtml5.hs234
-rw-r--r--src/Text/BlazeT/XHtml5/Attributes.hs11
22 files changed, 2134 insertions, 0 deletions
diff --git a/src/Text/BlazeT/Html.hs b/src/Text/BlazeT/Html.hs
new file mode 100644
index 0000000..4a21c03
--- /dev/null
+++ b/src/Text/BlazeT/Html.hs
@@ -0,0 +1,22 @@
1{-# LANGUAGE RankNTypes #-}
2module Text.BlazeT.Html
3 ( module Text.BlazeT
4 , Html
5 , toHtml
6 , preEscapedToHtml
7 -- * BlazeT new stuff
8 ,HtmlM
9 ,HtmlT
10 ) where
11
12import Text.BlazeT
13
14type HtmlT = MarkupT
15type HtmlM = MarkupM
16type Html = Markup
17
18toHtml ::(ToMarkup a) => a -> Html
19toHtml = toMarkup
20
21preEscapedToHtml ::(ToMarkup a) => a -> Html
22preEscapedToHtml = preEscapedToMarkup
diff --git a/src/Text/BlazeT/Html4/FrameSet.hs b/src/Text/BlazeT/Html4/FrameSet.hs
new file mode 100644
index 0000000..5d6ec03
--- /dev/null
+++ b/src/Text/BlazeT/Html4/FrameSet.hs
@@ -0,0 +1,198 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module wraps all exports of "Text.Blaze.Html4.FrameSet" using 'wrapMarkup' and 'wrapMarkup'.
6-}
7module Text.BlazeT.Html4.FrameSet
8 (module Text.BlazeT.Html4.FrameSet
9 ,module Text.BlazeT.Html
10 ) where
11import qualified Text.Blaze.Html4.FrameSet
12import Text.BlazeT
13import Text.BlazeT.Html
14import Text.BlazeT.Internal
15
16docTypeHtml :: Markup2
17docTypeHtml = wrapMarkup2 Text.Blaze.Html4.FrameSet.docTypeHtml
18a :: Markup2
19a = wrapMarkup2 Text.Blaze.Html4.FrameSet.a
20abbr :: Markup2
21abbr = wrapMarkup2 Text.Blaze.Html4.FrameSet.abbr
22acronym :: Markup2
23acronym = wrapMarkup2 Text.Blaze.Html4.FrameSet.acronym
24address :: Markup2
25address = wrapMarkup2 Text.Blaze.Html4.FrameSet.address
26b :: Markup2
27b = wrapMarkup2 Text.Blaze.Html4.FrameSet.b
28bdo :: Markup2
29bdo = wrapMarkup2 Text.Blaze.Html4.FrameSet.bdo
30big :: Markup2
31big = wrapMarkup2 Text.Blaze.Html4.FrameSet.big
32blockquote :: Markup2
33blockquote = wrapMarkup2 Text.Blaze.Html4.FrameSet.blockquote
34body :: Markup2
35body = wrapMarkup2 Text.Blaze.Html4.FrameSet.body
36button :: Markup2
37button = wrapMarkup2 Text.Blaze.Html4.FrameSet.button
38caption :: Markup2
39caption = wrapMarkup2 Text.Blaze.Html4.FrameSet.caption
40cite :: Markup2
41cite = wrapMarkup2 Text.Blaze.Html4.FrameSet.cite
42code :: Markup2
43code = wrapMarkup2 Text.Blaze.Html4.FrameSet.code
44colgroup :: Markup2
45colgroup = wrapMarkup2 Text.Blaze.Html4.FrameSet.colgroup
46dd :: Markup2
47dd = wrapMarkup2 Text.Blaze.Html4.FrameSet.dd
48del :: Markup2
49del = wrapMarkup2 Text.Blaze.Html4.FrameSet.del
50dfn :: Markup2
51dfn = wrapMarkup2 Text.Blaze.Html4.FrameSet.dfn
52div :: Markup2
53div = wrapMarkup2 Text.Blaze.Html4.FrameSet.div
54dl :: Markup2
55dl = wrapMarkup2 Text.Blaze.Html4.FrameSet.dl
56dt :: Markup2
57dt = wrapMarkup2 Text.Blaze.Html4.FrameSet.dt
58em :: Markup2
59em = wrapMarkup2 Text.Blaze.Html4.FrameSet.em
60fieldset :: Markup2
61fieldset = wrapMarkup2 Text.Blaze.Html4.FrameSet.fieldset
62form :: Markup2
63form = wrapMarkup2 Text.Blaze.Html4.FrameSet.form
64h1 :: Markup2
65h1 = wrapMarkup2 Text.Blaze.Html4.FrameSet.h1
66h2 :: Markup2
67h2 = wrapMarkup2 Text.Blaze.Html4.FrameSet.h2
68h3 :: Markup2
69h3 = wrapMarkup2 Text.Blaze.Html4.FrameSet.h3
70h4 :: Markup2
71h4 = wrapMarkup2 Text.Blaze.Html4.FrameSet.h4
72h5 :: Markup2
73h5 = wrapMarkup2 Text.Blaze.Html4.FrameSet.h5
74h6 :: Markup2
75h6 = wrapMarkup2 Text.Blaze.Html4.FrameSet.h6
76head :: Markup2
77head = wrapMarkup2 Text.Blaze.Html4.FrameSet.head
78html :: Markup2
79html = wrapMarkup2 Text.Blaze.Html4.FrameSet.html
80i :: Markup2
81i = wrapMarkup2 Text.Blaze.Html4.FrameSet.i
82ins :: Markup2
83ins = wrapMarkup2 Text.Blaze.Html4.FrameSet.ins
84kbd :: Markup2
85kbd = wrapMarkup2 Text.Blaze.Html4.FrameSet.kbd
86label :: Markup2
87label = wrapMarkup2 Text.Blaze.Html4.FrameSet.label
88legend :: Markup2
89legend = wrapMarkup2 Text.Blaze.Html4.FrameSet.legend
90li :: Markup2
91li = wrapMarkup2 Text.Blaze.Html4.FrameSet.li
92map :: Markup2
93map = wrapMarkup2 Text.Blaze.Html4.FrameSet.map
94noscript :: Markup2
95noscript = wrapMarkup2 Text.Blaze.Html4.FrameSet.noscript
96object :: Markup2
97object = wrapMarkup2 Text.Blaze.Html4.FrameSet.object
98ol :: Markup2
99ol = wrapMarkup2 Text.Blaze.Html4.FrameSet.ol
100optgroup :: Markup2
101optgroup = wrapMarkup2 Text.Blaze.Html4.FrameSet.optgroup
102option :: Markup2
103option = wrapMarkup2 Text.Blaze.Html4.FrameSet.option
104p :: Markup2
105p = wrapMarkup2 Text.Blaze.Html4.FrameSet.p
106pre :: Markup2
107pre = wrapMarkup2 Text.Blaze.Html4.FrameSet.pre
108q :: Markup2
109q = wrapMarkup2 Text.Blaze.Html4.FrameSet.q
110samp :: Markup2
111samp = wrapMarkup2 Text.Blaze.Html4.FrameSet.samp
112script :: Markup2
113script = wrapMarkup2 Text.Blaze.Html4.FrameSet.script
114select :: Markup2
115select = wrapMarkup2 Text.Blaze.Html4.FrameSet.select
116small :: Markup2
117small = wrapMarkup2 Text.Blaze.Html4.FrameSet.small
118span :: Markup2
119span = wrapMarkup2 Text.Blaze.Html4.FrameSet.span
120strong :: Markup2
121strong = wrapMarkup2 Text.Blaze.Html4.FrameSet.strong
122style :: Markup2
123style = wrapMarkup2 Text.Blaze.Html4.FrameSet.style
124sub :: Markup2
125sub = wrapMarkup2 Text.Blaze.Html4.FrameSet.sub
126sup :: Markup2
127sup = wrapMarkup2 Text.Blaze.Html4.FrameSet.sup
128table :: Markup2
129table = wrapMarkup2 Text.Blaze.Html4.FrameSet.table
130tbody :: Markup2
131tbody = wrapMarkup2 Text.Blaze.Html4.FrameSet.tbody
132td :: Markup2
133td = wrapMarkup2 Text.Blaze.Html4.FrameSet.td
134textarea :: Markup2
135textarea = wrapMarkup2 Text.Blaze.Html4.FrameSet.textarea
136tfoot :: Markup2
137tfoot = wrapMarkup2 Text.Blaze.Html4.FrameSet.tfoot
138th :: Markup2
139th = wrapMarkup2 Text.Blaze.Html4.FrameSet.th
140thead :: Markup2
141thead = wrapMarkup2 Text.Blaze.Html4.FrameSet.thead
142title :: Markup2
143title = wrapMarkup2 Text.Blaze.Html4.FrameSet.title
144tr :: Markup2
145tr = wrapMarkup2 Text.Blaze.Html4.FrameSet.tr
146tt :: Markup2
147tt = wrapMarkup2 Text.Blaze.Html4.FrameSet.tt
148ul :: Markup2
149ul = wrapMarkup2 Text.Blaze.Html4.FrameSet.ul
150var :: Markup2
151var = wrapMarkup2 Text.Blaze.Html4.FrameSet.var
152applet :: Markup2
153applet = wrapMarkup2 Text.Blaze.Html4.FrameSet.applet
154center :: Markup2
155center = wrapMarkup2 Text.Blaze.Html4.FrameSet.center
156dir :: Markup2
157dir = wrapMarkup2 Text.Blaze.Html4.FrameSet.dir
158font :: Markup2
159font = wrapMarkup2 Text.Blaze.Html4.FrameSet.font
160iframe :: Markup2
161iframe = wrapMarkup2 Text.Blaze.Html4.FrameSet.iframe
162isindex :: Markup2
163isindex = wrapMarkup2 Text.Blaze.Html4.FrameSet.isindex
164menu :: Markup2
165menu = wrapMarkup2 Text.Blaze.Html4.FrameSet.menu
166noframes :: Markup2
167noframes = wrapMarkup2 Text.Blaze.Html4.FrameSet.noframes
168s :: Markup2
169s = wrapMarkup2 Text.Blaze.Html4.FrameSet.s
170u :: Markup2
171u = wrapMarkup2 Text.Blaze.Html4.FrameSet.u
172frameset :: Markup2
173frameset = wrapMarkup2 Text.Blaze.Html4.FrameSet.frameset
174docType :: Markup
175docType = wrapMarkup Text.Blaze.Html4.FrameSet.docType
176area :: Markup
177area = wrapMarkup Text.Blaze.Html4.FrameSet.area
178br :: Markup
179br = wrapMarkup Text.Blaze.Html4.FrameSet.br
180col :: Markup
181col = wrapMarkup Text.Blaze.Html4.FrameSet.col
182hr :: Markup
183hr = wrapMarkup Text.Blaze.Html4.FrameSet.hr
184link :: Markup
185link = wrapMarkup Text.Blaze.Html4.FrameSet.link
186img :: Markup
187img = wrapMarkup Text.Blaze.Html4.FrameSet.img
188input :: Markup
189input = wrapMarkup Text.Blaze.Html4.FrameSet.input
190meta :: Markup
191meta = wrapMarkup Text.Blaze.Html4.FrameSet.meta
192param :: Markup
193param = wrapMarkup Text.Blaze.Html4.FrameSet.param
194basefont :: Markup
195basefont = wrapMarkup Text.Blaze.Html4.FrameSet.basefont
196frame :: Markup
197frame = wrapMarkup Text.Blaze.Html4.FrameSet.frame
198
diff --git a/src/Text/BlazeT/Html4/FrameSet/Attributes.hs b/src/Text/BlazeT/Html4/FrameSet/Attributes.hs
new file mode 100644
index 0000000..d806f29
--- /dev/null
+++ b/src/Text/BlazeT/Html4/FrameSet/Attributes.hs
@@ -0,0 +1,11 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module simply reexports the corresponding @blaze-html@ module.
6-}
7module Text.BlazeT.Html4.FrameSet.Attributes
8 (module Text.Blaze.Html4.FrameSet.Attributes
9 ) where
10import Text.Blaze.Html4.FrameSet.Attributes
11
diff --git a/src/Text/BlazeT/Html4/Strict.hs b/src/Text/BlazeT/Html4/Strict.hs
new file mode 100644
index 0000000..90fd65a
--- /dev/null
+++ b/src/Text/BlazeT/Html4/Strict.hs
@@ -0,0 +1,172 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module wraps all exports of "Text.Blaze.Html4.Strict" using 'wrapMarkup' and 'wrapMarkup'.
6-}
7module Text.BlazeT.Html4.Strict
8 (module Text.BlazeT.Html4.Strict
9 ,module Text.BlazeT.Html
10 ) where
11import qualified Text.Blaze.Html4.Strict
12import Text.BlazeT
13import Text.BlazeT.Html
14import Text.BlazeT.Internal
15
16docTypeHtml :: Markup2
17docTypeHtml = wrapMarkup2 Text.Blaze.Html4.Strict.docTypeHtml
18a :: Markup2
19a = wrapMarkup2 Text.Blaze.Html4.Strict.a
20abbr :: Markup2
21abbr = wrapMarkup2 Text.Blaze.Html4.Strict.abbr
22acronym :: Markup2
23acronym = wrapMarkup2 Text.Blaze.Html4.Strict.acronym
24address :: Markup2
25address = wrapMarkup2 Text.Blaze.Html4.Strict.address
26b :: Markup2
27b = wrapMarkup2 Text.Blaze.Html4.Strict.b
28bdo :: Markup2
29bdo = wrapMarkup2 Text.Blaze.Html4.Strict.bdo
30big :: Markup2
31big = wrapMarkup2 Text.Blaze.Html4.Strict.big
32blockquote :: Markup2
33blockquote = wrapMarkup2 Text.Blaze.Html4.Strict.blockquote
34body :: Markup2
35body = wrapMarkup2 Text.Blaze.Html4.Strict.body
36button :: Markup2
37button = wrapMarkup2 Text.Blaze.Html4.Strict.button
38caption :: Markup2
39caption = wrapMarkup2 Text.Blaze.Html4.Strict.caption
40cite :: Markup2
41cite = wrapMarkup2 Text.Blaze.Html4.Strict.cite
42code :: Markup2
43code = wrapMarkup2 Text.Blaze.Html4.Strict.code
44colgroup :: Markup2
45colgroup = wrapMarkup2 Text.Blaze.Html4.Strict.colgroup
46dd :: Markup2
47dd = wrapMarkup2 Text.Blaze.Html4.Strict.dd
48del :: Markup2
49del = wrapMarkup2 Text.Blaze.Html4.Strict.del
50dfn :: Markup2
51dfn = wrapMarkup2 Text.Blaze.Html4.Strict.dfn
52div :: Markup2
53div = wrapMarkup2 Text.Blaze.Html4.Strict.div
54dl :: Markup2
55dl = wrapMarkup2 Text.Blaze.Html4.Strict.dl
56dt :: Markup2
57dt = wrapMarkup2 Text.Blaze.Html4.Strict.dt
58em :: Markup2
59em = wrapMarkup2 Text.Blaze.Html4.Strict.em
60fieldset :: Markup2
61fieldset = wrapMarkup2 Text.Blaze.Html4.Strict.fieldset
62form :: Markup2
63form = wrapMarkup2 Text.Blaze.Html4.Strict.form
64h1 :: Markup2
65h1 = wrapMarkup2 Text.Blaze.Html4.Strict.h1
66h2 :: Markup2
67h2 = wrapMarkup2 Text.Blaze.Html4.Strict.h2
68h3 :: Markup2
69h3 = wrapMarkup2 Text.Blaze.Html4.Strict.h3
70h4 :: Markup2
71h4 = wrapMarkup2 Text.Blaze.Html4.Strict.h4
72h5 :: Markup2
73h5 = wrapMarkup2 Text.Blaze.Html4.Strict.h5
74h6 :: Markup2
75h6 = wrapMarkup2 Text.Blaze.Html4.Strict.h6
76head :: Markup2
77head = wrapMarkup2 Text.Blaze.Html4.Strict.head
78html :: Markup2
79html = wrapMarkup2 Text.Blaze.Html4.Strict.html
80i :: Markup2
81i = wrapMarkup2 Text.Blaze.Html4.Strict.i
82ins :: Markup2
83ins = wrapMarkup2 Text.Blaze.Html4.Strict.ins
84kbd :: Markup2
85kbd = wrapMarkup2 Text.Blaze.Html4.Strict.kbd
86label :: Markup2
87label = wrapMarkup2 Text.Blaze.Html4.Strict.label
88legend :: Markup2
89legend = wrapMarkup2 Text.Blaze.Html4.Strict.legend
90li :: Markup2
91li = wrapMarkup2 Text.Blaze.Html4.Strict.li
92map :: Markup2
93map = wrapMarkup2 Text.Blaze.Html4.Strict.map
94noscript :: Markup2
95noscript = wrapMarkup2 Text.Blaze.Html4.Strict.noscript
96object :: Markup2
97object = wrapMarkup2 Text.Blaze.Html4.Strict.object
98ol :: Markup2
99ol = wrapMarkup2 Text.Blaze.Html4.Strict.ol
100optgroup :: Markup2
101optgroup = wrapMarkup2 Text.Blaze.Html4.Strict.optgroup
102option :: Markup2
103option = wrapMarkup2 Text.Blaze.Html4.Strict.option
104p :: Markup2
105p = wrapMarkup2 Text.Blaze.Html4.Strict.p
106pre :: Markup2
107pre = wrapMarkup2 Text.Blaze.Html4.Strict.pre
108q :: Markup2
109q = wrapMarkup2 Text.Blaze.Html4.Strict.q
110samp :: Markup2
111samp = wrapMarkup2 Text.Blaze.Html4.Strict.samp
112script :: Markup2
113script = wrapMarkup2 Text.Blaze.Html4.Strict.script
114select :: Markup2
115select = wrapMarkup2 Text.Blaze.Html4.Strict.select
116small :: Markup2
117small = wrapMarkup2 Text.Blaze.Html4.Strict.small
118span :: Markup2
119span = wrapMarkup2 Text.Blaze.Html4.Strict.span
120strong :: Markup2
121strong = wrapMarkup2 Text.Blaze.Html4.Strict.strong
122style :: Markup2
123style = wrapMarkup2 Text.Blaze.Html4.Strict.style
124sub :: Markup2
125sub = wrapMarkup2 Text.Blaze.Html4.Strict.sub
126sup :: Markup2
127sup = wrapMarkup2 Text.Blaze.Html4.Strict.sup
128table :: Markup2
129table = wrapMarkup2 Text.Blaze.Html4.Strict.table
130tbody :: Markup2
131tbody = wrapMarkup2 Text.Blaze.Html4.Strict.tbody
132td :: Markup2
133td = wrapMarkup2 Text.Blaze.Html4.Strict.td
134textarea :: Markup2
135textarea = wrapMarkup2 Text.Blaze.Html4.Strict.textarea
136tfoot :: Markup2
137tfoot = wrapMarkup2 Text.Blaze.Html4.Strict.tfoot
138th :: Markup2
139th = wrapMarkup2 Text.Blaze.Html4.Strict.th
140thead :: Markup2
141thead = wrapMarkup2 Text.Blaze.Html4.Strict.thead
142title :: Markup2
143title = wrapMarkup2 Text.Blaze.Html4.Strict.title
144tr :: Markup2
145tr = wrapMarkup2 Text.Blaze.Html4.Strict.tr
146tt :: Markup2
147tt = wrapMarkup2 Text.Blaze.Html4.Strict.tt
148ul :: Markup2
149ul = wrapMarkup2 Text.Blaze.Html4.Strict.ul
150var :: Markup2
151var = wrapMarkup2 Text.Blaze.Html4.Strict.var
152docType :: Markup
153docType = wrapMarkup Text.Blaze.Html4.Strict.docType
154area :: Markup
155area = wrapMarkup Text.Blaze.Html4.Strict.area
156br :: Markup
157br = wrapMarkup Text.Blaze.Html4.Strict.br
158col :: Markup
159col = wrapMarkup Text.Blaze.Html4.Strict.col
160hr :: Markup
161hr = wrapMarkup Text.Blaze.Html4.Strict.hr
162link :: Markup
163link = wrapMarkup Text.Blaze.Html4.Strict.link
164img :: Markup
165img = wrapMarkup Text.Blaze.Html4.Strict.img
166input :: Markup
167input = wrapMarkup Text.Blaze.Html4.Strict.input
168meta :: Markup
169meta = wrapMarkup Text.Blaze.Html4.Strict.meta
170param :: Markup
171param = wrapMarkup Text.Blaze.Html4.Strict.param
172
diff --git a/src/Text/BlazeT/Html4/Strict/Attributes.hs b/src/Text/BlazeT/Html4/Strict/Attributes.hs
new file mode 100644
index 0000000..18d1fe2
--- /dev/null
+++ b/src/Text/BlazeT/Html4/Strict/Attributes.hs
@@ -0,0 +1,11 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module simply reexports the corresponding @blaze-html@ module.
6-}
7module Text.BlazeT.Html4.Strict.Attributes
8 (module Text.Blaze.Html4.Strict.Attributes
9 ) where
10import Text.Blaze.Html4.Strict.Attributes
11
diff --git a/src/Text/BlazeT/Html4/Transitional.hs b/src/Text/BlazeT/Html4/Transitional.hs
new file mode 100644
index 0000000..a6dead6
--- /dev/null
+++ b/src/Text/BlazeT/Html4/Transitional.hs
@@ -0,0 +1,194 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module wraps all exports of "Text.Blaze.Html4.Transitional" using 'wrapMarkup' and 'wrapMarkup'.
6-}
7module Text.BlazeT.Html4.Transitional
8 (module Text.BlazeT.Html4.Transitional
9 ,module Text.BlazeT.Html
10 ) where
11import qualified Text.Blaze.Html4.Transitional
12import Text.BlazeT
13import Text.BlazeT.Html
14import Text.BlazeT.Internal
15
16docTypeHtml :: Markup2
17docTypeHtml = wrapMarkup2 Text.Blaze.Html4.Transitional.docTypeHtml
18a :: Markup2
19a = wrapMarkup2 Text.Blaze.Html4.Transitional.a
20abbr :: Markup2
21abbr = wrapMarkup2 Text.Blaze.Html4.Transitional.abbr
22acronym :: Markup2
23acronym = wrapMarkup2 Text.Blaze.Html4.Transitional.acronym
24address :: Markup2
25address = wrapMarkup2 Text.Blaze.Html4.Transitional.address
26b :: Markup2
27b = wrapMarkup2 Text.Blaze.Html4.Transitional.b
28bdo :: Markup2
29bdo = wrapMarkup2 Text.Blaze.Html4.Transitional.bdo
30big :: Markup2
31big = wrapMarkup2 Text.Blaze.Html4.Transitional.big
32blockquote :: Markup2
33blockquote = wrapMarkup2 Text.Blaze.Html4.Transitional.blockquote
34body :: Markup2
35body = wrapMarkup2 Text.Blaze.Html4.Transitional.body
36button :: Markup2
37button = wrapMarkup2 Text.Blaze.Html4.Transitional.button
38caption :: Markup2
39caption = wrapMarkup2 Text.Blaze.Html4.Transitional.caption
40cite :: Markup2
41cite = wrapMarkup2 Text.Blaze.Html4.Transitional.cite
42code :: Markup2
43code = wrapMarkup2 Text.Blaze.Html4.Transitional.code
44colgroup :: Markup2
45colgroup = wrapMarkup2 Text.Blaze.Html4.Transitional.colgroup
46dd :: Markup2
47dd = wrapMarkup2 Text.Blaze.Html4.Transitional.dd
48del :: Markup2
49del = wrapMarkup2 Text.Blaze.Html4.Transitional.del
50dfn :: Markup2
51dfn = wrapMarkup2 Text.Blaze.Html4.Transitional.dfn
52div :: Markup2
53div = wrapMarkup2 Text.Blaze.Html4.Transitional.div
54dl :: Markup2
55dl = wrapMarkup2 Text.Blaze.Html4.Transitional.dl
56dt :: Markup2
57dt = wrapMarkup2 Text.Blaze.Html4.Transitional.dt
58em :: Markup2
59em = wrapMarkup2 Text.Blaze.Html4.Transitional.em
60fieldset :: Markup2
61fieldset = wrapMarkup2 Text.Blaze.Html4.Transitional.fieldset
62form :: Markup2
63form = wrapMarkup2 Text.Blaze.Html4.Transitional.form
64h1 :: Markup2
65h1 = wrapMarkup2 Text.Blaze.Html4.Transitional.h1
66h2 :: Markup2
67h2 = wrapMarkup2 Text.Blaze.Html4.Transitional.h2
68h3 :: Markup2
69h3 = wrapMarkup2 Text.Blaze.Html4.Transitional.h3
70h4 :: Markup2
71h4 = wrapMarkup2 Text.Blaze.Html4.Transitional.h4
72h5 :: Markup2
73h5 = wrapMarkup2 Text.Blaze.Html4.Transitional.h5
74h6 :: Markup2
75h6 = wrapMarkup2 Text.Blaze.Html4.Transitional.h6
76head :: Markup2
77head = wrapMarkup2 Text.Blaze.Html4.Transitional.head
78html :: Markup2
79html = wrapMarkup2 Text.Blaze.Html4.Transitional.html
80i :: Markup2
81i = wrapMarkup2 Text.Blaze.Html4.Transitional.i
82ins :: Markup2
83ins = wrapMarkup2 Text.Blaze.Html4.Transitional.ins
84kbd :: Markup2
85kbd = wrapMarkup2 Text.Blaze.Html4.Transitional.kbd
86label :: Markup2
87label = wrapMarkup2 Text.Blaze.Html4.Transitional.label
88legend :: Markup2
89legend = wrapMarkup2 Text.Blaze.Html4.Transitional.legend
90li :: Markup2
91li = wrapMarkup2 Text.Blaze.Html4.Transitional.li
92map :: Markup2
93map = wrapMarkup2 Text.Blaze.Html4.Transitional.map
94noscript :: Markup2
95noscript = wrapMarkup2 Text.Blaze.Html4.Transitional.noscript
96object :: Markup2
97object = wrapMarkup2 Text.Blaze.Html4.Transitional.object
98ol :: Markup2
99ol = wrapMarkup2 Text.Blaze.Html4.Transitional.ol
100optgroup :: Markup2
101optgroup = wrapMarkup2 Text.Blaze.Html4.Transitional.optgroup
102option :: Markup2
103option = wrapMarkup2 Text.Blaze.Html4.Transitional.option
104p :: Markup2
105p = wrapMarkup2 Text.Blaze.Html4.Transitional.p
106pre :: Markup2
107pre = wrapMarkup2 Text.Blaze.Html4.Transitional.pre
108q :: Markup2
109q = wrapMarkup2 Text.Blaze.Html4.Transitional.q
110samp :: Markup2
111samp = wrapMarkup2 Text.Blaze.Html4.Transitional.samp
112script :: Markup2
113script = wrapMarkup2 Text.Blaze.Html4.Transitional.script
114select :: Markup2
115select = wrapMarkup2 Text.Blaze.Html4.Transitional.select
116small :: Markup2
117small = wrapMarkup2 Text.Blaze.Html4.Transitional.small
118span :: Markup2
119span = wrapMarkup2 Text.Blaze.Html4.Transitional.span
120strong :: Markup2
121strong = wrapMarkup2 Text.Blaze.Html4.Transitional.strong
122style :: Markup2
123style = wrapMarkup2 Text.Blaze.Html4.Transitional.style
124sub :: Markup2
125sub = wrapMarkup2 Text.Blaze.Html4.Transitional.sub
126sup :: Markup2
127sup = wrapMarkup2 Text.Blaze.Html4.Transitional.sup
128table :: Markup2
129table = wrapMarkup2 Text.Blaze.Html4.Transitional.table
130tbody :: Markup2
131tbody = wrapMarkup2 Text.Blaze.Html4.Transitional.tbody
132td :: Markup2
133td = wrapMarkup2 Text.Blaze.Html4.Transitional.td
134textarea :: Markup2
135textarea = wrapMarkup2 Text.Blaze.Html4.Transitional.textarea
136tfoot :: Markup2
137tfoot = wrapMarkup2 Text.Blaze.Html4.Transitional.tfoot
138th :: Markup2
139th = wrapMarkup2 Text.Blaze.Html4.Transitional.th
140thead :: Markup2
141thead = wrapMarkup2 Text.Blaze.Html4.Transitional.thead
142title :: Markup2
143title = wrapMarkup2 Text.Blaze.Html4.Transitional.title
144tr :: Markup2
145tr = wrapMarkup2 Text.Blaze.Html4.Transitional.tr
146tt :: Markup2
147tt = wrapMarkup2 Text.Blaze.Html4.Transitional.tt
148ul :: Markup2
149ul = wrapMarkup2 Text.Blaze.Html4.Transitional.ul
150var :: Markup2
151var = wrapMarkup2 Text.Blaze.Html4.Transitional.var
152applet :: Markup2
153applet = wrapMarkup2 Text.Blaze.Html4.Transitional.applet
154center :: Markup2
155center = wrapMarkup2 Text.Blaze.Html4.Transitional.center
156dir :: Markup2
157dir = wrapMarkup2 Text.Blaze.Html4.Transitional.dir
158font :: Markup2
159font = wrapMarkup2 Text.Blaze.Html4.Transitional.font
160iframe :: Markup2
161iframe = wrapMarkup2 Text.Blaze.Html4.Transitional.iframe
162isindex :: Markup2
163isindex = wrapMarkup2 Text.Blaze.Html4.Transitional.isindex
164menu :: Markup2
165menu = wrapMarkup2 Text.Blaze.Html4.Transitional.menu
166noframes :: Markup2
167noframes = wrapMarkup2 Text.Blaze.Html4.Transitional.noframes
168s :: Markup2
169s = wrapMarkup2 Text.Blaze.Html4.Transitional.s
170u :: Markup2
171u = wrapMarkup2 Text.Blaze.Html4.Transitional.u
172docType :: Markup
173docType = wrapMarkup Text.Blaze.Html4.Transitional.docType
174area :: Markup
175area = wrapMarkup Text.Blaze.Html4.Transitional.area
176br :: Markup
177br = wrapMarkup Text.Blaze.Html4.Transitional.br
178col :: Markup
179col = wrapMarkup Text.Blaze.Html4.Transitional.col
180hr :: Markup
181hr = wrapMarkup Text.Blaze.Html4.Transitional.hr
182link :: Markup
183link = wrapMarkup Text.Blaze.Html4.Transitional.link
184img :: Markup
185img = wrapMarkup Text.Blaze.Html4.Transitional.img
186input :: Markup
187input = wrapMarkup Text.Blaze.Html4.Transitional.input
188meta :: Markup
189meta = wrapMarkup Text.Blaze.Html4.Transitional.meta
190param :: Markup
191param = wrapMarkup Text.Blaze.Html4.Transitional.param
192basefont :: Markup
193basefont = wrapMarkup Text.Blaze.Html4.Transitional.basefont
194
diff --git a/src/Text/BlazeT/Html4/Transitional/Attributes.hs b/src/Text/BlazeT/Html4/Transitional/Attributes.hs
new file mode 100644
index 0000000..2fc0d97
--- /dev/null
+++ b/src/Text/BlazeT/Html4/Transitional/Attributes.hs
@@ -0,0 +1,11 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module simply reexports the corresponding @blaze-html@ module.
6-}
7module Text.BlazeT.Html4.Transitional.Attributes
8 (module Text.Blaze.Html4.Transitional.Attributes
9 ) where
10import Text.Blaze.Html4.Transitional.Attributes
11
diff --git a/src/Text/BlazeT/Html5.hs b/src/Text/BlazeT/Html5.hs
new file mode 100644
index 0000000..8e93bf9
--- /dev/null
+++ b/src/Text/BlazeT/Html5.hs
@@ -0,0 +1,234 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module wraps all exports of "Text.Blaze.Html5" using 'wrapMarkup' and 'wrapMarkup'.
6-}
7module Text.BlazeT.Html5
8 (module Text.BlazeT.Html5
9 ,module Text.BlazeT.Html
10 ) where
11import qualified Text.Blaze.Html5
12import Text.BlazeT
13import Text.BlazeT.Html
14import Text.BlazeT.Internal
15
16docTypeHtml :: Markup2
17docTypeHtml = wrapMarkup2 Text.Blaze.Html5.docTypeHtml
18a :: Markup2
19a = wrapMarkup2 Text.Blaze.Html5.a
20abbr :: Markup2
21abbr = wrapMarkup2 Text.Blaze.Html5.abbr
22address :: Markup2
23address = wrapMarkup2 Text.Blaze.Html5.address
24article :: Markup2
25article = wrapMarkup2 Text.Blaze.Html5.article
26aside :: Markup2
27aside = wrapMarkup2 Text.Blaze.Html5.aside
28audio :: Markup2
29audio = wrapMarkup2 Text.Blaze.Html5.audio
30b :: Markup2
31b = wrapMarkup2 Text.Blaze.Html5.b
32bdo :: Markup2
33bdo = wrapMarkup2 Text.Blaze.Html5.bdo
34blockquote :: Markup2
35blockquote = wrapMarkup2 Text.Blaze.Html5.blockquote
36body :: Markup2
37body = wrapMarkup2 Text.Blaze.Html5.body
38button :: Markup2
39button = wrapMarkup2 Text.Blaze.Html5.button
40canvas :: Markup2
41canvas = wrapMarkup2 Text.Blaze.Html5.canvas
42caption :: Markup2
43caption = wrapMarkup2 Text.Blaze.Html5.caption
44cite :: Markup2
45cite = wrapMarkup2 Text.Blaze.Html5.cite
46code :: Markup2
47code = wrapMarkup2 Text.Blaze.Html5.code
48colgroup :: Markup2
49colgroup = wrapMarkup2 Text.Blaze.Html5.colgroup
50command :: Markup2
51command = wrapMarkup2 Text.Blaze.Html5.command
52datalist :: Markup2
53datalist = wrapMarkup2 Text.Blaze.Html5.datalist
54dd :: Markup2
55dd = wrapMarkup2 Text.Blaze.Html5.dd
56del :: Markup2
57del = wrapMarkup2 Text.Blaze.Html5.del
58details :: Markup2
59details = wrapMarkup2 Text.Blaze.Html5.details
60dfn :: Markup2
61dfn = wrapMarkup2 Text.Blaze.Html5.dfn
62div :: Markup2
63div = wrapMarkup2 Text.Blaze.Html5.div
64dl :: Markup2
65dl = wrapMarkup2 Text.Blaze.Html5.dl
66dt :: Markup2
67dt = wrapMarkup2 Text.Blaze.Html5.dt
68em :: Markup2
69em = wrapMarkup2 Text.Blaze.Html5.em
70fieldset :: Markup2
71fieldset = wrapMarkup2 Text.Blaze.Html5.fieldset
72figcaption :: Markup2
73figcaption = wrapMarkup2 Text.Blaze.Html5.figcaption
74figure :: Markup2
75figure = wrapMarkup2 Text.Blaze.Html5.figure
76footer :: Markup2
77footer = wrapMarkup2 Text.Blaze.Html5.footer
78form :: Markup2
79form = wrapMarkup2 Text.Blaze.Html5.form
80h1 :: Markup2
81h1 = wrapMarkup2 Text.Blaze.Html5.h1
82h2 :: Markup2
83h2 = wrapMarkup2 Text.Blaze.Html5.h2
84h3 :: Markup2
85h3 = wrapMarkup2 Text.Blaze.Html5.h3
86h4 :: Markup2
87h4 = wrapMarkup2 Text.Blaze.Html5.h4
88h5 :: Markup2
89h5 = wrapMarkup2 Text.Blaze.Html5.h5
90h6 :: Markup2
91h6 = wrapMarkup2 Text.Blaze.Html5.h6
92head :: Markup2
93head = wrapMarkup2 Text.Blaze.Html5.head
94header :: Markup2
95header = wrapMarkup2 Text.Blaze.Html5.header
96hgroup :: Markup2
97hgroup = wrapMarkup2 Text.Blaze.Html5.hgroup
98html :: Markup2
99html = wrapMarkup2 Text.Blaze.Html5.html
100i :: Markup2
101i = wrapMarkup2 Text.Blaze.Html5.i
102iframe :: Markup2
103iframe = wrapMarkup2 Text.Blaze.Html5.iframe
104ins :: Markup2
105ins = wrapMarkup2 Text.Blaze.Html5.ins
106kbd :: Markup2
107kbd = wrapMarkup2 Text.Blaze.Html5.kbd
108label :: Markup2
109label = wrapMarkup2 Text.Blaze.Html5.label
110legend :: Markup2
111legend = wrapMarkup2 Text.Blaze.Html5.legend
112li :: Markup2
113li = wrapMarkup2 Text.Blaze.Html5.li
114main :: Markup2
115main = wrapMarkup2 Text.Blaze.Html5.main
116map :: Markup2
117map = wrapMarkup2 Text.Blaze.Html5.map
118mark :: Markup2
119mark = wrapMarkup2 Text.Blaze.Html5.mark
120menu :: Markup2
121menu = wrapMarkup2 Text.Blaze.Html5.menu
122meter :: Markup2
123meter = wrapMarkup2 Text.Blaze.Html5.meter
124nav :: Markup2
125nav = wrapMarkup2 Text.Blaze.Html5.nav
126noscript :: Markup2
127noscript = wrapMarkup2 Text.Blaze.Html5.noscript
128object :: Markup2
129object = wrapMarkup2 Text.Blaze.Html5.object
130ol :: Markup2
131ol = wrapMarkup2 Text.Blaze.Html5.ol
132optgroup :: Markup2
133optgroup = wrapMarkup2 Text.Blaze.Html5.optgroup
134option :: Markup2
135option = wrapMarkup2 Text.Blaze.Html5.option
136output :: Markup2
137output = wrapMarkup2 Text.Blaze.Html5.output
138p :: Markup2
139p = wrapMarkup2 Text.Blaze.Html5.p
140pre :: Markup2
141pre = wrapMarkup2 Text.Blaze.Html5.pre
142progress :: Markup2
143progress = wrapMarkup2 Text.Blaze.Html5.progress
144q :: Markup2
145q = wrapMarkup2 Text.Blaze.Html5.q
146rp :: Markup2
147rp = wrapMarkup2 Text.Blaze.Html5.rp
148rt :: Markup2
149rt = wrapMarkup2 Text.Blaze.Html5.rt
150ruby :: Markup2
151ruby = wrapMarkup2 Text.Blaze.Html5.ruby
152samp :: Markup2
153samp = wrapMarkup2 Text.Blaze.Html5.samp
154script :: Markup2
155script = wrapMarkup2 Text.Blaze.Html5.script
156section :: Markup2
157section = wrapMarkup2 Text.Blaze.Html5.section
158select :: Markup2
159select = wrapMarkup2 Text.Blaze.Html5.select
160small :: Markup2
161small = wrapMarkup2 Text.Blaze.Html5.small
162span :: Markup2
163span = wrapMarkup2 Text.Blaze.Html5.span
164strong :: Markup2
165strong = wrapMarkup2 Text.Blaze.Html5.strong
166style :: Markup2
167style = wrapMarkup2 Text.Blaze.Html5.style
168sub :: Markup2
169sub = wrapMarkup2 Text.Blaze.Html5.sub
170summary :: Markup2
171summary = wrapMarkup2 Text.Blaze.Html5.summary
172sup :: Markup2
173sup = wrapMarkup2 Text.Blaze.Html5.sup
174table :: Markup2
175table = wrapMarkup2 Text.Blaze.Html5.table
176tbody :: Markup2
177tbody = wrapMarkup2 Text.Blaze.Html5.tbody
178td :: Markup2
179td = wrapMarkup2 Text.Blaze.Html5.td
180textarea :: Markup2
181textarea = wrapMarkup2 Text.Blaze.Html5.textarea
182tfoot :: Markup2
183tfoot = wrapMarkup2 Text.Blaze.Html5.tfoot
184th :: Markup2
185th = wrapMarkup2 Text.Blaze.Html5.th
186thead :: Markup2
187thead = wrapMarkup2 Text.Blaze.Html5.thead
188time :: Markup2
189time = wrapMarkup2 Text.Blaze.Html5.time
190title :: Markup2
191title = wrapMarkup2 Text.Blaze.Html5.title
192tr :: Markup2
193tr = wrapMarkup2 Text.Blaze.Html5.tr
194ul :: Markup2
195ul = wrapMarkup2 Text.Blaze.Html5.ul
196var :: Markup2
197var = wrapMarkup2 Text.Blaze.Html5.var
198video :: Markup2
199video = wrapMarkup2 Text.Blaze.Html5.video
200docType :: Markup
201docType = wrapMarkup Text.Blaze.Html5.docType
202area :: Markup
203area = wrapMarkup Text.Blaze.Html5.area
204base :: Markup
205base = wrapMarkup Text.Blaze.Html5.base
206br :: Markup
207br = wrapMarkup Text.Blaze.Html5.br
208col :: Markup
209col = wrapMarkup Text.Blaze.Html5.col
210embed :: Markup
211embed = wrapMarkup Text.Blaze.Html5.embed
212hr :: Markup
213hr = wrapMarkup Text.Blaze.Html5.hr
214img :: Markup
215img = wrapMarkup Text.Blaze.Html5.img
216input :: Markup
217input = wrapMarkup Text.Blaze.Html5.input
218keygen :: Markup
219keygen = wrapMarkup Text.Blaze.Html5.keygen
220link :: Markup
221link = wrapMarkup Text.Blaze.Html5.link
222menuitem :: Markup
223menuitem = wrapMarkup Text.Blaze.Html5.menuitem
224meta :: Markup
225meta = wrapMarkup Text.Blaze.Html5.meta
226param :: Markup
227param = wrapMarkup Text.Blaze.Html5.param
228source :: Markup
229source = wrapMarkup Text.Blaze.Html5.source
230track :: Markup
231track = wrapMarkup Text.Blaze.Html5.track
232wbr :: Markup
233wbr = wrapMarkup Text.Blaze.Html5.wbr
234
diff --git a/src/Text/BlazeT/Html5/Attributes.hs b/src/Text/BlazeT/Html5/Attributes.hs
new file mode 100644
index 0000000..1bcd773
--- /dev/null
+++ b/src/Text/BlazeT/Html5/Attributes.hs
@@ -0,0 +1,11 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module simply reexports the corresponding @blaze-html@ module.
6-}
7module Text.BlazeT.Html5.Attributes
8 (module Text.Blaze.Html5.Attributes
9 ) where
10import Text.Blaze.Html5.Attributes
11
diff --git a/src/Text/BlazeT/Internal.hs b/src/Text/BlazeT/Internal.hs
new file mode 100644
index 0000000..24ef1fe
--- /dev/null
+++ b/src/Text/BlazeT/Internal.hs
@@ -0,0 +1,238 @@
1{-# LANGUAGE DeriveFunctor #-}
2{-# LANGUAGE GeneralizedNewtypeDeriving #-}
3{-# LANGUAGE FlexibleInstances #-}
4{-# LANGUAGE RankNTypes #-}
5{-# LANGUAGE CPP #-}
6#if MIN_VERSION_blaze_markup(0,7,1)
7#define PRE_BUILDER
8#endif
9module Text.BlazeT.Internal
10 (
11 -- * Important types.
12 B.ChoiceString (..)
13 , B.StaticString (..)
14 , MarkupM
15 , Markup
16 , B.Tag
17 , B.Attribute
18 , B.AttributeValue
19
20 -- * Creating custom tags and attributes.
21 , customParent
22 , customLeaf
23 , B.attribute
24 , B.dataAttribute
25 , B.customAttribute
26
27 -- * Converting values to Markup.
28 , text
29 , preEscapedText
30 , lazyText
31 , preEscapedLazyText
32 , textBuilder
33 , preEscapedTextBuilder
34 , string
35 , preEscapedString
36 , unsafeByteString
37 , unsafeLazyByteString
38
39 -- * Comments
40 , B.textComment
41 , B.lazyTextComment
42 , B.stringComment
43 , B.unsafeByteStringComment
44 , B.unsafeLazyByteStringComment
45
46 -- * Converting values to tags.
47 , B.textTag
48 , B.stringTag
49
50 -- * Converting values to attribute values.
51 , B.textValue
52 , B.preEscapedTextValue
53 , B.lazyTextValue
54 , B.preEscapedLazyTextValue
55 , B.textBuilderValue
56 , B.preEscapedTextBuilderValue
57 , B.stringValue
58 , B.preEscapedStringValue
59 , B.unsafeByteStringValue
60 , B.unsafeLazyByteStringValue
61
62 -- * Setting attributes
63 , B.Attributable
64 , (B.!)
65 , (B.!?)
66
67 -- * Modifying Markup elements
68 , contents
69 , external
70
71 -- * Querying Markup elements
72 , null
73
74 -- * BlazeT new stuff
75 ,Markup2
76 ,mapMarkupT
77 ,MarkupT
78 ,runMarkup
79 ,runMarkupT
80 ,execMarkup
81 ,execMarkupT
82 ,wrapMarkup
83 ,wrapMarkupT
84 ,wrapMarkup2
85 ,wrapMarkupT2
86 ) where
87
88import Control.Monad.Identity
89import Control.Monad.Trans.Class
90import Control.Monad.Writer.Strict
91import qualified Data.ByteString as BS
92import qualified Data.ByteString.Lazy as BL
93import Data.String
94import qualified Data.Text as T
95import qualified Data.Text.Lazy as LT
96import qualified Data.Text.Lazy.Builder as LTB
97import qualified Text.Blaze as B
98import qualified Text.Blaze.Internal as B
99
100newtype MarkupT m a= MarkupT { fromMarkupT :: WriterT B.Markup m a }
101 deriving (Functor
102#if MIN_VERSION_base(4,8,0)
103 ,Applicative
104#endif
105 ,Monad
106 ,MonadWriter B.Markup
107 ,MonadTrans
108 )
109
110-- | Map both the return value and markup of a computation using the
111-- given function
112mapMarkupT :: (m (a,B.Markup) -> n (b,B.Markup)) -> MarkupT m a -> MarkupT n b
113mapMarkupT f = MarkupT . mapWriterT f . fromMarkupT
114{-# INLINE mapMarkupT #-}
115
116type MarkupM = MarkupT Identity
117type Markup = forall m . Monad m => MarkupT m ()
118type Markup2 = forall m . Monad m => MarkupT m () -> MarkupT m ()
119
120runMarkupT :: MarkupT m a -> m (a,B.Markup)
121runMarkupT = runWriterT . fromMarkupT
122{-# INLINE runMarkupT #-}
123
124execMarkupT :: Monad m => MarkupT m a -> m B.Markup
125execMarkupT = liftM snd . runMarkupT
126{-# INLINE execMarkupT #-}
127
128runMarkup :: MarkupM a -> (a,B.Markup)
129runMarkup = runIdentity . runMarkupT
130{-# INLINE runMarkup #-}
131
132execMarkup :: MarkupM a -> B.Markup
133execMarkup = snd . runMarkup
134{-# INLINE execMarkup #-}
135
136-- instance MonadTrans MarkupT where
137
138
139instance (Monad m,Monoid a) => Monoid (MarkupT m a) where
140 mempty = return mempty
141 {-# INLINE mempty #-}
142 a `mappend` b = do {a' <- a; b >>= return . (mappend a')}
143 {-# INLINE mappend #-}
144
145
146instance Monad m => B.Attributable (MarkupT m a) where
147 h ! a = wrapMarkupT2 (B.! a) h
148 {-# INLINE (!) #-}
149
150instance Monad m => B.Attributable (a -> MarkupT m b) where
151 h ! a = \x -> wrapMarkupT2 (B.! a) $ h x
152 {-# INLINE (!) #-}
153
154instance Monad m => IsString (MarkupT m ()) where
155 fromString = wrapMarkup . fromString
156 {-# INLINE fromString #-}
157
158wrapMarkupT :: Monad m => B.Markup -> MarkupT m ()
159wrapMarkupT = tell
160{-# INLINE wrapMarkupT #-}
161
162wrapMarkup :: B.Markup -> Markup
163wrapMarkup = wrapMarkupT
164{-# INLINE wrapMarkup #-}
165
166wrapMarkupT2 :: Monad m => (B.Markup -> B.Markup)
167 -> MarkupT m a -> MarkupT m a
168wrapMarkupT2 = censor
169{-# INLINE wrapMarkupT2 #-}
170
171wrapMarkup2 :: (B.Markup -> B.Markup) -> Markup2
172wrapMarkup2 = wrapMarkupT2
173{-# INLINE wrapMarkup2 #-}
174
175unsafeByteString :: BS.ByteString -> Markup
176unsafeByteString = wrapMarkup . B.unsafeByteString
177{-# INLINE unsafeByteString #-}
178
179-- | Insert a lazy 'BL.ByteString'. See 'unsafeByteString' for reasons why this
180-- is an unsafe operation.
181--
182unsafeLazyByteString :: BL.ByteString -- ^ Value to insert
183 -> Markup -- ^ Resulting HTML fragment
184unsafeLazyByteString = wrapMarkup . B.unsafeLazyByteString
185{-# INLINE unsafeLazyByteString #-}
186
187external :: Monad m => MarkupT m a -> MarkupT m a
188external = wrapMarkupT2 B.external
189{-# INLINE external #-}
190
191contents :: Monad m => MarkupT m a -> MarkupT m a
192contents = wrapMarkupT2 B.contents
193{-# INLINE contents #-}
194
195customParent ::B.Tag -> Markup2
196customParent = wrapMarkup2 . B.customParent
197{-# INLINE customParent #-}
198
199customLeaf :: B.Tag -> Bool -> Markup
200customLeaf = fmap wrapMarkup . B.customLeaf
201{-# INLINE customLeaf #-}
202
203preEscapedText :: T.Text -> Markup
204preEscapedText = wrapMarkup . B.preEscapedText
205{-# INLINE preEscapedText #-}
206
207preEscapedLazyText :: LT.Text -> Markup
208preEscapedLazyText = wrapMarkup . B.preEscapedLazyText
209{-# INLINE preEscapedLazyText #-}
210
211preEscapedTextBuilder :: LTB.Builder -> Markup
212textBuilder :: LTB.Builder -> Markup
213
214#ifdef PRE_BUILDER
215preEscapedTextBuilder = wrapMarkup . B.preEscapedTextBuilder
216textBuilder = wrapMarkup . B.textBuilder
217{-# INLINE preEscapedTextBuilder #-}
218{-# INLINE textBuilder #-}
219#else
220preEscapedTextBuilder = error "This function needs blaze-markup 0.7.1.0"
221textBuilder = error "This function needs blaze-markup 0.7.1.0"
222#endif
223
224preEscapedString :: String -> Markup
225preEscapedString = wrapMarkup . B.preEscapedString
226{-# INLINE preEscapedString #-}
227
228string :: String -> Markup
229string = wrapMarkup . B.string
230{-# INLINE string #-}
231
232text :: T.Text -> Markup
233text = wrapMarkup . B.text
234{-# INLINE text #-}
235
236lazyText :: LT.Text -> Markup
237lazyText = wrapMarkup . B.lazyText
238{-# INLINE lazyText #-}
diff --git a/src/Text/BlazeT/Renderer/Pretty.hs b/src/Text/BlazeT/Renderer/Pretty.hs
new file mode 100644
index 0000000..8977c94
--- /dev/null
+++ b/src/Text/BlazeT/Renderer/Pretty.hs
@@ -0,0 +1,22 @@
1module Text.BlazeT.Renderer.Pretty
2 ( renderMarkup
3 , renderHtml
4 , renderMarkupT
5 , renderHtmlT
6 ) where
7
8import Control.Monad
9import Control.Monad.Identity
10import qualified Text.Blaze.Renderer.Pretty as BU
11import Text.BlazeT
12
13renderMarkup :: MarkupM a -> String
14renderMarkup = runIdentity . renderMarkupT
15renderMarkupT :: Monad m => MarkupT m a -> m String
16renderMarkupT = liftM BU.renderMarkup . execMarkupT
17
18renderHtml :: MarkupM a -> String
19renderHtml = renderMarkup
20renderHtmlT :: Monad m => MarkupT m a -> m String
21renderHtmlT = renderMarkupT
22
diff --git a/src/Text/BlazeT/Renderer/String.hs b/src/Text/BlazeT/Renderer/String.hs
new file mode 100644
index 0000000..0a2de8a
--- /dev/null
+++ b/src/Text/BlazeT/Renderer/String.hs
@@ -0,0 +1,27 @@
1module Text.BlazeT.Renderer.String
2 ( fromChoiceString
3 , renderMarkup
4 , renderHtml
5 , renderMarkupT
6 , renderHtmlT
7 ) where
8
9import Control.Monad
10import Control.Monad.Identity
11import Text.Blaze.Internal (ChoiceString)
12import qualified Text.Blaze.Renderer.String as BU
13import Text.BlazeT
14
15fromChoiceString :: ChoiceString -> String -> String
16fromChoiceString = BU.fromChoiceString
17
18renderMarkup :: MarkupM a -> String
19renderMarkup = runIdentity . renderMarkupT
20renderMarkupT :: Monad m => MarkupT m a -> m String
21renderMarkupT = liftM BU.renderMarkup . execMarkupT
22
23renderHtml :: MarkupM a -> String
24renderHtml = renderMarkup
25renderHtmlT :: Monad m => MarkupT m a -> m String
26renderHtmlT = renderMarkupT
27
diff --git a/src/Text/BlazeT/Renderer/Text.hs b/src/Text/BlazeT/Renderer/Text.hs
new file mode 100644
index 0000000..31181eb
--- /dev/null
+++ b/src/Text/BlazeT/Renderer/Text.hs
@@ -0,0 +1,75 @@
1module Text.BlazeT.Renderer.Text
2 ( renderMarkupBuilderT
3 , renderMarkupBuilder
4 , renderMarkupBuilderWithT
5 , renderMarkupT
6 , renderMarkupWithT
7 , renderHtmlBuilderT
8 , renderHtmlBuilderWithT
9 , renderHtmlT
10 , renderHtmlWithT
11 , renderMarkupBuilderWith
12 , renderMarkup
13 , renderMarkupWith
14 , renderHtmlBuilder
15 , renderHtmlBuilderWith
16 , renderHtml
17 , renderHtmlWith
18 ) where
19
20import Control.Monad
21import Data.ByteString (ByteString)
22import Control.Monad.Identity
23import Data.Text (Text)
24import qualified Data.Text.Lazy as L
25import qualified Data.Text.Lazy.Builder as B
26import qualified Text.Blaze.Html.Renderer.Text as BH
27import qualified Text.Blaze.Renderer.Text as BU
28import Text.BlazeT
29
30renderMarkupBuilder :: MarkupM a -> B.Builder
31renderMarkupBuilder = runIdentity . renderMarkupBuilderT
32
33renderMarkupBuilderT :: Monad m => MarkupT m a -> m B.Builder
34renderMarkupBuilderT = liftM BU.renderMarkupBuilder . execMarkupT
35
36renderHtmlBuilder :: MarkupM a -> B.Builder
37renderHtmlBuilder = renderMarkupBuilder
38
39renderHtmlBuilderT :: Monad m => MarkupT m a -> m B.Builder
40renderHtmlBuilderT = renderMarkupBuilderT
41
42renderMarkup :: MarkupM a -> L.Text
43renderMarkup = runIdentity . renderMarkupT
44renderMarkupT :: Monad m => MarkupT m a -> m L.Text
45renderMarkupT = liftM BU.renderMarkup . execMarkupT
46
47renderHtml :: MarkupM a -> L.Text
48renderHtml = renderMarkup
49renderHtmlT :: Monad m => MarkupT m a -> m L.Text
50renderHtmlT = renderMarkupT
51
52renderMarkupWithT :: Monad m => (ByteString -> Text) -> MarkupT m a -> m L.Text
53renderMarkupWithT g = liftM (BU.renderMarkupWith g) . execMarkupT
54
55renderMarkupWith :: (ByteString -> Text) -> MarkupM a -> L.Text
56renderMarkupWith g = runIdentity . renderMarkupWithT g
57
58renderHtmlWithT :: Monad m => (ByteString -> Text) -> MarkupT m a -> m L.Text
59renderHtmlWithT g = liftM (BH.renderHtmlWith g) . execMarkupT
60
61renderHtmlWith :: (ByteString -> Text) -> MarkupM a -> L.Text
62renderHtmlWith g = runIdentity . renderHtmlWithT g
63
64renderHtmlBuilderWithT :: Monad m => (ByteString -> Text) -> MarkupT m a -> m B.Builder
65renderHtmlBuilderWithT g = liftM (BH.renderHtmlBuilderWith g) . execMarkupT
66
67renderHtmlBuilderWith :: (ByteString -> Text) -> MarkupM a -> B.Builder
68renderHtmlBuilderWith g = runIdentity . renderHtmlBuilderWithT g
69
70
71renderMarkupBuilderWithT :: Monad m => (ByteString -> Text) -> MarkupT m a -> m B.Builder
72renderMarkupBuilderWithT g = liftM (BU.renderMarkupBuilderWith g) . execMarkupT
73
74renderMarkupBuilderWith :: (ByteString -> Text) -> MarkupM a -> B.Builder
75renderMarkupBuilderWith g = runIdentity . renderMarkupBuilderWithT g
diff --git a/src/Text/BlazeT/Renderer/Utf8.hs b/src/Text/BlazeT/Renderer/Utf8.hs
new file mode 100644
index 0000000..292f81f
--- /dev/null
+++ b/src/Text/BlazeT/Renderer/Utf8.hs
@@ -0,0 +1,66 @@
1{-# OPTIONS_GHC -fsimpl-tick-factor=230 #-}
2
3-- the above option was not needed with
4 -- ,blaze-html >= 0.6.0.0 && < 0.7.0.0
5 -- ,blaze-builder >= 0.2
6 -- ,text < 1.2
7
8module Text.BlazeT.Renderer.Utf8
9 (
10 renderMarkupBuilder
11 , renderMarkup
12 , renderMarkupToByteStringIO
13 , renderHtmlBuilder
14 , renderHtml
15 , renderHtmlToByteStringIO
16
17 -- * new BlazeT stuff
18 , renderMarkupBuilderT
19 , renderMarkupT
20 , renderMarkupToByteStringIOT
21 , renderHtmlToByteStringIOT
22 , renderHtmlBuilderT
23 , renderHtmlT
24 ) where
25
26import qualified Blaze.ByteString.Builder as B
27import Control.Monad
28import Control.Monad.Identity
29import qualified Data.ByteString as BS
30import qualified Data.ByteString.Lazy as BL
31import qualified Text.Blaze.Renderer.Utf8 as BU
32import Text.BlazeT
33
34renderMarkupBuilder :: MarkupM a -> B.Builder
35renderMarkupBuilder = runIdentity . renderMarkupBuilderT
36
37renderMarkupBuilderT :: Monad m => MarkupT m a -> m B.Builder
38renderMarkupBuilderT = liftM BU.renderMarkupBuilder . execMarkupT
39
40renderHtmlBuilder :: MarkupM a -> B.Builder
41renderHtmlBuilder = renderMarkupBuilder
42
43renderHtmlBuilderT :: Monad m => MarkupT m a -> m B.Builder
44renderHtmlBuilderT = renderMarkupBuilderT
45
46renderMarkup :: MarkupM a -> BL.ByteString
47renderMarkup = runIdentity . renderMarkupT
48renderMarkupT :: Monad m => MarkupT m a -> m BL.ByteString
49renderMarkupT = liftM BU.renderMarkup . execMarkupT
50
51renderHtml :: MarkupM a -> BL.ByteString
52renderHtml = renderMarkup
53renderHtmlT :: Monad m => MarkupT m a -> m BL.ByteString
54renderHtmlT = renderMarkupT
55
56renderMarkupToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupM a -> IO ()
57renderMarkupToByteStringIO g = runIdentity . renderMarkupToByteStringIOT g
58renderMarkupToByteStringIOT :: Monad m => (BS.ByteString -> IO ()) ->
59 MarkupT m a -> m (IO ())
60renderMarkupToByteStringIOT g = liftM (BU.renderMarkupToByteStringIO g) . execMarkupT
61
62renderHtmlToByteStringIO :: (BS.ByteString -> IO ()) -> MarkupM a -> IO ()
63renderHtmlToByteStringIO g = runIdentity . renderMarkupToByteStringIOT g
64renderHtmlToByteStringIOT :: Monad m => (BS.ByteString -> IO ()) ->
65 MarkupT m a -> m (IO ())
66renderHtmlToByteStringIOT g = liftM (BU.renderMarkupToByteStringIO g) . execMarkupT
diff --git a/src/Text/BlazeT/XHtml1/FrameSet.hs b/src/Text/BlazeT/XHtml1/FrameSet.hs
new file mode 100644
index 0000000..57edcd5
--- /dev/null
+++ b/src/Text/BlazeT/XHtml1/FrameSet.hs
@@ -0,0 +1,198 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module wraps all exports of "Text.Blaze.XHtml1.FrameSet" using 'wrapMarkup' and 'wrapMarkup'.
6-}
7module Text.BlazeT.XHtml1.FrameSet
8 (module Text.BlazeT.XHtml1.FrameSet
9 ,module Text.BlazeT.Html
10 ) where
11import qualified Text.Blaze.XHtml1.FrameSet
12import Text.BlazeT
13import Text.BlazeT.Html
14import Text.BlazeT.Internal
15
16docTypeHtml :: Markup2
17docTypeHtml = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.docTypeHtml
18a :: Markup2
19a = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.a
20abbr :: Markup2
21abbr = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.abbr
22acronym :: Markup2
23acronym = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.acronym
24address :: Markup2
25address = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.address
26b :: Markup2
27b = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.b
28bdo :: Markup2
29bdo = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.bdo
30big :: Markup2
31big = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.big
32blockquote :: Markup2
33blockquote = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.blockquote
34body :: Markup2
35body = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.body
36button :: Markup2
37button = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.button
38caption :: Markup2
39caption = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.caption
40cite :: Markup2
41cite = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.cite
42code :: Markup2
43code = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.code
44colgroup :: Markup2
45colgroup = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.colgroup
46dd :: Markup2
47dd = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.dd
48del :: Markup2
49del = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.del
50dfn :: Markup2
51dfn = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.dfn
52div :: Markup2
53div = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.div
54dl :: Markup2
55dl = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.dl
56dt :: Markup2
57dt = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.dt
58em :: Markup2
59em = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.em
60fieldset :: Markup2
61fieldset = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.fieldset
62form :: Markup2
63form = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.form
64h1 :: Markup2
65h1 = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.h1
66h2 :: Markup2
67h2 = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.h2
68h3 :: Markup2
69h3 = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.h3
70h4 :: Markup2
71h4 = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.h4
72h5 :: Markup2
73h5 = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.h5
74h6 :: Markup2
75h6 = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.h6
76head :: Markup2
77head = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.head
78html :: Markup2
79html = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.html
80i :: Markup2
81i = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.i
82ins :: Markup2
83ins = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.ins
84kbd :: Markup2
85kbd = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.kbd
86label :: Markup2
87label = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.label
88legend :: Markup2
89legend = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.legend
90li :: Markup2
91li = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.li
92map :: Markup2
93map = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.map
94noscript :: Markup2
95noscript = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.noscript
96object :: Markup2
97object = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.object
98ol :: Markup2
99ol = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.ol
100optgroup :: Markup2
101optgroup = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.optgroup
102option :: Markup2
103option = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.option
104p :: Markup2
105p = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.p
106pre :: Markup2
107pre = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.pre
108q :: Markup2
109q = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.q
110samp :: Markup2
111samp = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.samp
112script :: Markup2
113script = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.script
114select :: Markup2
115select = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.select
116small :: Markup2
117small = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.small
118span :: Markup2
119span = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.span
120strong :: Markup2
121strong = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.strong
122style :: Markup2
123style = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.style
124sub :: Markup2
125sub = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.sub
126sup :: Markup2
127sup = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.sup
128table :: Markup2
129table = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.table
130tbody :: Markup2
131tbody = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.tbody
132td :: Markup2
133td = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.td
134textarea :: Markup2
135textarea = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.textarea
136tfoot :: Markup2
137tfoot = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.tfoot
138th :: Markup2
139th = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.th
140thead :: Markup2
141thead = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.thead
142title :: Markup2
143title = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.title
144tr :: Markup2
145tr = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.tr
146tt :: Markup2
147tt = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.tt
148ul :: Markup2
149ul = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.ul
150var :: Markup2
151var = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.var
152applet :: Markup2
153applet = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.applet
154center :: Markup2
155center = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.center
156dir :: Markup2
157dir = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.dir
158font :: Markup2
159font = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.font
160iframe :: Markup2
161iframe = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.iframe
162isindex :: Markup2
163isindex = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.isindex
164menu :: Markup2
165menu = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.menu
166noframes :: Markup2
167noframes = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.noframes
168s :: Markup2
169s = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.s
170u :: Markup2
171u = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.u
172frameset :: Markup2
173frameset = wrapMarkup2 Text.Blaze.XHtml1.FrameSet.frameset
174docType :: Markup
175docType = wrapMarkup Text.Blaze.XHtml1.FrameSet.docType
176area :: Markup
177area = wrapMarkup Text.Blaze.XHtml1.FrameSet.area
178br :: Markup
179br = wrapMarkup Text.Blaze.XHtml1.FrameSet.br
180col :: Markup
181col = wrapMarkup Text.Blaze.XHtml1.FrameSet.col
182hr :: Markup
183hr = wrapMarkup Text.Blaze.XHtml1.FrameSet.hr
184link :: Markup
185link = wrapMarkup Text.Blaze.XHtml1.FrameSet.link
186img :: Markup
187img = wrapMarkup Text.Blaze.XHtml1.FrameSet.img
188input :: Markup
189input = wrapMarkup Text.Blaze.XHtml1.FrameSet.input
190meta :: Markup
191meta = wrapMarkup Text.Blaze.XHtml1.FrameSet.meta
192param :: Markup
193param = wrapMarkup Text.Blaze.XHtml1.FrameSet.param
194basefont :: Markup
195basefont = wrapMarkup Text.Blaze.XHtml1.FrameSet.basefont
196frame :: Markup
197frame = wrapMarkup Text.Blaze.XHtml1.FrameSet.frame
198
diff --git a/src/Text/BlazeT/XHtml1/FrameSet/Attributes.hs b/src/Text/BlazeT/XHtml1/FrameSet/Attributes.hs
new file mode 100644
index 0000000..af4ecbe
--- /dev/null
+++ b/src/Text/BlazeT/XHtml1/FrameSet/Attributes.hs
@@ -0,0 +1,11 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module simply reexports the corresponding @blaze-html@ module.
6-}
7module Text.BlazeT.XHtml1.FrameSet.Attributes
8 (module Text.Blaze.XHtml1.FrameSet.Attributes
9 ) where
10import Text.Blaze.XHtml1.FrameSet.Attributes
11
diff --git a/src/Text/BlazeT/XHtml1/Strict.hs b/src/Text/BlazeT/XHtml1/Strict.hs
new file mode 100644
index 0000000..0bca241
--- /dev/null
+++ b/src/Text/BlazeT/XHtml1/Strict.hs
@@ -0,0 +1,172 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module wraps all exports of "Text.Blaze.XHtml1.Strict" using 'wrapMarkup' and 'wrapMarkup'.
6-}
7module Text.BlazeT.XHtml1.Strict
8 (module Text.BlazeT.XHtml1.Strict
9 ,module Text.BlazeT.Html
10 ) where
11import qualified Text.Blaze.XHtml1.Strict
12import Text.BlazeT
13import Text.BlazeT.Html
14import Text.BlazeT.Internal
15
16docTypeHtml :: Markup2
17docTypeHtml = wrapMarkup2 Text.Blaze.XHtml1.Strict.docTypeHtml
18a :: Markup2
19a = wrapMarkup2 Text.Blaze.XHtml1.Strict.a
20abbr :: Markup2
21abbr = wrapMarkup2 Text.Blaze.XHtml1.Strict.abbr
22acronym :: Markup2
23acronym = wrapMarkup2 Text.Blaze.XHtml1.Strict.acronym
24address :: Markup2
25address = wrapMarkup2 Text.Blaze.XHtml1.Strict.address
26b :: Markup2
27b = wrapMarkup2 Text.Blaze.XHtml1.Strict.b
28bdo :: Markup2
29bdo = wrapMarkup2 Text.Blaze.XHtml1.Strict.bdo
30big :: Markup2
31big = wrapMarkup2 Text.Blaze.XHtml1.Strict.big
32blockquote :: Markup2
33blockquote = wrapMarkup2 Text.Blaze.XHtml1.Strict.blockquote
34body :: Markup2
35body = wrapMarkup2 Text.Blaze.XHtml1.Strict.body
36button :: Markup2
37button = wrapMarkup2 Text.Blaze.XHtml1.Strict.button
38caption :: Markup2
39caption = wrapMarkup2 Text.Blaze.XHtml1.Strict.caption
40cite :: Markup2
41cite = wrapMarkup2 Text.Blaze.XHtml1.Strict.cite
42code :: Markup2
43code = wrapMarkup2 Text.Blaze.XHtml1.Strict.code
44colgroup :: Markup2
45colgroup = wrapMarkup2 Text.Blaze.XHtml1.Strict.colgroup
46dd :: Markup2
47dd = wrapMarkup2 Text.Blaze.XHtml1.Strict.dd
48del :: Markup2
49del = wrapMarkup2 Text.Blaze.XHtml1.Strict.del
50dfn :: Markup2
51dfn = wrapMarkup2 Text.Blaze.XHtml1.Strict.dfn
52div :: Markup2
53div = wrapMarkup2 Text.Blaze.XHtml1.Strict.div
54dl :: Markup2
55dl = wrapMarkup2 Text.Blaze.XHtml1.Strict.dl
56dt :: Markup2
57dt = wrapMarkup2 Text.Blaze.XHtml1.Strict.dt
58em :: Markup2
59em = wrapMarkup2 Text.Blaze.XHtml1.Strict.em
60fieldset :: Markup2
61fieldset = wrapMarkup2 Text.Blaze.XHtml1.Strict.fieldset
62form :: Markup2
63form = wrapMarkup2 Text.Blaze.XHtml1.Strict.form
64h1 :: Markup2
65h1 = wrapMarkup2 Text.Blaze.XHtml1.Strict.h1
66h2 :: Markup2
67h2 = wrapMarkup2 Text.Blaze.XHtml1.Strict.h2
68h3 :: Markup2
69h3 = wrapMarkup2 Text.Blaze.XHtml1.Strict.h3
70h4 :: Markup2
71h4 = wrapMarkup2 Text.Blaze.XHtml1.Strict.h4
72h5 :: Markup2
73h5 = wrapMarkup2 Text.Blaze.XHtml1.Strict.h5
74h6 :: Markup2
75h6 = wrapMarkup2 Text.Blaze.XHtml1.Strict.h6
76head :: Markup2
77head = wrapMarkup2 Text.Blaze.XHtml1.Strict.head
78html :: Markup2
79html = wrapMarkup2 Text.Blaze.XHtml1.Strict.html
80i :: Markup2
81i = wrapMarkup2 Text.Blaze.XHtml1.Strict.i
82ins :: Markup2
83ins = wrapMarkup2 Text.Blaze.XHtml1.Strict.ins
84kbd :: Markup2
85kbd = wrapMarkup2 Text.Blaze.XHtml1.Strict.kbd
86label :: Markup2
87label = wrapMarkup2 Text.Blaze.XHtml1.Strict.label
88legend :: Markup2
89legend = wrapMarkup2 Text.Blaze.XHtml1.Strict.legend
90li :: Markup2
91li = wrapMarkup2 Text.Blaze.XHtml1.Strict.li
92map :: Markup2
93map = wrapMarkup2 Text.Blaze.XHtml1.Strict.map
94noscript :: Markup2
95noscript = wrapMarkup2 Text.Blaze.XHtml1.Strict.noscript
96object :: Markup2
97object = wrapMarkup2 Text.Blaze.XHtml1.Strict.object
98ol :: Markup2
99ol = wrapMarkup2 Text.Blaze.XHtml1.Strict.ol
100optgroup :: Markup2
101optgroup = wrapMarkup2 Text.Blaze.XHtml1.Strict.optgroup
102option :: Markup2
103option = wrapMarkup2 Text.Blaze.XHtml1.Strict.option
104p :: Markup2
105p = wrapMarkup2 Text.Blaze.XHtml1.Strict.p
106pre :: Markup2
107pre = wrapMarkup2 Text.Blaze.XHtml1.Strict.pre
108q :: Markup2
109q = wrapMarkup2 Text.Blaze.XHtml1.Strict.q
110samp :: Markup2
111samp = wrapMarkup2 Text.Blaze.XHtml1.Strict.samp
112script :: Markup2
113script = wrapMarkup2 Text.Blaze.XHtml1.Strict.script
114select :: Markup2
115select = wrapMarkup2 Text.Blaze.XHtml1.Strict.select
116small :: Markup2
117small = wrapMarkup2 Text.Blaze.XHtml1.Strict.small
118span :: Markup2
119span = wrapMarkup2 Text.Blaze.XHtml1.Strict.span
120strong :: Markup2
121strong = wrapMarkup2 Text.Blaze.XHtml1.Strict.strong
122style :: Markup2
123style = wrapMarkup2 Text.Blaze.XHtml1.Strict.style
124sub :: Markup2
125sub = wrapMarkup2 Text.Blaze.XHtml1.Strict.sub
126sup :: Markup2
127sup = wrapMarkup2 Text.Blaze.XHtml1.Strict.sup
128table :: Markup2
129table = wrapMarkup2 Text.Blaze.XHtml1.Strict.table
130tbody :: Markup2
131tbody = wrapMarkup2 Text.Blaze.XHtml1.Strict.tbody
132td :: Markup2
133td = wrapMarkup2 Text.Blaze.XHtml1.Strict.td
134textarea :: Markup2
135textarea = wrapMarkup2 Text.Blaze.XHtml1.Strict.textarea
136tfoot :: Markup2
137tfoot = wrapMarkup2 Text.Blaze.XHtml1.Strict.tfoot
138th :: Markup2
139th = wrapMarkup2 Text.Blaze.XHtml1.Strict.th
140thead :: Markup2
141thead = wrapMarkup2 Text.Blaze.XHtml1.Strict.thead
142title :: Markup2
143title = wrapMarkup2 Text.Blaze.XHtml1.Strict.title
144tr :: Markup2
145tr = wrapMarkup2 Text.Blaze.XHtml1.Strict.tr
146tt :: Markup2
147tt = wrapMarkup2 Text.Blaze.XHtml1.Strict.tt
148ul :: Markup2
149ul = wrapMarkup2 Text.Blaze.XHtml1.Strict.ul
150var :: Markup2
151var = wrapMarkup2 Text.Blaze.XHtml1.Strict.var
152docType :: Markup
153docType = wrapMarkup Text.Blaze.XHtml1.Strict.docType
154area :: Markup
155area = wrapMarkup Text.Blaze.XHtml1.Strict.area
156br :: Markup
157br = wrapMarkup Text.Blaze.XHtml1.Strict.br
158col :: Markup
159col = wrapMarkup Text.Blaze.XHtml1.Strict.col
160hr :: Markup
161hr = wrapMarkup Text.Blaze.XHtml1.Strict.hr
162link :: Markup
163link = wrapMarkup Text.Blaze.XHtml1.Strict.link
164img :: Markup
165img = wrapMarkup Text.Blaze.XHtml1.Strict.img
166input :: Markup
167input = wrapMarkup Text.Blaze.XHtml1.Strict.input
168meta :: Markup
169meta = wrapMarkup Text.Blaze.XHtml1.Strict.meta
170param :: Markup
171param = wrapMarkup Text.Blaze.XHtml1.Strict.param
172
diff --git a/src/Text/BlazeT/XHtml1/Strict/Attributes.hs b/src/Text/BlazeT/XHtml1/Strict/Attributes.hs
new file mode 100644
index 0000000..c7e07d4
--- /dev/null
+++ b/src/Text/BlazeT/XHtml1/Strict/Attributes.hs
@@ -0,0 +1,11 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module simply reexports the corresponding @blaze-html@ module.
6-}
7module Text.BlazeT.XHtml1.Strict.Attributes
8 (module Text.Blaze.XHtml1.Strict.Attributes
9 ) where
10import Text.Blaze.XHtml1.Strict.Attributes
11
diff --git a/src/Text/BlazeT/XHtml1/Transitional.hs b/src/Text/BlazeT/XHtml1/Transitional.hs
new file mode 100644
index 0000000..b1e6aad
--- /dev/null
+++ b/src/Text/BlazeT/XHtml1/Transitional.hs
@@ -0,0 +1,194 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module wraps all exports of "Text.Blaze.XHtml1.Transitional" using 'wrapMarkup' and 'wrapMarkup'.
6-}
7module Text.BlazeT.XHtml1.Transitional
8 (module Text.BlazeT.XHtml1.Transitional
9 ,module Text.BlazeT.Html
10 ) where
11import qualified Text.Blaze.XHtml1.Transitional
12import Text.BlazeT
13import Text.BlazeT.Html
14import Text.BlazeT.Internal
15
16docTypeHtml :: Markup2
17docTypeHtml = wrapMarkup2 Text.Blaze.XHtml1.Transitional.docTypeHtml
18a :: Markup2
19a = wrapMarkup2 Text.Blaze.XHtml1.Transitional.a
20abbr :: Markup2
21abbr = wrapMarkup2 Text.Blaze.XHtml1.Transitional.abbr
22acronym :: Markup2
23acronym = wrapMarkup2 Text.Blaze.XHtml1.Transitional.acronym
24address :: Markup2
25address = wrapMarkup2 Text.Blaze.XHtml1.Transitional.address
26b :: Markup2
27b = wrapMarkup2 Text.Blaze.XHtml1.Transitional.b
28bdo :: Markup2
29bdo = wrapMarkup2 Text.Blaze.XHtml1.Transitional.bdo
30big :: Markup2
31big = wrapMarkup2 Text.Blaze.XHtml1.Transitional.big
32blockquote :: Markup2
33blockquote = wrapMarkup2 Text.Blaze.XHtml1.Transitional.blockquote
34body :: Markup2
35body = wrapMarkup2 Text.Blaze.XHtml1.Transitional.body
36button :: Markup2
37button = wrapMarkup2 Text.Blaze.XHtml1.Transitional.button
38caption :: Markup2
39caption = wrapMarkup2 Text.Blaze.XHtml1.Transitional.caption
40cite :: Markup2
41cite = wrapMarkup2 Text.Blaze.XHtml1.Transitional.cite
42code :: Markup2
43code = wrapMarkup2 Text.Blaze.XHtml1.Transitional.code
44colgroup :: Markup2
45colgroup = wrapMarkup2 Text.Blaze.XHtml1.Transitional.colgroup
46dd :: Markup2
47dd = wrapMarkup2 Text.Blaze.XHtml1.Transitional.dd
48del :: Markup2
49del = wrapMarkup2 Text.Blaze.XHtml1.Transitional.del
50dfn :: Markup2
51dfn = wrapMarkup2 Text.Blaze.XHtml1.Transitional.dfn
52div :: Markup2
53div = wrapMarkup2 Text.Blaze.XHtml1.Transitional.div
54dl :: Markup2
55dl = wrapMarkup2 Text.Blaze.XHtml1.Transitional.dl
56dt :: Markup2
57dt = wrapMarkup2 Text.Blaze.XHtml1.Transitional.dt
58em :: Markup2
59em = wrapMarkup2 Text.Blaze.XHtml1.Transitional.em
60fieldset :: Markup2
61fieldset = wrapMarkup2 Text.Blaze.XHtml1.Transitional.fieldset
62form :: Markup2
63form = wrapMarkup2 Text.Blaze.XHtml1.Transitional.form
64h1 :: Markup2
65h1 = wrapMarkup2 Text.Blaze.XHtml1.Transitional.h1
66h2 :: Markup2
67h2 = wrapMarkup2 Text.Blaze.XHtml1.Transitional.h2
68h3 :: Markup2
69h3 = wrapMarkup2 Text.Blaze.XHtml1.Transitional.h3
70h4 :: Markup2
71h4 = wrapMarkup2 Text.Blaze.XHtml1.Transitional.h4
72h5 :: Markup2
73h5 = wrapMarkup2 Text.Blaze.XHtml1.Transitional.h5
74h6 :: Markup2
75h6 = wrapMarkup2 Text.Blaze.XHtml1.Transitional.h6
76head :: Markup2
77head = wrapMarkup2 Text.Blaze.XHtml1.Transitional.head
78html :: Markup2
79html = wrapMarkup2 Text.Blaze.XHtml1.Transitional.html
80i :: Markup2
81i = wrapMarkup2 Text.Blaze.XHtml1.Transitional.i
82ins :: Markup2
83ins = wrapMarkup2 Text.Blaze.XHtml1.Transitional.ins
84kbd :: Markup2
85kbd = wrapMarkup2 Text.Blaze.XHtml1.Transitional.kbd
86label :: Markup2
87label = wrapMarkup2 Text.Blaze.XHtml1.Transitional.label
88legend :: Markup2
89legend = wrapMarkup2 Text.Blaze.XHtml1.Transitional.legend
90li :: Markup2
91li = wrapMarkup2 Text.Blaze.XHtml1.Transitional.li
92map :: Markup2
93map = wrapMarkup2 Text.Blaze.XHtml1.Transitional.map
94noscript :: Markup2
95noscript = wrapMarkup2 Text.Blaze.XHtml1.Transitional.noscript
96object :: Markup2
97object = wrapMarkup2 Text.Blaze.XHtml1.Transitional.object
98ol :: Markup2
99ol = wrapMarkup2 Text.Blaze.XHtml1.Transitional.ol
100optgroup :: Markup2
101optgroup = wrapMarkup2 Text.Blaze.XHtml1.Transitional.optgroup
102option :: Markup2
103option = wrapMarkup2 Text.Blaze.XHtml1.Transitional.option
104p :: Markup2
105p = wrapMarkup2 Text.Blaze.XHtml1.Transitional.p
106pre :: Markup2
107pre = wrapMarkup2 Text.Blaze.XHtml1.Transitional.pre
108q :: Markup2
109q = wrapMarkup2 Text.Blaze.XHtml1.Transitional.q
110samp :: Markup2
111samp = wrapMarkup2 Text.Blaze.XHtml1.Transitional.samp
112script :: Markup2
113script = wrapMarkup2 Text.Blaze.XHtml1.Transitional.script
114select :: Markup2
115select = wrapMarkup2 Text.Blaze.XHtml1.Transitional.select
116small :: Markup2
117small = wrapMarkup2 Text.Blaze.XHtml1.Transitional.small
118span :: Markup2
119span = wrapMarkup2 Text.Blaze.XHtml1.Transitional.span
120strong :: Markup2
121strong = wrapMarkup2 Text.Blaze.XHtml1.Transitional.strong
122style :: Markup2
123style = wrapMarkup2 Text.Blaze.XHtml1.Transitional.style
124sub :: Markup2
125sub = wrapMarkup2 Text.Blaze.XHtml1.Transitional.sub
126sup :: Markup2
127sup = wrapMarkup2 Text.Blaze.XHtml1.Transitional.sup
128table :: Markup2
129table = wrapMarkup2 Text.Blaze.XHtml1.Transitional.table
130tbody :: Markup2
131tbody = wrapMarkup2 Text.Blaze.XHtml1.Transitional.tbody
132td :: Markup2
133td = wrapMarkup2 Text.Blaze.XHtml1.Transitional.td
134textarea :: Markup2
135textarea = wrapMarkup2 Text.Blaze.XHtml1.Transitional.textarea
136tfoot :: Markup2
137tfoot = wrapMarkup2 Text.Blaze.XHtml1.Transitional.tfoot
138th :: Markup2
139th = wrapMarkup2 Text.Blaze.XHtml1.Transitional.th
140thead :: Markup2
141thead = wrapMarkup2 Text.Blaze.XHtml1.Transitional.thead
142title :: Markup2
143title = wrapMarkup2 Text.Blaze.XHtml1.Transitional.title
144tr :: Markup2
145tr = wrapMarkup2 Text.Blaze.XHtml1.Transitional.tr
146tt :: Markup2
147tt = wrapMarkup2 Text.Blaze.XHtml1.Transitional.tt
148ul :: Markup2
149ul = wrapMarkup2 Text.Blaze.XHtml1.Transitional.ul
150var :: Markup2
151var = wrapMarkup2 Text.Blaze.XHtml1.Transitional.var
152applet :: Markup2
153applet = wrapMarkup2 Text.Blaze.XHtml1.Transitional.applet
154center :: Markup2
155center = wrapMarkup2 Text.Blaze.XHtml1.Transitional.center
156dir :: Markup2
157dir = wrapMarkup2 Text.Blaze.XHtml1.Transitional.dir
158font :: Markup2
159font = wrapMarkup2 Text.Blaze.XHtml1.Transitional.font
160iframe :: Markup2
161iframe = wrapMarkup2 Text.Blaze.XHtml1.Transitional.iframe
162isindex :: Markup2
163isindex = wrapMarkup2 Text.Blaze.XHtml1.Transitional.isindex
164menu :: Markup2
165menu = wrapMarkup2 Text.Blaze.XHtml1.Transitional.menu
166noframes :: Markup2
167noframes = wrapMarkup2 Text.Blaze.XHtml1.Transitional.noframes
168s :: Markup2
169s = wrapMarkup2 Text.Blaze.XHtml1.Transitional.s
170u :: Markup2
171u = wrapMarkup2 Text.Blaze.XHtml1.Transitional.u
172docType :: Markup
173docType = wrapMarkup Text.Blaze.XHtml1.Transitional.docType
174area :: Markup
175area = wrapMarkup Text.Blaze.XHtml1.Transitional.area
176br :: Markup
177br = wrapMarkup Text.Blaze.XHtml1.Transitional.br
178col :: Markup
179col = wrapMarkup Text.Blaze.XHtml1.Transitional.col
180hr :: Markup
181hr = wrapMarkup Text.Blaze.XHtml1.Transitional.hr
182link :: Markup
183link = wrapMarkup Text.Blaze.XHtml1.Transitional.link
184img :: Markup
185img = wrapMarkup Text.Blaze.XHtml1.Transitional.img
186input :: Markup
187input = wrapMarkup Text.Blaze.XHtml1.Transitional.input
188meta :: Markup
189meta = wrapMarkup Text.Blaze.XHtml1.Transitional.meta
190param :: Markup
191param = wrapMarkup Text.Blaze.XHtml1.Transitional.param
192basefont :: Markup
193basefont = wrapMarkup Text.Blaze.XHtml1.Transitional.basefont
194
diff --git a/src/Text/BlazeT/XHtml1/Transitional/Attributes.hs b/src/Text/BlazeT/XHtml1/Transitional/Attributes.hs
new file mode 100644
index 0000000..1881806
--- /dev/null
+++ b/src/Text/BlazeT/XHtml1/Transitional/Attributes.hs
@@ -0,0 +1,11 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module simply reexports the corresponding @blaze-html@ module.
6-}
7module Text.BlazeT.XHtml1.Transitional.Attributes
8 (module Text.Blaze.XHtml1.Transitional.Attributes
9 ) where
10import Text.Blaze.XHtml1.Transitional.Attributes
11
diff --git a/src/Text/BlazeT/XHtml5.hs b/src/Text/BlazeT/XHtml5.hs
new file mode 100644
index 0000000..102a993
--- /dev/null
+++ b/src/Text/BlazeT/XHtml5.hs
@@ -0,0 +1,234 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module wraps all exports of "Text.Blaze.XHtml5" using 'wrapMarkup' and 'wrapMarkup'.
6-}
7module Text.BlazeT.XHtml5
8 (module Text.BlazeT.XHtml5
9 ,module Text.BlazeT.Html
10 ) where
11import qualified Text.Blaze.XHtml5
12import Text.BlazeT
13import Text.BlazeT.Html
14import Text.BlazeT.Internal
15
16docTypeHtml :: Markup2
17docTypeHtml = wrapMarkup2 Text.Blaze.XHtml5.docTypeHtml
18a :: Markup2
19a = wrapMarkup2 Text.Blaze.XHtml5.a
20abbr :: Markup2
21abbr = wrapMarkup2 Text.Blaze.XHtml5.abbr
22address :: Markup2
23address = wrapMarkup2 Text.Blaze.XHtml5.address
24article :: Markup2
25article = wrapMarkup2 Text.Blaze.XHtml5.article
26aside :: Markup2
27aside = wrapMarkup2 Text.Blaze.XHtml5.aside
28audio :: Markup2
29audio = wrapMarkup2 Text.Blaze.XHtml5.audio
30b :: Markup2
31b = wrapMarkup2 Text.Blaze.XHtml5.b
32bdo :: Markup2
33bdo = wrapMarkup2 Text.Blaze.XHtml5.bdo
34blockquote :: Markup2
35blockquote = wrapMarkup2 Text.Blaze.XHtml5.blockquote
36body :: Markup2
37body = wrapMarkup2 Text.Blaze.XHtml5.body
38button :: Markup2
39button = wrapMarkup2 Text.Blaze.XHtml5.button
40canvas :: Markup2
41canvas = wrapMarkup2 Text.Blaze.XHtml5.canvas
42caption :: Markup2
43caption = wrapMarkup2 Text.Blaze.XHtml5.caption
44cite :: Markup2
45cite = wrapMarkup2 Text.Blaze.XHtml5.cite
46code :: Markup2
47code = wrapMarkup2 Text.Blaze.XHtml5.code
48colgroup :: Markup2
49colgroup = wrapMarkup2 Text.Blaze.XHtml5.colgroup
50command :: Markup2
51command = wrapMarkup2 Text.Blaze.XHtml5.command
52datalist :: Markup2
53datalist = wrapMarkup2 Text.Blaze.XHtml5.datalist
54dd :: Markup2
55dd = wrapMarkup2 Text.Blaze.XHtml5.dd
56del :: Markup2
57del = wrapMarkup2 Text.Blaze.XHtml5.del
58details :: Markup2
59details = wrapMarkup2 Text.Blaze.XHtml5.details
60dfn :: Markup2
61dfn = wrapMarkup2 Text.Blaze.XHtml5.dfn
62div :: Markup2
63div = wrapMarkup2 Text.Blaze.XHtml5.div
64dl :: Markup2
65dl = wrapMarkup2 Text.Blaze.XHtml5.dl
66dt :: Markup2
67dt = wrapMarkup2 Text.Blaze.XHtml5.dt
68em :: Markup2
69em = wrapMarkup2 Text.Blaze.XHtml5.em
70fieldset :: Markup2
71fieldset = wrapMarkup2 Text.Blaze.XHtml5.fieldset
72figcaption :: Markup2
73figcaption = wrapMarkup2 Text.Blaze.XHtml5.figcaption
74figure :: Markup2
75figure = wrapMarkup2 Text.Blaze.XHtml5.figure
76footer :: Markup2
77footer = wrapMarkup2 Text.Blaze.XHtml5.footer
78form :: Markup2
79form = wrapMarkup2 Text.Blaze.XHtml5.form
80h1 :: Markup2
81h1 = wrapMarkup2 Text.Blaze.XHtml5.h1
82h2 :: Markup2
83h2 = wrapMarkup2 Text.Blaze.XHtml5.h2
84h3 :: Markup2
85h3 = wrapMarkup2 Text.Blaze.XHtml5.h3
86h4 :: Markup2
87h4 = wrapMarkup2 Text.Blaze.XHtml5.h4
88h5 :: Markup2
89h5 = wrapMarkup2 Text.Blaze.XHtml5.h5
90h6 :: Markup2
91h6 = wrapMarkup2 Text.Blaze.XHtml5.h6
92head :: Markup2
93head = wrapMarkup2 Text.Blaze.XHtml5.head
94header :: Markup2
95header = wrapMarkup2 Text.Blaze.XHtml5.header
96hgroup :: Markup2
97hgroup = wrapMarkup2 Text.Blaze.XHtml5.hgroup
98html :: Markup2
99html = wrapMarkup2 Text.Blaze.XHtml5.html
100i :: Markup2
101i = wrapMarkup2 Text.Blaze.XHtml5.i
102iframe :: Markup2
103iframe = wrapMarkup2 Text.Blaze.XHtml5.iframe
104ins :: Markup2
105ins = wrapMarkup2 Text.Blaze.XHtml5.ins
106kbd :: Markup2
107kbd = wrapMarkup2 Text.Blaze.XHtml5.kbd
108label :: Markup2
109label = wrapMarkup2 Text.Blaze.XHtml5.label
110legend :: Markup2
111legend = wrapMarkup2 Text.Blaze.XHtml5.legend
112li :: Markup2
113li = wrapMarkup2 Text.Blaze.XHtml5.li
114main :: Markup2
115main = wrapMarkup2 Text.Blaze.XHtml5.main
116map :: Markup2
117map = wrapMarkup2 Text.Blaze.XHtml5.map
118mark :: Markup2
119mark = wrapMarkup2 Text.Blaze.XHtml5.mark
120menu :: Markup2
121menu = wrapMarkup2 Text.Blaze.XHtml5.menu
122meter :: Markup2
123meter = wrapMarkup2 Text.Blaze.XHtml5.meter
124nav :: Markup2
125nav = wrapMarkup2 Text.Blaze.XHtml5.nav
126noscript :: Markup2
127noscript = wrapMarkup2 Text.Blaze.XHtml5.noscript
128object :: Markup2
129object = wrapMarkup2 Text.Blaze.XHtml5.object
130ol :: Markup2
131ol = wrapMarkup2 Text.Blaze.XHtml5.ol
132optgroup :: Markup2
133optgroup = wrapMarkup2 Text.Blaze.XHtml5.optgroup
134option :: Markup2
135option = wrapMarkup2 Text.Blaze.XHtml5.option
136output :: Markup2
137output = wrapMarkup2 Text.Blaze.XHtml5.output
138p :: Markup2
139p = wrapMarkup2 Text.Blaze.XHtml5.p
140pre :: Markup2
141pre = wrapMarkup2 Text.Blaze.XHtml5.pre
142progress :: Markup2
143progress = wrapMarkup2 Text.Blaze.XHtml5.progress
144q :: Markup2
145q = wrapMarkup2 Text.Blaze.XHtml5.q
146rp :: Markup2
147rp = wrapMarkup2 Text.Blaze.XHtml5.rp
148rt :: Markup2
149rt = wrapMarkup2 Text.Blaze.XHtml5.rt
150ruby :: Markup2
151ruby = wrapMarkup2 Text.Blaze.XHtml5.ruby
152samp :: Markup2
153samp = wrapMarkup2 Text.Blaze.XHtml5.samp
154script :: Markup2
155script = wrapMarkup2 Text.Blaze.XHtml5.script
156section :: Markup2
157section = wrapMarkup2 Text.Blaze.XHtml5.section
158select :: Markup2
159select = wrapMarkup2 Text.Blaze.XHtml5.select
160small :: Markup2
161small = wrapMarkup2 Text.Blaze.XHtml5.small
162span :: Markup2
163span = wrapMarkup2 Text.Blaze.XHtml5.span
164strong :: Markup2
165strong = wrapMarkup2 Text.Blaze.XHtml5.strong
166style :: Markup2
167style = wrapMarkup2 Text.Blaze.XHtml5.style
168sub :: Markup2
169sub = wrapMarkup2 Text.Blaze.XHtml5.sub
170summary :: Markup2
171summary = wrapMarkup2 Text.Blaze.XHtml5.summary
172sup :: Markup2
173sup = wrapMarkup2 Text.Blaze.XHtml5.sup
174table :: Markup2
175table = wrapMarkup2 Text.Blaze.XHtml5.table
176tbody :: Markup2
177tbody = wrapMarkup2 Text.Blaze.XHtml5.tbody
178td :: Markup2
179td = wrapMarkup2 Text.Blaze.XHtml5.td
180textarea :: Markup2
181textarea = wrapMarkup2 Text.Blaze.XHtml5.textarea
182tfoot :: Markup2
183tfoot = wrapMarkup2 Text.Blaze.XHtml5.tfoot
184th :: Markup2
185th = wrapMarkup2 Text.Blaze.XHtml5.th
186thead :: Markup2
187thead = wrapMarkup2 Text.Blaze.XHtml5.thead
188time :: Markup2
189time = wrapMarkup2 Text.Blaze.XHtml5.time
190title :: Markup2
191title = wrapMarkup2 Text.Blaze.XHtml5.title
192tr :: Markup2
193tr = wrapMarkup2 Text.Blaze.XHtml5.tr
194ul :: Markup2
195ul = wrapMarkup2 Text.Blaze.XHtml5.ul
196var :: Markup2
197var = wrapMarkup2 Text.Blaze.XHtml5.var
198video :: Markup2
199video = wrapMarkup2 Text.Blaze.XHtml5.video
200docType :: Markup
201docType = wrapMarkup Text.Blaze.XHtml5.docType
202area :: Markup
203area = wrapMarkup Text.Blaze.XHtml5.area
204base :: Markup
205base = wrapMarkup Text.Blaze.XHtml5.base
206br :: Markup
207br = wrapMarkup Text.Blaze.XHtml5.br
208col :: Markup
209col = wrapMarkup Text.Blaze.XHtml5.col
210embed :: Markup
211embed = wrapMarkup Text.Blaze.XHtml5.embed
212hr :: Markup
213hr = wrapMarkup Text.Blaze.XHtml5.hr
214img :: Markup
215img = wrapMarkup Text.Blaze.XHtml5.img
216input :: Markup
217input = wrapMarkup Text.Blaze.XHtml5.input
218keygen :: Markup
219keygen = wrapMarkup Text.Blaze.XHtml5.keygen
220link :: Markup
221link = wrapMarkup Text.Blaze.XHtml5.link
222menuitem :: Markup
223menuitem = wrapMarkup Text.Blaze.XHtml5.menuitem
224meta :: Markup
225meta = wrapMarkup Text.Blaze.XHtml5.meta
226param :: Markup
227param = wrapMarkup Text.Blaze.XHtml5.param
228source :: Markup
229source = wrapMarkup Text.Blaze.XHtml5.source
230track :: Markup
231track = wrapMarkup Text.Blaze.XHtml5.track
232wbr :: Markup
233wbr = wrapMarkup Text.Blaze.XHtml5.wbr
234
diff --git a/src/Text/BlazeT/XHtml5/Attributes.hs b/src/Text/BlazeT/XHtml5/Attributes.hs
new file mode 100644
index 0000000..e878108
--- /dev/null
+++ b/src/Text/BlazeT/XHtml5/Attributes.hs
@@ -0,0 +1,11 @@
1-- !! DO NOT EDIT
2{-|
3(Automatically generated by @src\/Util\/GenerateHtmlTCombinators.hs:49@)
4
5This module simply reexports the corresponding @blaze-html@ module.
6-}
7module Text.BlazeT.XHtml5.Attributes
8 (module Text.Blaze.XHtml5.Attributes
9 ) where
10import Text.Blaze.XHtml5.Attributes
11