From 328cf308f3e4c85599fbcffbd9cb62bb24fc8804 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 11 Mar 2005 14:37:18 +0000
Subject: Norwegian Swadesh (raw); bug fix in TC of variants

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

(limited to 'src/GF/Compile')

diff --git a/src/GF/Compile/CheckGrammar.hs b/src/GF/Compile/CheckGrammar.hs
index 38a900981..0831c9834 100644
--- a/src/GF/Compile/CheckGrammar.hs
+++ b/src/GF/Compile/CheckGrammar.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/03/08 18:08:58 $ 
+-- > CVS $Date: 2005/03/11 15:37:20 $ 
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.21 $
+-- > CVS $Revision: 1.22 $
 --
 -- AR 4\/12\/1999 -- 1\/4\/2000 -- 8\/9\/2001 -- 15\/5\/2002 -- 27\/11\/2002 -- 18\/6\/2003
 --
@@ -447,7 +447,7 @@ inferLType gr trm = case trm of
      return $ (Table p' t', typeType)
 
    FV vs -> do
-     (ty,_) <- checks $ map infer vs
+     (_,ty) <- checks $ map infer vs
 ---     checkIfComplexVariantType trm ty
      check trm ty
 
-- 
cgit v1.2.3