diff options
Diffstat (limited to 'src/Hakyll/Web/Urls.hs')
-rw-r--r-- | src/Hakyll/Web/Urls.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Hakyll/Web/Urls.hs b/src/Hakyll/Web/Urls.hs index f41d323..7f33ab0 100644 --- a/src/Hakyll/Web/Urls.hs +++ b/src/Hakyll/Web/Urls.hs @@ -16,13 +16,12 @@ import qualified Text.HTML.TagSoup as TS -- | Apply a function to each URL on a webpage -- withUrls :: (String -> String) -> String -> String -withUrls f = TS.renderTagsOptions opts . map tag . TS.parseTags +withUrls f = TS.renderTags . map tag . TS.parseTags where tag (TS.TagOpen s a) = TS.TagOpen s $ map attr a tag x = x attr (k, v) = (k, if k `S.member` refs then f v else v) refs = S.fromList ["src", "href"] - opts = TS.renderOptions {TS.optEscape = id} -- | Convert a filepath to an URL starting from the site root -- |