diff --git a/Text/Blaze/Html4/FrameSet.hs b/Text/Blaze/Html4/FrameSet.hs
--- a/Text/Blaze/Html4/FrameSet.hs
+++ b/Text/Blaze/Html4/FrameSet.hs
@@ -162,7 +162,7 @@
 --
 a :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-a = Parent "<a" "</a>"
+a = Parent "a" "<a" "</a>"
 {-# INLINE a #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -180,7 +180,7 @@
 --
 abbr :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-abbr = Parent "<abbr" "</abbr>"
+abbr = Parent "abbr" "<abbr" "</abbr>"
 {-# INLINE abbr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -198,7 +198,7 @@
 --
 acronym :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-acronym = Parent "<acronym" "</acronym>"
+acronym = Parent "acronym" "<acronym" "</acronym>"
 {-# INLINE acronym #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -216,7 +216,7 @@
 --
 address :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-address = Parent "<address" "</address>"
+address = Parent "address" "<address" "</address>"
 {-# INLINE address #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -234,7 +234,7 @@
 --
 applet :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-applet = Parent "<applet" "</applet>"
+applet = Parent "applet" "<applet" "</applet>"
 {-# INLINE applet #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -251,7 +251,7 @@
 -- > <area />
 --
 area :: Html  -- ^ Resulting HTML.
-area = Leaf "<area" ">"
+area = Leaf "area" "<area" ">"
 {-# INLINE area #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -269,7 +269,7 @@
 --
 b :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-b = Parent "<b" "</b>"
+b = Parent "b" "<b" "</b>"
 {-# INLINE b #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -286,7 +286,7 @@
 -- > <basefont />
 --
 basefont :: Html  -- ^ Resulting HTML.
-basefont = Leaf "<basefont" ">"
+basefont = Leaf "basefont" "<basefont" ">"
 {-# INLINE basefont #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -304,7 +304,7 @@
 --
 bdo :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-bdo = Parent "<bdo" "</bdo>"
+bdo = Parent "bdo" "<bdo" "</bdo>"
 {-# INLINE bdo #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -322,7 +322,7 @@
 --
 big :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-big = Parent "<big" "</big>"
+big = Parent "big" "<big" "</big>"
 {-# INLINE big #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -340,7 +340,7 @@
 --
 blockquote :: Html  -- ^ Inner HTML.
            -> Html  -- ^ Resulting HTML.
-blockquote = Parent "<blockquote" "</blockquote>"
+blockquote = Parent "blockquote" "<blockquote" "</blockquote>"
 {-# INLINE blockquote #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -358,7 +358,7 @@
 --
 body :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-body = Parent "<body" "</body>"
+body = Parent "body" "<body" "</body>"
 {-# INLINE body #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -375,7 +375,7 @@
 -- > <br />
 --
 br :: Html  -- ^ Resulting HTML.
-br = Leaf "<br" ">"
+br = Leaf "br" "<br" ">"
 {-# INLINE br #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -393,7 +393,7 @@
 --
 button :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-button = Parent "<button" "</button>"
+button = Parent "button" "<button" "</button>"
 {-# INLINE button #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -411,7 +411,7 @@
 --
 caption :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-caption = Parent "<caption" "</caption>"
+caption = Parent "caption" "<caption" "</caption>"
 {-# INLINE caption #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -429,7 +429,7 @@
 --
 center :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-center = Parent "<center" "</center>"
+center = Parent "center" "<center" "</center>"
 {-# INLINE center #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -447,7 +447,7 @@
 --
 cite :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-cite = Parent "<cite" "</cite>"
+cite = Parent "cite" "<cite" "</cite>"
 {-# INLINE cite #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -465,7 +465,7 @@
 --
 code :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-code = Parent "<code" "</code>"
+code = Parent "code" "<code" "</code>"
 {-# INLINE code #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -482,7 +482,7 @@
 -- > <col />
 --
 col :: Html  -- ^ Resulting HTML.
-col = Leaf "<col" ">"
+col = Leaf "col" "<col" ">"
 {-# INLINE col #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -500,7 +500,7 @@
 --
 colgroup :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-colgroup = Parent "<colgroup" "</colgroup>"
+colgroup = Parent "colgroup" "<colgroup" "</colgroup>"
 {-# INLINE colgroup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -518,7 +518,7 @@
 --
 dd :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-dd = Parent "<dd" "</dd>"
+dd = Parent "dd" "<dd" "</dd>"
 {-# INLINE dd #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -536,7 +536,7 @@
 --
 del :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-del = Parent "<del" "</del>"
+del = Parent "del" "<del" "</del>"
 {-# INLINE del #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -554,7 +554,7 @@
 --
 dfn :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-dfn = Parent "<dfn" "</dfn>"
+dfn = Parent "dfn" "<dfn" "</dfn>"
 {-# INLINE dfn #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -572,7 +572,7 @@
 --
 dir :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-dir = Parent "<dir" "</dir>"
+dir = Parent "dir" "<dir" "</dir>"
 {-# INLINE dir #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -590,7 +590,7 @@
 --
 div :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-div = Parent "<div" "</div>"
+div = Parent "div" "<div" "</div>"
 {-# INLINE div #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -608,7 +608,7 @@
 --
 dl :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-dl = Parent "<dl" "</dl>"
+dl = Parent "dl" "<dl" "</dl>"
 {-# INLINE dl #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -626,7 +626,7 @@
 --
 dt :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-dt = Parent "<dt" "</dt>"
+dt = Parent "dt" "<dt" "</dt>"
 {-# INLINE dt #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -644,7 +644,7 @@
 --
 em :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-em = Parent "<em" "</em>"
+em = Parent "em" "<em" "</em>"
 {-# INLINE em #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -662,7 +662,7 @@
 --
 fieldset :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-fieldset = Parent "<fieldset" "</fieldset>"
+fieldset = Parent "fieldset" "<fieldset" "</fieldset>"
 {-# INLINE fieldset #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -680,7 +680,7 @@
 --
 font :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-font = Parent "<font" "</font>"
+font = Parent "font" "<font" "</font>"
 {-# INLINE font #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -698,7 +698,7 @@
 --
 form :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-form = Parent "<form" "</form>"
+form = Parent "form" "<form" "</form>"
 {-# INLINE form #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -715,7 +715,7 @@
 -- > <frame />
 --
 frame :: Html  -- ^ Resulting HTML.
-frame = Leaf "<frame" ">"
+frame = Leaf "frame" "<frame" ">"
 {-# INLINE frame #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -733,7 +733,7 @@
 --
 frameset :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-frameset = Parent "<frameset" "</frameset>"
+frameset = Parent "frameset" "<frameset" "</frameset>"
 {-# INLINE frameset #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -751,7 +751,7 @@
 --
 h1 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h1 = Parent "<h1" "</h1>"
+h1 = Parent "h1" "<h1" "</h1>"
 {-# INLINE h1 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -769,7 +769,7 @@
 --
 h2 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h2 = Parent "<h2" "</h2>"
+h2 = Parent "h2" "<h2" "</h2>"
 {-# INLINE h2 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -787,7 +787,7 @@
 --
 h3 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h3 = Parent "<h3" "</h3>"
+h3 = Parent "h3" "<h3" "</h3>"
 {-# INLINE h3 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -805,7 +805,7 @@
 --
 h4 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h4 = Parent "<h4" "</h4>"
+h4 = Parent "h4" "<h4" "</h4>"
 {-# INLINE h4 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -823,7 +823,7 @@
 --
 h5 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h5 = Parent "<h5" "</h5>"
+h5 = Parent "h5" "<h5" "</h5>"
 {-# INLINE h5 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -841,7 +841,7 @@
 --
 h6 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h6 = Parent "<h6" "</h6>"
+h6 = Parent "h6" "<h6" "</h6>"
 {-# INLINE h6 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -859,7 +859,7 @@
 --
 head :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-head = Parent "<head" "</head>"
+head = Parent "head" "<head" "</head>"
 {-# INLINE head #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -876,7 +876,7 @@
 -- > <hr />
 --
 hr :: Html  -- ^ Resulting HTML.
-hr = Leaf "<hr" ">"
+hr = Leaf "hr" "<hr" ">"
 {-# INLINE hr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -894,7 +894,7 @@
 --
 html :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-html = Parent "<html" "</html>"
+html = Parent "html" "<html" "</html>"
 {-# INLINE html #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -912,7 +912,7 @@
 --
 i :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-i = Parent "<i" "</i>"
+i = Parent "i" "<i" "</i>"
 {-# INLINE i #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -930,7 +930,7 @@
 --
 iframe :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-iframe = Parent "<iframe" "</iframe>"
+iframe = Parent "iframe" "<iframe" "</iframe>"
 {-# INLINE iframe #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -947,7 +947,7 @@
 -- > <img />
 --
 img :: Html  -- ^ Resulting HTML.
-img = Leaf "<img" ">"
+img = Leaf "img" "<img" ">"
 {-# INLINE img #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -964,7 +964,7 @@
 -- > <input />
 --
 input :: Html  -- ^ Resulting HTML.
-input = Leaf "<input" ">"
+input = Leaf "input" "<input" ">"
 {-# INLINE input #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -982,7 +982,7 @@
 --
 ins :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-ins = Parent "<ins" "</ins>"
+ins = Parent "ins" "<ins" "</ins>"
 {-# INLINE ins #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1000,7 +1000,7 @@
 --
 isindex :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-isindex = Parent "<isindex" "</isindex>"
+isindex = Parent "isindex" "<isindex" "</isindex>"
 {-# INLINE isindex #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1018,7 +1018,7 @@
 --
 kbd :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-kbd = Parent "<kbd" "</kbd>"
+kbd = Parent "kbd" "<kbd" "</kbd>"
 {-# INLINE kbd #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1036,7 +1036,7 @@
 --
 label :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-label = Parent "<label" "</label>"
+label = Parent "label" "<label" "</label>"
 {-# INLINE label #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1054,7 +1054,7 @@
 --
 legend :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-legend = Parent "<legend" "</legend>"
+legend = Parent "legend" "<legend" "</legend>"
 {-# INLINE legend #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1072,7 +1072,7 @@
 --
 li :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-li = Parent "<li" "</li>"
+li = Parent "li" "<li" "</li>"
 {-# INLINE li #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1089,7 +1089,7 @@
 -- > <link />
 --
 link :: Html  -- ^ Resulting HTML.
-link = Leaf "<link" ">"
+link = Leaf "link" "<link" ">"
 {-# INLINE link #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1107,7 +1107,7 @@
 --
 map :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-map = Parent "<map" "</map>"
+map = Parent "map" "<map" "</map>"
 {-# INLINE map #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1125,7 +1125,7 @@
 --
 menu :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-menu = Parent "<menu" "</menu>"
+menu = Parent "menu" "<menu" "</menu>"
 {-# INLINE menu #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1142,7 +1142,7 @@
 -- > <meta />
 --
 meta :: Html  -- ^ Resulting HTML.
-meta = Leaf "<meta" ">"
+meta = Leaf "meta" "<meta" ">"
 {-# INLINE meta #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1160,7 +1160,7 @@
 --
 noframes :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-noframes = Parent "<noframes" "</noframes>"
+noframes = Parent "noframes" "<noframes" "</noframes>"
 {-# INLINE noframes #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1178,7 +1178,7 @@
 --
 noscript :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-noscript = Parent "<noscript" "</noscript>"
+noscript = Parent "noscript" "<noscript" "</noscript>"
 {-# INLINE noscript #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1196,7 +1196,7 @@
 --
 object :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-object = Parent "<object" "</object>"
+object = Parent "object" "<object" "</object>"
 {-# INLINE object #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1214,7 +1214,7 @@
 --
 ol :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-ol = Parent "<ol" "</ol>"
+ol = Parent "ol" "<ol" "</ol>"
 {-# INLINE ol #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1232,7 +1232,7 @@
 --
 optgroup :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-optgroup = Parent "<optgroup" "</optgroup>"
+optgroup = Parent "optgroup" "<optgroup" "</optgroup>"
 {-# INLINE optgroup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1250,7 +1250,7 @@
 --
 option :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-option = Parent "<option" "</option>"
+option = Parent "option" "<option" "</option>"
 {-# INLINE option #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1268,7 +1268,7 @@
 --
 p :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-p = Parent "<p" "</p>"
+p = Parent "p" "<p" "</p>"
 {-# INLINE p #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1285,7 +1285,7 @@
 -- > <param />
 --
 param :: Html  -- ^ Resulting HTML.
-param = Leaf "<param" ">"
+param = Leaf "param" "<param" ">"
 {-# INLINE param #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1303,7 +1303,7 @@
 --
 pre :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-pre = Parent "<pre" "</pre>"
+pre = Parent "pre" "<pre" "</pre>"
 {-# INLINE pre #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1321,7 +1321,7 @@
 --
 q :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-q = Parent "<q" "</q>"
+q = Parent "q" "<q" "</q>"
 {-# INLINE q #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1339,7 +1339,7 @@
 --
 s :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-s = Parent "<s" "</s>"
+s = Parent "s" "<s" "</s>"
 {-# INLINE s #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1357,7 +1357,7 @@
 --
 samp :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-samp = Parent "<samp" "</samp>"
+samp = Parent "samp" "<samp" "</samp>"
 {-# INLINE samp #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1375,7 +1375,7 @@
 --
 script :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-script = Parent "<script" "</script>" . external
+script = Parent "script" "<script" "</script>" . external
 {-# INLINE script #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1393,7 +1393,7 @@
 --
 select :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-select = Parent "<select" "</select>"
+select = Parent "select" "<select" "</select>"
 {-# INLINE select #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1411,7 +1411,7 @@
 --
 small :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-small = Parent "<small" "</small>"
+small = Parent "small" "<small" "</small>"
 {-# INLINE small #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1429,7 +1429,7 @@
 --
 span :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-span = Parent "<span" "</span>"
+span = Parent "span" "<span" "</span>"
 {-# INLINE span #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1447,7 +1447,7 @@
 --
 strong :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-strong = Parent "<strong" "</strong>"
+strong = Parent "strong" "<strong" "</strong>"
 {-# INLINE strong #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1465,7 +1465,7 @@
 --
 style :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-style = Parent "<style" "</style>" . external
+style = Parent "style" "<style" "</style>" . external
 {-# INLINE style #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1483,7 +1483,7 @@
 --
 sub :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-sub = Parent "<sub" "</sub>"
+sub = Parent "sub" "<sub" "</sub>"
 {-# INLINE sub #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1501,7 +1501,7 @@
 --
 sup :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-sup = Parent "<sup" "</sup>"
+sup = Parent "sup" "<sup" "</sup>"
 {-# INLINE sup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1519,7 +1519,7 @@
 --
 table :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-table = Parent "<table" "</table>"
+table = Parent "table" "<table" "</table>"
 {-# INLINE table #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1537,7 +1537,7 @@
 --
 tbody :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-tbody = Parent "<tbody" "</tbody>"
+tbody = Parent "tbody" "<tbody" "</tbody>"
 {-# INLINE tbody #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1555,7 +1555,7 @@
 --
 td :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-td = Parent "<td" "</td>"
+td = Parent "td" "<td" "</td>"
 {-# INLINE td #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1573,7 +1573,7 @@
 --
 textarea :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-textarea = Parent "<textarea" "</textarea>"
+textarea = Parent "textarea" "<textarea" "</textarea>"
 {-# INLINE textarea #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1591,7 +1591,7 @@
 --
 tfoot :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-tfoot = Parent "<tfoot" "</tfoot>"
+tfoot = Parent "tfoot" "<tfoot" "</tfoot>"
 {-# INLINE tfoot #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1609,7 +1609,7 @@
 --
 th :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-th = Parent "<th" "</th>"
+th = Parent "th" "<th" "</th>"
 {-# INLINE th #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1627,7 +1627,7 @@
 --
 thead :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-thead = Parent "<thead" "</thead>"
+thead = Parent "thead" "<thead" "</thead>"
 {-# INLINE thead #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1645,7 +1645,7 @@
 --
 title :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-title = Parent "<title" "</title>"
+title = Parent "title" "<title" "</title>"
 {-# INLINE title #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1663,7 +1663,7 @@
 --
 tr :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-tr = Parent "<tr" "</tr>"
+tr = Parent "tr" "<tr" "</tr>"
 {-# INLINE tr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1681,7 +1681,7 @@
 --
 tt :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-tt = Parent "<tt" "</tt>"
+tt = Parent "tt" "<tt" "</tt>"
 {-# INLINE tt #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1699,7 +1699,7 @@
 --
 u :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-u = Parent "<u" "</u>"
+u = Parent "u" "<u" "</u>"
 {-# INLINE u #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1717,7 +1717,7 @@
 --
 ul :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-ul = Parent "<ul" "</ul>"
+ul = Parent "ul" "<ul" "</ul>"
 {-# INLINE ul #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1735,5 +1735,5 @@
 --
 var :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-var = Parent "<var" "</var>"
+var = Parent "var" "<var" "</var>"
 {-# INLINE var #-}
diff --git a/Text/Blaze/Html4/FrameSet/Attributes.hs b/Text/Blaze/Html4/FrameSet/Attributes.hs
--- a/Text/Blaze/Html4/FrameSet/Attributes.hs
+++ b/Text/Blaze/Html4/FrameSet/Attributes.hs
@@ -134,7 +134,7 @@
 --
 abbr :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-abbr = attribute " abbr=\""
+abbr = attribute "abbr" " abbr=\""
 {-# INLINE abbr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -152,7 +152,7 @@
 --
 accept :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-accept = attribute " accept=\""
+accept = attribute "accept" " accept=\""
 {-# INLINE accept #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -170,7 +170,7 @@
 --
 accesskey :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-accesskey = attribute " accesskey=\""
+accesskey = attribute "accesskey" " accesskey=\""
 {-# INLINE accesskey #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -188,7 +188,7 @@
 --
 action :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-action = attribute " action=\""
+action = attribute "action" " action=\""
 {-# INLINE action #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -206,7 +206,7 @@
 --
 align :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-align = attribute " align=\""
+align = attribute "align" " align=\""
 {-# INLINE align #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -224,7 +224,7 @@
 --
 alt :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-alt = attribute " alt=\""
+alt = attribute "alt" " alt=\""
 {-# INLINE alt #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -242,7 +242,7 @@
 --
 archive :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-archive = attribute " archive=\""
+archive = attribute "archive" " archive=\""
 {-# INLINE archive #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -260,7 +260,7 @@
 --
 axis :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-axis = attribute " axis=\""
+axis = attribute "axis" " axis=\""
 {-# INLINE axis #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -278,7 +278,7 @@
 --
 background :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-background = attribute " background=\""
+background = attribute "background" " background=\""
 {-# INLINE background #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -296,7 +296,7 @@
 --
 bgcolor :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-bgcolor = attribute " bgcolor=\""
+bgcolor = attribute "bgcolor" " bgcolor=\""
 {-# INLINE bgcolor #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -314,7 +314,7 @@
 --
 border :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-border = attribute " border=\""
+border = attribute "border" " border=\""
 {-# INLINE border #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -332,7 +332,7 @@
 --
 cellpadding :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-cellpadding = attribute " cellpadding=\""
+cellpadding = attribute "cellpadding" " cellpadding=\""
 {-# INLINE cellpadding #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -350,7 +350,7 @@
 --
 cellspacing :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-cellspacing = attribute " cellspacing=\""
+cellspacing = attribute "cellspacing" " cellspacing=\""
 {-# INLINE cellspacing #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -368,7 +368,7 @@
 --
 char :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-char = attribute " char=\""
+char = attribute "char" " char=\""
 {-# INLINE char #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -386,7 +386,7 @@
 --
 charoff :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-charoff = attribute " charoff=\""
+charoff = attribute "charoff" " charoff=\""
 {-# INLINE charoff #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -404,7 +404,7 @@
 --
 charset :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-charset = attribute " charset=\""
+charset = attribute "charset" " charset=\""
 {-# INLINE charset #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -422,7 +422,7 @@
 --
 checked :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-checked = attribute " checked=\""
+checked = attribute "checked" " checked=\""
 {-# INLINE checked #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -440,7 +440,7 @@
 --
 cite :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-cite = attribute " cite=\""
+cite = attribute "cite" " cite=\""
 {-# INLINE cite #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -458,7 +458,7 @@
 --
 class_ :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-class_ = attribute " class=\""
+class_ = attribute "class" " class=\""
 {-# INLINE class_ #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -476,7 +476,7 @@
 --
 classid :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-classid = attribute " classid=\""
+classid = attribute "classid" " classid=\""
 {-# INLINE classid #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -494,7 +494,7 @@
 --
 clear :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-clear = attribute " clear=\""
+clear = attribute "clear" " clear=\""
 {-# INLINE clear #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -512,7 +512,7 @@
 --
 codebase :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-codebase = attribute " codebase=\""
+codebase = attribute "codebase" " codebase=\""
 {-# INLINE codebase #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -530,7 +530,7 @@
 --
 codetype :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-codetype = attribute " codetype=\""
+codetype = attribute "codetype" " codetype=\""
 {-# INLINE codetype #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -548,7 +548,7 @@
 --
 cols :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-cols = attribute " cols=\""
+cols = attribute "cols" " cols=\""
 {-# INLINE cols #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -566,7 +566,7 @@
 --
 colspan :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-colspan = attribute " colspan=\""
+colspan = attribute "colspan" " colspan=\""
 {-# INLINE colspan #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -584,7 +584,7 @@
 --
 compact :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-compact = attribute " compact=\""
+compact = attribute "compact" " compact=\""
 {-# INLINE compact #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -602,7 +602,7 @@
 --
 content :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-content = attribute " content=\""
+content = attribute "content" " content=\""
 {-# INLINE content #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -620,7 +620,7 @@
 --
 coords :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-coords = attribute " coords=\""
+coords = attribute "coords" " coords=\""
 {-# INLINE coords #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -638,7 +638,7 @@
 --
 data_ :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-data_ = attribute " data=\""
+data_ = attribute "data" " data=\""
 {-# INLINE data_ #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -656,7 +656,7 @@
 --
 datetime :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-datetime = attribute " datetime=\""
+datetime = attribute "datetime" " datetime=\""
 {-# INLINE datetime #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -674,7 +674,7 @@
 --
 declare :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-declare = attribute " declare=\""
+declare = attribute "declare" " declare=\""
 {-# INLINE declare #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -692,7 +692,7 @@
 --
 defer :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-defer = attribute " defer=\""
+defer = attribute "defer" " defer=\""
 {-# INLINE defer #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -710,7 +710,7 @@
 --
 dir :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-dir = attribute " dir=\""
+dir = attribute "dir" " dir=\""
 {-# INLINE dir #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -728,7 +728,7 @@
 --
 disabled :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-disabled = attribute " disabled=\""
+disabled = attribute "disabled" " disabled=\""
 {-# INLINE disabled #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -746,7 +746,7 @@
 --
 enctype :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-enctype = attribute " enctype=\""
+enctype = attribute "enctype" " enctype=\""
 {-# INLINE enctype #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -764,7 +764,7 @@
 --
 for :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-for = attribute " for=\""
+for = attribute "for" " for=\""
 {-# INLINE for #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -782,7 +782,7 @@
 --
 frame :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-frame = attribute " frame=\""
+frame = attribute "frame" " frame=\""
 {-# INLINE frame #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -800,7 +800,7 @@
 --
 frameborder :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-frameborder = attribute " frameborder=\""
+frameborder = attribute "frameborder" " frameborder=\""
 {-# INLINE frameborder #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -818,7 +818,7 @@
 --
 headers :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-headers = attribute " headers=\""
+headers = attribute "headers" " headers=\""
 {-# INLINE headers #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -836,7 +836,7 @@
 --
 height :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-height = attribute " height=\""
+height = attribute "height" " height=\""
 {-# INLINE height #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -854,7 +854,7 @@
 --
 href :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-href = attribute " href=\""
+href = attribute "href" " href=\""
 {-# INLINE href #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -872,7 +872,7 @@
 --
 hreflang :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-hreflang = attribute " hreflang=\""
+hreflang = attribute "hreflang" " hreflang=\""
 {-# INLINE hreflang #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -890,7 +890,7 @@
 --
 hspace :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-hspace = attribute " hspace=\""
+hspace = attribute "hspace" " hspace=\""
 {-# INLINE hspace #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -908,7 +908,7 @@
 --
 httpEquiv :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-httpEquiv = attribute " http-equiv=\""
+httpEquiv = attribute "http-equiv" " http-equiv=\""
 {-# INLINE httpEquiv #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -926,7 +926,7 @@
 --
 id :: AttributeValue  -- ^ Attribute value.
    -> Attribute       -- ^ Resulting attribute.
-id = attribute " id=\""
+id = attribute "id" " id=\""
 {-# INLINE id #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -944,7 +944,7 @@
 --
 label :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-label = attribute " label=\""
+label = attribute "label" " label=\""
 {-# INLINE label #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -962,7 +962,7 @@
 --
 lang :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-lang = attribute " lang=\""
+lang = attribute "lang" " lang=\""
 {-# INLINE lang #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -980,7 +980,7 @@
 --
 language :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-language = attribute " language=\""
+language = attribute "language" " language=\""
 {-# INLINE language #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -998,7 +998,7 @@
 --
 maxlength :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-maxlength = attribute " maxlength=\""
+maxlength = attribute "maxlength" " maxlength=\""
 {-# INLINE maxlength #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1016,7 +1016,7 @@
 --
 media :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-media = attribute " media=\""
+media = attribute "media" " media=\""
 {-# INLINE media #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1034,7 +1034,7 @@
 --
 method :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-method = attribute " method=\""
+method = attribute "method" " method=\""
 {-# INLINE method #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1052,7 +1052,7 @@
 --
 multiple :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-multiple = attribute " multiple=\""
+multiple = attribute "multiple" " multiple=\""
 {-# INLINE multiple #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1070,7 +1070,7 @@
 --
 name :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-name = attribute " name=\""
+name = attribute "name" " name=\""
 {-# INLINE name #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1088,7 +1088,7 @@
 --
 nohref :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-nohref = attribute " nohref=\""
+nohref = attribute "nohref" " nohref=\""
 {-# INLINE nohref #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1106,7 +1106,7 @@
 --
 noshade :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-noshade = attribute " noshade=\""
+noshade = attribute "noshade" " noshade=\""
 {-# INLINE noshade #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1124,7 +1124,7 @@
 --
 nowrap :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-nowrap = attribute " nowrap=\""
+nowrap = attribute "nowrap" " nowrap=\""
 {-# INLINE nowrap #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1142,7 +1142,7 @@
 --
 onabort :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onabort = attribute " onabort=\""
+onabort = attribute "onabort" " onabort=\""
 {-# INLINE onabort #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1160,7 +1160,7 @@
 --
 onblur :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-onblur = attribute " onblur=\""
+onblur = attribute "onblur" " onblur=\""
 {-# INLINE onblur #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1178,7 +1178,7 @@
 --
 onchange :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onchange = attribute " onchange=\""
+onchange = attribute "onchange" " onchange=\""
 {-# INLINE onchange #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1196,7 +1196,7 @@
 --
 onclick :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onclick = attribute " onclick=\""
+onclick = attribute "onclick" " onclick=\""
 {-# INLINE onclick #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1214,7 +1214,7 @@
 --
 ondblclick :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-ondblclick = attribute " ondblclick=\""
+ondblclick = attribute "ondblclick" " ondblclick=\""
 {-# INLINE ondblclick #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1232,7 +1232,7 @@
 --
 onfocus :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onfocus = attribute " onfocus=\""
+onfocus = attribute "onfocus" " onfocus=\""
 {-# INLINE onfocus #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1250,7 +1250,7 @@
 --
 onkeydown :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onkeydown = attribute " onkeydown=\""
+onkeydown = attribute "onkeydown" " onkeydown=\""
 {-# INLINE onkeydown #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1268,7 +1268,7 @@
 --
 onkeypress :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-onkeypress = attribute " onkeypress=\""
+onkeypress = attribute "onkeypress" " onkeypress=\""
 {-# INLINE onkeypress #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1286,7 +1286,7 @@
 --
 onkeyup :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onkeyup = attribute " onkeyup=\""
+onkeyup = attribute "onkeyup" " onkeyup=\""
 {-# INLINE onkeyup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1304,7 +1304,7 @@
 --
 onload :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-onload = attribute " onload=\""
+onload = attribute "onload" " onload=\""
 {-# INLINE onload #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1322,7 +1322,7 @@
 --
 onmousedown :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onmousedown = attribute " onmousedown=\""
+onmousedown = attribute "onmousedown" " onmousedown=\""
 {-# INLINE onmousedown #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1340,7 +1340,7 @@
 --
 onmousemove :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onmousemove = attribute " onmousemove=\""
+onmousemove = attribute "onmousemove" " onmousemove=\""
 {-# INLINE onmousemove #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1358,7 +1358,7 @@
 --
 onmouseout :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-onmouseout = attribute " onmouseout=\""
+onmouseout = attribute "onmouseout" " onmouseout=\""
 {-# INLINE onmouseout #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1376,7 +1376,7 @@
 --
 onmouseover :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onmouseover = attribute " onmouseover=\""
+onmouseover = attribute "onmouseover" " onmouseover=\""
 {-# INLINE onmouseover #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1394,7 +1394,7 @@
 --
 onmouseup :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onmouseup = attribute " onmouseup=\""
+onmouseup = attribute "onmouseup" " onmouseup=\""
 {-# INLINE onmouseup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1412,7 +1412,7 @@
 --
 onreset :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onreset = attribute " onreset=\""
+onreset = attribute "onreset" " onreset=\""
 {-# INLINE onreset #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1430,7 +1430,7 @@
 --
 onselect :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onselect = attribute " onselect=\""
+onselect = attribute "onselect" " onselect=\""
 {-# INLINE onselect #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1448,7 +1448,7 @@
 --
 onsubmit :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onsubmit = attribute " onsubmit=\""
+onsubmit = attribute "onsubmit" " onsubmit=\""
 {-# INLINE onsubmit #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1466,7 +1466,7 @@
 --
 onunload :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onunload = attribute " onunload=\""
+onunload = attribute "onunload" " onunload=\""
 {-# INLINE onunload #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1484,7 +1484,7 @@
 --
 profile :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-profile = attribute " profile=\""
+profile = attribute "profile" " profile=\""
 {-# INLINE profile #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1502,7 +1502,7 @@
 --
 readonly :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-readonly = attribute " readonly=\""
+readonly = attribute "readonly" " readonly=\""
 {-# INLINE readonly #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1520,7 +1520,7 @@
 --
 rel :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-rel = attribute " rel=\""
+rel = attribute "rel" " rel=\""
 {-# INLINE rel #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1538,7 +1538,7 @@
 --
 rev :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-rev = attribute " rev=\""
+rev = attribute "rev" " rev=\""
 {-# INLINE rev #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1556,7 +1556,7 @@
 --
 rows :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-rows = attribute " rows=\""
+rows = attribute "rows" " rows=\""
 {-# INLINE rows #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1574,7 +1574,7 @@
 --
 rowspan :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-rowspan = attribute " rowspan=\""
+rowspan = attribute "rowspan" " rowspan=\""
 {-# INLINE rowspan #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1592,7 +1592,7 @@
 --
 rules :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-rules = attribute " rules=\""
+rules = attribute "rules" " rules=\""
 {-# INLINE rules #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1610,7 +1610,7 @@
 --
 scheme :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-scheme = attribute " scheme=\""
+scheme = attribute "scheme" " scheme=\""
 {-# INLINE scheme #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1628,7 +1628,7 @@
 --
 scope :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-scope = attribute " scope=\""
+scope = attribute "scope" " scope=\""
 {-# INLINE scope #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1646,7 +1646,7 @@
 --
 scrolling :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-scrolling = attribute " scrolling=\""
+scrolling = attribute "scrolling" " scrolling=\""
 {-# INLINE scrolling #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1664,7 +1664,7 @@
 --
 selected :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-selected = attribute " selected=\""
+selected = attribute "selected" " selected=\""
 {-# INLINE selected #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1682,7 +1682,7 @@
 --
 shape :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-shape = attribute " shape=\""
+shape = attribute "shape" " shape=\""
 {-# INLINE shape #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1700,7 +1700,7 @@
 --
 size :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-size = attribute " size=\""
+size = attribute "size" " size=\""
 {-# INLINE size #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1718,7 +1718,7 @@
 --
 span :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-span = attribute " span=\""
+span = attribute "span" " span=\""
 {-# INLINE span #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1736,7 +1736,7 @@
 --
 src :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-src = attribute " src=\""
+src = attribute "src" " src=\""
 {-# INLINE src #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1754,7 +1754,7 @@
 --
 standby :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-standby = attribute " standby=\""
+standby = attribute "standby" " standby=\""
 {-# INLINE standby #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1772,7 +1772,7 @@
 --
 start :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-start = attribute " start=\""
+start = attribute "start" " start=\""
 {-# INLINE start #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1790,7 +1790,7 @@
 --
 style :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-style = attribute " style=\""
+style = attribute "style" " style=\""
 {-# INLINE style #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1808,7 +1808,7 @@
 --
 summary :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-summary = attribute " summary=\""
+summary = attribute "summary" " summary=\""
 {-# INLINE summary #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1826,7 +1826,7 @@
 --
 tabindex :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-tabindex = attribute " tabindex=\""
+tabindex = attribute "tabindex" " tabindex=\""
 {-# INLINE tabindex #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1844,7 +1844,7 @@
 --
 target :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-target = attribute " target=\""
+target = attribute "target" " target=\""
 {-# INLINE target #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1862,7 +1862,7 @@
 --
 title :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-title = attribute " title=\""
+title = attribute "title" " title=\""
 {-# INLINE title #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1880,7 +1880,7 @@
 --
 type_ :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-type_ = attribute " type=\""
+type_ = attribute "type" " type=\""
 {-# INLINE type_ #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1898,7 +1898,7 @@
 --
 usemap :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-usemap = attribute " usemap=\""
+usemap = attribute "usemap" " usemap=\""
 {-# INLINE usemap #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1916,7 +1916,7 @@
 --
 valign :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-valign = attribute " valign=\""
+valign = attribute "valign" " valign=\""
 {-# INLINE valign #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1934,7 +1934,7 @@
 --
 value :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-value = attribute " value=\""
+value = attribute "value" " value=\""
 {-# INLINE value #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1952,7 +1952,7 @@
 --
 valuetype :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-valuetype = attribute " valuetype=\""
+valuetype = attribute "valuetype" " valuetype=\""
 {-# INLINE valuetype #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1970,7 +1970,7 @@
 --
 vspace :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-vspace = attribute " vspace=\""
+vspace = attribute "vspace" " vspace=\""
 {-# INLINE vspace #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1988,5 +1988,5 @@
 --
 width :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-width = attribute " width=\""
+width = attribute "width" " width=\""
 {-# INLINE width #-}
diff --git a/Text/Blaze/Html4/Strict.hs b/Text/Blaze/Html4/Strict.hs
--- a/Text/Blaze/Html4/Strict.hs
+++ b/Text/Blaze/Html4/Strict.hs
@@ -149,7 +149,7 @@
 --
 a :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-a = Parent "<a" "</a>"
+a = Parent "a" "<a" "</a>"
 {-# INLINE a #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -167,7 +167,7 @@
 --
 abbr :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-abbr = Parent "<abbr" "</abbr>"
+abbr = Parent "abbr" "<abbr" "</abbr>"
 {-# INLINE abbr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -185,7 +185,7 @@
 --
 acronym :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-acronym = Parent "<acronym" "</acronym>"
+acronym = Parent "acronym" "<acronym" "</acronym>"
 {-# INLINE acronym #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -203,7 +203,7 @@
 --
 address :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-address = Parent "<address" "</address>"
+address = Parent "address" "<address" "</address>"
 {-# INLINE address #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -220,7 +220,7 @@
 -- > <area />
 --
 area :: Html  -- ^ Resulting HTML.
-area = Leaf "<area" ">"
+area = Leaf "area" "<area" ">"
 {-# INLINE area #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -238,7 +238,7 @@
 --
 b :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-b = Parent "<b" "</b>"
+b = Parent "b" "<b" "</b>"
 {-# INLINE b #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -256,7 +256,7 @@
 --
 bdo :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-bdo = Parent "<bdo" "</bdo>"
+bdo = Parent "bdo" "<bdo" "</bdo>"
 {-# INLINE bdo #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -274,7 +274,7 @@
 --
 big :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-big = Parent "<big" "</big>"
+big = Parent "big" "<big" "</big>"
 {-# INLINE big #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -292,7 +292,7 @@
 --
 blockquote :: Html  -- ^ Inner HTML.
            -> Html  -- ^ Resulting HTML.
-blockquote = Parent "<blockquote" "</blockquote>"
+blockquote = Parent "blockquote" "<blockquote" "</blockquote>"
 {-# INLINE blockquote #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -310,7 +310,7 @@
 --
 body :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-body = Parent "<body" "</body>"
+body = Parent "body" "<body" "</body>"
 {-# INLINE body #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -327,7 +327,7 @@
 -- > <br />
 --
 br :: Html  -- ^ Resulting HTML.
-br = Leaf "<br" ">"
+br = Leaf "br" "<br" ">"
 {-# INLINE br #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -345,7 +345,7 @@
 --
 button :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-button = Parent "<button" "</button>"
+button = Parent "button" "<button" "</button>"
 {-# INLINE button #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -363,7 +363,7 @@
 --
 caption :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-caption = Parent "<caption" "</caption>"
+caption = Parent "caption" "<caption" "</caption>"
 {-# INLINE caption #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -381,7 +381,7 @@
 --
 cite :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-cite = Parent "<cite" "</cite>"
+cite = Parent "cite" "<cite" "</cite>"
 {-# INLINE cite #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -399,7 +399,7 @@
 --
 code :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-code = Parent "<code" "</code>"
+code = Parent "code" "<code" "</code>"
 {-# INLINE code #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -416,7 +416,7 @@
 -- > <col />
 --
 col :: Html  -- ^ Resulting HTML.
-col = Leaf "<col" ">"
+col = Leaf "col" "<col" ">"
 {-# INLINE col #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -434,7 +434,7 @@
 --
 colgroup :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-colgroup = Parent "<colgroup" "</colgroup>"
+colgroup = Parent "colgroup" "<colgroup" "</colgroup>"
 {-# INLINE colgroup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -452,7 +452,7 @@
 --
 dd :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-dd = Parent "<dd" "</dd>"
+dd = Parent "dd" "<dd" "</dd>"
 {-# INLINE dd #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -470,7 +470,7 @@
 --
 del :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-del = Parent "<del" "</del>"
+del = Parent "del" "<del" "</del>"
 {-# INLINE del #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -488,7 +488,7 @@
 --
 dfn :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-dfn = Parent "<dfn" "</dfn>"
+dfn = Parent "dfn" "<dfn" "</dfn>"
 {-# INLINE dfn #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -506,7 +506,7 @@
 --
 div :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-div = Parent "<div" "</div>"
+div = Parent "div" "<div" "</div>"
 {-# INLINE div #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -524,7 +524,7 @@
 --
 dl :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-dl = Parent "<dl" "</dl>"
+dl = Parent "dl" "<dl" "</dl>"
 {-# INLINE dl #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -542,7 +542,7 @@
 --
 dt :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-dt = Parent "<dt" "</dt>"
+dt = Parent "dt" "<dt" "</dt>"
 {-# INLINE dt #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -560,7 +560,7 @@
 --
 em :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-em = Parent "<em" "</em>"
+em = Parent "em" "<em" "</em>"
 {-# INLINE em #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -578,7 +578,7 @@
 --
 fieldset :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-fieldset = Parent "<fieldset" "</fieldset>"
+fieldset = Parent "fieldset" "<fieldset" "</fieldset>"
 {-# INLINE fieldset #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -596,7 +596,7 @@
 --
 form :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-form = Parent "<form" "</form>"
+form = Parent "form" "<form" "</form>"
 {-# INLINE form #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -614,7 +614,7 @@
 --
 h1 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h1 = Parent "<h1" "</h1>"
+h1 = Parent "h1" "<h1" "</h1>"
 {-# INLINE h1 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -632,7 +632,7 @@
 --
 h2 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h2 = Parent "<h2" "</h2>"
+h2 = Parent "h2" "<h2" "</h2>"
 {-# INLINE h2 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -650,7 +650,7 @@
 --
 h3 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h3 = Parent "<h3" "</h3>"
+h3 = Parent "h3" "<h3" "</h3>"
 {-# INLINE h3 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -668,7 +668,7 @@
 --
 h4 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h4 = Parent "<h4" "</h4>"
+h4 = Parent "h4" "<h4" "</h4>"
 {-# INLINE h4 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -686,7 +686,7 @@
 --
 h5 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h5 = Parent "<h5" "</h5>"
+h5 = Parent "h5" "<h5" "</h5>"
 {-# INLINE h5 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -704,7 +704,7 @@
 --
 h6 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h6 = Parent "<h6" "</h6>"
+h6 = Parent "h6" "<h6" "</h6>"
 {-# INLINE h6 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -722,7 +722,7 @@
 --
 head :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-head = Parent "<head" "</head>"
+head = Parent "head" "<head" "</head>"
 {-# INLINE head #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -739,7 +739,7 @@
 -- > <hr />
 --
 hr :: Html  -- ^ Resulting HTML.
-hr = Leaf "<hr" ">"
+hr = Leaf "hr" "<hr" ">"
 {-# INLINE hr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -757,7 +757,7 @@
 --
 html :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-html = Parent "<html" "</html>"
+html = Parent "html" "<html" "</html>"
 {-# INLINE html #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -775,7 +775,7 @@
 --
 i :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-i = Parent "<i" "</i>"
+i = Parent "i" "<i" "</i>"
 {-# INLINE i #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -792,7 +792,7 @@
 -- > <img />
 --
 img :: Html  -- ^ Resulting HTML.
-img = Leaf "<img" ">"
+img = Leaf "img" "<img" ">"
 {-# INLINE img #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -809,7 +809,7 @@
 -- > <input />
 --
 input :: Html  -- ^ Resulting HTML.
-input = Leaf "<input" ">"
+input = Leaf "input" "<input" ">"
 {-# INLINE input #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -827,7 +827,7 @@
 --
 ins :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-ins = Parent "<ins" "</ins>"
+ins = Parent "ins" "<ins" "</ins>"
 {-# INLINE ins #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -845,7 +845,7 @@
 --
 kbd :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-kbd = Parent "<kbd" "</kbd>"
+kbd = Parent "kbd" "<kbd" "</kbd>"
 {-# INLINE kbd #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -863,7 +863,7 @@
 --
 label :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-label = Parent "<label" "</label>"
+label = Parent "label" "<label" "</label>"
 {-# INLINE label #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -881,7 +881,7 @@
 --
 legend :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-legend = Parent "<legend" "</legend>"
+legend = Parent "legend" "<legend" "</legend>"
 {-# INLINE legend #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -899,7 +899,7 @@
 --
 li :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-li = Parent "<li" "</li>"
+li = Parent "li" "<li" "</li>"
 {-# INLINE li #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -916,7 +916,7 @@
 -- > <link />
 --
 link :: Html  -- ^ Resulting HTML.
-link = Leaf "<link" ">"
+link = Leaf "link" "<link" ">"
 {-# INLINE link #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -934,7 +934,7 @@
 --
 map :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-map = Parent "<map" "</map>"
+map = Parent "map" "<map" "</map>"
 {-# INLINE map #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -951,7 +951,7 @@
 -- > <meta />
 --
 meta :: Html  -- ^ Resulting HTML.
-meta = Leaf "<meta" ">"
+meta = Leaf "meta" "<meta" ">"
 {-# INLINE meta #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -969,7 +969,7 @@
 --
 noscript :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-noscript = Parent "<noscript" "</noscript>"
+noscript = Parent "noscript" "<noscript" "</noscript>"
 {-# INLINE noscript #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -987,7 +987,7 @@
 --
 object :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-object = Parent "<object" "</object>"
+object = Parent "object" "<object" "</object>"
 {-# INLINE object #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1005,7 +1005,7 @@
 --
 ol :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-ol = Parent "<ol" "</ol>"
+ol = Parent "ol" "<ol" "</ol>"
 {-# INLINE ol #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1023,7 +1023,7 @@
 --
 optgroup :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-optgroup = Parent "<optgroup" "</optgroup>"
+optgroup = Parent "optgroup" "<optgroup" "</optgroup>"
 {-# INLINE optgroup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1041,7 +1041,7 @@
 --
 option :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-option = Parent "<option" "</option>"
+option = Parent "option" "<option" "</option>"
 {-# INLINE option #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1059,7 +1059,7 @@
 --
 p :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-p = Parent "<p" "</p>"
+p = Parent "p" "<p" "</p>"
 {-# INLINE p #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1076,7 +1076,7 @@
 -- > <param />
 --
 param :: Html  -- ^ Resulting HTML.
-param = Leaf "<param" ">"
+param = Leaf "param" "<param" ">"
 {-# INLINE param #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1094,7 +1094,7 @@
 --
 pre :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-pre = Parent "<pre" "</pre>"
+pre = Parent "pre" "<pre" "</pre>"
 {-# INLINE pre #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1112,7 +1112,7 @@
 --
 q :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-q = Parent "<q" "</q>"
+q = Parent "q" "<q" "</q>"
 {-# INLINE q #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1130,7 +1130,7 @@
 --
 samp :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-samp = Parent "<samp" "</samp>"
+samp = Parent "samp" "<samp" "</samp>"
 {-# INLINE samp #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1148,7 +1148,7 @@
 --
 script :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-script = Parent "<script" "</script>" . external
+script = Parent "script" "<script" "</script>" . external
 {-# INLINE script #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1166,7 +1166,7 @@
 --
 select :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-select = Parent "<select" "</select>"
+select = Parent "select" "<select" "</select>"
 {-# INLINE select #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1184,7 +1184,7 @@
 --
 small :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-small = Parent "<small" "</small>"
+small = Parent "small" "<small" "</small>"
 {-# INLINE small #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1202,7 +1202,7 @@
 --
 span :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-span = Parent "<span" "</span>"
+span = Parent "span" "<span" "</span>"
 {-# INLINE span #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1220,7 +1220,7 @@
 --
 strong :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-strong = Parent "<strong" "</strong>"
+strong = Parent "strong" "<strong" "</strong>"
 {-# INLINE strong #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1238,7 +1238,7 @@
 --
 style :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-style = Parent "<style" "</style>" . external
+style = Parent "style" "<style" "</style>" . external
 {-# INLINE style #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1256,7 +1256,7 @@
 --
 sub :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-sub = Parent "<sub" "</sub>"
+sub = Parent "sub" "<sub" "</sub>"
 {-# INLINE sub #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1274,7 +1274,7 @@
 --
 sup :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-sup = Parent "<sup" "</sup>"
+sup = Parent "sup" "<sup" "</sup>"
 {-# INLINE sup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1292,7 +1292,7 @@
 --
 table :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-table = Parent "<table" "</table>"
+table = Parent "table" "<table" "</table>"
 {-# INLINE table #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1310,7 +1310,7 @@
 --
 tbody :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-tbody = Parent "<tbody" "</tbody>"
+tbody = Parent "tbody" "<tbody" "</tbody>"
 {-# INLINE tbody #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1328,7 +1328,7 @@
 --
 td :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-td = Parent "<td" "</td>"
+td = Parent "td" "<td" "</td>"
 {-# INLINE td #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1346,7 +1346,7 @@
 --
 textarea :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-textarea = Parent "<textarea" "</textarea>"
+textarea = Parent "textarea" "<textarea" "</textarea>"
 {-# INLINE textarea #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1364,7 +1364,7 @@
 --
 tfoot :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-tfoot = Parent "<tfoot" "</tfoot>"
+tfoot = Parent "tfoot" "<tfoot" "</tfoot>"
 {-# INLINE tfoot #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1382,7 +1382,7 @@
 --
 th :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-th = Parent "<th" "</th>"
+th = Parent "th" "<th" "</th>"
 {-# INLINE th #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1400,7 +1400,7 @@
 --
 thead :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-thead = Parent "<thead" "</thead>"
+thead = Parent "thead" "<thead" "</thead>"
 {-# INLINE thead #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1418,7 +1418,7 @@
 --
 title :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-title = Parent "<title" "</title>"
+title = Parent "title" "<title" "</title>"
 {-# INLINE title #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1436,7 +1436,7 @@
 --
 tr :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-tr = Parent "<tr" "</tr>"
+tr = Parent "tr" "<tr" "</tr>"
 {-# INLINE tr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1454,7 +1454,7 @@
 --
 tt :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-tt = Parent "<tt" "</tt>"
+tt = Parent "tt" "<tt" "</tt>"
 {-# INLINE tt #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1472,7 +1472,7 @@
 --
 ul :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-ul = Parent "<ul" "</ul>"
+ul = Parent "ul" "<ul" "</ul>"
 {-# INLINE ul #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1490,5 +1490,5 @@
 --
 var :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-var = Parent "<var" "</var>"
+var = Parent "var" "<var" "</var>"
 {-# INLINE var #-}
diff --git a/Text/Blaze/Html4/Strict/Attributes.hs b/Text/Blaze/Html4/Strict/Attributes.hs
--- a/Text/Blaze/Html4/Strict/Attributes.hs
+++ b/Text/Blaze/Html4/Strict/Attributes.hs
@@ -121,7 +121,7 @@
 --
 abbr :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-abbr = attribute " abbr=\""
+abbr = attribute "abbr" " abbr=\""
 {-# INLINE abbr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -139,7 +139,7 @@
 --
 accept :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-accept = attribute " accept=\""
+accept = attribute "accept" " accept=\""
 {-# INLINE accept #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -157,7 +157,7 @@
 --
 accesskey :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-accesskey = attribute " accesskey=\""
+accesskey = attribute "accesskey" " accesskey=\""
 {-# INLINE accesskey #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -175,7 +175,7 @@
 --
 action :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-action = attribute " action=\""
+action = attribute "action" " action=\""
 {-# INLINE action #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -193,7 +193,7 @@
 --
 align :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-align = attribute " align=\""
+align = attribute "align" " align=\""
 {-# INLINE align #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -211,7 +211,7 @@
 --
 alt :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-alt = attribute " alt=\""
+alt = attribute "alt" " alt=\""
 {-# INLINE alt #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -229,7 +229,7 @@
 --
 archive :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-archive = attribute " archive=\""
+archive = attribute "archive" " archive=\""
 {-# INLINE archive #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -247,7 +247,7 @@
 --
 axis :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-axis = attribute " axis=\""
+axis = attribute "axis" " axis=\""
 {-# INLINE axis #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -265,7 +265,7 @@
 --
 border :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-border = attribute " border=\""
+border = attribute "border" " border=\""
 {-# INLINE border #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -283,7 +283,7 @@
 --
 cellpadding :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-cellpadding = attribute " cellpadding=\""
+cellpadding = attribute "cellpadding" " cellpadding=\""
 {-# INLINE cellpadding #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -301,7 +301,7 @@
 --
 cellspacing :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-cellspacing = attribute " cellspacing=\""
+cellspacing = attribute "cellspacing" " cellspacing=\""
 {-# INLINE cellspacing #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -319,7 +319,7 @@
 --
 char :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-char = attribute " char=\""
+char = attribute "char" " char=\""
 {-# INLINE char #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -337,7 +337,7 @@
 --
 charoff :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-charoff = attribute " charoff=\""
+charoff = attribute "charoff" " charoff=\""
 {-# INLINE charoff #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -355,7 +355,7 @@
 --
 charset :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-charset = attribute " charset=\""
+charset = attribute "charset" " charset=\""
 {-# INLINE charset #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -373,7 +373,7 @@
 --
 checked :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-checked = attribute " checked=\""
+checked = attribute "checked" " checked=\""
 {-# INLINE checked #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -391,7 +391,7 @@
 --
 cite :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-cite = attribute " cite=\""
+cite = attribute "cite" " cite=\""
 {-# INLINE cite #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -409,7 +409,7 @@
 --
 class_ :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-class_ = attribute " class=\""
+class_ = attribute "class" " class=\""
 {-# INLINE class_ #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -427,7 +427,7 @@
 --
 classid :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-classid = attribute " classid=\""
+classid = attribute "classid" " classid=\""
 {-# INLINE classid #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -445,7 +445,7 @@
 --
 codebase :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-codebase = attribute " codebase=\""
+codebase = attribute "codebase" " codebase=\""
 {-# INLINE codebase #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -463,7 +463,7 @@
 --
 codetype :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-codetype = attribute " codetype=\""
+codetype = attribute "codetype" " codetype=\""
 {-# INLINE codetype #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -481,7 +481,7 @@
 --
 cols :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-cols = attribute " cols=\""
+cols = attribute "cols" " cols=\""
 {-# INLINE cols #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -499,7 +499,7 @@
 --
 colspan :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-colspan = attribute " colspan=\""
+colspan = attribute "colspan" " colspan=\""
 {-# INLINE colspan #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -517,7 +517,7 @@
 --
 content :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-content = attribute " content=\""
+content = attribute "content" " content=\""
 {-# INLINE content #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -535,7 +535,7 @@
 --
 coords :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-coords = attribute " coords=\""
+coords = attribute "coords" " coords=\""
 {-# INLINE coords #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -553,7 +553,7 @@
 --
 data_ :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-data_ = attribute " data=\""
+data_ = attribute "data" " data=\""
 {-# INLINE data_ #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -571,7 +571,7 @@
 --
 datetime :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-datetime = attribute " datetime=\""
+datetime = attribute "datetime" " datetime=\""
 {-# INLINE datetime #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -589,7 +589,7 @@
 --
 declare :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-declare = attribute " declare=\""
+declare = attribute "declare" " declare=\""
 {-# INLINE declare #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -607,7 +607,7 @@
 --
 defer :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-defer = attribute " defer=\""
+defer = attribute "defer" " defer=\""
 {-# INLINE defer #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -625,7 +625,7 @@
 --
 dir :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-dir = attribute " dir=\""
+dir = attribute "dir" " dir=\""
 {-# INLINE dir #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -643,7 +643,7 @@
 --
 disabled :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-disabled = attribute " disabled=\""
+disabled = attribute "disabled" " disabled=\""
 {-# INLINE disabled #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -661,7 +661,7 @@
 --
 enctype :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-enctype = attribute " enctype=\""
+enctype = attribute "enctype" " enctype=\""
 {-# INLINE enctype #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -679,7 +679,7 @@
 --
 for :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-for = attribute " for=\""
+for = attribute "for" " for=\""
 {-# INLINE for #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -697,7 +697,7 @@
 --
 frame :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-frame = attribute " frame=\""
+frame = attribute "frame" " frame=\""
 {-# INLINE frame #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -715,7 +715,7 @@
 --
 headers :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-headers = attribute " headers=\""
+headers = attribute "headers" " headers=\""
 {-# INLINE headers #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -733,7 +733,7 @@
 --
 height :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-height = attribute " height=\""
+height = attribute "height" " height=\""
 {-# INLINE height #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -751,7 +751,7 @@
 --
 href :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-href = attribute " href=\""
+href = attribute "href" " href=\""
 {-# INLINE href #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -769,7 +769,7 @@
 --
 hreflang :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-hreflang = attribute " hreflang=\""
+hreflang = attribute "hreflang" " hreflang=\""
 {-# INLINE hreflang #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -787,7 +787,7 @@
 --
 httpEquiv :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-httpEquiv = attribute " http-equiv=\""
+httpEquiv = attribute "http-equiv" " http-equiv=\""
 {-# INLINE httpEquiv #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -805,7 +805,7 @@
 --
 id :: AttributeValue  -- ^ Attribute value.
    -> Attribute       -- ^ Resulting attribute.
-id = attribute " id=\""
+id = attribute "id" " id=\""
 {-# INLINE id #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -823,7 +823,7 @@
 --
 label :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-label = attribute " label=\""
+label = attribute "label" " label=\""
 {-# INLINE label #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -841,7 +841,7 @@
 --
 lang :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-lang = attribute " lang=\""
+lang = attribute "lang" " lang=\""
 {-# INLINE lang #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -859,7 +859,7 @@
 --
 maxlength :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-maxlength = attribute " maxlength=\""
+maxlength = attribute "maxlength" " maxlength=\""
 {-# INLINE maxlength #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -877,7 +877,7 @@
 --
 media :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-media = attribute " media=\""
+media = attribute "media" " media=\""
 {-# INLINE media #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -895,7 +895,7 @@
 --
 method :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-method = attribute " method=\""
+method = attribute "method" " method=\""
 {-# INLINE method #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -913,7 +913,7 @@
 --
 multiple :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-multiple = attribute " multiple=\""
+multiple = attribute "multiple" " multiple=\""
 {-# INLINE multiple #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -931,7 +931,7 @@
 --
 name :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-name = attribute " name=\""
+name = attribute "name" " name=\""
 {-# INLINE name #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -949,7 +949,7 @@
 --
 nohref :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-nohref = attribute " nohref=\""
+nohref = attribute "nohref" " nohref=\""
 {-# INLINE nohref #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -967,7 +967,7 @@
 --
 onabort :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onabort = attribute " onabort=\""
+onabort = attribute "onabort" " onabort=\""
 {-# INLINE onabort #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -985,7 +985,7 @@
 --
 onblur :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-onblur = attribute " onblur=\""
+onblur = attribute "onblur" " onblur=\""
 {-# INLINE onblur #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1003,7 +1003,7 @@
 --
 onchange :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onchange = attribute " onchange=\""
+onchange = attribute "onchange" " onchange=\""
 {-# INLINE onchange #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1021,7 +1021,7 @@
 --
 onclick :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onclick = attribute " onclick=\""
+onclick = attribute "onclick" " onclick=\""
 {-# INLINE onclick #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1039,7 +1039,7 @@
 --
 ondblclick :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-ondblclick = attribute " ondblclick=\""
+ondblclick = attribute "ondblclick" " ondblclick=\""
 {-# INLINE ondblclick #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1057,7 +1057,7 @@
 --
 onfocus :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onfocus = attribute " onfocus=\""
+onfocus = attribute "onfocus" " onfocus=\""
 {-# INLINE onfocus #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1075,7 +1075,7 @@
 --
 onkeydown :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onkeydown = attribute " onkeydown=\""
+onkeydown = attribute "onkeydown" " onkeydown=\""
 {-# INLINE onkeydown #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1093,7 +1093,7 @@
 --
 onkeypress :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-onkeypress = attribute " onkeypress=\""
+onkeypress = attribute "onkeypress" " onkeypress=\""
 {-# INLINE onkeypress #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1111,7 +1111,7 @@
 --
 onkeyup :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onkeyup = attribute " onkeyup=\""
+onkeyup = attribute "onkeyup" " onkeyup=\""
 {-# INLINE onkeyup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1129,7 +1129,7 @@
 --
 onload :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-onload = attribute " onload=\""
+onload = attribute "onload" " onload=\""
 {-# INLINE onload #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1147,7 +1147,7 @@
 --
 onmousedown :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onmousedown = attribute " onmousedown=\""
+onmousedown = attribute "onmousedown" " onmousedown=\""
 {-# INLINE onmousedown #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1165,7 +1165,7 @@
 --
 onmousemove :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onmousemove = attribute " onmousemove=\""
+onmousemove = attribute "onmousemove" " onmousemove=\""
 {-# INLINE onmousemove #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1183,7 +1183,7 @@
 --
 onmouseout :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-onmouseout = attribute " onmouseout=\""
+onmouseout = attribute "onmouseout" " onmouseout=\""
 {-# INLINE onmouseout #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1201,7 +1201,7 @@
 --
 onmouseover :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onmouseover = attribute " onmouseover=\""
+onmouseover = attribute "onmouseover" " onmouseover=\""
 {-# INLINE onmouseover #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1219,7 +1219,7 @@
 --
 onmouseup :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onmouseup = attribute " onmouseup=\""
+onmouseup = attribute "onmouseup" " onmouseup=\""
 {-# INLINE onmouseup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1237,7 +1237,7 @@
 --
 onreset :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onreset = attribute " onreset=\""
+onreset = attribute "onreset" " onreset=\""
 {-# INLINE onreset #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1255,7 +1255,7 @@
 --
 onselect :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onselect = attribute " onselect=\""
+onselect = attribute "onselect" " onselect=\""
 {-# INLINE onselect #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1273,7 +1273,7 @@
 --
 onsubmit :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onsubmit = attribute " onsubmit=\""
+onsubmit = attribute "onsubmit" " onsubmit=\""
 {-# INLINE onsubmit #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1291,7 +1291,7 @@
 --
 onunload :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onunload = attribute " onunload=\""
+onunload = attribute "onunload" " onunload=\""
 {-# INLINE onunload #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1309,7 +1309,7 @@
 --
 profile :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-profile = attribute " profile=\""
+profile = attribute "profile" " profile=\""
 {-# INLINE profile #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1327,7 +1327,7 @@
 --
 readonly :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-readonly = attribute " readonly=\""
+readonly = attribute "readonly" " readonly=\""
 {-# INLINE readonly #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1345,7 +1345,7 @@
 --
 rel :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-rel = attribute " rel=\""
+rel = attribute "rel" " rel=\""
 {-# INLINE rel #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1363,7 +1363,7 @@
 --
 rev :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-rev = attribute " rev=\""
+rev = attribute "rev" " rev=\""
 {-# INLINE rev #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1381,7 +1381,7 @@
 --
 rows :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-rows = attribute " rows=\""
+rows = attribute "rows" " rows=\""
 {-# INLINE rows #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1399,7 +1399,7 @@
 --
 rowspan :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-rowspan = attribute " rowspan=\""
+rowspan = attribute "rowspan" " rowspan=\""
 {-# INLINE rowspan #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1417,7 +1417,7 @@
 --
 rules :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-rules = attribute " rules=\""
+rules = attribute "rules" " rules=\""
 {-# INLINE rules #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1435,7 +1435,7 @@
 --
 scheme :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-scheme = attribute " scheme=\""
+scheme = attribute "scheme" " scheme=\""
 {-# INLINE scheme #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1453,7 +1453,7 @@
 --
 scope :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-scope = attribute " scope=\""
+scope = attribute "scope" " scope=\""
 {-# INLINE scope #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1471,7 +1471,7 @@
 --
 selected :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-selected = attribute " selected=\""
+selected = attribute "selected" " selected=\""
 {-# INLINE selected #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1489,7 +1489,7 @@
 --
 shape :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-shape = attribute " shape=\""
+shape = attribute "shape" " shape=\""
 {-# INLINE shape #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1507,7 +1507,7 @@
 --
 size :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-size = attribute " size=\""
+size = attribute "size" " size=\""
 {-# INLINE size #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1525,7 +1525,7 @@
 --
 span :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-span = attribute " span=\""
+span = attribute "span" " span=\""
 {-# INLINE span #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1543,7 +1543,7 @@
 --
 src :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-src = attribute " src=\""
+src = attribute "src" " src=\""
 {-# INLINE src #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1561,7 +1561,7 @@
 --
 standby :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-standby = attribute " standby=\""
+standby = attribute "standby" " standby=\""
 {-# INLINE standby #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1579,7 +1579,7 @@
 --
 style :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-style = attribute " style=\""
+style = attribute "style" " style=\""
 {-# INLINE style #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1597,7 +1597,7 @@
 --
 summary :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-summary = attribute " summary=\""
+summary = attribute "summary" " summary=\""
 {-# INLINE summary #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1615,7 +1615,7 @@
 --
 tabindex :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-tabindex = attribute " tabindex=\""
+tabindex = attribute "tabindex" " tabindex=\""
 {-# INLINE tabindex #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1633,7 +1633,7 @@
 --
 title :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-title = attribute " title=\""
+title = attribute "title" " title=\""
 {-# INLINE title #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1651,7 +1651,7 @@
 --
 type_ :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-type_ = attribute " type=\""
+type_ = attribute "type" " type=\""
 {-# INLINE type_ #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1669,7 +1669,7 @@
 --
 usemap :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-usemap = attribute " usemap=\""
+usemap = attribute "usemap" " usemap=\""
 {-# INLINE usemap #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1687,7 +1687,7 @@
 --
 valign :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-valign = attribute " valign=\""
+valign = attribute "valign" " valign=\""
 {-# INLINE valign #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1705,7 +1705,7 @@
 --
 value :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-value = attribute " value=\""
+value = attribute "value" " value=\""
 {-# INLINE value #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1723,7 +1723,7 @@
 --
 valuetype :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-valuetype = attribute " valuetype=\""
+valuetype = attribute "valuetype" " valuetype=\""
 {-# INLINE valuetype #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1741,5 +1741,5 @@
 --
 width :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-width = attribute " width=\""
+width = attribute "width" " width=\""
 {-# INLINE width #-}
diff --git a/Text/Blaze/Html4/Transitional.hs b/Text/Blaze/Html4/Transitional.hs
--- a/Text/Blaze/Html4/Transitional.hs
+++ b/Text/Blaze/Html4/Transitional.hs
@@ -160,7 +160,7 @@
 --
 a :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-a = Parent "<a" "</a>"
+a = Parent "a" "<a" "</a>"
 {-# INLINE a #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -178,7 +178,7 @@
 --
 abbr :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-abbr = Parent "<abbr" "</abbr>"
+abbr = Parent "abbr" "<abbr" "</abbr>"
 {-# INLINE abbr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -196,7 +196,7 @@
 --
 acronym :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-acronym = Parent "<acronym" "</acronym>"
+acronym = Parent "acronym" "<acronym" "</acronym>"
 {-# INLINE acronym #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -214,7 +214,7 @@
 --
 address :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-address = Parent "<address" "</address>"
+address = Parent "address" "<address" "</address>"
 {-# INLINE address #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -232,7 +232,7 @@
 --
 applet :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-applet = Parent "<applet" "</applet>"
+applet = Parent "applet" "<applet" "</applet>"
 {-# INLINE applet #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -249,7 +249,7 @@
 -- > <area />
 --
 area :: Html  -- ^ Resulting HTML.
-area = Leaf "<area" ">"
+area = Leaf "area" "<area" ">"
 {-# INLINE area #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -267,7 +267,7 @@
 --
 b :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-b = Parent "<b" "</b>"
+b = Parent "b" "<b" "</b>"
 {-# INLINE b #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -284,7 +284,7 @@
 -- > <basefont />
 --
 basefont :: Html  -- ^ Resulting HTML.
-basefont = Leaf "<basefont" ">"
+basefont = Leaf "basefont" "<basefont" ">"
 {-# INLINE basefont #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -302,7 +302,7 @@
 --
 bdo :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-bdo = Parent "<bdo" "</bdo>"
+bdo = Parent "bdo" "<bdo" "</bdo>"
 {-# INLINE bdo #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -320,7 +320,7 @@
 --
 big :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-big = Parent "<big" "</big>"
+big = Parent "big" "<big" "</big>"
 {-# INLINE big #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -338,7 +338,7 @@
 --
 blockquote :: Html  -- ^ Inner HTML.
            -> Html  -- ^ Resulting HTML.
-blockquote = Parent "<blockquote" "</blockquote>"
+blockquote = Parent "blockquote" "<blockquote" "</blockquote>"
 {-# INLINE blockquote #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -356,7 +356,7 @@
 --
 body :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-body = Parent "<body" "</body>"
+body = Parent "body" "<body" "</body>"
 {-# INLINE body #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -373,7 +373,7 @@
 -- > <br />
 --
 br :: Html  -- ^ Resulting HTML.
-br = Leaf "<br" ">"
+br = Leaf "br" "<br" ">"
 {-# INLINE br #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -391,7 +391,7 @@
 --
 button :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-button = Parent "<button" "</button>"
+button = Parent "button" "<button" "</button>"
 {-# INLINE button #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -409,7 +409,7 @@
 --
 caption :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-caption = Parent "<caption" "</caption>"
+caption = Parent "caption" "<caption" "</caption>"
 {-# INLINE caption #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -427,7 +427,7 @@
 --
 center :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-center = Parent "<center" "</center>"
+center = Parent "center" "<center" "</center>"
 {-# INLINE center #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -445,7 +445,7 @@
 --
 cite :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-cite = Parent "<cite" "</cite>"
+cite = Parent "cite" "<cite" "</cite>"
 {-# INLINE cite #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -463,7 +463,7 @@
 --
 code :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-code = Parent "<code" "</code>"
+code = Parent "code" "<code" "</code>"
 {-# INLINE code #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -480,7 +480,7 @@
 -- > <col />
 --
 col :: Html  -- ^ Resulting HTML.
-col = Leaf "<col" ">"
+col = Leaf "col" "<col" ">"
 {-# INLINE col #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -498,7 +498,7 @@
 --
 colgroup :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-colgroup = Parent "<colgroup" "</colgroup>"
+colgroup = Parent "colgroup" "<colgroup" "</colgroup>"
 {-# INLINE colgroup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -516,7 +516,7 @@
 --
 dd :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-dd = Parent "<dd" "</dd>"
+dd = Parent "dd" "<dd" "</dd>"
 {-# INLINE dd #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -534,7 +534,7 @@
 --
 del :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-del = Parent "<del" "</del>"
+del = Parent "del" "<del" "</del>"
 {-# INLINE del #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -552,7 +552,7 @@
 --
 dfn :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-dfn = Parent "<dfn" "</dfn>"
+dfn = Parent "dfn" "<dfn" "</dfn>"
 {-# INLINE dfn #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -570,7 +570,7 @@
 --
 dir :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-dir = Parent "<dir" "</dir>"
+dir = Parent "dir" "<dir" "</dir>"
 {-# INLINE dir #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -588,7 +588,7 @@
 --
 div :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-div = Parent "<div" "</div>"
+div = Parent "div" "<div" "</div>"
 {-# INLINE div #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -606,7 +606,7 @@
 --
 dl :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-dl = Parent "<dl" "</dl>"
+dl = Parent "dl" "<dl" "</dl>"
 {-# INLINE dl #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -624,7 +624,7 @@
 --
 dt :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-dt = Parent "<dt" "</dt>"
+dt = Parent "dt" "<dt" "</dt>"
 {-# INLINE dt #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -642,7 +642,7 @@
 --
 em :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-em = Parent "<em" "</em>"
+em = Parent "em" "<em" "</em>"
 {-# INLINE em #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -660,7 +660,7 @@
 --
 fieldset :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-fieldset = Parent "<fieldset" "</fieldset>"
+fieldset = Parent "fieldset" "<fieldset" "</fieldset>"
 {-# INLINE fieldset #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -678,7 +678,7 @@
 --
 font :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-font = Parent "<font" "</font>"
+font = Parent "font" "<font" "</font>"
 {-# INLINE font #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -696,7 +696,7 @@
 --
 form :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-form = Parent "<form" "</form>"
+form = Parent "form" "<form" "</form>"
 {-# INLINE form #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -714,7 +714,7 @@
 --
 h1 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h1 = Parent "<h1" "</h1>"
+h1 = Parent "h1" "<h1" "</h1>"
 {-# INLINE h1 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -732,7 +732,7 @@
 --
 h2 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h2 = Parent "<h2" "</h2>"
+h2 = Parent "h2" "<h2" "</h2>"
 {-# INLINE h2 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -750,7 +750,7 @@
 --
 h3 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h3 = Parent "<h3" "</h3>"
+h3 = Parent "h3" "<h3" "</h3>"
 {-# INLINE h3 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -768,7 +768,7 @@
 --
 h4 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h4 = Parent "<h4" "</h4>"
+h4 = Parent "h4" "<h4" "</h4>"
 {-# INLINE h4 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -786,7 +786,7 @@
 --
 h5 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h5 = Parent "<h5" "</h5>"
+h5 = Parent "h5" "<h5" "</h5>"
 {-# INLINE h5 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -804,7 +804,7 @@
 --
 h6 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h6 = Parent "<h6" "</h6>"
+h6 = Parent "h6" "<h6" "</h6>"
 {-# INLINE h6 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -822,7 +822,7 @@
 --
 head :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-head = Parent "<head" "</head>"
+head = Parent "head" "<head" "</head>"
 {-# INLINE head #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -839,7 +839,7 @@
 -- > <hr />
 --
 hr :: Html  -- ^ Resulting HTML.
-hr = Leaf "<hr" ">"
+hr = Leaf "hr" "<hr" ">"
 {-# INLINE hr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -857,7 +857,7 @@
 --
 html :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-html = Parent "<html" "</html>"
+html = Parent "html" "<html" "</html>"
 {-# INLINE html #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -875,7 +875,7 @@
 --
 i :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-i = Parent "<i" "</i>"
+i = Parent "i" "<i" "</i>"
 {-# INLINE i #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -893,7 +893,7 @@
 --
 iframe :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-iframe = Parent "<iframe" "</iframe>"
+iframe = Parent "iframe" "<iframe" "</iframe>"
 {-# INLINE iframe #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -910,7 +910,7 @@
 -- > <img />
 --
 img :: Html  -- ^ Resulting HTML.
-img = Leaf "<img" ">"
+img = Leaf "img" "<img" ">"
 {-# INLINE img #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -927,7 +927,7 @@
 -- > <input />
 --
 input :: Html  -- ^ Resulting HTML.
-input = Leaf "<input" ">"
+input = Leaf "input" "<input" ">"
 {-# INLINE input #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -945,7 +945,7 @@
 --
 ins :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-ins = Parent "<ins" "</ins>"
+ins = Parent "ins" "<ins" "</ins>"
 {-# INLINE ins #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -963,7 +963,7 @@
 --
 isindex :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-isindex = Parent "<isindex" "</isindex>"
+isindex = Parent "isindex" "<isindex" "</isindex>"
 {-# INLINE isindex #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -981,7 +981,7 @@
 --
 kbd :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-kbd = Parent "<kbd" "</kbd>"
+kbd = Parent "kbd" "<kbd" "</kbd>"
 {-# INLINE kbd #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -999,7 +999,7 @@
 --
 label :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-label = Parent "<label" "</label>"
+label = Parent "label" "<label" "</label>"
 {-# INLINE label #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1017,7 +1017,7 @@
 --
 legend :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-legend = Parent "<legend" "</legend>"
+legend = Parent "legend" "<legend" "</legend>"
 {-# INLINE legend #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1035,7 +1035,7 @@
 --
 li :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-li = Parent "<li" "</li>"
+li = Parent "li" "<li" "</li>"
 {-# INLINE li #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1052,7 +1052,7 @@
 -- > <link />
 --
 link :: Html  -- ^ Resulting HTML.
-link = Leaf "<link" ">"
+link = Leaf "link" "<link" ">"
 {-# INLINE link #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1070,7 +1070,7 @@
 --
 map :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-map = Parent "<map" "</map>"
+map = Parent "map" "<map" "</map>"
 {-# INLINE map #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1088,7 +1088,7 @@
 --
 menu :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-menu = Parent "<menu" "</menu>"
+menu = Parent "menu" "<menu" "</menu>"
 {-# INLINE menu #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1105,7 +1105,7 @@
 -- > <meta />
 --
 meta :: Html  -- ^ Resulting HTML.
-meta = Leaf "<meta" ">"
+meta = Leaf "meta" "<meta" ">"
 {-# INLINE meta #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1123,7 +1123,7 @@
 --
 noframes :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-noframes = Parent "<noframes" "</noframes>"
+noframes = Parent "noframes" "<noframes" "</noframes>"
 {-# INLINE noframes #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1141,7 +1141,7 @@
 --
 noscript :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-noscript = Parent "<noscript" "</noscript>"
+noscript = Parent "noscript" "<noscript" "</noscript>"
 {-# INLINE noscript #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1159,7 +1159,7 @@
 --
 object :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-object = Parent "<object" "</object>"
+object = Parent "object" "<object" "</object>"
 {-# INLINE object #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1177,7 +1177,7 @@
 --
 ol :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-ol = Parent "<ol" "</ol>"
+ol = Parent "ol" "<ol" "</ol>"
 {-# INLINE ol #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1195,7 +1195,7 @@
 --
 optgroup :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-optgroup = Parent "<optgroup" "</optgroup>"
+optgroup = Parent "optgroup" "<optgroup" "</optgroup>"
 {-# INLINE optgroup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1213,7 +1213,7 @@
 --
 option :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-option = Parent "<option" "</option>"
+option = Parent "option" "<option" "</option>"
 {-# INLINE option #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1231,7 +1231,7 @@
 --
 p :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-p = Parent "<p" "</p>"
+p = Parent "p" "<p" "</p>"
 {-# INLINE p #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1248,7 +1248,7 @@
 -- > <param />
 --
 param :: Html  -- ^ Resulting HTML.
-param = Leaf "<param" ">"
+param = Leaf "param" "<param" ">"
 {-# INLINE param #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1266,7 +1266,7 @@
 --
 pre :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-pre = Parent "<pre" "</pre>"
+pre = Parent "pre" "<pre" "</pre>"
 {-# INLINE pre #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1284,7 +1284,7 @@
 --
 q :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-q = Parent "<q" "</q>"
+q = Parent "q" "<q" "</q>"
 {-# INLINE q #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1302,7 +1302,7 @@
 --
 s :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-s = Parent "<s" "</s>"
+s = Parent "s" "<s" "</s>"
 {-# INLINE s #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1320,7 +1320,7 @@
 --
 samp :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-samp = Parent "<samp" "</samp>"
+samp = Parent "samp" "<samp" "</samp>"
 {-# INLINE samp #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1338,7 +1338,7 @@
 --
 script :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-script = Parent "<script" "</script>" . external
+script = Parent "script" "<script" "</script>" . external
 {-# INLINE script #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1356,7 +1356,7 @@
 --
 select :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-select = Parent "<select" "</select>"
+select = Parent "select" "<select" "</select>"
 {-# INLINE select #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1374,7 +1374,7 @@
 --
 small :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-small = Parent "<small" "</small>"
+small = Parent "small" "<small" "</small>"
 {-# INLINE small #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1392,7 +1392,7 @@
 --
 span :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-span = Parent "<span" "</span>"
+span = Parent "span" "<span" "</span>"
 {-# INLINE span #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1410,7 +1410,7 @@
 --
 strong :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-strong = Parent "<strong" "</strong>"
+strong = Parent "strong" "<strong" "</strong>"
 {-# INLINE strong #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1428,7 +1428,7 @@
 --
 style :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-style = Parent "<style" "</style>" . external
+style = Parent "style" "<style" "</style>" . external
 {-# INLINE style #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1446,7 +1446,7 @@
 --
 sub :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-sub = Parent "<sub" "</sub>"
+sub = Parent "sub" "<sub" "</sub>"
 {-# INLINE sub #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1464,7 +1464,7 @@
 --
 sup :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-sup = Parent "<sup" "</sup>"
+sup = Parent "sup" "<sup" "</sup>"
 {-# INLINE sup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1482,7 +1482,7 @@
 --
 table :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-table = Parent "<table" "</table>"
+table = Parent "table" "<table" "</table>"
 {-# INLINE table #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1500,7 +1500,7 @@
 --
 tbody :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-tbody = Parent "<tbody" "</tbody>"
+tbody = Parent "tbody" "<tbody" "</tbody>"
 {-# INLINE tbody #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1518,7 +1518,7 @@
 --
 td :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-td = Parent "<td" "</td>"
+td = Parent "td" "<td" "</td>"
 {-# INLINE td #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1536,7 +1536,7 @@
 --
 textarea :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-textarea = Parent "<textarea" "</textarea>"
+textarea = Parent "textarea" "<textarea" "</textarea>"
 {-# INLINE textarea #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1554,7 +1554,7 @@
 --
 tfoot :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-tfoot = Parent "<tfoot" "</tfoot>"
+tfoot = Parent "tfoot" "<tfoot" "</tfoot>"
 {-# INLINE tfoot #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1572,7 +1572,7 @@
 --
 th :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-th = Parent "<th" "</th>"
+th = Parent "th" "<th" "</th>"
 {-# INLINE th #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1590,7 +1590,7 @@
 --
 thead :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-thead = Parent "<thead" "</thead>"
+thead = Parent "thead" "<thead" "</thead>"
 {-# INLINE thead #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1608,7 +1608,7 @@
 --
 title :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-title = Parent "<title" "</title>"
+title = Parent "title" "<title" "</title>"
 {-# INLINE title #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1626,7 +1626,7 @@
 --
 tr :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-tr = Parent "<tr" "</tr>"
+tr = Parent "tr" "<tr" "</tr>"
 {-# INLINE tr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1644,7 +1644,7 @@
 --
 tt :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-tt = Parent "<tt" "</tt>"
+tt = Parent "tt" "<tt" "</tt>"
 {-# INLINE tt #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1662,7 +1662,7 @@
 --
 u :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-u = Parent "<u" "</u>"
+u = Parent "u" "<u" "</u>"
 {-# INLINE u #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1680,7 +1680,7 @@
 --
 ul :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-ul = Parent "<ul" "</ul>"
+ul = Parent "ul" "<ul" "</ul>"
 {-# INLINE ul #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1698,5 +1698,5 @@
 --
 var :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-var = Parent "<var" "</var>"
+var = Parent "var" "<var" "</var>"
 {-# INLINE var #-}
diff --git a/Text/Blaze/Html4/Transitional/Attributes.hs b/Text/Blaze/Html4/Transitional/Attributes.hs
--- a/Text/Blaze/Html4/Transitional/Attributes.hs
+++ b/Text/Blaze/Html4/Transitional/Attributes.hs
@@ -132,7 +132,7 @@
 --
 abbr :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-abbr = attribute " abbr=\""
+abbr = attribute "abbr" " abbr=\""
 {-# INLINE abbr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -150,7 +150,7 @@
 --
 accept :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-accept = attribute " accept=\""
+accept = attribute "accept" " accept=\""
 {-# INLINE accept #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -168,7 +168,7 @@
 --
 accesskey :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-accesskey = attribute " accesskey=\""
+accesskey = attribute "accesskey" " accesskey=\""
 {-# INLINE accesskey #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -186,7 +186,7 @@
 --
 action :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-action = attribute " action=\""
+action = attribute "action" " action=\""
 {-# INLINE action #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -204,7 +204,7 @@
 --
 align :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-align = attribute " align=\""
+align = attribute "align" " align=\""
 {-# INLINE align #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -222,7 +222,7 @@
 --
 alt :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-alt = attribute " alt=\""
+alt = attribute "alt" " alt=\""
 {-# INLINE alt #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -240,7 +240,7 @@
 --
 archive :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-archive = attribute " archive=\""
+archive = attribute "archive" " archive=\""
 {-# INLINE archive #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -258,7 +258,7 @@
 --
 axis :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-axis = attribute " axis=\""
+axis = attribute "axis" " axis=\""
 {-# INLINE axis #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -276,7 +276,7 @@
 --
 background :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-background = attribute " background=\""
+background = attribute "background" " background=\""
 {-# INLINE background #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -294,7 +294,7 @@
 --
 bgcolor :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-bgcolor = attribute " bgcolor=\""
+bgcolor = attribute "bgcolor" " bgcolor=\""
 {-# INLINE bgcolor #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -312,7 +312,7 @@
 --
 border :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-border = attribute " border=\""
+border = attribute "border" " border=\""
 {-# INLINE border #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -330,7 +330,7 @@
 --
 cellpadding :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-cellpadding = attribute " cellpadding=\""
+cellpadding = attribute "cellpadding" " cellpadding=\""
 {-# INLINE cellpadding #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -348,7 +348,7 @@
 --
 cellspacing :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-cellspacing = attribute " cellspacing=\""
+cellspacing = attribute "cellspacing" " cellspacing=\""
 {-# INLINE cellspacing #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -366,7 +366,7 @@
 --
 char :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-char = attribute " char=\""
+char = attribute "char" " char=\""
 {-# INLINE char #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -384,7 +384,7 @@
 --
 charoff :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-charoff = attribute " charoff=\""
+charoff = attribute "charoff" " charoff=\""
 {-# INLINE charoff #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -402,7 +402,7 @@
 --
 charset :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-charset = attribute " charset=\""
+charset = attribute "charset" " charset=\""
 {-# INLINE charset #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -420,7 +420,7 @@
 --
 checked :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-checked = attribute " checked=\""
+checked = attribute "checked" " checked=\""
 {-# INLINE checked #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -438,7 +438,7 @@
 --
 cite :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-cite = attribute " cite=\""
+cite = attribute "cite" " cite=\""
 {-# INLINE cite #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -456,7 +456,7 @@
 --
 class_ :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-class_ = attribute " class=\""
+class_ = attribute "class" " class=\""
 {-# INLINE class_ #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -474,7 +474,7 @@
 --
 classid :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-classid = attribute " classid=\""
+classid = attribute "classid" " classid=\""
 {-# INLINE classid #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -492,7 +492,7 @@
 --
 clear :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-clear = attribute " clear=\""
+clear = attribute "clear" " clear=\""
 {-# INLINE clear #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -510,7 +510,7 @@
 --
 codebase :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-codebase = attribute " codebase=\""
+codebase = attribute "codebase" " codebase=\""
 {-# INLINE codebase #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -528,7 +528,7 @@
 --
 codetype :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-codetype = attribute " codetype=\""
+codetype = attribute "codetype" " codetype=\""
 {-# INLINE codetype #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -546,7 +546,7 @@
 --
 cols :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-cols = attribute " cols=\""
+cols = attribute "cols" " cols=\""
 {-# INLINE cols #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -564,7 +564,7 @@
 --
 colspan :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-colspan = attribute " colspan=\""
+colspan = attribute "colspan" " colspan=\""
 {-# INLINE colspan #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -582,7 +582,7 @@
 --
 compact :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-compact = attribute " compact=\""
+compact = attribute "compact" " compact=\""
 {-# INLINE compact #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -600,7 +600,7 @@
 --
 content :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-content = attribute " content=\""
+content = attribute "content" " content=\""
 {-# INLINE content #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -618,7 +618,7 @@
 --
 coords :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-coords = attribute " coords=\""
+coords = attribute "coords" " coords=\""
 {-# INLINE coords #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -636,7 +636,7 @@
 --
 data_ :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-data_ = attribute " data=\""
+data_ = attribute "data" " data=\""
 {-# INLINE data_ #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -654,7 +654,7 @@
 --
 datetime :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-datetime = attribute " datetime=\""
+datetime = attribute "datetime" " datetime=\""
 {-# INLINE datetime #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -672,7 +672,7 @@
 --
 declare :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-declare = attribute " declare=\""
+declare = attribute "declare" " declare=\""
 {-# INLINE declare #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -690,7 +690,7 @@
 --
 defer :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-defer = attribute " defer=\""
+defer = attribute "defer" " defer=\""
 {-# INLINE defer #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -708,7 +708,7 @@
 --
 dir :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-dir = attribute " dir=\""
+dir = attribute "dir" " dir=\""
 {-# INLINE dir #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -726,7 +726,7 @@
 --
 disabled :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-disabled = attribute " disabled=\""
+disabled = attribute "disabled" " disabled=\""
 {-# INLINE disabled #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -744,7 +744,7 @@
 --
 enctype :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-enctype = attribute " enctype=\""
+enctype = attribute "enctype" " enctype=\""
 {-# INLINE enctype #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -762,7 +762,7 @@
 --
 for :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-for = attribute " for=\""
+for = attribute "for" " for=\""
 {-# INLINE for #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -780,7 +780,7 @@
 --
 frame :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-frame = attribute " frame=\""
+frame = attribute "frame" " frame=\""
 {-# INLINE frame #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -798,7 +798,7 @@
 --
 headers :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-headers = attribute " headers=\""
+headers = attribute "headers" " headers=\""
 {-# INLINE headers #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -816,7 +816,7 @@
 --
 height :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-height = attribute " height=\""
+height = attribute "height" " height=\""
 {-# INLINE height #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -834,7 +834,7 @@
 --
 href :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-href = attribute " href=\""
+href = attribute "href" " href=\""
 {-# INLINE href #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -852,7 +852,7 @@
 --
 hreflang :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-hreflang = attribute " hreflang=\""
+hreflang = attribute "hreflang" " hreflang=\""
 {-# INLINE hreflang #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -870,7 +870,7 @@
 --
 hspace :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-hspace = attribute " hspace=\""
+hspace = attribute "hspace" " hspace=\""
 {-# INLINE hspace #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -888,7 +888,7 @@
 --
 httpEquiv :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-httpEquiv = attribute " http-equiv=\""
+httpEquiv = attribute "http-equiv" " http-equiv=\""
 {-# INLINE httpEquiv #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -906,7 +906,7 @@
 --
 id :: AttributeValue  -- ^ Attribute value.
    -> Attribute       -- ^ Resulting attribute.
-id = attribute " id=\""
+id = attribute "id" " id=\""
 {-# INLINE id #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -924,7 +924,7 @@
 --
 label :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-label = attribute " label=\""
+label = attribute "label" " label=\""
 {-# INLINE label #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -942,7 +942,7 @@
 --
 lang :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-lang = attribute " lang=\""
+lang = attribute "lang" " lang=\""
 {-# INLINE lang #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -960,7 +960,7 @@
 --
 language :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-language = attribute " language=\""
+language = attribute "language" " language=\""
 {-# INLINE language #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -978,7 +978,7 @@
 --
 maxlength :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-maxlength = attribute " maxlength=\""
+maxlength = attribute "maxlength" " maxlength=\""
 {-# INLINE maxlength #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -996,7 +996,7 @@
 --
 media :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-media = attribute " media=\""
+media = attribute "media" " media=\""
 {-# INLINE media #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1014,7 +1014,7 @@
 --
 method :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-method = attribute " method=\""
+method = attribute "method" " method=\""
 {-# INLINE method #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1032,7 +1032,7 @@
 --
 multiple :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-multiple = attribute " multiple=\""
+multiple = attribute "multiple" " multiple=\""
 {-# INLINE multiple #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1050,7 +1050,7 @@
 --
 name :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-name = attribute " name=\""
+name = attribute "name" " name=\""
 {-# INLINE name #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1068,7 +1068,7 @@
 --
 nohref :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-nohref = attribute " nohref=\""
+nohref = attribute "nohref" " nohref=\""
 {-# INLINE nohref #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1086,7 +1086,7 @@
 --
 noshade :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-noshade = attribute " noshade=\""
+noshade = attribute "noshade" " noshade=\""
 {-# INLINE noshade #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1104,7 +1104,7 @@
 --
 nowrap :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-nowrap = attribute " nowrap=\""
+nowrap = attribute "nowrap" " nowrap=\""
 {-# INLINE nowrap #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1122,7 +1122,7 @@
 --
 onabort :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onabort = attribute " onabort=\""
+onabort = attribute "onabort" " onabort=\""
 {-# INLINE onabort #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1140,7 +1140,7 @@
 --
 onblur :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-onblur = attribute " onblur=\""
+onblur = attribute "onblur" " onblur=\""
 {-# INLINE onblur #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1158,7 +1158,7 @@
 --
 onchange :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onchange = attribute " onchange=\""
+onchange = attribute "onchange" " onchange=\""
 {-# INLINE onchange #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1176,7 +1176,7 @@
 --
 onclick :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onclick = attribute " onclick=\""
+onclick = attribute "onclick" " onclick=\""
 {-# INLINE onclick #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1194,7 +1194,7 @@
 --
 ondblclick :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-ondblclick = attribute " ondblclick=\""
+ondblclick = attribute "ondblclick" " ondblclick=\""
 {-# INLINE ondblclick #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1212,7 +1212,7 @@
 --
 onfocus :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onfocus = attribute " onfocus=\""
+onfocus = attribute "onfocus" " onfocus=\""
 {-# INLINE onfocus #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1230,7 +1230,7 @@
 --
 onkeydown :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onkeydown = attribute " onkeydown=\""
+onkeydown = attribute "onkeydown" " onkeydown=\""
 {-# INLINE onkeydown #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1248,7 +1248,7 @@
 --
 onkeypress :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-onkeypress = attribute " onkeypress=\""
+onkeypress = attribute "onkeypress" " onkeypress=\""
 {-# INLINE onkeypress #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1266,7 +1266,7 @@
 --
 onkeyup :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onkeyup = attribute " onkeyup=\""
+onkeyup = attribute "onkeyup" " onkeyup=\""
 {-# INLINE onkeyup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1284,7 +1284,7 @@
 --
 onload :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-onload = attribute " onload=\""
+onload = attribute "onload" " onload=\""
 {-# INLINE onload #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1302,7 +1302,7 @@
 --
 onmousedown :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onmousedown = attribute " onmousedown=\""
+onmousedown = attribute "onmousedown" " onmousedown=\""
 {-# INLINE onmousedown #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1320,7 +1320,7 @@
 --
 onmousemove :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onmousemove = attribute " onmousemove=\""
+onmousemove = attribute "onmousemove" " onmousemove=\""
 {-# INLINE onmousemove #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1338,7 +1338,7 @@
 --
 onmouseout :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-onmouseout = attribute " onmouseout=\""
+onmouseout = attribute "onmouseout" " onmouseout=\""
 {-# INLINE onmouseout #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1356,7 +1356,7 @@
 --
 onmouseover :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onmouseover = attribute " onmouseover=\""
+onmouseover = attribute "onmouseover" " onmouseover=\""
 {-# INLINE onmouseover #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1374,7 +1374,7 @@
 --
 onmouseup :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onmouseup = attribute " onmouseup=\""
+onmouseup = attribute "onmouseup" " onmouseup=\""
 {-# INLINE onmouseup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1392,7 +1392,7 @@
 --
 onreset :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onreset = attribute " onreset=\""
+onreset = attribute "onreset" " onreset=\""
 {-# INLINE onreset #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1410,7 +1410,7 @@
 --
 onselect :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onselect = attribute " onselect=\""
+onselect = attribute "onselect" " onselect=\""
 {-# INLINE onselect #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1428,7 +1428,7 @@
 --
 onsubmit :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onsubmit = attribute " onsubmit=\""
+onsubmit = attribute "onsubmit" " onsubmit=\""
 {-# INLINE onsubmit #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1446,7 +1446,7 @@
 --
 onunload :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onunload = attribute " onunload=\""
+onunload = attribute "onunload" " onunload=\""
 {-# INLINE onunload #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1464,7 +1464,7 @@
 --
 profile :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-profile = attribute " profile=\""
+profile = attribute "profile" " profile=\""
 {-# INLINE profile #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1482,7 +1482,7 @@
 --
 readonly :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-readonly = attribute " readonly=\""
+readonly = attribute "readonly" " readonly=\""
 {-# INLINE readonly #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1500,7 +1500,7 @@
 --
 rel :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-rel = attribute " rel=\""
+rel = attribute "rel" " rel=\""
 {-# INLINE rel #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1518,7 +1518,7 @@
 --
 rev :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-rev = attribute " rev=\""
+rev = attribute "rev" " rev=\""
 {-# INLINE rev #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1536,7 +1536,7 @@
 --
 rows :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-rows = attribute " rows=\""
+rows = attribute "rows" " rows=\""
 {-# INLINE rows #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1554,7 +1554,7 @@
 --
 rowspan :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-rowspan = attribute " rowspan=\""
+rowspan = attribute "rowspan" " rowspan=\""
 {-# INLINE rowspan #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1572,7 +1572,7 @@
 --
 rules :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-rules = attribute " rules=\""
+rules = attribute "rules" " rules=\""
 {-# INLINE rules #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1590,7 +1590,7 @@
 --
 scheme :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-scheme = attribute " scheme=\""
+scheme = attribute "scheme" " scheme=\""
 {-# INLINE scheme #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1608,7 +1608,7 @@
 --
 scope :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-scope = attribute " scope=\""
+scope = attribute "scope" " scope=\""
 {-# INLINE scope #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1626,7 +1626,7 @@
 --
 selected :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-selected = attribute " selected=\""
+selected = attribute "selected" " selected=\""
 {-# INLINE selected #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1644,7 +1644,7 @@
 --
 shape :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-shape = attribute " shape=\""
+shape = attribute "shape" " shape=\""
 {-# INLINE shape #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1662,7 +1662,7 @@
 --
 size :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-size = attribute " size=\""
+size = attribute "size" " size=\""
 {-# INLINE size #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1680,7 +1680,7 @@
 --
 span :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-span = attribute " span=\""
+span = attribute "span" " span=\""
 {-# INLINE span #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1698,7 +1698,7 @@
 --
 src :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-src = attribute " src=\""
+src = attribute "src" " src=\""
 {-# INLINE src #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1716,7 +1716,7 @@
 --
 standby :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-standby = attribute " standby=\""
+standby = attribute "standby" " standby=\""
 {-# INLINE standby #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1734,7 +1734,7 @@
 --
 start :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-start = attribute " start=\""
+start = attribute "start" " start=\""
 {-# INLINE start #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1752,7 +1752,7 @@
 --
 style :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-style = attribute " style=\""
+style = attribute "style" " style=\""
 {-# INLINE style #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1770,7 +1770,7 @@
 --
 summary :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-summary = attribute " summary=\""
+summary = attribute "summary" " summary=\""
 {-# INLINE summary #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1788,7 +1788,7 @@
 --
 tabindex :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-tabindex = attribute " tabindex=\""
+tabindex = attribute "tabindex" " tabindex=\""
 {-# INLINE tabindex #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1806,7 +1806,7 @@
 --
 target :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-target = attribute " target=\""
+target = attribute "target" " target=\""
 {-# INLINE target #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1824,7 +1824,7 @@
 --
 title :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-title = attribute " title=\""
+title = attribute "title" " title=\""
 {-# INLINE title #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1842,7 +1842,7 @@
 --
 type_ :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-type_ = attribute " type=\""
+type_ = attribute "type" " type=\""
 {-# INLINE type_ #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1860,7 +1860,7 @@
 --
 usemap :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-usemap = attribute " usemap=\""
+usemap = attribute "usemap" " usemap=\""
 {-# INLINE usemap #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1878,7 +1878,7 @@
 --
 valign :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-valign = attribute " valign=\""
+valign = attribute "valign" " valign=\""
 {-# INLINE valign #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1896,7 +1896,7 @@
 --
 value :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-value = attribute " value=\""
+value = attribute "value" " value=\""
 {-# INLINE value #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1914,7 +1914,7 @@
 --
 valuetype :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-valuetype = attribute " valuetype=\""
+valuetype = attribute "valuetype" " valuetype=\""
 {-# INLINE valuetype #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1932,7 +1932,7 @@
 --
 vspace :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-vspace = attribute " vspace=\""
+vspace = attribute "vspace" " vspace=\""
 {-# INLINE vspace #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1950,5 +1950,5 @@
 --
 width :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-width = attribute " width=\""
+width = attribute "width" " width=\""
 {-# INLINE width #-}
diff --git a/Text/Blaze/Html5.hs b/Text/Blaze/Html5.hs
--- a/Text/Blaze/Html5.hs
+++ b/Text/Blaze/Html5.hs
@@ -174,7 +174,7 @@
 --
 a :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-a = Parent "<a" "</a>"
+a = Parent "a" "<a" "</a>"
 {-# INLINE a #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -192,7 +192,7 @@
 --
 abbr :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-abbr = Parent "<abbr" "</abbr>"
+abbr = Parent "abbr" "<abbr" "</abbr>"
 {-# INLINE abbr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -210,7 +210,7 @@
 --
 address :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-address = Parent "<address" "</address>"
+address = Parent "address" "<address" "</address>"
 {-# INLINE address #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -227,7 +227,7 @@
 -- > <area />
 --
 area :: Html  -- ^ Resulting HTML.
-area = Leaf "<area" " />"
+area = Leaf "area" "<area" " />"
 {-# INLINE area #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -245,7 +245,7 @@
 --
 article :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-article = Parent "<article" "</article>"
+article = Parent "article" "<article" "</article>"
 {-# INLINE article #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -263,7 +263,7 @@
 --
 aside :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-aside = Parent "<aside" "</aside>"
+aside = Parent "aside" "<aside" "</aside>"
 {-# INLINE aside #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -281,7 +281,7 @@
 --
 audio :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-audio = Parent "<audio" "</audio>"
+audio = Parent "audio" "<audio" "</audio>"
 {-# INLINE audio #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -299,7 +299,7 @@
 --
 b :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-b = Parent "<b" "</b>"
+b = Parent "b" "<b" "</b>"
 {-# INLINE b #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -317,7 +317,7 @@
 --
 base :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-base = Parent "<base" "</base>"
+base = Parent "base" "<base" "</base>"
 {-# INLINE base #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -335,7 +335,7 @@
 --
 bdo :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-bdo = Parent "<bdo" "</bdo>"
+bdo = Parent "bdo" "<bdo" "</bdo>"
 {-# INLINE bdo #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -353,7 +353,7 @@
 --
 blockquote :: Html  -- ^ Inner HTML.
            -> Html  -- ^ Resulting HTML.
-blockquote = Parent "<blockquote" "</blockquote>"
+blockquote = Parent "blockquote" "<blockquote" "</blockquote>"
 {-# INLINE blockquote #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -371,7 +371,7 @@
 --
 body :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-body = Parent "<body" "</body>"
+body = Parent "body" "<body" "</body>"
 {-# INLINE body #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -388,7 +388,7 @@
 -- > <br />
 --
 br :: Html  -- ^ Resulting HTML.
-br = Leaf "<br" " />"
+br = Leaf "br" "<br" " />"
 {-# INLINE br #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -406,7 +406,7 @@
 --
 button :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-button = Parent "<button" "</button>"
+button = Parent "button" "<button" "</button>"
 {-# INLINE button #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -424,7 +424,7 @@
 --
 canvas :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-canvas = Parent "<canvas" "</canvas>"
+canvas = Parent "canvas" "<canvas" "</canvas>"
 {-# INLINE canvas #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -442,7 +442,7 @@
 --
 caption :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-caption = Parent "<caption" "</caption>"
+caption = Parent "caption" "<caption" "</caption>"
 {-# INLINE caption #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -460,7 +460,7 @@
 --
 cite :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-cite = Parent "<cite" "</cite>"
+cite = Parent "cite" "<cite" "</cite>"
 {-# INLINE cite #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -478,7 +478,7 @@
 --
 code :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-code = Parent "<code" "</code>"
+code = Parent "code" "<code" "</code>"
 {-# INLINE code #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -495,7 +495,7 @@
 -- > <col />
 --
 col :: Html  -- ^ Resulting HTML.
-col = Leaf "<col" " />"
+col = Leaf "col" "<col" " />"
 {-# INLINE col #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -513,7 +513,7 @@
 --
 colgroup :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-colgroup = Parent "<colgroup" "</colgroup>"
+colgroup = Parent "colgroup" "<colgroup" "</colgroup>"
 {-# INLINE colgroup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -531,7 +531,7 @@
 --
 command :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-command = Parent "<command" "</command>"
+command = Parent "command" "<command" "</command>"
 {-# INLINE command #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -549,7 +549,7 @@
 --
 datalist :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-datalist = Parent "<datalist" "</datalist>"
+datalist = Parent "datalist" "<datalist" "</datalist>"
 {-# INLINE datalist #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -567,7 +567,7 @@
 --
 dd :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-dd = Parent "<dd" "</dd>"
+dd = Parent "dd" "<dd" "</dd>"
 {-# INLINE dd #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -585,7 +585,7 @@
 --
 del :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-del = Parent "<del" "</del>"
+del = Parent "del" "<del" "</del>"
 {-# INLINE del #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -603,7 +603,7 @@
 --
 details :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-details = Parent "<details" "</details>"
+details = Parent "details" "<details" "</details>"
 {-# INLINE details #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -621,7 +621,7 @@
 --
 dfn :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-dfn = Parent "<dfn" "</dfn>"
+dfn = Parent "dfn" "<dfn" "</dfn>"
 {-# INLINE dfn #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -639,7 +639,7 @@
 --
 div :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-div = Parent "<div" "</div>"
+div = Parent "div" "<div" "</div>"
 {-# INLINE div #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -657,7 +657,7 @@
 --
 dl :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-dl = Parent "<dl" "</dl>"
+dl = Parent "dl" "<dl" "</dl>"
 {-# INLINE dl #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -675,7 +675,7 @@
 --
 dt :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-dt = Parent "<dt" "</dt>"
+dt = Parent "dt" "<dt" "</dt>"
 {-# INLINE dt #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -693,7 +693,7 @@
 --
 em :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-em = Parent "<em" "</em>"
+em = Parent "em" "<em" "</em>"
 {-# INLINE em #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -710,7 +710,7 @@
 -- > <embed />
 --
 embed :: Html  -- ^ Resulting HTML.
-embed = Leaf "<embed" " />"
+embed = Leaf "embed" "<embed" " />"
 {-# INLINE embed #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -728,7 +728,7 @@
 --
 fieldset :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-fieldset = Parent "<fieldset" "</fieldset>"
+fieldset = Parent "fieldset" "<fieldset" "</fieldset>"
 {-# INLINE fieldset #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -746,7 +746,7 @@
 --
 figcaption :: Html  -- ^ Inner HTML.
            -> Html  -- ^ Resulting HTML.
-figcaption = Parent "<figcaption" "</figcaption>"
+figcaption = Parent "figcaption" "<figcaption" "</figcaption>"
 {-# INLINE figcaption #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -764,7 +764,7 @@
 --
 figure :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-figure = Parent "<figure" "</figure>"
+figure = Parent "figure" "<figure" "</figure>"
 {-# INLINE figure #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -782,7 +782,7 @@
 --
 footer :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-footer = Parent "<footer" "</footer>"
+footer = Parent "footer" "<footer" "</footer>"
 {-# INLINE footer #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -800,7 +800,7 @@
 --
 form :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-form = Parent "<form" "</form>"
+form = Parent "form" "<form" "</form>"
 {-# INLINE form #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -818,7 +818,7 @@
 --
 h1 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h1 = Parent "<h1" "</h1>"
+h1 = Parent "h1" "<h1" "</h1>"
 {-# INLINE h1 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -836,7 +836,7 @@
 --
 h2 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h2 = Parent "<h2" "</h2>"
+h2 = Parent "h2" "<h2" "</h2>"
 {-# INLINE h2 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -854,7 +854,7 @@
 --
 h3 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h3 = Parent "<h3" "</h3>"
+h3 = Parent "h3" "<h3" "</h3>"
 {-# INLINE h3 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -872,7 +872,7 @@
 --
 h4 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h4 = Parent "<h4" "</h4>"
+h4 = Parent "h4" "<h4" "</h4>"
 {-# INLINE h4 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -890,7 +890,7 @@
 --
 h5 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h5 = Parent "<h5" "</h5>"
+h5 = Parent "h5" "<h5" "</h5>"
 {-# INLINE h5 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -908,7 +908,7 @@
 --
 h6 :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-h6 = Parent "<h6" "</h6>"
+h6 = Parent "h6" "<h6" "</h6>"
 {-# INLINE h6 #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -926,7 +926,7 @@
 --
 head :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-head = Parent "<head" "</head>"
+head = Parent "head" "<head" "</head>"
 {-# INLINE head #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -944,7 +944,7 @@
 --
 header :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-header = Parent "<header" "</header>"
+header = Parent "header" "<header" "</header>"
 {-# INLINE header #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -962,7 +962,7 @@
 --
 hgroup :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-hgroup = Parent "<hgroup" "</hgroup>"
+hgroup = Parent "hgroup" "<hgroup" "</hgroup>"
 {-# INLINE hgroup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -979,7 +979,7 @@
 -- > <hr />
 --
 hr :: Html  -- ^ Resulting HTML.
-hr = Leaf "<hr" " />"
+hr = Leaf "hr" "<hr" " />"
 {-# INLINE hr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -997,7 +997,7 @@
 --
 html :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-html = Parent "<html" "</html>"
+html = Parent "html" "<html" "</html>"
 {-# INLINE html #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1015,7 +1015,7 @@
 --
 i :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-i = Parent "<i" "</i>"
+i = Parent "i" "<i" "</i>"
 {-# INLINE i #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1033,7 +1033,7 @@
 --
 iframe :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-iframe = Parent "<iframe" "</iframe>"
+iframe = Parent "iframe" "<iframe" "</iframe>"
 {-# INLINE iframe #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1050,7 +1050,7 @@
 -- > <img />
 --
 img :: Html  -- ^ Resulting HTML.
-img = Leaf "<img" " />"
+img = Leaf "img" "<img" " />"
 {-# INLINE img #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1067,7 +1067,7 @@
 -- > <input />
 --
 input :: Html  -- ^ Resulting HTML.
-input = Leaf "<input" " />"
+input = Leaf "input" "<input" " />"
 {-# INLINE input #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1085,7 +1085,7 @@
 --
 ins :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-ins = Parent "<ins" "</ins>"
+ins = Parent "ins" "<ins" "</ins>"
 {-# INLINE ins #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1103,7 +1103,7 @@
 --
 kbd :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-kbd = Parent "<kbd" "</kbd>"
+kbd = Parent "kbd" "<kbd" "</kbd>"
 {-# INLINE kbd #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1121,7 +1121,7 @@
 --
 keygen :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-keygen = Parent "<keygen" "</keygen>"
+keygen = Parent "keygen" "<keygen" "</keygen>"
 {-# INLINE keygen #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1139,7 +1139,7 @@
 --
 label :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-label = Parent "<label" "</label>"
+label = Parent "label" "<label" "</label>"
 {-# INLINE label #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1157,7 +1157,7 @@
 --
 legend :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-legend = Parent "<legend" "</legend>"
+legend = Parent "legend" "<legend" "</legend>"
 {-# INLINE legend #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1175,7 +1175,7 @@
 --
 li :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-li = Parent "<li" "</li>"
+li = Parent "li" "<li" "</li>"
 {-# INLINE li #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1192,7 +1192,7 @@
 -- > <link />
 --
 link :: Html  -- ^ Resulting HTML.
-link = Leaf "<link" " />"
+link = Leaf "link" "<link" " />"
 {-# INLINE link #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1210,7 +1210,7 @@
 --
 map :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-map = Parent "<map" "</map>"
+map = Parent "map" "<map" "</map>"
 {-# INLINE map #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1228,7 +1228,7 @@
 --
 mark :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-mark = Parent "<mark" "</mark>"
+mark = Parent "mark" "<mark" "</mark>"
 {-# INLINE mark #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1246,7 +1246,7 @@
 --
 menu :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-menu = Parent "<menu" "</menu>"
+menu = Parent "menu" "<menu" "</menu>"
 {-# INLINE menu #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1263,7 +1263,7 @@
 -- > <meta />
 --
 meta :: Html  -- ^ Resulting HTML.
-meta = Leaf "<meta" " />"
+meta = Leaf "meta" "<meta" " />"
 {-# INLINE meta #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1281,7 +1281,7 @@
 --
 meter :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-meter = Parent "<meter" "</meter>"
+meter = Parent "meter" "<meter" "</meter>"
 {-# INLINE meter #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1299,7 +1299,7 @@
 --
 nav :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-nav = Parent "<nav" "</nav>"
+nav = Parent "nav" "<nav" "</nav>"
 {-# INLINE nav #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1317,7 +1317,7 @@
 --
 noscript :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-noscript = Parent "<noscript" "</noscript>"
+noscript = Parent "noscript" "<noscript" "</noscript>"
 {-# INLINE noscript #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1335,7 +1335,7 @@
 --
 object :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-object = Parent "<object" "</object>"
+object = Parent "object" "<object" "</object>"
 {-# INLINE object #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1353,7 +1353,7 @@
 --
 ol :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-ol = Parent "<ol" "</ol>"
+ol = Parent "ol" "<ol" "</ol>"
 {-# INLINE ol #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1371,7 +1371,7 @@
 --
 optgroup :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-optgroup = Parent "<optgroup" "</optgroup>"
+optgroup = Parent "optgroup" "<optgroup" "</optgroup>"
 {-# INLINE optgroup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1389,7 +1389,7 @@
 --
 option :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-option = Parent "<option" "</option>"
+option = Parent "option" "<option" "</option>"
 {-# INLINE option #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1407,7 +1407,7 @@
 --
 output :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-output = Parent "<output" "</output>"
+output = Parent "output" "<output" "</output>"
 {-# INLINE output #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1425,7 +1425,7 @@
 --
 p :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-p = Parent "<p" "</p>"
+p = Parent "p" "<p" "</p>"
 {-# INLINE p #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1442,7 +1442,7 @@
 -- > <param />
 --
 param :: Html  -- ^ Resulting HTML.
-param = Leaf "<param" " />"
+param = Leaf "param" "<param" " />"
 {-# INLINE param #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1460,7 +1460,7 @@
 --
 pre :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-pre = Parent "<pre" "</pre>"
+pre = Parent "pre" "<pre" "</pre>"
 {-# INLINE pre #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1478,7 +1478,7 @@
 --
 progress :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-progress = Parent "<progress" "</progress>"
+progress = Parent "progress" "<progress" "</progress>"
 {-# INLINE progress #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1496,7 +1496,7 @@
 --
 q :: Html  -- ^ Inner HTML.
   -> Html  -- ^ Resulting HTML.
-q = Parent "<q" "</q>"
+q = Parent "q" "<q" "</q>"
 {-# INLINE q #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1514,7 +1514,7 @@
 --
 rp :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-rp = Parent "<rp" "</rp>"
+rp = Parent "rp" "<rp" "</rp>"
 {-# INLINE rp #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1532,7 +1532,7 @@
 --
 rt :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-rt = Parent "<rt" "</rt>"
+rt = Parent "rt" "<rt" "</rt>"
 {-# INLINE rt #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1550,7 +1550,7 @@
 --
 ruby :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-ruby = Parent "<ruby" "</ruby>"
+ruby = Parent "ruby" "<ruby" "</ruby>"
 {-# INLINE ruby #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1568,7 +1568,7 @@
 --
 samp :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-samp = Parent "<samp" "</samp>"
+samp = Parent "samp" "<samp" "</samp>"
 {-# INLINE samp #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1586,7 +1586,7 @@
 --
 script :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-script = Parent "<script" "</script>" . external
+script = Parent "script" "<script" "</script>" . external
 {-# INLINE script #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1604,7 +1604,7 @@
 --
 section :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-section = Parent "<section" "</section>"
+section = Parent "section" "<section" "</section>"
 {-# INLINE section #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1622,7 +1622,7 @@
 --
 select :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-select = Parent "<select" "</select>"
+select = Parent "select" "<select" "</select>"
 {-# INLINE select #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1640,7 +1640,7 @@
 --
 small :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-small = Parent "<small" "</small>"
+small = Parent "small" "<small" "</small>"
 {-# INLINE small #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1658,7 +1658,7 @@
 --
 source :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-source = Parent "<source" "</source>"
+source = Parent "source" "<source" "</source>"
 {-# INLINE source #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1676,7 +1676,7 @@
 --
 span :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-span = Parent "<span" "</span>"
+span = Parent "span" "<span" "</span>"
 {-# INLINE span #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1694,7 +1694,7 @@
 --
 strong :: Html  -- ^ Inner HTML.
        -> Html  -- ^ Resulting HTML.
-strong = Parent "<strong" "</strong>"
+strong = Parent "strong" "<strong" "</strong>"
 {-# INLINE strong #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1712,7 +1712,7 @@
 --
 style :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-style = Parent "<style" "</style>" . external
+style = Parent "style" "<style" "</style>" . external
 {-# INLINE style #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1730,7 +1730,7 @@
 --
 sub :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-sub = Parent "<sub" "</sub>"
+sub = Parent "sub" "<sub" "</sub>"
 {-# INLINE sub #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1748,7 +1748,7 @@
 --
 summary :: Html  -- ^ Inner HTML.
         -> Html  -- ^ Resulting HTML.
-summary = Parent "<summary" "</summary>"
+summary = Parent "summary" "<summary" "</summary>"
 {-# INLINE summary #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1766,7 +1766,7 @@
 --
 sup :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-sup = Parent "<sup" "</sup>"
+sup = Parent "sup" "<sup" "</sup>"
 {-# INLINE sup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1784,7 +1784,7 @@
 --
 table :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-table = Parent "<table" "</table>"
+table = Parent "table" "<table" "</table>"
 {-# INLINE table #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1802,7 +1802,7 @@
 --
 tbody :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-tbody = Parent "<tbody" "</tbody>"
+tbody = Parent "tbody" "<tbody" "</tbody>"
 {-# INLINE tbody #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1820,7 +1820,7 @@
 --
 td :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-td = Parent "<td" "</td>"
+td = Parent "td" "<td" "</td>"
 {-# INLINE td #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1838,7 +1838,7 @@
 --
 textarea :: Html  -- ^ Inner HTML.
          -> Html  -- ^ Resulting HTML.
-textarea = Parent "<textarea" "</textarea>"
+textarea = Parent "textarea" "<textarea" "</textarea>"
 {-# INLINE textarea #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1856,7 +1856,7 @@
 --
 tfoot :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-tfoot = Parent "<tfoot" "</tfoot>"
+tfoot = Parent "tfoot" "<tfoot" "</tfoot>"
 {-# INLINE tfoot #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1874,7 +1874,7 @@
 --
 th :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-th = Parent "<th" "</th>"
+th = Parent "th" "<th" "</th>"
 {-# INLINE th #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1892,7 +1892,7 @@
 --
 thead :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-thead = Parent "<thead" "</thead>"
+thead = Parent "thead" "<thead" "</thead>"
 {-# INLINE thead #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1910,7 +1910,7 @@
 --
 time :: Html  -- ^ Inner HTML.
      -> Html  -- ^ Resulting HTML.
-time = Parent "<time" "</time>"
+time = Parent "time" "<time" "</time>"
 {-# INLINE time #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1928,7 +1928,7 @@
 --
 title :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-title = Parent "<title" "</title>"
+title = Parent "title" "<title" "</title>"
 {-# INLINE title #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1946,7 +1946,7 @@
 --
 tr :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-tr = Parent "<tr" "</tr>"
+tr = Parent "tr" "<tr" "</tr>"
 {-# INLINE tr #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1964,7 +1964,7 @@
 --
 ul :: Html  -- ^ Inner HTML.
    -> Html  -- ^ Resulting HTML.
-ul = Parent "<ul" "</ul>"
+ul = Parent "ul" "<ul" "</ul>"
 {-# INLINE ul #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1982,7 +1982,7 @@
 --
 var :: Html  -- ^ Inner HTML.
     -> Html  -- ^ Resulting HTML.
-var = Parent "<var" "</var>"
+var = Parent "var" "<var" "</var>"
 {-# INLINE var #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2000,5 +2000,5 @@
 --
 video :: Html  -- ^ Inner HTML.
       -> Html  -- ^ Resulting HTML.
-video = Parent "<video" "</video>"
+video = Parent "video" "<video" "</video>"
 {-# INLINE video #-}
diff --git a/Text/Blaze/Html5/Attributes.hs b/Text/Blaze/Html5/Attributes.hs
--- a/Text/Blaze/Html5/Attributes.hs
+++ b/Text/Blaze/Html5/Attributes.hs
@@ -195,7 +195,7 @@
 --
 accept :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-accept = attribute " accept=\""
+accept = attribute "accept" " accept=\""
 {-# INLINE accept #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -213,7 +213,7 @@
 --
 acceptCharset :: AttributeValue  -- ^ Attribute value.
               -> Attribute       -- ^ Resulting attribute.
-acceptCharset = attribute " accept-charset=\""
+acceptCharset = attribute "accept-charset" " accept-charset=\""
 {-# INLINE acceptCharset #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -231,7 +231,7 @@
 --
 accesskey :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-accesskey = attribute " accesskey=\""
+accesskey = attribute "accesskey" " accesskey=\""
 {-# INLINE accesskey #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -249,7 +249,7 @@
 --
 action :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-action = attribute " action=\""
+action = attribute "action" " action=\""
 {-# INLINE action #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -267,7 +267,7 @@
 --
 alt :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-alt = attribute " alt=\""
+alt = attribute "alt" " alt=\""
 {-# INLINE alt #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -285,7 +285,7 @@
 --
 async :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-async = attribute " async=\""
+async = attribute "async" " async=\""
 {-# INLINE async #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -303,7 +303,7 @@
 --
 autocomplete :: AttributeValue  -- ^ Attribute value.
              -> Attribute       -- ^ Resulting attribute.
-autocomplete = attribute " autocomplete=\""
+autocomplete = attribute "autocomplete" " autocomplete=\""
 {-# INLINE autocomplete #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -321,7 +321,7 @@
 --
 autofocus :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-autofocus = attribute " autofocus=\""
+autofocus = attribute "autofocus" " autofocus=\""
 {-# INLINE autofocus #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -339,7 +339,7 @@
 --
 autoplay :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-autoplay = attribute " autoplay=\""
+autoplay = attribute "autoplay" " autoplay=\""
 {-# INLINE autoplay #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -357,7 +357,7 @@
 --
 challenge :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-challenge = attribute " challenge=\""
+challenge = attribute "challenge" " challenge=\""
 {-# INLINE challenge #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -375,7 +375,7 @@
 --
 charset :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-charset = attribute " charset=\""
+charset = attribute "charset" " charset=\""
 {-# INLINE charset #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -393,7 +393,7 @@
 --
 checked :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-checked = attribute " checked=\""
+checked = attribute "checked" " checked=\""
 {-# INLINE checked #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -411,7 +411,7 @@
 --
 cite :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-cite = attribute " cite=\""
+cite = attribute "cite" " cite=\""
 {-# INLINE cite #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -429,7 +429,7 @@
 --
 class_ :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-class_ = attribute " class=\""
+class_ = attribute "class" " class=\""
 {-# INLINE class_ #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -447,7 +447,7 @@
 --
 cols :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-cols = attribute " cols=\""
+cols = attribute "cols" " cols=\""
 {-# INLINE cols #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -465,7 +465,7 @@
 --
 colspan :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-colspan = attribute " colspan=\""
+colspan = attribute "colspan" " colspan=\""
 {-# INLINE colspan #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -483,7 +483,7 @@
 --
 content :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-content = attribute " content=\""
+content = attribute "content" " content=\""
 {-# INLINE content #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -501,7 +501,7 @@
 --
 contenteditable :: AttributeValue  -- ^ Attribute value.
                 -> Attribute       -- ^ Resulting attribute.
-contenteditable = attribute " contenteditable=\""
+contenteditable = attribute "contenteditable" " contenteditable=\""
 {-# INLINE contenteditable #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -519,7 +519,7 @@
 --
 contextmenu :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-contextmenu = attribute " contextmenu=\""
+contextmenu = attribute "contextmenu" " contextmenu=\""
 {-# INLINE contextmenu #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -537,7 +537,7 @@
 --
 controls :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-controls = attribute " controls=\""
+controls = attribute "controls" " controls=\""
 {-# INLINE controls #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -555,7 +555,7 @@
 --
 coords :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-coords = attribute " coords=\""
+coords = attribute "coords" " coords=\""
 {-# INLINE coords #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -573,7 +573,7 @@
 --
 data_ :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-data_ = attribute " data=\""
+data_ = attribute "data" " data=\""
 {-# INLINE data_ #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -591,7 +591,7 @@
 --
 datetime :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-datetime = attribute " datetime=\""
+datetime = attribute "datetime" " datetime=\""
 {-# INLINE datetime #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -609,7 +609,7 @@
 --
 defer :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-defer = attribute " defer=\""
+defer = attribute "defer" " defer=\""
 {-# INLINE defer #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -627,7 +627,7 @@
 --
 dir :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-dir = attribute " dir=\""
+dir = attribute "dir" " dir=\""
 {-# INLINE dir #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -645,7 +645,7 @@
 --
 disabled :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-disabled = attribute " disabled=\""
+disabled = attribute "disabled" " disabled=\""
 {-# INLINE disabled #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -663,7 +663,7 @@
 --
 draggable :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-draggable = attribute " draggable=\""
+draggable = attribute "draggable" " draggable=\""
 {-# INLINE draggable #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -681,7 +681,7 @@
 --
 enctype :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-enctype = attribute " enctype=\""
+enctype = attribute "enctype" " enctype=\""
 {-# INLINE enctype #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -699,7 +699,7 @@
 --
 for :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-for = attribute " for=\""
+for = attribute "for" " for=\""
 {-# INLINE for #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -717,7 +717,7 @@
 --
 form :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-form = attribute " form=\""
+form = attribute "form" " form=\""
 {-# INLINE form #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -735,7 +735,7 @@
 --
 formaction :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-formaction = attribute " formaction=\""
+formaction = attribute "formaction" " formaction=\""
 {-# INLINE formaction #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -753,7 +753,7 @@
 --
 formenctype :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-formenctype = attribute " formenctype=\""
+formenctype = attribute "formenctype" " formenctype=\""
 {-# INLINE formenctype #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -771,7 +771,7 @@
 --
 formmethod :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-formmethod = attribute " formmethod=\""
+formmethod = attribute "formmethod" " formmethod=\""
 {-# INLINE formmethod #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -789,7 +789,7 @@
 --
 formnovalidate :: AttributeValue  -- ^ Attribute value.
                -> Attribute       -- ^ Resulting attribute.
-formnovalidate = attribute " formnovalidate=\""
+formnovalidate = attribute "formnovalidate" " formnovalidate=\""
 {-# INLINE formnovalidate #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -807,7 +807,7 @@
 --
 formtarget :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-formtarget = attribute " formtarget=\""
+formtarget = attribute "formtarget" " formtarget=\""
 {-# INLINE formtarget #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -825,7 +825,7 @@
 --
 headers :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-headers = attribute " headers=\""
+headers = attribute "headers" " headers=\""
 {-# INLINE headers #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -843,7 +843,7 @@
 --
 height :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-height = attribute " height=\""
+height = attribute "height" " height=\""
 {-# INLINE height #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -861,7 +861,7 @@
 --
 hidden :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-hidden = attribute " hidden=\""
+hidden = attribute "hidden" " hidden=\""
 {-# INLINE hidden #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -879,7 +879,7 @@
 --
 high :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-high = attribute " high=\""
+high = attribute "high" " high=\""
 {-# INLINE high #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -897,7 +897,7 @@
 --
 href :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-href = attribute " href=\""
+href = attribute "href" " href=\""
 {-# INLINE href #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -915,7 +915,7 @@
 --
 hreflang :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-hreflang = attribute " hreflang=\""
+hreflang = attribute "hreflang" " hreflang=\""
 {-# INLINE hreflang #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -933,7 +933,7 @@
 --
 httpEquiv :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-httpEquiv = attribute " http-equiv=\""
+httpEquiv = attribute "http-equiv" " http-equiv=\""
 {-# INLINE httpEquiv #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -951,7 +951,7 @@
 --
 icon :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-icon = attribute " icon=\""
+icon = attribute "icon" " icon=\""
 {-# INLINE icon #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -969,7 +969,7 @@
 --
 id :: AttributeValue  -- ^ Attribute value.
    -> Attribute       -- ^ Resulting attribute.
-id = attribute " id=\""
+id = attribute "id" " id=\""
 {-# INLINE id #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -987,7 +987,7 @@
 --
 ismap :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-ismap = attribute " ismap=\""
+ismap = attribute "ismap" " ismap=\""
 {-# INLINE ismap #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1005,7 +1005,7 @@
 --
 item :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-item = attribute " item=\""
+item = attribute "item" " item=\""
 {-# INLINE item #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1023,7 +1023,7 @@
 --
 itemprop :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-itemprop = attribute " itemprop=\""
+itemprop = attribute "itemprop" " itemprop=\""
 {-# INLINE itemprop #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1041,7 +1041,7 @@
 --
 keytype :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-keytype = attribute " keytype=\""
+keytype = attribute "keytype" " keytype=\""
 {-# INLINE keytype #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1059,7 +1059,7 @@
 --
 label :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-label = attribute " label=\""
+label = attribute "label" " label=\""
 {-# INLINE label #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1077,7 +1077,7 @@
 --
 lang :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-lang = attribute " lang=\""
+lang = attribute "lang" " lang=\""
 {-# INLINE lang #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1095,7 +1095,7 @@
 --
 list :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-list = attribute " list=\""
+list = attribute "list" " list=\""
 {-# INLINE list #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1113,7 +1113,7 @@
 --
 loop :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-loop = attribute " loop=\""
+loop = attribute "loop" " loop=\""
 {-# INLINE loop #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1131,7 +1131,7 @@
 --
 low :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-low = attribute " low=\""
+low = attribute "low" " low=\""
 {-# INLINE low #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1149,7 +1149,7 @@
 --
 manifest :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-manifest = attribute " manifest=\""
+manifest = attribute "manifest" " manifest=\""
 {-# INLINE manifest #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1167,7 +1167,7 @@
 --
 max :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-max = attribute " max=\""
+max = attribute "max" " max=\""
 {-# INLINE max #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1185,7 +1185,7 @@
 --
 maxlength :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-maxlength = attribute " maxlength=\""
+maxlength = attribute "maxlength" " maxlength=\""
 {-# INLINE maxlength #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1203,7 +1203,7 @@
 --
 media :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-media = attribute " media=\""
+media = attribute "media" " media=\""
 {-# INLINE media #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1221,7 +1221,7 @@
 --
 method :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-method = attribute " method=\""
+method = attribute "method" " method=\""
 {-# INLINE method #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1239,7 +1239,7 @@
 --
 min :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-min = attribute " min=\""
+min = attribute "min" " min=\""
 {-# INLINE min #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1257,7 +1257,7 @@
 --
 multiple :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-multiple = attribute " multiple=\""
+multiple = attribute "multiple" " multiple=\""
 {-# INLINE multiple #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1275,7 +1275,7 @@
 --
 name :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-name = attribute " name=\""
+name = attribute "name" " name=\""
 {-# INLINE name #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1293,7 +1293,7 @@
 --
 novalidate :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-novalidate = attribute " novalidate=\""
+novalidate = attribute "novalidate" " novalidate=\""
 {-# INLINE novalidate #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1311,7 +1311,7 @@
 --
 onbeforeonload :: AttributeValue  -- ^ Attribute value.
                -> Attribute       -- ^ Resulting attribute.
-onbeforeonload = attribute " onbeforeonload=\""
+onbeforeonload = attribute "onbeforeonload" " onbeforeonload=\""
 {-# INLINE onbeforeonload #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1329,7 +1329,7 @@
 --
 onbeforeprint :: AttributeValue  -- ^ Attribute value.
               -> Attribute       -- ^ Resulting attribute.
-onbeforeprint = attribute " onbeforeprint=\""
+onbeforeprint = attribute "onbeforeprint" " onbeforeprint=\""
 {-# INLINE onbeforeprint #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1347,7 +1347,7 @@
 --
 oncanplay :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-oncanplay = attribute " oncanplay=\""
+oncanplay = attribute "oncanplay" " oncanplay=\""
 {-# INLINE oncanplay #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1365,7 +1365,7 @@
 --
 oncanplaythrough :: AttributeValue  -- ^ Attribute value.
                  -> Attribute       -- ^ Resulting attribute.
-oncanplaythrough = attribute " oncanplaythrough=\""
+oncanplaythrough = attribute "oncanplaythrough" " oncanplaythrough=\""
 {-# INLINE oncanplaythrough #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1383,7 +1383,7 @@
 --
 onchange :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onchange = attribute " onchange=\""
+onchange = attribute "onchange" " onchange=\""
 {-# INLINE onchange #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1401,7 +1401,7 @@
 --
 onclick :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onclick = attribute " onclick=\""
+onclick = attribute "onclick" " onclick=\""
 {-# INLINE onclick #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1419,7 +1419,7 @@
 --
 oncontextmenu :: AttributeValue  -- ^ Attribute value.
               -> Attribute       -- ^ Resulting attribute.
-oncontextmenu = attribute " oncontextmenu=\""
+oncontextmenu = attribute "oncontextmenu" " oncontextmenu=\""
 {-# INLINE oncontextmenu #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1437,7 +1437,7 @@
 --
 ondblclick :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-ondblclick = attribute " ondblclick=\""
+ondblclick = attribute "ondblclick" " ondblclick=\""
 {-# INLINE ondblclick #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1455,7 +1455,7 @@
 --
 ondrag :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-ondrag = attribute " ondrag=\""
+ondrag = attribute "ondrag" " ondrag=\""
 {-# INLINE ondrag #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1473,7 +1473,7 @@
 --
 ondragend :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-ondragend = attribute " ondragend=\""
+ondragend = attribute "ondragend" " ondragend=\""
 {-# INLINE ondragend #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1491,7 +1491,7 @@
 --
 ondragenter :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-ondragenter = attribute " ondragenter=\""
+ondragenter = attribute "ondragenter" " ondragenter=\""
 {-# INLINE ondragenter #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1509,7 +1509,7 @@
 --
 ondragleave :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-ondragleave = attribute " ondragleave=\""
+ondragleave = attribute "ondragleave" " ondragleave=\""
 {-# INLINE ondragleave #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1527,7 +1527,7 @@
 --
 ondragover :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-ondragover = attribute " ondragover=\""
+ondragover = attribute "ondragover" " ondragover=\""
 {-# INLINE ondragover #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1545,7 +1545,7 @@
 --
 ondragstart :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-ondragstart = attribute " ondragstart=\""
+ondragstart = attribute "ondragstart" " ondragstart=\""
 {-# INLINE ondragstart #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1563,7 +1563,7 @@
 --
 ondrop :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-ondrop = attribute " ondrop=\""
+ondrop = attribute "ondrop" " ondrop=\""
 {-# INLINE ondrop #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1581,7 +1581,7 @@
 --
 ondurationchange :: AttributeValue  -- ^ Attribute value.
                  -> Attribute       -- ^ Resulting attribute.
-ondurationchange = attribute " ondurationchange=\""
+ondurationchange = attribute "ondurationchange" " ondurationchange=\""
 {-# INLINE ondurationchange #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1599,7 +1599,7 @@
 --
 onemptied :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onemptied = attribute " onemptied=\""
+onemptied = attribute "onemptied" " onemptied=\""
 {-# INLINE onemptied #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1617,7 +1617,7 @@
 --
 onended :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onended = attribute " onended=\""
+onended = attribute "onended" " onended=\""
 {-# INLINE onended #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1635,7 +1635,7 @@
 --
 onerror :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onerror = attribute " onerror=\""
+onerror = attribute "onerror" " onerror=\""
 {-# INLINE onerror #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1653,7 +1653,7 @@
 --
 onfocus :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onfocus = attribute " onfocus=\""
+onfocus = attribute "onfocus" " onfocus=\""
 {-# INLINE onfocus #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1671,7 +1671,7 @@
 --
 onformchange :: AttributeValue  -- ^ Attribute value.
              -> Attribute       -- ^ Resulting attribute.
-onformchange = attribute " onformchange=\""
+onformchange = attribute "onformchange" " onformchange=\""
 {-# INLINE onformchange #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1689,7 +1689,7 @@
 --
 onforminput :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onforminput = attribute " onforminput=\""
+onforminput = attribute "onforminput" " onforminput=\""
 {-# INLINE onforminput #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1707,7 +1707,7 @@
 --
 onhaschange :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onhaschange = attribute " onhaschange=\""
+onhaschange = attribute "onhaschange" " onhaschange=\""
 {-# INLINE onhaschange #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1725,7 +1725,7 @@
 --
 oninput :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-oninput = attribute " oninput=\""
+oninput = attribute "oninput" " oninput=\""
 {-# INLINE oninput #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1743,7 +1743,7 @@
 --
 oninvalid :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-oninvalid = attribute " oninvalid=\""
+oninvalid = attribute "oninvalid" " oninvalid=\""
 {-# INLINE oninvalid #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1761,7 +1761,7 @@
 --
 onkeydown :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onkeydown = attribute " onkeydown=\""
+onkeydown = attribute "onkeydown" " onkeydown=\""
 {-# INLINE onkeydown #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1779,7 +1779,7 @@
 --
 onkeyup :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onkeyup = attribute " onkeyup=\""
+onkeyup = attribute "onkeyup" " onkeyup=\""
 {-# INLINE onkeyup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1797,7 +1797,7 @@
 --
 onload :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-onload = attribute " onload=\""
+onload = attribute "onload" " onload=\""
 {-# INLINE onload #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1815,7 +1815,7 @@
 --
 onloadeddata :: AttributeValue  -- ^ Attribute value.
              -> Attribute       -- ^ Resulting attribute.
-onloadeddata = attribute " onloadeddata=\""
+onloadeddata = attribute "onloadeddata" " onloadeddata=\""
 {-# INLINE onloadeddata #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1833,7 +1833,7 @@
 --
 onloadedmetadata :: AttributeValue  -- ^ Attribute value.
                  -> Attribute       -- ^ Resulting attribute.
-onloadedmetadata = attribute " onloadedmetadata=\""
+onloadedmetadata = attribute "onloadedmetadata" " onloadedmetadata=\""
 {-# INLINE onloadedmetadata #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1851,7 +1851,7 @@
 --
 onloadstart :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onloadstart = attribute " onloadstart=\""
+onloadstart = attribute "onloadstart" " onloadstart=\""
 {-# INLINE onloadstart #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1869,7 +1869,7 @@
 --
 onmessage :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onmessage = attribute " onmessage=\""
+onmessage = attribute "onmessage" " onmessage=\""
 {-# INLINE onmessage #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1887,7 +1887,7 @@
 --
 onmousedown :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onmousedown = attribute " onmousedown=\""
+onmousedown = attribute "onmousedown" " onmousedown=\""
 {-# INLINE onmousedown #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1905,7 +1905,7 @@
 --
 onmousemove :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onmousemove = attribute " onmousemove=\""
+onmousemove = attribute "onmousemove" " onmousemove=\""
 {-# INLINE onmousemove #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1923,7 +1923,7 @@
 --
 onmouseout :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-onmouseout = attribute " onmouseout=\""
+onmouseout = attribute "onmouseout" " onmouseout=\""
 {-# INLINE onmouseout #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1941,7 +1941,7 @@
 --
 onmouseover :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onmouseover = attribute " onmouseover=\""
+onmouseover = attribute "onmouseover" " onmouseover=\""
 {-# INLINE onmouseover #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1959,7 +1959,7 @@
 --
 onmouseup :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onmouseup = attribute " onmouseup=\""
+onmouseup = attribute "onmouseup" " onmouseup=\""
 {-# INLINE onmouseup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1977,7 +1977,7 @@
 --
 onmousewheel :: AttributeValue  -- ^ Attribute value.
              -> Attribute       -- ^ Resulting attribute.
-onmousewheel = attribute " onmousewheel=\""
+onmousewheel = attribute "onmousewheel" " onmousewheel=\""
 {-# INLINE onmousewheel #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -1995,7 +1995,7 @@
 --
 ononline :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-ononline = attribute " ononline=\""
+ononline = attribute "ononline" " ononline=\""
 {-# INLINE ononline #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2013,7 +2013,7 @@
 --
 onpagehide :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-onpagehide = attribute " onpagehide=\""
+onpagehide = attribute "onpagehide" " onpagehide=\""
 {-# INLINE onpagehide #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2031,7 +2031,7 @@
 --
 onpageshow :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-onpageshow = attribute " onpageshow=\""
+onpageshow = attribute "onpageshow" " onpageshow=\""
 {-# INLINE onpageshow #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2049,7 +2049,7 @@
 --
 onpause :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-onpause = attribute " onpause=\""
+onpause = attribute "onpause" " onpause=\""
 {-# INLINE onpause #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2067,7 +2067,7 @@
 --
 onplay :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-onplay = attribute " onplay=\""
+onplay = attribute "onplay" " onplay=\""
 {-# INLINE onplay #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2085,7 +2085,7 @@
 --
 onplaying :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onplaying = attribute " onplaying=\""
+onplaying = attribute "onplaying" " onplaying=\""
 {-# INLINE onplaying #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2103,7 +2103,7 @@
 --
 onprogress :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-onprogress = attribute " onprogress=\""
+onprogress = attribute "onprogress" " onprogress=\""
 {-# INLINE onprogress #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2121,7 +2121,7 @@
 --
 onpropstate :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-onpropstate = attribute " onpropstate=\""
+onpropstate = attribute "onpropstate" " onpropstate=\""
 {-# INLINE onpropstate #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2139,7 +2139,7 @@
 --
 onratechange :: AttributeValue  -- ^ Attribute value.
              -> Attribute       -- ^ Resulting attribute.
-onratechange = attribute " onratechange=\""
+onratechange = attribute "onratechange" " onratechange=\""
 {-# INLINE onratechange #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2157,7 +2157,7 @@
 --
 onreadystatechange :: AttributeValue  -- ^ Attribute value.
                    -> Attribute       -- ^ Resulting attribute.
-onreadystatechange = attribute " onreadystatechange=\""
+onreadystatechange = attribute "onreadystatechange" " onreadystatechange=\""
 {-# INLINE onreadystatechange #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2175,7 +2175,7 @@
 --
 onredo :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-onredo = attribute " onredo=\""
+onredo = attribute "onredo" " onredo=\""
 {-# INLINE onredo #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2193,7 +2193,7 @@
 --
 onresize :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onresize = attribute " onresize=\""
+onresize = attribute "onresize" " onresize=\""
 {-# INLINE onresize #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2211,7 +2211,7 @@
 --
 onscroll :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onscroll = attribute " onscroll=\""
+onscroll = attribute "onscroll" " onscroll=\""
 {-# INLINE onscroll #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2229,7 +2229,7 @@
 --
 onseeked :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onseeked = attribute " onseeked=\""
+onseeked = attribute "onseeked" " onseeked=\""
 {-# INLINE onseeked #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2247,7 +2247,7 @@
 --
 onseeking :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onseeking = attribute " onseeking=\""
+onseeking = attribute "onseeking" " onseeking=\""
 {-# INLINE onseeking #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2265,7 +2265,7 @@
 --
 onselect :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onselect = attribute " onselect=\""
+onselect = attribute "onselect" " onselect=\""
 {-# INLINE onselect #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2283,7 +2283,7 @@
 --
 onstalled :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onstalled = attribute " onstalled=\""
+onstalled = attribute "onstalled" " onstalled=\""
 {-# INLINE onstalled #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2301,7 +2301,7 @@
 --
 onstorage :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onstorage = attribute " onstorage=\""
+onstorage = attribute "onstorage" " onstorage=\""
 {-# INLINE onstorage #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2319,7 +2319,7 @@
 --
 onsubmit :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onsubmit = attribute " onsubmit=\""
+onsubmit = attribute "onsubmit" " onsubmit=\""
 {-# INLINE onsubmit #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2337,7 +2337,7 @@
 --
 onsuspend :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onsuspend = attribute " onsuspend=\""
+onsuspend = attribute "onsuspend" " onsuspend=\""
 {-# INLINE onsuspend #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2355,7 +2355,7 @@
 --
 ontimeupdate :: AttributeValue  -- ^ Attribute value.
              -> Attribute       -- ^ Resulting attribute.
-ontimeupdate = attribute " ontimeupdate=\""
+ontimeupdate = attribute "ontimeupdate" " ontimeupdate=\""
 {-# INLINE ontimeupdate #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2373,7 +2373,7 @@
 --
 onundo :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-onundo = attribute " onundo=\""
+onundo = attribute "onundo" " onundo=\""
 {-# INLINE onundo #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2391,7 +2391,7 @@
 --
 onunload :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-onunload = attribute " onunload=\""
+onunload = attribute "onunload" " onunload=\""
 {-# INLINE onunload #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2409,7 +2409,7 @@
 --
 onvolumechange :: AttributeValue  -- ^ Attribute value.
                -> Attribute       -- ^ Resulting attribute.
-onvolumechange = attribute " onvolumechange=\""
+onvolumechange = attribute "onvolumechange" " onvolumechange=\""
 {-# INLINE onvolumechange #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2427,7 +2427,7 @@
 --
 onwaiting :: AttributeValue  -- ^ Attribute value.
           -> Attribute       -- ^ Resulting attribute.
-onwaiting = attribute " onwaiting=\""
+onwaiting = attribute "onwaiting" " onwaiting=\""
 {-# INLINE onwaiting #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2445,7 +2445,7 @@
 --
 open :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-open = attribute " open=\""
+open = attribute "open" " open=\""
 {-# INLINE open #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2463,7 +2463,7 @@
 --
 optimum :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-optimum = attribute " optimum=\""
+optimum = attribute "optimum" " optimum=\""
 {-# INLINE optimum #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2481,7 +2481,7 @@
 --
 pattern :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-pattern = attribute " pattern=\""
+pattern = attribute "pattern" " pattern=\""
 {-# INLINE pattern #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2499,7 +2499,7 @@
 --
 ping :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-ping = attribute " ping=\""
+ping = attribute "ping" " ping=\""
 {-# INLINE ping #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2517,7 +2517,7 @@
 --
 placeholder :: AttributeValue  -- ^ Attribute value.
             -> Attribute       -- ^ Resulting attribute.
-placeholder = attribute " placeholder=\""
+placeholder = attribute "placeholder" " placeholder=\""
 {-# INLINE placeholder #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2535,7 +2535,7 @@
 --
 preload :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-preload = attribute " preload=\""
+preload = attribute "preload" " preload=\""
 {-# INLINE preload #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2553,7 +2553,7 @@
 --
 pubdate :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-pubdate = attribute " pubdate=\""
+pubdate = attribute "pubdate" " pubdate=\""
 {-# INLINE pubdate #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2571,7 +2571,7 @@
 --
 radiogroup :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-radiogroup = attribute " radiogroup=\""
+radiogroup = attribute "radiogroup" " radiogroup=\""
 {-# INLINE radiogroup #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2589,7 +2589,7 @@
 --
 readonly :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-readonly = attribute " readonly=\""
+readonly = attribute "readonly" " readonly=\""
 {-# INLINE readonly #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2607,7 +2607,7 @@
 --
 rel :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-rel = attribute " rel=\""
+rel = attribute "rel" " rel=\""
 {-# INLINE rel #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2625,7 +2625,7 @@
 --
 required :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-required = attribute " required=\""
+required = attribute "required" " required=\""
 {-# INLINE required #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2643,7 +2643,7 @@
 --
 reversed :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-reversed = attribute " reversed=\""
+reversed = attribute "reversed" " reversed=\""
 {-# INLINE reversed #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2661,7 +2661,7 @@
 --
 rows :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-rows = attribute " rows=\""
+rows = attribute "rows" " rows=\""
 {-# INLINE rows #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2679,7 +2679,7 @@
 --
 rowspan :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-rowspan = attribute " rowspan=\""
+rowspan = attribute "rowspan" " rowspan=\""
 {-# INLINE rowspan #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2697,7 +2697,7 @@
 --
 sandbox :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-sandbox = attribute " sandbox=\""
+sandbox = attribute "sandbox" " sandbox=\""
 {-# INLINE sandbox #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2715,7 +2715,7 @@
 --
 scope :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-scope = attribute " scope=\""
+scope = attribute "scope" " scope=\""
 {-# INLINE scope #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2733,7 +2733,7 @@
 --
 scoped :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-scoped = attribute " scoped=\""
+scoped = attribute "scoped" " scoped=\""
 {-# INLINE scoped #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2751,7 +2751,7 @@
 --
 seamless :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-seamless = attribute " seamless=\""
+seamless = attribute "seamless" " seamless=\""
 {-# INLINE seamless #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2769,7 +2769,7 @@
 --
 selected :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-selected = attribute " selected=\""
+selected = attribute "selected" " selected=\""
 {-# INLINE selected #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2787,7 +2787,7 @@
 --
 shape :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-shape = attribute " shape=\""
+shape = attribute "shape" " shape=\""
 {-# INLINE shape #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2805,7 +2805,7 @@
 --
 size :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-size = attribute " size=\""
+size = attribute "size" " size=\""
 {-# INLINE size #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2823,7 +2823,7 @@
 --
 sizes :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-sizes = attribute " sizes=\""
+sizes = attribute "sizes" " sizes=\""
 {-# INLINE sizes #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2841,7 +2841,7 @@
 --
 span :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-span = attribute " span=\""
+span = attribute "span" " span=\""
 {-# INLINE span #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2859,7 +2859,7 @@
 --
 spellcheck :: AttributeValue  -- ^ Attribute value.
            -> Attribute       -- ^ Resulting attribute.
-spellcheck = attribute " spellcheck=\""
+spellcheck = attribute "spellcheck" " spellcheck=\""
 {-# INLINE spellcheck #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2877,7 +2877,7 @@
 --
 src :: AttributeValue  -- ^ Attribute value.
     -> Attribute       -- ^ Resulting attribute.
-src = attribute " src=\""
+src = attribute "src" " src=\""
 {-# INLINE src #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2895,7 +2895,7 @@
 --
 srcdoc :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-srcdoc = attribute " srcdoc=\""
+srcdoc = attribute "srcdoc" " srcdoc=\""
 {-# INLINE srcdoc #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2913,7 +2913,7 @@
 --
 start :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-start = attribute " start=\""
+start = attribute "start" " start=\""
 {-# INLINE start #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2931,7 +2931,7 @@
 --
 step :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-step = attribute " step=\""
+step = attribute "step" " step=\""
 {-# INLINE step #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2949,7 +2949,7 @@
 --
 style :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-style = attribute " style=\""
+style = attribute "style" " style=\""
 {-# INLINE style #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2967,7 +2967,7 @@
 --
 subject :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-subject = attribute " subject=\""
+subject = attribute "subject" " subject=\""
 {-# INLINE subject #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -2985,7 +2985,7 @@
 --
 summary :: AttributeValue  -- ^ Attribute value.
         -> Attribute       -- ^ Resulting attribute.
-summary = attribute " summary=\""
+summary = attribute "summary" " summary=\""
 {-# INLINE summary #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -3003,7 +3003,7 @@
 --
 tabindex :: AttributeValue  -- ^ Attribute value.
          -> Attribute       -- ^ Resulting attribute.
-tabindex = attribute " tabindex=\""
+tabindex = attribute "tabindex" " tabindex=\""
 {-# INLINE tabindex #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -3021,7 +3021,7 @@
 --
 target :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-target = attribute " target=\""
+target = attribute "target" " target=\""
 {-# INLINE target #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -3039,7 +3039,7 @@
 --
 title :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-title = attribute " title=\""
+title = attribute "title" " title=\""
 {-# INLINE title #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -3057,7 +3057,7 @@
 --
 type_ :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-type_ = attribute " type=\""
+type_ = attribute "type" " type=\""
 {-# INLINE type_ #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -3075,7 +3075,7 @@
 --
 usemap :: AttributeValue  -- ^ Attribute value.
        -> Attribute       -- ^ Resulting attribute.
-usemap = attribute " usemap=\""
+usemap = attribute "usemap" " usemap=\""
 {-# INLINE usemap #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -3093,7 +3093,7 @@
 --
 value :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-value = attribute " value=\""
+value = attribute "value" " value=\""
 {-# INLINE value #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -3111,7 +3111,7 @@
 --
 width :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-width = attribute " width=\""
+width = attribute "width" " width=\""
 {-# INLINE width #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -3129,7 +3129,7 @@
 --
 wrap :: AttributeValue  -- ^ Attribute value.
      -> Attribute       -- ^ Resulting attribute.
-wrap = attribute " wrap=\""
+wrap = attribute "wrap" " wrap=\""
 {-# INLINE wrap #-}
 
 -- WARNING: The next block of code was automatically generated by
@@ -3147,5 +3147,5 @@
 --
 xmlns :: AttributeValue  -- ^ Attribute value.
       -> Attribute       -- ^ Resulting attribute.
-xmlns = attribute " xmlns=\""
+xmlns = attribute "xmlns" " xmlns=\""
 {-# INLINE xmlns #-}
diff --git a/Text/Blaze/Internal.hs b/Text/Blaze/Internal.hs
--- a/Text/Blaze/Internal.hs
+++ b/Text/Blaze/Internal.hs
@@ -4,6 +4,9 @@
 -- generate custom HTML elements. It also offers user-centric functions, which
 -- are exposed through 'Text.Blaze'.
 --
+-- While this module is exported, usage of it is not recommended, unless you
+-- know what you are doing. This module might undergo changes at any time.
+--
 module Text.Blaze.Internal
     (
       -- * Important types.
@@ -109,19 +112,19 @@
 -- | The core HTML datatype.
 --
 data HtmlM a
-    -- | Open tag, end tag, content
-    = forall b. Parent StaticString StaticString (HtmlM b)
-    -- | Open tag, end tag
-    | Leaf StaticString StaticString
+    -- | Tag, open tag, end tag, content
+    = forall b. Parent StaticString StaticString StaticString (HtmlM b)
+    -- | Tag, open tag, end tag
+    | Leaf StaticString StaticString StaticString
     -- | HTML content
     | Content ChoiceString
     -- | Concatenation of two HTML pieces
     | forall b c. Append (HtmlM b) (HtmlM c)
-    -- | Add an attribute to the inner HTML. Key, value, HTML to receive the
-    -- attribute.
-    | AddAttribute StaticString ChoiceString (HtmlM a)
+    -- | Add an attribute to the inner HTML. Raw key, key, value, HTML to
+    -- receive the attribute.
+    | AddAttribute StaticString StaticString ChoiceString (HtmlM a)
     -- | Add a custom attribute to the inner HTML.
-    | AddCustomAttribute ChoiceString ChoiceString (HtmlM a)
+    | AddCustomAttribute ChoiceString ChoiceString ChoiceString (HtmlM a)
     -- | Empty HTML.
     | Empty
 
@@ -167,11 +170,12 @@
 -- | Create an HTML attribute that can be applied to an HTML element later using
 -- the '!' operator.
 --
-attribute :: Tag             -- ^ Shared key string for the HTML attribute.
+attribute :: Tag             -- ^ Raw key
+          -> Tag             -- ^ Shared key string for the HTML attribute.
           -> AttributeValue  -- ^ Value for the HTML attribute.
           -> Attribute       -- ^ Resulting HTML attribute.
-attribute key value = Attribute $
-    AddAttribute (unTag key) (unAttributeValue value)
+attribute rawKey key value = Attribute $
+    AddAttribute (unTag rawKey) (unTag key) (unAttributeValue value)
 {-# INLINE attribute #-}
 
 -- | From HTML 5 onwards, the user is able to specify custom data attributes.
@@ -189,6 +193,7 @@
               -> AttributeValue  -- ^ Value for the attribute.
               -> Attribute       -- ^ Resulting HTML attribute.
 dataAttribute tag value = Attribute $ AddCustomAttribute
+    (Static "data-" `mappend` Static (unTag tag))
     (Static " data-" `mappend` Static (unTag tag) `mappend` Static "=\"")
     (unAttributeValue value)
 {-# INLINE dataAttribute #-}
@@ -208,6 +213,7 @@
                 -> AttributeValue  -- ^ Value for the attribute
                 -> Attribute       -- ^ Resulting HTML attribtue
 customAttribute tag value = Attribute $ AddCustomAttribute
+    (Static $ unTag tag)
     (Static " " `mappend` Static (unTag tag) `mappend` Static "=\"")
     (unAttributeValue value)
 {-# INLINE customAttribute #-}
@@ -384,8 +390,8 @@
 external :: HtmlM a -> HtmlM a
 external (Content x) = Content $ External x
 external (Append x y) = Append (external x) (external y)
-external (Parent x y z) = Parent x y $ external z
-external (AddAttribute x y z) = AddAttribute x y $ external z
-external (AddCustomAttribute x y z) = AddCustomAttribute x y $ external z
+external (Parent x y z i) = Parent x y z $ external i
+external (AddAttribute x y z i) = AddAttribute x y z $ external i
+external (AddCustomAttribute x y z i) = AddCustomAttribute x y z $ external i
 external x = x
 {-# INLINE external #-}
diff --git a/Text/Blaze/Renderer/Pretty.hs b/Text/Blaze/Renderer/Pretty.hs
--- a/Text/Blaze/Renderer/Pretty.hs
+++ b/Text/Blaze/Renderer/Pretty.hs
@@ -15,14 +15,14 @@
 renderString = go 0 id
   where
     go :: Int -> (String -> String) -> HtmlM b -> String -> String
-    go i attrs (Parent open close content) =
+    go i attrs (Parent _ open close content) =
         ind i . getString open . attrs . (">\n" ++) . go (inc i) id content
               . ind i . getString close .  ('\n' :)
-    go i attrs (Leaf begin end) =
+    go i attrs (Leaf _ begin end) =
         ind i . getString begin . attrs . getString end . ('\n' :)
-    go i attrs (AddAttribute key value h) = flip (go i) h $
+    go i attrs (AddAttribute _ key value h) = flip (go i) h $
         getString key . fromChoiceString value . ('"' :) . attrs
-    go i attrs (AddCustomAttribute key value h) = flip (go i) h $
+    go i attrs (AddCustomAttribute _ key value h) = flip (go i) h $
         fromChoiceString key . fromChoiceString value . ('"' :) . attrs
     go i _ (Content content) = ind i . fromChoiceString content . ('\n' :)
     go i attrs (Append h1 h2) = go i attrs h1 . go i attrs h2
diff --git a/Text/Blaze/Renderer/String.hs b/Text/Blaze/Renderer/String.hs
--- a/Text/Blaze/Renderer/String.hs
+++ b/Text/Blaze/Renderer/String.hs
@@ -61,12 +61,12 @@
 renderString = go id 
   where
     go :: (String -> String) -> HtmlM b -> String -> String
-    go attrs (Parent open close content) =
+    go attrs (Parent _ open close content) =
         getString open . attrs . ('>' :) . go id content . getString close
-    go attrs (Leaf begin end) = getString begin . attrs . getString end
-    go attrs (AddAttribute key value h) = flip go h $
+    go attrs (Leaf _ begin end) = getString begin . attrs . getString end
+    go attrs (AddAttribute _ key value h) = flip go h $
         getString key . fromChoiceString value . ('"' :) . attrs
-    go attrs (AddCustomAttribute key value h) = flip go h $
+    go attrs (AddCustomAttribute _ key value h) = flip go h $
         fromChoiceString key . fromChoiceString value . ('"' :) . attrs
     go _ (Content content) = fromChoiceString content
     go attrs (Append h1 h2) = go attrs h1 . go attrs h2
diff --git a/Text/Blaze/Renderer/Text.hs b/Text/Blaze/Renderer/Text.hs
--- a/Text/Blaze/Renderer/Text.hs
+++ b/Text/Blaze/Renderer/Text.hs
@@ -67,22 +67,22 @@
 renderBuilder d = go mempty 
   where
     go :: Builder -> HtmlM b -> Builder
-    go attrs (Parent open close content) =
+    go attrs (Parent _ open close content) =
         B.fromText (getText open)
             `mappend` attrs
             `mappend` B.singleton '>'
             `mappend` go mempty content
             `mappend` B.fromText (getText close)
-    go attrs (Leaf begin end) = 
+    go attrs (Leaf _ begin end) = 
         B.fromText (getText begin)
             `mappend` attrs
             `mappend` B.fromText (getText end)
-    go attrs (AddAttribute key value h) =
+    go attrs (AddAttribute _ key value h) =
         go (B.fromText (getText key)
             `mappend` fromChoiceString d value
             `mappend` B.singleton '"'
             `mappend` attrs) h
-    go attrs (AddCustomAttribute key value h) =
+    go attrs (AddCustomAttribute _ key value h) =
         go (fromChoiceString d key
             `mappend` fromChoiceString d value
             `mappend` B.singleton '"'
diff --git a/Text/Blaze/Renderer/Utf8.hs b/Text/Blaze/Renderer/Utf8.hs
--- a/Text/Blaze/Renderer/Utf8.hs
+++ b/Text/Blaze/Renderer/Utf8.hs
@@ -47,22 +47,22 @@
 renderHtmlBuilder = go mempty
   where
     go :: Builder -> HtmlM b -> Builder
-    go attrs (Parent open close content) =
+    go attrs (Parent _ open close content) =
         B.copyByteString (getUtf8ByteString open)
             `mappend` attrs
             `mappend` B.fromChar '>'
             `mappend` go mempty content
             `mappend` B.copyByteString (getUtf8ByteString close)
-    go attrs (Leaf begin end) =
+    go attrs (Leaf _ begin end) =
         B.copyByteString (getUtf8ByteString begin)
             `mappend` attrs
             `mappend` B.copyByteString (getUtf8ByteString end)
-    go attrs (AddAttribute key value h) =
+    go attrs (AddAttribute _ key value h) =
         go (B.copyByteString (getUtf8ByteString key)
             `mappend` fromChoiceString value
             `mappend` B.fromChar '"'
             `mappend` attrs) h
-    go attrs (AddCustomAttribute key value h) =
+    go attrs (AddCustomAttribute _ key value h) =
         go (fromChoiceString key
             `mappend` fromChoiceString value
             `mappend` B.fromChar '"'
diff --git a/blaze-html.cabal b/blaze-html.cabal
--- a/blaze-html.cabal
+++ b/blaze-html.cabal
@@ -7,7 +7,7 @@
 -- The package version. See the Haskell package versioning policy
 -- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for
 -- standards guiding when and how versions should be incremented.
-Version:             0.3.1.0
+Version:             0.3.2.0
 
 -- A short (one-line) description of the package.
 Synopsis:            A blazingly fast HTML combinator library.
@@ -60,6 +60,7 @@
 
   -- Modules exported by the library.
   Exposed-modules:   Text.Blaze
+                     Text.Blaze.Internal
                      Text.Blaze.Html4.FrameSet
                      Text.Blaze.Html4.FrameSet.Attributes
                      Text.Blaze.Html4.Strict
@@ -78,6 +79,3 @@
                      text >= 0.10,
                      bytestring >= 0.9,
                      blaze-builder == 0.2.* && >= 0.2.1
-  
-  -- Modules not exported by this package.
-  Other-modules:     Text.Blaze.Internal