From b50927527cfaadfda581791fd0f34c6ccd008a27 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 30 Aug 2014 18:45:58 -0700
Subject: PDF:  Catch errors in conversion of images and display message.

See #1582.
---
 src/Text/Pandoc/PDF.hs | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

(limited to 'src/Text/Pandoc/PDF.hs')

diff --git a/src/Text/Pandoc/PDF.hs b/src/Text/Pandoc/PDF.hs
index 83371a6ff..d5f7c609d 100644
--- a/src/Text/Pandoc/PDF.hs
+++ b/src/Text/Pandoc/PDF.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE OverloadedStrings, CPP #-}
+{-# LANGUAGE OverloadedStrings, CPP, ScopedTypeVariables #-}
 {-
 Copyright (C) 2012-2014 John MacFarlane <jgm@berkeley.edu>
 
@@ -40,7 +40,8 @@ import System.Directory
 import Data.Digest.Pure.SHA (showDigest, sha1)
 import System.Environment
 import Control.Monad (unless, (<=<))
-import Control.Applicative ((<$>), (<$))
+import qualified Control.Exception as E
+import Control.Applicative ((<$))
 import Data.List (isInfixOf)
 import Data.Maybe (fromMaybe)
 import qualified Text.Pandoc.UTF8 as UTF8
@@ -105,24 +106,29 @@ convertImages tmpdir (Image ils (src, tit)) = do
   img <- convertImage tmpdir src
   newPath <-
     case img of
-      Left _ -> src <$ (warn $ "Unable to convert image `" ++ src ++ "'")
-      Right (fp, action) -> fp <$ action
+      Left e -> src <$
+                 warn ("Unable to convert image `" ++ src ++ "':\n" ++ e)
+      Right fp -> return fp
   return (Image ils (newPath, tit))
 convertImages _ x = return x
 
 -- Convert formats which do not work well in pdf to png
-convertImage :: FilePath -> FilePath -> IO (Either String ((FilePath, IO ())))
+convertImage :: FilePath -> FilePath -> IO (Either String FilePath)
 convertImage tmpdir fname =
   case mime of
     Just "image/png" -> doNothing
     Just "image/jpeg" -> doNothing
     Just "application/pdf" -> doNothing
-    _ -> savePng <$> JP.readImage fname
+    _ -> JP.readImage fname >>= \res ->
+          case res of
+               Left msg  -> return $ Left msg
+               Right img ->
+                 E.catch (Right fileOut <$ JP.savePngImage fileOut img) $
+                     \(e :: E.SomeException) -> return (Left (show e))
   where
     fileOut = replaceDirectory (replaceExtension fname (".png")) tmpdir
-    savePng = fmap (\x -> (fileOut, JP.savePngImage fileOut x))
     mime = getMimeType fname
-    doNothing = return (Right $ (fname, return ()))
+    doNothing = return (Right fname)
 
 tex2pdf' :: FilePath                        -- ^ temp directory for output
          -> String                          -- ^ tex program
-- 
cgit v1.2.3