From 9b5798bd9abe267f783dab7fe5295c9b61e2fdce Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 17 May 2021 21:22:46 -0700
Subject: Use fetchItem instead of downloadOrRead in fetchMediaResource.
---
src/Text/Pandoc/Class/PandocMonad.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'src/Text')
diff --git a/src/Text/Pandoc/Class/PandocMonad.hs b/src/Text/Pandoc/Class/PandocMonad.hs
index 226194503..b12850de5 100644
--- a/src/Text/Pandoc/Class/PandocMonad.hs
+++ b/src/Text/Pandoc/Class/PandocMonad.hs
@@ -635,7 +635,7 @@ withPaths (p:ps) action fp =
fetchMediaResource :: PandocMonad m
=> T.Text -> m (FilePath, Maybe MimeType, BL.ByteString)
fetchMediaResource src = do
- (bs, mt) <- downloadOrRead src
+ (bs, mt) <- fetchItem src
let ext = fromMaybe (T.pack $ takeExtension $ T.unpack src)
(mt >>= extensionFromMimeType)
let bs' = BL.fromChunks [bs]
--
cgit v1.2.3