From 3ee6f28c10797b0ccee63f6144c14f1430e24564 Mon Sep 17 00:00:00 2001
From: Daniil Frumin <difrumin@gmail.com>
Date: Sun, 16 Feb 2014 15:43:52 +0400
Subject: Fix #223: `demoteHeaders` should not modify anything in the document,
 apart from the headers

---
 src/Hakyll/Web/Html.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

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
-- 
cgit v1.2.3