summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Hakyll/Check.hs3
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
--------------------------------------------------------------------------------