@@ -119,7 +119,9 @@ checkLatex "" = (True, False, False, "Could not read log file")
119119checkLatex txt = (err , bib, ref, unlines $! msgs ++ tips)
120120 where
121121 xs `oneOf` x = any (flip isInfixOf x) xs
122− msgs = filter (oneOf ["Error:", "Warning:"]) (lines txt)
122+ msgs = dropWhile (not . errorline) $ lines txt
123+ errorline ('!':_) = True
124+ errorline _ = False
123125 tips = checkPackages msgs
124126 err = any (oneOf ["!", "LaTeX Error:", "Latex Error:"]) msgs
125127 bib = any (oneOf ["Warning: Citation"