From 6d179267de8f988ab2ee52a5fef99b3b05576222 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 20 Sep 2005 08:32:55 +0000
Subject: CSEE now works fine

---
 src/GF/Canon/Look.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/GF/Canon/Look.hs')

diff --git a/src/GF/Canon/Look.hs b/src/GF/Canon/Look.hs
index 0ba888beb..c0566f4dc 100644
--- a/src/GF/Canon/Look.hs
+++ b/src/GF/Canon/Look.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/09/19 16:11:06 $ 
+-- > CVS $Date: 2005/09/20 09:32:56 $ 
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.16 $
+-- > CVS $Revision: 1.17 $
 --
 -- lookup in GFC. AR 2003
 -----------------------------------------------------------------------------
@@ -187,7 +187,7 @@ ccompute cnc = comp []
     _        -> return t  
    where
      compt = comp g xs
-     look c = lookupGlobal cnc c
+     look c = lookupGlobal cnc c >>= compt
 
      lookVar c co = case lookup c co of
        Just t -> return t
-- 
cgit v1.2.3