diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2014-06-26 20:25:49 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2014-06-26 20:25:49 +0200 |
| commit | f13f6443f52ed3831429c228ad9289fdd0b15865 (patch) | |
| tree | c300f93108210e4efaf6484491b0395e7269f8a8 /src/Hakyll | |
| parent | e6918c72536ca06d0394549f4bcc048c19aef876 (diff) | |
| parent | 261277dfc59ddeb3b228a2a857052c70baffbeaf (diff) | |
| download | hakyll-f13f6443f52ed3831429c228ad9289fdd0b15865.tar.gz | |
Merge pull request #271 from nagisa/270
Fix build failure introduced by 3ee6f28
Diffstat (limited to 'src/Hakyll')
| -rw-r--r-- | src/Hakyll/Web/Html.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Hakyll/Web/Html.hs b/src/Hakyll/Web/Html.hs index 1abd742..a86ac1e 100644 --- a/src/Hakyll/Web/Html.hs +++ b/src/Hakyll/Web/Html.hs @@ -77,7 +77,7 @@ withUrls f = withTags tag -- | Customized TagSoup renderer. The default TagSoup renderer escape CSS -- within style tags, and doesn't properly minimize. renderTags' :: [TS.Tag String] -> String -renderTags' = TS.renderTagsOptions TS.renderOptions +renderTags' = TS.renderTagsOptions TS.RenderOptions { TS.optRawTag = (`elem` ["script", "style"]) . map toLower , TS.optMinimize = (`S.member` minimize) . map toLower , TS.optEscape = id |