check: unescape internal uris

Signed-off-by: Marc-Antoine Perennou <Marc-Antoine@Perennou.com>

1 files changed, 2 insertions, 1 deletions

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
 
 
 --------------------------------------------------------------------------------