markdown2pdf.hs: interpret ! in a log as an error line.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1739 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2009-12-31 01:18:20 +00:00
parent ade6d8a3fe
commit a2860f6fac

View file

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