Moar errors
This commit is contained in:
parent
9bc0d57b14
commit
71a571b083
|
@ -981,7 +981,7 @@ collectNotes = do
|
|||
|
||||
getNotes s = getNotesWith readScript doAllAnalysis 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
|
||||
(Left err, p) -> sortNotes $ (ParseNote (initialPos "-") ErrorC $ "Parsing failed: " ++ (show err)):(p)
|
||||
|
||||
|
|
Loading…
Reference in New Issue