Fix #223: demoteHeaders
should not modify anything in the document, apart from the headers
This commit is contained in:
parent
fd889c563a
commit
3ee6f28c10
1 changed files with 1 additions and 0 deletions
|
@ -80,6 +80,7 @@ renderTags' :: [TS.Tag String] -> String
|
||||||
renderTags' = TS.renderTagsOptions TS.renderOptions
|
renderTags' = TS.renderTagsOptions TS.renderOptions
|
||||||
{ TS.optRawTag = (`elem` ["script", "style"]) . map toLower
|
{ TS.optRawTag = (`elem` ["script", "style"]) . map toLower
|
||||||
, TS.optMinimize = (`S.member` minimize) . map toLower
|
, TS.optMinimize = (`S.member` minimize) . map toLower
|
||||||
|
, TS.optEscape = id
|
||||||
}
|
}
|
||||||
where
|
where
|
||||||
-- A list of elements which must be minimized
|
-- A list of elements which must be minimized
|
||||||
|
|
Loading…
Reference in a new issue