diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-08 16:37:30 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-08 16:37:30 +0000 |
| commit | 44df29f52d074f372053e7b622849c65608728c4 (patch) | |
| tree | c4365b2af7a0f12e8afdddeff591115cce8a842f /src/GF/GFCC/Macros.hs | |
| parent | 23b2826a4476c1514e368d86e09434108da7836f (diff) | |
gfi linearization with flags -table -record -term
Diffstat (limited to 'src/GF/GFCC/Macros.hs')
| -rw-r--r-- | src/GF/GFCC/Macros.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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)) |