From 2caa185504ec697b96b7bf28dd9d15d489777abf Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Wed, 28 Nov 2012 10:24:09 +0100
Subject: Minimize <img>, patch by Chris Mears
Conflicts:
tests/Hakyll/Web/Urls/Relativize/Tests.hs
---
src/Hakyll/Web/Urls.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
(limited to 'src')
diff --git a/src/Hakyll/Web/Urls.hs b/src/Hakyll/Web/Urls.hs
index e89bd08..1cd0816 100644
--- a/src/Hakyll/Web/Urls.hs
+++ b/src/Hakyll/Web/Urls.hs
@@ -29,7 +29,8 @@ withUrls f = renderTags' . map tag . TS.parseTags
--
renderTags' :: [TS.Tag String] -> String
renderTags' = TS.renderTagsOptions TS.renderOptions
- { TS.optRawTag = (`elem` ["script", "style"]) . map toLower
+ { TS.optRawTag = (`elem` ["script", "style"]) . map toLower
+ , TS.optMinimize = (`elem` ["br", "img"])
}
-- | Convert a filepath to an URL starting from the site root
--
cgit v1.2.3