From 3ed19a482e796b0a62d234ec9ffd1981d5fee64e Mon Sep 17 00:00:00 2001 From: krasimir Date: Tue, 5 Jan 2010 07:05:41 +0000 Subject: printnames are now kept as String instead of Term in PGF --- src/compiler/GF/Compile/GrammarToPGF.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/compiler/GF/Compile/GrammarToPGF.hs') diff --git a/src/compiler/GF/Compile/GrammarToPGF.hs b/src/compiler/GF/Compile/GrammarToPGF.hs index 2a4085cc3..0e58398d6 100644 --- a/src/compiler/GF/Compile/GrammarToPGF.hs +++ b/src/compiler/GF/Compile/GrammarToPGF.hs @@ -5,6 +5,7 @@ import GF.Compile.Export import GF.Compile.GeneratePMCFG import PGF.CId +import PGF.Linearize(realize) import qualified PGF.Macros as CM import qualified PGF.Data as C import qualified PGF.Data as D @@ -102,8 +103,8 @@ canon2gfcc opts pars cgr@(M.MGrammar ((a,abm):cms)) = lindefs = Map.fromAscList [(i2i c, umkTerm tr) | (c,CncCat _ (Just tr) _) <- js] printnames = Map.union - (Map.fromAscList [(i2i f, umkTerm tr) | (f,CncFun _ _ (Just tr)) <- js]) - (Map.fromAscList [(i2i f, umkTerm tr) | (f,CncCat _ _ (Just tr)) <- js]) + (Map.fromAscList [(i2i f, realize (umkTerm tr)) | (f,CncFun _ _ (Just tr)) <- js]) + (Map.fromAscList [(i2i f, realize (umkTerm tr)) | (f,CncCat _ _ (Just tr)) <- js]) params = Map.fromAscList [(i2i c, pars lang0 c) | (c,CncCat (Just ty) _ _) <- js] fcfg = Nothing -- cgit v1.2.3