From 263beccd56f5a6242ea97e696a9843cd0f597e16 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 19 Sep 2005 15:11:06 +0000
Subject: [PATCH] debugging csee

---
 src/GF/Canon/Look.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/GF/Canon/Look.hs b/src/GF/Canon/Look.hs
index bcd73f97d..0ba888beb 100644
--- a/src/GF/Canon/Look.hs
+++ b/src/GF/Canon/Look.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/06/23 14:32:43 $ 
+-- > CVS $Date: 2005/09/19 16:11:06 $ 
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.15 $
+-- > CVS $Revision: 1.16 $
 --
 -- lookup in GFC. AR 2003
 -----------------------------------------------------------------------------
@@ -174,10 +174,11 @@ ccompute cnc = comp []
                   mapPairsM compt [(l,r) | Cas l r <- rs]
 
     V ptyp ts -> do
+      ts' <- mapM compt ts
       vs0 <- allParamValues cnc ptyp
       vs  <- mapM term2patt vs0
-      let cc = [Cas [p] u | (p,u) <- zip vs ts]
-      compt $ T ptyp cc
+      let cc = [Cas [p] u | (p,u) <- zip vs ts']
+      return $ T ptyp cc
 
     Par c xs -> liftM (Par c) $ mapM compt xs