diff options
| author | Duncan <duncan@vtllf.org> | 2015-08-16 15:49:56 +1200 |
|---|---|---|
| committer | Duncan <duncan@vtllf.org> | 2015-08-16 15:49:56 +1200 |
| commit | e77564f1b292d6021a29565c1d12c89ff6881e3c (patch) | |
| tree | 252cc7040a07d9738b287d3470f6af9233dfdd8a | |
| parent | 72f2b6c439803ee2224e9fff774c5d08df56c683 (diff) | |
| download | hakyll-e77564f1b292d6021a29565c1d12c89ff6881e3c.tar.gz | |
Add "poster" as a URL attribute
| -rw-r--r-- | src/Hakyll/Web/Html.hs | 2 | ||||
| -rw-r--r-- | tests/Hakyll/Web/Html/RelativizeUrls/Tests.hs | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/Hakyll/Web/Html.hs b/src/Hakyll/Web/Html.hs index bed7755..6b7ec88 100644 --- a/src/Hakyll/Web/Html.hs +++ b/src/Hakyll/Web/Html.hs @@ -55,7 +55,7 @@ demoteHeaders = withTags $ \tag -> case tag of -------------------------------------------------------------------------------- isUrlAttribute :: String -> Bool -isUrlAttribute = (`elem` ["src", "href", "data"]) +isUrlAttribute = (`elem` ["src", "href", "data", "poster"]) -------------------------------------------------------------------------------- diff --git a/tests/Hakyll/Web/Html/RelativizeUrls/Tests.hs b/tests/Hakyll/Web/Html/RelativizeUrls/Tests.hs index 7799217..4d9421e 100644 --- a/tests/Hakyll/Web/Html/RelativizeUrls/Tests.hs +++ b/tests/Hakyll/Web/Html/RelativizeUrls/Tests.hs @@ -22,6 +22,9 @@ tests = testGroup "Hakyll.Web.Html.RelativizeUrls.Tests" $ relativizeUrlsWith ".." "<a href=\"/foo\">bar</a>" , "<img src=\"../../images/lolcat.png\" />" @=? relativizeUrlsWith "../.." "<img src=\"/images/lolcat.png\" />" + , "<video poster=\"../../images/lolcat.png\"></video>" @=? + relativizeUrlsWith "../.." + "<video poster=\"/images/lolcat.png\"></video>" , "<a href=\"http://haskell.org\">Haskell</a>" @=? relativizeUrlsWith "../.." "<a href=\"http://haskell.org\">Haskell</a>" |