diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/Docx.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 6a53485c4..235358bf6 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -65,8 +65,9 @@ import Text.Pandoc.MIME (MimeType, getMimeType, getMimeTypeDef, import Control.Applicative ((<|>)) import Data.Maybe (fromMaybe, mapMaybe, maybeToList, isNothing) import Data.Char (ord, isSpace, toLower) -import Text.Pandoc.Class (PandocMonad) +import Text.Pandoc.Class (PandocMonad, report) import qualified Text.Pandoc.Class as P +import Text.Pandoc.Logging data ListMarker = NoMarker | BulletMarker @@ -1173,7 +1174,7 @@ inlineToOpenXML' opts (Image attr alt (src, title)) = do res <- runExceptT $ lift (P.fetchItem (writerSourceURL opts) src) case res of Left (_ :: PandocError) -> do - P.warning ("Could not find image `" ++ src ++ "', skipping...") + report $ CouldNotFetchResource src "" -- emit alt text inlinesToOpenXML opts alt Right (img, mt) -> do |