diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-05-30 16:45:48 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-05-30 16:45:48 +0000 |
| commit | 3a20b4883d9b2d13e81df17c745071c8c53b2004 (patch) | |
| tree | e5a2e74e233fd625cd306dc6d661c8054f683d85 /src-3.0/GF/Compile/Rename.hs | |
| parent | c0ba151aa93d0aad2d616a33b62bbc255174b4b9 (diff) | |
error recovery in rename and check grammar: report all errors in a module before terminating
Diffstat (limited to 'src-3.0/GF/Compile/Rename.hs')
| -rw-r--r-- | src-3.0/GF/Compile/Rename.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src-3.0/GF/Compile/Rename.hs b/src-3.0/GF/Compile/Rename.hs index 68f4d754f..312dcb2dd 100644 --- a/src-3.0/GF/Compile/Rename.hs +++ b/src-3.0/GF/Compile/Rename.hs @@ -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 |