From 945a49214bd49fb082e8f613fc68d192a1b38743 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 5 Oct 2007 09:02:47 +0000
Subject: cleaned up new GFCC, but added RP as deprecated

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

(limited to 'src/GF/Devel')

diff --git a/src/GF/Devel/GrammarToGFCC.hs b/src/GF/Devel/GrammarToGFCC.hs
index 0a59a8920..452d2e03c 100644
--- a/src/GF/Devel/GrammarToGFCC.hs
+++ b/src/GF/Devel/GrammarToGFCC.hs
@@ -48,7 +48,7 @@ canon2gfcc opts cgr@(M.MGrammar ((a,M.ModMod abm):cms)) =
   cns = map (i2i . fst) cms
   abs = D.Abstr aflags funs cats catfuns
   aflags = Map.fromAscList [] ---- flags
-  lfuns = [(f', (mkType ty,CM.tree (C.AC f') [])) | ---- defs 
+  lfuns = [(f', (mkType ty,CM.primNotion)) | ---- defs 
              (f,AbsFun (Yes ty) _) <- tree2list (M.jments abm), let f' = i2i f]
   funs = Map.fromAscList lfuns
   lcats = [(i2i c,[]) | ---- context
-- 
cgit v1.2.3