@@ -72,9 +72,9 @@ extractMsg log' = do
7272 let msg' = dropWhile (not . ("!" `BC.isPrefixOf`)) $ BC.lines log'
7373 let (msg'',rest) = break ("l." `BC.isPrefixOf`) msg'
7474 let lineno = take 1 rest
75− if not (null msg')
76− then BC.unlines (msg'' ++ lineno)
77− else "Unknown errorR"
75+ if null msg'
76+ then log'
77+ else BC.unlines (msg'' ++ lineno)
7878
7979parseLine :: ByteString -> Bool
8080parseLine ln =
@@ -101,7 +101,7 @@ runTeXProgram program runsLeft tmpDir source = do
101101 hClose h
102102 let programArgs = ["-halt-on-error", "-interaction", "nonstopmode",
103103 "-output-directory", tmpDir, file]
104− (exit, out, _err) <- readCommand program programArgs
104+ (exit, out, err) <- readCommand program programArgs
105105 removeFile file
106106 let pdfFile = replaceDirectory (replaceExtension file ".pdf") tmpDir
107107 pdfExists <- doesFileExist pdfFile
@@ -110,7 +110,7 @@ runTeXProgram program runsLeft tmpDir source = do
110110 else return Nothing
111111 if hasUndefinedRefs out && runsLeft > 0
112112 then runTeXProgram program (runsLeft - 1) tmpDir source
113− else return (exit, out, pdf)
113+ else return (exit, out <> err, pdf)
114114
115115-- utility functions
116116