Adds <u> parent tag to HTML5.

jaspervdj · Jun 10, 2018 · 08c883d · 08c883d
1 parent 0f72035
commit 08c883d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/Util/GenerateHtmlCombinators.hs b/src/Util/GenerateHtmlCombinators.hs
@@ -412,7 +412,7 @@ html5 = HtmlVariant
         , "pre", "progress", "q", "rp", "rt", "ruby", "samp", "script"
         , "section", "select", "small", "span", "strong", "style", "sub"
         , "summary", "sup", "table", "tbody", "td", "textarea", "tfoot", "th"
-        , "thead", "time", "title", "tr", "ul", "var", "video"
+        , "thead", "time", "title", "tr", "u", "ul", "var", "video"
         ]
     , leafs =
         -- http://www.whatwg.org/specs/web-apps/current-work/multipage/syntax.html#void-elements

diff --git a/tests/Text/Blaze/Html/Tests.hs b/tests/Text/Blaze/Html/Tests.hs
@@ -57,6 +57,8 @@ tests = concatMap (uncurry makeTests) $ zip names
 
     , HtmlTest "<img src=\"&amp;\">" $ img ! src "&"
 
+    , HtmlTest "<u>hello</u>" $ H.u "hello"
+
     -- Pre-escaping cases
     , HtmlTest "<3 Haskell" $ preEscapedToMarkup ("<3 Haskell" :: String)