Shared.fetchItem: unescape URI encoding before reading local file.

Close #1427.
This commit is contained in:
John MacFarlane 2014-07-15 12:17:45 -07:00
parent 5883899625
commit b80577b395

View file

@ -772,7 +772,7 @@ fetchItem sourceURL s
let mime = case takeExtension s of
".gz" -> getMimeType $ dropExtension s
x -> getMimeType x
cont <- BS.readFile s
cont <- BS.readFile $ unEscapeString s
return (cont, mime)
-- | Read from a URL and return raw data and maybe mime type.