diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2013-07-07 13:47:19 -0700 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2013-07-07 13:47:19 -0700 |
| commit | 325dbd19d46ff025bc03664a4c7d4137f5619ed3 (patch) | |
| tree | d04b56cfe00daa3d11be4ace11ffd75316421df0 | |
| parent | 23efeb2405ac149569444ddb0fc5808251d9df71 (diff) | |
| parent | 82a38a742a2cad65a55270496681c8282f3a8933 (diff) | |
| download | hakyll-325dbd19d46ff025bc03664a4c7d4137f5619ed3.tar.gz | |
Merge pull request #168 from Keruspe/master
Fix check of escaped internal uris
| -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 -------------------------------------------------------------------------------- |