git.iko.soy/hakyll
on master help sign in
Add "poster" as a URL attribute
e77564fDuncan
src/Hakyll/Web/Html.hs+1−1
compare with master
unifiedsplit
@@ -55,7 +55,7 @@ demoteHeaders = withTags $ \tag -> case tag of
55
55
56--------------------------------------------------------------------------------
56--------------------------------------------------------------------------------
57isUrlAttribute :: String -> Bool
57isUrlAttribute :: String -> Bool
58−isUrlAttribute = (`elem` ["src", "href", "data"])
58+isUrlAttribute = (`elem` ["src", "href", "data", "poster"])
59
59
60
60
61--------------------------------------------------------------------------------
61--------------------------------------------------------------------------------
tests/Hakyll/Web/Html/RelativizeUrls/Tests.hs+3
@@ -22,6 +22,9 @@ tests = testGroup "Hakyll.Web.Html.RelativizeUrls.Tests" $
22 relativizeUrlsWith ".." "<a href=\"/foo\">bar</a>"
22 relativizeUrlsWith ".." "<a href=\"/foo\">bar</a>"
23 , "<img src=\"../../images/lolcat.png\" />" @=?
23 , "<img src=\"../../images/lolcat.png\" />" @=?
24 relativizeUrlsWith "../.." "<img src=\"/images/lolcat.png\" />"
24 relativizeUrlsWith "../.." "<img src=\"/images/lolcat.png\" />"
25+ , "<video poster=\"../../images/lolcat.png\"></video>" @=?
26+ relativizeUrlsWith "../.."
27+ "<video poster=\"/images/lolcat.png\"></video>"
25 , "<a href=\"http://haskell.org\">Haskell</a>" @=?
28 , "<a href=\"http://haskell.org\">Haskell</a>" @=?
26 relativizeUrlsWith "../.."
29 relativizeUrlsWith "../.."
27 "<a href=\"http://haskell.org\">Haskell</a>"
30 "<a href=\"http://haskell.org\">Haskell</a>"