aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Class/PandocMonad.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Class/PandocMonad.hs')
-rw-r--r--src/Text/Pandoc/Class/PandocMonad.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Class/PandocMonad.hs b/src/Text/Pandoc/Class/PandocMonad.hs
index e106c23e1..618b27c79 100644
--- a/src/Text/Pandoc/Class/PandocMonad.hs
+++ b/src/Text/Pandoc/Class/PandocMonad.hs
@@ -408,8 +408,7 @@ downloadOrRead s
uriPath = "",
uriQuery = "",
uriFragment = "" }
- dropFragmentAndQuery = T.takeWhile (\c -> c /= '?' && c /= '#')
- fp = unEscapeString $ T.unpack $ dropFragmentAndQuery s
+ fp = unEscapeString $ T.unpack s
mime = getMimeType $ case takeExtension fp of
".gz" -> dropExtension fp
".svgz" -> dropExtension fp ++ ".svg"