From 9c2d27b8d19343c4401e0f622e7d541101982670 Mon Sep 17 00:00:00 2001 From: krasimir Date: Thu, 29 May 2008 12:27:26 +0000 Subject: move GF.Parsing.FCFG.PInfo to GF.GFCC.BuildParser and rename FCFPInfo to ParserInfo --- src-3.0/GF/Compile/GrammarToGFCC.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src-3.0/GF/Compile') diff --git a/src-3.0/GF/Compile/GrammarToGFCC.hs b/src-3.0/GF/Compile/GrammarToGFCC.hs index 4877ff556..d29c20e17 100644 --- a/src-3.0/GF/Compile/GrammarToGFCC.hs +++ b/src-3.0/GF/Compile/GrammarToGFCC.hs @@ -8,6 +8,7 @@ import qualified GF.GFCC.DataGFCC as C import qualified GF.GFCC.DataGFCC as D import GF.GFCC.CId import GF.GFCC.PrintGFCC +import GF.GFCC.BuildParser (buildParserInfo) import GF.Grammar.Predef import GF.Grammar.PrGrammar import GF.Grammar.Grammar @@ -19,7 +20,6 @@ import qualified GF.Infra.Modules as M import qualified GF.Infra.Option as O import GF.Compile.GenerateFCFG (convertConcrete) -import GF.Parsing.FCFG.PInfo (buildFCFPInfo) import GF.Infra.Ident import GF.Infra.Option import GF.Data.Operations @@ -54,7 +54,7 @@ mkCanon2gfcc opts cnc gr = addParsers :: D.GFCC -> D.GFCC addParsers gfcc = gfcc { D.concretes = Map.map conv (D.concretes gfcc) } where - conv cnc = cnc { D.parser = Just (buildFCFPInfo (convertConcrete (D.abstract gfcc) cnc)) } + conv cnc = cnc { D.parser = Just (buildParserInfo (convertConcrete (D.abstract gfcc) cnc)) } -- Generate GFCC from GFCM. -- this assumes a grammar translated by canon2canon -- cgit v1.2.3