@@ -79,7 +79,7 @@ checkLatex txt = (err , bib, ref, unlines $! msgs ++ tips)
79 xs `oneOf` x = any (flip isInfixOf x) xs
79 xs `oneOf` x = any (flip isInfixOf x) xs
80 msgs = filter (oneOf ["Error:", "Warning:"]) (lines txt)
80 msgs = filter (oneOf ["Error:", "Warning:"]) (lines txt)
81 tips = checkPackages msgs
81 tips = checkPackages msgs
82− err = any (oneOf ["LaTeX Error:", "Latex Error:"]) msgs
82+ err = any (oneOf ["!", "LaTeX Error:", "Latex Error:"]) msgs
83 bib = any (oneOf ["Warning: Citation"
83 bib = any (oneOf ["Warning: Citation"
84 ,"Warning: There were undefined citations"]) msgs
84 ,"Warning: There were undefined citations"]) msgs
85 ref = any (oneOf ["Warning: Reference"
85 ref = any (oneOf ["Warning: Reference"