From 44df29f52d074f372053e7b622849c65608728c4 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 8 Nov 2007 16:37:30 +0000
Subject: gfi linearization with flags -table -record -term

---
 src/GF/GFCC/Macros.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/GF/GFCC/Macros.hs')

diff --git a/src/GF/GFCC/Macros.hs b/src/GF/GFCC/Macros.hs
index cb4727e61..dd9d594d6 100644
--- a/src/GF/GFCC/Macros.hs
+++ b/src/GF/GFCC/Macros.hs
@@ -20,6 +20,10 @@ lookLincat :: GFCC -> CId -> CId -> Term
 lookLincat gfcc lang fun = 
   lookMap TM fun $ lincats $ lookMap (error "no lang") lang $ concretes gfcc
 
+lookParamLincat :: GFCC -> CId -> CId -> Term
+lookParamLincat gfcc lang fun = 
+  lookMap TM fun $ paramlincats $ lookMap (error "no lang") lang $ concretes gfcc
+
 lookType :: GFCC -> CId -> Type
 lookType gfcc f = 
   fst $ lookMap (error $ "lookType " ++ show f) f (funs (abstract gfcc))
-- 
cgit v1.2.3