diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-10-17 13:36:43 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-10-17 13:36:43 -0700 |
| commit | 80c1967e751c9b58f7c1f28211d47fbd57316d32 (patch) | |
| tree | a5e131648dbb581c038c87a63e9949fdb31c8af5 /src/Text/Pandoc | |
| parent | 6e1c24da8e9f4715e03fd1ff9ee64528936d8bf3 (diff) | |
| download | pandoc-80c1967e751c9b58f7c1f28211d47fbd57316d32.tar.gz | |
PDF: Minor code cleanup.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/PDF.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/PDF.hs b/src/Text/Pandoc/PDF.hs index a445e2991..e8683b98f 100644 --- a/src/Text/Pandoc/PDF.hs +++ b/src/Text/Pandoc/PDF.hs @@ -107,7 +107,7 @@ tex2pdf' tmpDir program source = do then 3 -- to get page numbers else 2 -- 1 run won't give you PDF bookmarks (exit, log', mbPdf) <- runTeXProgram program numruns tmpDir source - let msg = "Error producing PDF from TeX source." + let msg = "Error producing PDF from TeX source.\n" case (exit, mbPdf) of (ExitFailure _, _) -> do let logmsg = extractMsg log' @@ -116,7 +116,7 @@ tex2pdf' tmpDir program source = do x | "! Package inputenc Error" `BC.isPrefixOf` x -> "\nTry running pandoc with --latex-engine=xelatex." _ -> "" - return $ Left $ msg <> "\n" <> extractMsg log' <> extramsg + return $ Left $ msg <> logmsg <> extramsg (ExitSuccess, Nothing) -> return $ Left msg (ExitSuccess, Just pdf) -> return $ Right pdf |