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/Compile | |
| parent | f17728ee55b54fb34864d1e2a6b20d7a0c9a06e5 (diff) | |
remove some redundant dependencies from FCFG
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index 57c0d1e88..e9533e1a0 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -17,6 +17,8 @@ module GF.Compile.ShellState where import GF.Data.Operations import GF.Canon.GFC import GF.Canon.AbsGFC +import GF.Canon.GFCC.AbsGFCC(CId(CId)) +import GF.Canon.GFCC.DataGFCC(mkGFCC) import GF.Canon.CanonToGFCC as C2GFCC import GF.Grammar.Macros import GF.Grammar.MMacros @@ -260,7 +262,7 @@ updateShellState opts ign mcnc sh ((_,sgr,gr,eenv),rts) = do let fromGFC = snd . snd . Cnv.convertGFC opts (mcfgs, cfgs) = unzip $ map (curry fromGFC cgr) concrs - fcfgs = FCnv.convertGrammar (C2GFCC.mkCanon2gfccNoUTF8 cgr) + fcfgs = [(IC id,g) | (CId id,g) <- FCnv.convertGrammar (mkGFCC (C2GFCC.mkCanon2gfccNoUTF8 cgr))] pInfos = zipWith3 Prs.buildPInfo mcfgs (map snd fcfgs) cfgs |