From 849d1f3236dff4aa21b80028742b903d29c7701f Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 10 Jun 2012 16:05:50 +0200 Subject: Add test for #69, minor edits --- src/Hakyll/Web/Urls.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src/Hakyll') diff --git a/src/Hakyll/Web/Urls.hs b/src/Hakyll/Web/Urls.hs index cfa9b42..e89bd08 100644 --- a/src/Hakyll/Web/Urls.hs +++ b/src/Hakyll/Web/Urls.hs @@ -24,12 +24,13 @@ withUrls f = renderTags' . map tag . TS.parseTags attr (k, v) = (k, if k `S.member` refs then f v else v) refs = S.fromList ["src", "href"] --- | Customized TagSoup renderer. --- (The default TagSoup renderer escape CSS within style tags.) +-- | Customized TagSoup renderer. (The default TagSoup renderer escape CSS +-- within style tags.) +-- renderTags' :: [TS.Tag String] -> String renderTags' = TS.renderTagsOptions TS.renderOptions - { TS.optRawTag = (`elem` ["script", "style"]) . map toLower - } + { TS.optRawTag = (`elem` ["script", "style"]) . map toLower + } -- | Convert a filepath to an URL starting from the site root -- -- cgit v1.2.3