diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2007-09-23 20:01:25 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2007-09-23 20:01:25 +0000 |
| commit | 0cd5e62e836e8cb8d2b49f76bfb899081aa2366f (patch) | |
| tree | 3373e98b7c1b658fbe7b5add25c21cae3ce55264 /src/GF/Canon/GFCC/FCFGParsing.hs | |
| parent | f17728ee55b54fb34864d1e2a6b20d7a0c9a06e5 (diff) | |
remove some redundant dependencies from FCFG
Diffstat (limited to 'src/GF/Canon/GFCC/FCFGParsing.hs')
| -rw-r--r-- | src/GF/Canon/GFCC/FCFGParsing.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/GF/Canon/GFCC/FCFGParsing.hs b/src/GF/Canon/GFCC/FCFGParsing.hs index eeea653d2..9cd489278 100644 --- a/src/GF/Canon/GFCC/FCFGParsing.hs +++ b/src/GF/Canon/GFCC/FCFGParsing.hs @@ -2,7 +2,7 @@ module GF.Canon.GFCC.FCFGParsing (parserLang,buildPInfo,FCFPInfo) where import GF.Canon.GFCC.DataGFCC import GF.Canon.GFCC.AbsGFCC -import GF.Conversion.SimpleToFCFG (convertGrammarCId,FCat(..)) +import GF.Conversion.SimpleToFCFG (convertGrammar,FCat(..)) --import GF.System.Tracing --import GF.Infra.Print @@ -35,11 +35,9 @@ import qualified GF.Parsing.FCFG as PF import GF.Canon.GFCC.ErrM import GF.Infra.PrintClass ---convertGrammarCId :: Grammar -> [(CId,FGrammar)] - parserLang :: GFCC -> CId -> CFCat -> [CFTok] -> Err [Exp] parserLang mgr lang = parse info where - fcfgs = convertGrammarCId mgr + fcfgs = convertGrammar mgr info = buildPInfo $ maybe (error "no parser") id $ lookup lang fcfgs type CFTok = String ---- |