yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

check: unescape internal uris

Browse source 
Signed-off-by: Marc-Antoine Perennou <Marc-Antoine@Perennou.com>
This commit is contained in:
Marc-Antoine Perennou 2013-07-07 18:58:16 +02:00
parent 23efeb2405
commit 82a38a742a
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Hakyll/Check.hs
View file

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