diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2015-05-09 23:56:18 -0700 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2015-05-09 23:56:53 -0700 |
commit | 60bf4a8bfb543fcf8021356e6c4ad2b994acd8c8 (patch) | |
tree | 3ffeeb09923cf8019266e429bab3f5281945e55c /src/Text/Pandoc/Writers/ODT.hs | |
parent | 31b3f2ef8861a8af6c146a8c6f770c6165311fc2 (diff) |
Improved warnings when image size can't be determined.
Closes #1834.
Diffstat (limited to 'src/Text/Pandoc/Writers/ODT.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/ODT.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/ODT.hs b/src/Text/Pandoc/Writers/ODT.hs index 33d9ec9d2..e7c1cf32e 100644 --- a/src/Text/Pandoc/Writers/ODT.hs +++ b/src/Text/Pandoc/Writers/ODT.hs @@ -136,8 +136,10 @@ transformPicMath opts entriesRef (Image lab (src,t)) = do Right (img, mbMimeType) -> do (w,h) <- case imageSize img of Right size -> return $ sizeInPoints size - Left msg -> do warn msg - return (0,0) + Left msg -> do + warn $ "Could not determine image size in `" ++ + src ++ "': " ++ msg + return (0,0) let tit' = show w ++ "x" ++ show h entries <- readIORef entriesRef let extension = fromMaybe (takeExtension $ takeWhile (/='?') src) |