git.iko.soy/hakyll
on master help sign in
Don't relativize urls that lead with "//".
24ce687Andy Irving
src/Hakyll/Web/Urls/Relativize.hs+1−1
compare with master
unifiedsplit
@@ -44,4 +44,4 @@ relativizeUrls :: String -- ^ Path to the site root
44 -> String -- ^ Resulting HTML
44 -> String -- ^ Resulting HTML
45relativizeUrls root = withUrls rel
45relativizeUrls root = withUrls rel
46 where
46 where
47− rel x = if "/" `isPrefixOf` x then root ++ x else x
47+ rel x = if "/" `isPrefixOf` x && not ("//" `isPrefixOf` x) then root ++ x else x