diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-11-03 21:57:37 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-11-03 21:57:37 +0000 |
| commit | 790ad6d4a52573d61565ac499eeb61e8dcabe3e1 (patch) | |
| tree | 43b5e3333ecdd802756693cc4d0e0b05596e01dd /src | |
| parent | 048ef7d1d1121aa6c056dfb9e2070d4b9d931ba0 (diff) | |
return ? for nonexistent fun in gfcc
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Canon/GFCC/DataGFCC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Canon/GFCC/DataGFCC.hs b/src/GF/Canon/GFCC/DataGFCC.hs index 6e30a6898..ea21ce6c6 100644 --- a/src/GF/Canon/GFCC/DataGFCC.hs +++ b/src/GF/Canon/GFCC/DataGFCC.hs @@ -33,7 +33,7 @@ lookMap d c m = maybe d id $ Data.Map.lookup c m lookLin :: GFCC -> CId -> CId -> Term lookLin mcfg lang fun = - lookMap (term0 fun) fun $ lookMap undefined lang $ concretes mcfg + lookMap TM fun $ lookMap undefined lang $ concretes mcfg linearize :: GFCC -> CId -> Exp -> String linearize mcfg lang = realize . linExp mcfg lang |