Fix #223: demoteHeaders should not modify anything in the document, apart from the headers

This commit is contained in:
Daniil Frumin 2014-02-16 15:43:52 +04:00
parent fd889c563a
commit 3ee6f28c10

View file

@ -80,6 +80,7 @@ renderTags' :: [TS.Tag String] -> String
renderTags' = TS.renderTagsOptions TS.renderOptions
{ TS.optRawTag = (`elem` ["script", "style"]) . map toLower
, TS.optMinimize = (`S.member` minimize) . map toLower
, TS.optEscape = id
}
where
-- A list of elements which must be minimized