From 4fd51838637b696892f4bde48b6741d84186621e Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 13 Jun 2008 20:40:50 +0000 Subject: [PATCH] arabic in 1.4 - something makes compilation get stuck --- src-3.0/GF/Compile/Optimize.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src-3.0/GF/Compile/Optimize.hs b/src-3.0/GF/Compile/Optimize.hs index d2b303bc6..83cbeb57a 100644 --- a/src-3.0/GF/Compile/Optimize.hs +++ b/src-3.0/GF/Compile/Optimize.hs @@ -128,7 +128,7 @@ evalCncInfo opts gr cnc abs (c,info) = do return (c, CncCat ptyp pde' ppr') - CncFun (mt@(Just (_,ty@(cont,val)))) pde ppr -> + CncFun (mt@(Just (_,ty@(cont,val)))) pde ppr -> --trace (prt c) $ eIn ("linearization in type" +++ prt (mkProd (cont,val,[])) ++++ "of function") $ do pde' <- case pde of Yes de -> do