From 82a38a742a2cad65a55270496681c8282f3a8933 Mon Sep 17 00:00:00 2001 From: Marc-Antoine Perennou Date: Sun, 7 Jul 2013 18:58:16 +0200 Subject: [PATCH] check: unescape internal uris Signed-off-by: Marc-Antoine Perennou --- src/Hakyll/Check.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Hakyll/Check.hs b/src/Hakyll/Check.hs index d48f996..6d345de 100644 --- a/src/Hakyll/Check.hs +++ b/src/Hakyll/Check.hs @@ -18,6 +18,7 @@ import Data.List (isPrefixOf) import Data.Monoid (Monoid (..)) import Data.Set (Set) import qualified Data.Set as S +import Network.URI (unEscapeString) import System.Directory (doesDirectoryExist, doesFileExist) import System.Exit (ExitCode (..)) import System.FilePath (takeDirectory, takeExtension, ()) @@ -182,7 +183,7 @@ checkInternalUrl base url = case url' of exists <- checkFileExists filePath if exists then ok url else faulty url where - url' = stripFragments url + url' = stripFragments $ unEscapeString url --------------------------------------------------------------------------------