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/Pandoc/Class/PandocMonad.hs')

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