PDF: Changes to error reporting, to handle non-UTF8 error output.

1 files changed, 4 insertions, 1 deletions

diff --git a/pandoc.hs b/pandoc.hs
index 709b5a777..4a4e53bdd 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -1172,7 +1172,10 @@ main = do
               res <- makePDF latexEngine f writerOptions doc2
               case res of
                    Right pdf -> writeBinary pdf
-                   Left err' -> err 43 $ UTF8.toStringLazy err'
+                   Left err' -> do
+                     B.hPutStr stderr $ err'
+                     B.hPut stderr $ B.pack [10]
+                     err 43 "Error producing PDF from TeX source"
       | otherwise -> selfcontain (f writerOptions doc2 ++
                                   ['\n' | not standalone'])
                       >>= writerFn outputFile . handleEntities