Added the tabindex attribute to every <pre> tag.

diff --git a/src/Sanitize.hs b/src/Sanitize.hs
index 734939f..b06c203 100644 (file)
--- a/src/Sanitize.hs
+++ b/src/Sanitize.hs
@@ -8,4 +8,5 @@ sanitizeHtml :: Html () -> Html ()
 sanitizeHtml = toHtmlRaw . renderTree . transformTree sanitizeTree . parseTree . renderText
 
 sanitizeTree :: TagTree T.Text -> [TagTree T.Text]
-sanitizeTree = pure
+sanitizeTree (TagBranch "pre" attributes children) = [TagBranch "pre" (("tabindex", "0") : attributes) children]
+sanitizeTree x = [x]