diff options
| author | bringert <bringert@cs.chalmers.se> | 2008-01-03 17:10:05 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2008-01-03 17:10:05 +0000 |
| commit | af1a3a2473747942dcec647a42e5724fcb21d1b9 (patch) | |
| tree | e08020dce28ad35a5434328e6483ec695693fc20 /src/GF/Canon/CanonToGFCC.hs | |
| parent | 43ddb41d314e7d547fa8f8bb1cd23397dfa30f65 (diff) | |
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.
Diffstat (limited to 'src/GF/Canon/CanonToGFCC.hs')
| -rw-r--r-- | src/GF/Canon/CanonToGFCC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Canon/CanonToGFCC.hs b/src/GF/Canon/CanonToGFCC.hs index 8d5656aa4..044ea3669 100644 --- a/src/GF/Canon/CanonToGFCC.hs +++ b/src/GF/Canon/CanonToGFCC.hs @@ -25,7 +25,7 @@ source2gfcc opts gf = let (abs,gfcc) = mkCanon2gfcc opts (gfcabs gf) gf gfcc1 = maybe undefined id $ checkGFCCmaybe gfcc - in if oElem (iOpt "noopt") opts then gfcc1 else optGFCC gfcc1 + in addParsers $ if oElem (iOpt "noopt") opts then gfcc1 else optGFCC gfcc1 gfcabs gfc = prt $ head $ M.allConcretes gfc $ maybe (error "no abstract") id $ |