check: unescape internal uris
Signed-off-by: Marc-Antoine Perennou <Marc-Antoine@Perennou.com>
This commit is contained in:
parent
23efeb2405
commit
82a38a742a
1 changed files with 2 additions and 1 deletions
|
@ -18,6 +18,7 @@ import Data.List (isPrefixOf)
|
||||||
import Data.Monoid (Monoid (..))
|
import Data.Monoid (Monoid (..))
|
||||||
import Data.Set (Set)
|
import Data.Set (Set)
|
||||||
import qualified Data.Set as S
|
import qualified Data.Set as S
|
||||||
|
import Network.URI (unEscapeString)
|
||||||
import System.Directory (doesDirectoryExist, doesFileExist)
|
import System.Directory (doesDirectoryExist, doesFileExist)
|
||||||
import System.Exit (ExitCode (..))
|
import System.Exit (ExitCode (..))
|
||||||
import System.FilePath (takeDirectory, takeExtension, (</>))
|
import System.FilePath (takeDirectory, takeExtension, (</>))
|
||||||
|
@ -182,7 +183,7 @@ checkInternalUrl base url = case url' of
|
||||||
exists <- checkFileExists filePath
|
exists <- checkFileExists filePath
|
||||||
if exists then ok url else faulty url
|
if exists then ok url else faulty url
|
||||||
where
|
where
|
||||||
url' = stripFragments url
|
url' = stripFragments $ unEscapeString url
|
||||||
|
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
|
|
Loading…
Reference in a new issue