suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Return sensible Meta from ParseOccam failures.

Browse Source 
This means we get the nice annotated source display on a parser failure --
although we still get not-very-useful descriptions of errors sometimes...
This commit is contained in:
Adam Sampson 2008-03-04 11:59:13 +00:00
parent 168628576d
commit 7ec6566495
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
frontends/ParseOccam.hs
View File

@ -2006,7 +2006,9 @@ sourceFile
runTockParser :: [Token] -> OccParser t -> CompState -> PassM t runTockParser :: [Token] -> OccParser t -> CompState -> PassM t
runTockParser toks prod cs runTockParser toks prod cs
= do case runParser prod ([], cs) "" toks of = do case runParser prod ([], cs) "" toks of
Left err -> dieReport (Nothing, "Parse error: " ++ show err) Left err ->
let m = sourcePosToMeta $ errorPos err
in dieReport (Just m, "Parse error: " ++ show err)
Right r -> return r Right r -> return r
-- | Parse an occam program. -- | Parse an occam program.