diff options
| -rw-r--r-- | hakyll.cabal | 2 | ||||
| -rw-r--r-- | src/Hakyll/Web/Urls.hs | 9 | ||||
| -rw-r--r-- | tests/Hakyll/Web/Urls/Tests.hs | 2 | ||||
| -rw-r--r-- | web/about.markdown | 11 |
4 files changed, 14 insertions, 10 deletions
diff --git a/hakyll.cabal b/hakyll.cabal index 532e483..34894ba 100644 --- a/hakyll.cabal +++ b/hakyll.cabal @@ -1,5 +1,5 @@ Name: hakyll -Version: 3.3.0.0 +Version: 3.3.0.1 Synopsis: A static website compiler library Description: 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 -- diff --git a/tests/Hakyll/Web/Urls/Tests.hs b/tests/Hakyll/Web/Urls/Tests.hs index d7bd3a6..72b6687 100644 --- a/tests/Hakyll/Web/Urls/Tests.hs +++ b/tests/Hakyll/Web/Urls/Tests.hs @@ -23,6 +23,8 @@ tests = concat withUrls id "<script>\"sup\"</script>" , "<code><stdio></code>" @=? withUrls id "<code><stdio></code>" + , "<style>body > p { line-height: 1.3 }</style>" @=? + withUrls id "<style>body > p { line-height: 1.3 }</style>" ] , fromAssertions "toUrl" [ "/foo/bar.html" @=? toUrl "foo/bar.html" diff --git a/web/about.markdown b/web/about.markdown index a1cab5d..4136f70 100644 --- a/web/about.markdown +++ b/web/about.markdown @@ -30,9 +30,10 @@ who still maintains the package. Contributors: - [Andy Irving](https://github.com/irv) - [Benedict Eastaugh](http://extralogical.net/) -- [Florian Hars](http://github.com/fhars) -- [JD Marble](http://github.com/jdmarble) +- [Florian Hars](https://github.com/fhars) +- [JD Marble](https://github.com/jdmarble) - [Nicolas Wu](http://zenzike.com/) -- [Paolo Veronelli](http://github.com/paolino) -- [sargon](http://github.com/sargon) -- [seschwar](http://github.com/seschwar) +- [Paolo Veronelli](https://github.com/paolino) +- [sargon](https://github.com/sargon) +- [seschwar](https://github.com/seschwar) +- [favonia](https://github.com/favonia) |