diff options
| -rw-r--r-- | src-3.0/GF/GFCC/OptimizeGFCC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src-3.0/GF/GFCC/OptimizeGFCC.hs b/src-3.0/GF/GFCC/OptimizeGFCC.hs index 7fc227c66..94db12a2f 100644 --- a/src-3.0/GF/GFCC/OptimizeGFCC.hs +++ b/src-3.0/GF/GFCC/OptimizeGFCC.hs @@ -20,7 +20,7 @@ suffixOptimize gfcc = gfcc { concretes = Map.map opt (concretes gfcc) } where - opt cnc = subex $ cnc { + opt cnc = cnc { lins = Map.map optTerm (lins cnc), lindefs = Map.map optTerm (lindefs cnc), printnames = Map.map optTerm (printnames cnc) @@ -58,7 +58,7 @@ optTerm tr = case tr of ---subex :: [(CId,Term)] -> [(CId,Term)] subex :: Concr -> Concr -subex cnc = errVal cnc $ do +subex cnc = err error id $ do (tree,_) <- appSTM (getSubtermsMod cnc) (Map.empty,0) return $ addSubexpConsts tree cnc |