diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-12 21:42:13 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-12 21:42:13 +0000 |
| commit | 504bdedcc3eb709b3cd57b2fb39c28b64e9ba327 (patch) | |
| tree | 6104f9792476f7af1c7caaa4a3a98a55aa80984e /src/GF/Devel/OptimizeGF.hs | |
| parent | 7e40df7d4c4dc475db08483dac5fd01823598a26 (diff) | |
made Devel versions of Compute, CheckGrammar, Optimize, etc, to leave GF 2.8 untouched when experimenting
Diffstat (limited to 'src/GF/Devel/OptimizeGF.hs')
| -rw-r--r-- | src/GF/Devel/OptimizeGF.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/GF/Devel/OptimizeGF.hs b/src/GF/Devel/OptimizeGF.hs index de05ed428..99e33941f 100644 --- a/src/GF/Devel/OptimizeGF.hs +++ b/src/GF/Devel/OptimizeGF.hs @@ -116,7 +116,9 @@ values :: Term -> Term values t = case t of T ty [(ps,t)] -> T ty [(ps,values t)] -- don't destroy parametrization T (TComp ty) cs -> V ty [values t | (_, t) <- cs] - T (TTyped ty) cs -> V ty [values t | (_, t) <- cs] ---- why are these left? + T (TTyped ty) cs -> V ty [values t | (_, t) <- cs] + ---- why are these left? + ---- printing with GrammarToSource does not preserve the distinction _ -> C.composSafeOp values t |