mirror of
https://github.com/ilyakooo0/hakyll.git
synced 2024-10-07 01:37:51 +03:00
check: unescape internal uris
Signed-off-by: Marc-Antoine Perennou <Marc-Antoine@Perennou.com>
This commit is contained in:
parent
23efeb2405
commit
82a38a742a
@ -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
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
|
Loading…
Reference in New Issue
Block a user