summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2013-10-17 13:36:43 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2013-10-17 13:36:43 -0700
commit80c1967e751c9b58f7c1f28211d47fbd57316d32 (patch)
treea5e131648dbb581c038c87a63e9949fdb31c8af5
parent6e1c24da8e9f4715e03fd1ff9ee64528936d8bf3 (diff)
PDF: Minor code cleanup.
-rw-r--r--src/Text/Pandoc/PDF.hs4
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