From 0cd5e62e836e8cb8d2b49f76bfb899081aa2366f Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Sun, 23 Sep 2007 20:01:25 +0000 Subject: remove some redundant dependencies from FCFG --- src/GF/Canon/GFCC/FCFGParsing.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/GF/Canon/GFCC/FCFGParsing.hs') 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 ---- -- cgit v1.2.3