summaryrefslogtreecommitdiff
path: root/src-3.0/GF/Compile/Optimize.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src-3.0/GF/Compile/Optimize.hs')
-rw-r--r--src-3.0/GF/Compile/Optimize.hs2
1 files changed, 1 insertions, 1 deletions
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