diff options
| author | aarne <unknown> | 2005-09-19 15:11:06 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-09-19 15:11:06 +0000 |
| commit | 263beccd56f5a6242ea97e696a9843cd0f597e16 (patch) | |
| tree | fb5fca0f084c0961bca990b1de6edf5baa9dec9a /src/GF | |
| parent | 517d7ec419e8f5a0f9a56e10dbdfe1bbe82fafa5 (diff) | |
debugging csee
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Canon/Look.hs | 9 |
1 files 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 |