From af1a3a2473747942dcec647a42e5724fcb21d1b9 Mon Sep 17 00:00:00 2001 From: bringert Date: Thu, 3 Jan 2008 17:10:05 +0000 Subject: Store FCFPInfo (all information needed for FCFG parsing) in GFCC files, and in the internal DataGFCC.GFCC structure. The parsing information format is still in flux. --- src/GF/Command/Importing.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/GF/Command') diff --git a/src/GF/Command/Importing.hs b/src/GF/Command/Importing.hs index 676eec37f..788dab20a 100644 --- a/src/GF/Command/Importing.hs +++ b/src/GF/Command/Importing.hs @@ -22,10 +22,8 @@ importGrammar mgr0 opts files = do let name = justModuleName (last files) let (abs,gfcc0) = mkCanon2gfcc opts name gr gfcc1 <- checkGFCCio gfcc0 - return $ if oElem (iOpt "noopt") opts then gfcc1 else optGFCC gfcc1 + return $ addParsers $ if oElem (iOpt "noopt") opts then gfcc1 else optGFCC gfcc1 "gfcc" -> mapM file2gfcc files >>= return . foldl1 unionGFCC let gfcc3 = unionGFCC (gfcc mgr0) gfcc2 - return $ MultiGrammar gfcc3 - (nubBy (\ (x,_) (y,_) -> x == y) (gfcc2parsers gfcc3 ++ parsers mgr0)) - -- later coming parsers override + return $ MultiGrammar gfcc3 \ No newline at end of file -- cgit v1.2.3