on master help sign in
Merge pull request #269 from co-dan/demoteheaders
e6918c7Jasper Van der Jeugt
src/Hakyll/Web/Html.hs+1
@@ -80,6 +80,7 @@ renderTags' :: [TS.Tag String] -> String
80renderTags' = TS.renderTagsOptions TS.renderOptions
80renderTags' = TS.renderTagsOptions TS.renderOptions
81 { TS.optRawTag = (`elem` ["script", "style"]) . map toLower
81 { TS.optRawTag = (`elem` ["script", "style"]) . map toLower
82 , TS.optMinimize = (`S.member` minimize) . map toLower
82 , TS.optMinimize = (`S.member` minimize) . map toLower
83+ , TS.optEscape = id
83 }
84 }
84 where
85 where
85 -- A list of elements which must be minimized
86 -- A list of elements which must be minimized