From c015be003ead11000b84f70ae5bcc2708b04c3f8 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Mon, 3 Oct 2011 09:44:37 +0200 Subject: Add test for new relativizeUrls --- src/Hakyll/Web/Urls/Relativize.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Hakyll/Web') diff --git a/src/Hakyll/Web/Urls/Relativize.hs b/src/Hakyll/Web/Urls/Relativize.hs index 0b7df4e..c473097 100644 --- a/src/Hakyll/Web/Urls/Relativize.hs +++ b/src/Hakyll/Web/Urls/Relativize.hs @@ -44,4 +44,5 @@ relativizeUrls :: String -- ^ Path to the site root -> String -- ^ Resulting HTML relativizeUrls root = withUrls rel where - rel x = if "/" `isPrefixOf` x && not ("//" `isPrefixOf` x) then root ++ x else x + isRel x = "/" `isPrefixOf` x && not ("//" `isPrefixOf` x) + rel x = if isRel x then root ++ x else x -- cgit v1.2.3