From 504bdedcc3eb709b3cd57b2fb39c28b64e9ba327 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 12 Nov 2007 21:42:13 +0000 Subject: made Devel versions of Compute, CheckGrammar, Optimize, etc, to leave GF 2.8 untouched when experimenting --- src/GF/Devel/OptimizeGF.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/GF/Devel/OptimizeGF.hs') 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 -- cgit v1.2.3