diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-06-10 16:05:50 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-06-10 16:05:50 +0200 |
| commit | 849d1f3236dff4aa21b80028742b903d29c7701f (patch) | |
| tree | 2aebf16ca10db572854b3bc5fcbef6c13cb31bb1 /src/Hakyll | |
| parent | 77ebb46ebae337cae0d7c14399dbfcd8139c72b0 (diff) | |
| download | hakyll-849d1f3236dff4aa21b80028742b903d29c7701f.tar.gz | |
Add test for #69, minor edits
Diffstat (limited to 'src/Hakyll')
| -rw-r--r-- | src/Hakyll/Web/Urls.hs | 9 |
1 files changed, 5 insertions, 4 deletions
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 -- |