diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-10-10 20:29:10 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-10-10 20:29:10 +0000 |
| commit | 697cf5f440a4ad9c1308b4e257347200076a8f9b (patch) | |
| tree | d63cef3e7b7a53b81e24b6d56903db51043c8051 /src/GF/Devel/GrammarToGFCC.hs | |
| parent | 0fdb2dbc48f4dec187168981b04ef20eef5034b9 (diff) | |
tuning gf optimization
Diffstat (limited to 'src/GF/Devel/GrammarToGFCC.hs')
| -rw-r--r-- | src/GF/Devel/GrammarToGFCC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Devel/GrammarToGFCC.hs b/src/GF/Devel/GrammarToGFCC.hs index 686e9f4bb..a5ec71a77 100644 --- a/src/GF/Devel/GrammarToGFCC.hs +++ b/src/GF/Devel/GrammarToGFCC.hs @@ -230,7 +230,7 @@ purgeGrammar abstr gr = acncs = abstr : M.allConcretes gr abstr isSingle = True complete (i,M.ModMod m) = M.isCompleteModule m --- not . isIncompleteCanon - unopt = unshareModule gr + unopt = unshareModule gr -- subexp elim undone when compiled type ParamEnv = (Map.Map (Ident,[Label]) (Type,Integer), -- numbered labels |