Shared.fetchItem: unescape URI encoding before reading local file.
Close #1427.
This commit is contained in:
parent
5883899625
commit
b80577b395
1 changed files with 1 additions and 1 deletions
|
@ -772,7 +772,7 @@ fetchItem sourceURL s
|
||||||
let mime = case takeExtension s of
|
let mime = case takeExtension s of
|
||||||
".gz" -> getMimeType $ dropExtension s
|
".gz" -> getMimeType $ dropExtension s
|
||||||
x -> getMimeType x
|
x -> getMimeType x
|
||||||
cont <- BS.readFile s
|
cont <- BS.readFile $ unEscapeString s
|
||||||
return (cont, mime)
|
return (cont, mime)
|
||||||
|
|
||||||
-- | Read from a URL and return raw data and maybe mime type.
|
-- | Read from a URL and return raw data and maybe mime type.
|
||||||
|
|
Loading…
Add table
Reference in a new issue