diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2014-06-13 19:35:55 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2014-06-13 19:35:55 +0200 |
| commit | e6918c72536ca06d0394549f4bcc048c19aef876 (patch) | |
| tree | 473fd8fbd19b2ee19e8293cbf64187ae994194cb /src/Hakyll | |
| parent | 2980a98cd8e280cccadf87ca0f7b90eb5de87e37 (diff) | |
| parent | 3ee6f28c10797b0ccee63f6144c14f1430e24564 (diff) | |
| download | hakyll-e6918c72536ca06d0394549f4bcc048c19aef876.tar.gz | |
Merge pull request #269 from co-dan/demoteheaders
Fix #223: `demoteHeaders` should not modify anything in the document, apart from the headers
Diffstat (limited to 'src/Hakyll')
| -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 f29a478..1abd742 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 |