diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Hakyll/Check.hs | 3 |
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 -------------------------------------------------------------------------------- |