on master help sign in
Fix #223: `demoteHeaders` should not modify anything in the document, apart from the headers
3ee6f28Daniil Frumin
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