Moar errors

This commit is contained in:
Vidar Holen 2012-11-04 00:32:54 -07:00
parent 9bc0d57b14
commit 71a571b083
1 changed files with 1 additions and 1 deletions

View File

@ -981,7 +981,7 @@ collectNotes = do
getNotes s = getNotesWith readScript doAllAnalysis s getNotes s = getNotesWith readScript doAllAnalysis s
getNotesWith parser analytics s = getNotesWith parser analytics s =
case rp (parseWithNotes (parser) analytics) s of case rp (parseWithNotes (do { x <- parser; eof; return x; }) analytics) s of
(Right (x, notes), parsenotes) -> sortNotes $ notes ++ parsenotes (Right (x, notes), parsenotes) -> sortNotes $ notes ++ parsenotes
(Left err, p) -> sortNotes $ (ParseNote (initialPos "-") ErrorC $ "Parsing failed: " ++ (show err)):(p) (Left err, p) -> sortNotes $ (ParseNote (initialPos "-") ErrorC $ "Parsing failed: " ++ (show err)):(p)