Merge pull request #271 from nagisa/270

Fix build failure introduced by 3ee6f28
This commit is contained in:
Jasper Van der Jeugt 2014-06-26 20:25:49 +02:00
commit f13f6443f5

View File

@ -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