From ca7bcf91cac66309ded134a510c8dff922f5672a Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Mon, 17 Mar 2008 12:46:53 +0000
Subject: [PATCH] merging recent changes in Finnish

---
 src/GF/Devel/GrammarToGFCC.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/GF/Devel/GrammarToGFCC.hs b/src/GF/Devel/GrammarToGFCC.hs
index 5d2ddb1aa..2c1bbc169 100644
--- a/src/GF/Devel/GrammarToGFCC.hs
+++ b/src/GF/Devel/GrammarToGFCC.hs
@@ -418,6 +418,7 @@ term2term cgr env@(labels,untyps,typs) tr = case tr of
   T (TTyped ty) cs  -> t2t $ V ty $ map snd cs ---- should be elim'ed in tc
   V ty ts  -> mkCurry $ V ty [t2t t | t <- ts]
   S t p    -> mkCurrySel (t2t t) (t2t p)
+
   _ -> GM.composSafeOp t2t tr
  where
    t2t = term2term cgr env
@@ -523,6 +524,7 @@ mkLab k = LIdent (("_" ++ show k))
 unlock = filter notlock where
   notlock (l,(_, t)) = case t of --- need not look at l
      R [] -> False
+     RecType [] -> False
      _ -> True
 
 unlockTyp = filter notlock