diff options
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)) |