aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Shared.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-07-15 12:17:45 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-07-15 12:17:45 -0700
commitb80577b395cc2ea9c3b50910f7e0e77975112613 (patch)
tree94601b6736b5efa0d7736503083a5912015e92d7 /src/Text/Pandoc/Shared.hs
parent58838996259d02700db33ca3cbb3fcbca0688e51 (diff)
downloadpandoc-b80577b395cc2ea9c3b50910f7e0e77975112613.tar.gz
Shared.fetchItem: unescape URI encoding before reading local file.
Close #1427.
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
-rw-r--r--src/Text/Pandoc/Shared.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 1fd801cd8..bb13836f2 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -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.