summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniil Frumin <difrumin@gmail.com>2014-02-16 15:43:52 +0400
committerDaniil Frumin <difrumin@gmail.com>2014-02-16 15:43:52 +0400
commit3ee6f28c10797b0ccee63f6144c14f1430e24564 (patch)
tree8b3a7d0665ef6f50fa9d6a45d45696d6cba36519
parentfd889c563a884283b1291b3c44367f5ef6b13439 (diff)
downloadhakyll-3ee6f28c10797b0ccee63f6144c14f1430e24564.tar.gz
Fix #223: `demoteHeaders` should not modify anything in the document, apart from the headers
-rw-r--r--src/Hakyll/Web/Html.hs1
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