error recovery in rename and check grammar: report all errors in a module before terminating

This commit is contained in:
aarne
2008-05-30 16:45:48 +00:00
parent ac9ce7d7e8
commit e58a01f1c8
3 changed files with 31 additions and 8 deletions

View File

@@ -58,7 +58,7 @@ renameModule ms (name,mod) = errIn ("renaming module" +++ prt name) $ case mod o
ModMod m@(Module mt st fs me ops js) -> do
let js1 = jments m
status <- buildStatus (MGrammar ms) name mod
js2 <- mapMTree (renameInfo status) js1
js2 <- mapsErrTree (renameInfo status) js1
let mod2 = ModMod $ Module mt st fs me (map forceQualif ops) js2
return $ (name,mod2) : ms