diff options
author | Daniil Frumin <difrumin@gmail.com> | 2014-02-16 15:43:52 +0400 |
---|---|---|
committer | Daniil Frumin <difrumin@gmail.com> | 2014-02-16 15:43:52 +0400 |
commit | 3ee6f28c10797b0ccee63f6144c14f1430e24564 (patch) | |
tree | 8b3a7d0665ef6f50fa9d6a45d45696d6cba36519 | |
parent | fd889c563a884283b1291b3c44367f5ef6b13439 (diff) | |
download | hakyll-3ee6f28c10797b0ccee63f6144c14f1430e24564.tar.gz |
Fix #223: `demoteHeaders` should not modify anything in the document, apart from the headers
-rw-r--r-- | src/Hakyll/Web/Html.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Hakyll/Web/Html.hs b/src/Hakyll/Web/Html.hs index f5a7ccc..ba62eb8 100644 --- a/src/Hakyll/Web/Html.hs +++ b/src/Hakyll/Web/Html.hs @@ -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 |