From 3a20b4883d9b2d13e81df17c745071c8c53b2004 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 30 May 2008 16:45:48 +0000 Subject: error recovery in rename and check grammar: report all errors in a module before terminating --- src-3.0/GF/Compile/Rename.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src-3.0/GF/Compile/Rename.hs') 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 -- cgit v1.2.3