@@ -18,6 +18,7 @@ import Data.List (isPrefixOf)
1818import Data.Monoid (Monoid (..))
1919import Data.Set (Set)
2020import qualified Data.Set as S
21+import Network.URI (unEscapeString)
2122import System.Directory (doesDirectoryExist, doesFileExist)
2223import System.Exit (ExitCode (..))
2324import System.FilePath (takeDirectory, takeExtension, (</>))
@@ -182,7 +183,7 @@ checkInternalUrl base url = case url' of
182183 exists <- checkFileExists filePath
183184 if exists then ok url else faulty url
184185 where
185− url' = stripFragments url
186+ url' = stripFragments $ unEscapeString url
186187
187188
188189--------------------------------------------------------------------------------