@@ -36,7 +36,7 @@ import System.FilePath
3636import System.IO (stdout, hClose)
3737import System.IO.Temp (withSystemTempDirectory, withTempDirectory,
3838 withTempFile)
39−import System.IO.Error (IOError, isDoesNotExistError)
39+import qualified System.IO.Error as IE
4040import Text.Pandoc.Definition
4141import Text.Pandoc.Error (PandocError (PandocPDFProgramNotFoundError))
4242import Text.Pandoc.MIME (getMimeType)
@@ -307,10 +307,7 @@ runTectonic verbosity program args' tmpDir' source = do
307307 showVerboseInfo (Just tmpDir) program programArgs env (UTF8.toStringLazy sourceBL)
308308 (exit, out) <- liftIO $ E.catch
309309 (pipeProcess (Just env) program programArgs sourceBL)
310− (\(e :: IOError) -> if isDoesNotExistError e
311− then E.throwIO $ PandocPDFProgramNotFoundError
312− program
313− else E.throwIO e)
310+ (handlePDFProgramNotFound program)
314311 when (verbosity >= INFO) $ liftIO $ do
315312 putStrLn "[makePDF] Running"
316313 BL.hPutStr stdout out
@@ -376,10 +373,7 @@ runTeXProgram verbosity program args runNumber numRuns tmpDir' source = do
376373 showVerboseInfo (Just tmpDir) program programArgs env''
377374 (exit, out) <- liftIO $ E.catch
378375 (pipeProcess (Just env'') program programArgs BL.empty)
379− (\(e :: IOError) -> if isDoesNotExistError e
380− then E.throwIO $ PandocPDFProgramNotFoundError
381− program
382− else E.throwIO e)
376+ (handlePDFProgramNotFound program)
383377 when (verbosity >= INFO) $ liftIO $ do
384378 putStrLn $ "[makePDF] Run #" ++ show runNumber
385379 BL.hPutStr stdout out
@@ -404,10 +398,7 @@ generic2pdf verbosity program args source = do
404398 (exit, out) <- E.catch
405399 (pipeProcess (Just env') program args
406400 (BL.fromStrict $ UTF8.fromText source))
407− (\(e :: IOError) -> if isDoesNotExistError e
408− then E.throwIO $
409− PandocPDFProgramNotFoundError program
410− else E.throwIO e)
401+ (handlePDFProgramNotFound program)
411402 return $ case exit of
412403 ExitFailure _ -> Left out
413404 ExitSuccess -> Right out
@@ -435,10 +426,7 @@ html2pdf verbosity program args source = do
435426 showVerboseInfo Nothing program programArgs env'
436427 (exit, out) <- E.catch
437428 (pipeProcess (Just env') program programArgs BL.empty)
438− (\(e :: IOError) -> if isDoesNotExistError e
439− then E.throwIO $
440− PandocPDFProgramNotFoundError program
441− else E.throwIO e)
429+ (handlePDFProgramNotFound program)
442430 when (verbosity >= INFO) $ do
443431 BL.hPutStr stdout out
444432 putStr "\n"
@@ -474,10 +462,7 @@ context2pdf verbosity program pdfargs tmpDir source =
474462 showVerboseInfo (Just tmpDir) program programArgs env'
475463 (exit, out) <- E.catch
476464 (pipeProcess (Just env') program programArgs BL.empty)
477− (\(e :: IOError) -> if isDoesNotExistError e
478− then E.throwIO $
479− PandocPDFProgramNotFoundError "context"
480− else E.throwIO e)
465+ (handlePDFProgramNotFound program)
481466 when (verbosity >= INFO) $ do
482467 BL.hPutStr stdout out
483468 putStr "\n"
@@ -517,3 +502,9 @@ showVerboseInfo mbTmpDir program programArgs env source = do
517502 putStr "\n"
518503 putStrLn $ "[makePDF] Source:"
519504 putStrLn source
505+
506+handlePDFProgramNotFound :: String -> IE.IOError -> IO a
507+handlePDFProgramNotFound program e
508+ | IE.isDoesNotExistError e =
509+ E.throwIO $ PandocPDFProgramNotFoundError program
510+ | otherwise = E.throwIO e