From a6dc94435648dfeeb10a691a1fd6d3ad2f6dd154 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 6 Dec 2005 12:39:36 +0000 Subject: opers in cnc --- src/GF/Compile/Optimize.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Compile/Optimize.hs') diff --git a/src/GF/Compile/Optimize.hs b/src/GF/Compile/Optimize.hs index 65ccc056f..40514b75c 100644 --- a/src/GF/Compile/Optimize.hs +++ b/src/GF/Compile/Optimize.hs @@ -63,7 +63,7 @@ evalModule oopts ms mo@(name,mod) = case mod of MGrammar (mod' : _) <- foldM evalOp gr ids return $ mod' MTConcrete a -> do - js' <- mapMTree (evalCncInfo oopts gr0 name a) js + js' <- mapMTree (evalCncInfo oopts gr name a) js ---- <- gr0 6/12/2005 return $ (name, ModMod (Module mt st fs me ops js')) _ -> return $ (name,mod) -- cgit v1.2.3