From e77564f1b292d6021a29565c1d12c89ff6881e3c Mon Sep 17 00:00:00 2001
From: Duncan <duncan@vtllf.org>
Date: Sun, 16 Aug 2015 15:49:56 +1200
Subject: Add "poster" as a URL attribute

---
 src/Hakyll/Web/Html.hs                        | 2 +-
 tests/Hakyll/Web/Html/RelativizeUrls/Tests.hs | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

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>"
-- 
cgit v1.2.3