diff options
| -rw-r--r-- | src/Text/Pandoc/Class/PandocMonad.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Class/PandocMonad.hs b/src/Text/Pandoc/Class/PandocMonad.hs index 412696e96..fdec5616d 100644 --- a/src/Text/Pandoc/Class/PandocMonad.hs +++ b/src/Text/Pandoc/Class/PandocMonad.hs @@ -467,6 +467,11 @@ fillMediaBag d = walkM handleImage d return $ Image attr lab (src, tit)) (\e -> case e of + PandocIOError text err -> do + report $ CouldNotFetchResource text . T.pack $ + (show err ++ "\nReplacing image with description.") + -- emit alt text + return $ replacementSpan attr src tit lab PandocResourceNotFound _ -> do report $ CouldNotFetchResource src "replacing image with description" |