git.iko.soy/typeable/pandoc
on master help sign in
Small fix to error reporting in App.

Closes #3548.

commit629c6494a599a6a2923798e8a83c7f5ab8de086e authorJohn MacFarlane <jgm@berkeley.edu> dateSat 15 Apr 2017, 13:46 (10 years ago) parentbcc848d
1 file changed+2−4
src/Text/Pandoc/App.hs+2−4
src/Text/Pandoc/App.hs+2−4
@@ -64,7 +64,7 @@ import System.Directory (Permissions (..), doesFileExist, findExecutable,
6464import System.Environment (getArgs, getEnvironment, getProgName)
6565import System.Exit (ExitCode (..), exitSuccess)
6666import System.FilePath
67−import System.IO (stderr, stdout)
67+import System.IO (stdout)
6868import System.IO.Error (isDoesNotExistError)
6969import Text.Pandoc
7070import Text.Pandoc.Builder (setMeta)
@@ -448,9 +448,7 @@ convertWithOpts opts = do
448448 res <- makePDF pdfprog f writerOptions verbosity media doc'
449449 case res of
450450 Right pdf -> writeFnBinary outputFile pdf
451− Left err' -> liftIO $ do
452− B.hPutStr stderr err'
453− B.hPut stderr $ B.pack [10]
451+ Left err' -> liftIO $
454452 E.throwIO $ PandocPDFError (UTF8.toStringLazy err')
455453 | otherwise -> do
456454 let htmlFormat = format `elem`