diff options
| author | krasimir <krasimir@chalmers.se> | 2008-05-29 12:27:26 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-05-29 12:27:26 +0000 |
| commit | 9c2d27b8d19343c4401e0f622e7d541101982670 (patch) | |
| tree | 6160f0b8a59232c51407dca9a2a620c77cf290c9 /src-3.0/GF/Compile | |
| parent | 9a759a66dc33f82f457fc649b669fcc8d32edf3e (diff) | |
move GF.Parsing.FCFG.PInfo to GF.GFCC.BuildParser and rename FCFPInfo to ParserInfo
Diffstat (limited to 'src-3.0/GF/Compile')
| -rw-r--r-- | src-3.0/GF/Compile/GrammarToGFCC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |