diff options
Diffstat (limited to 'src/GF/Compile/ShellState.hs')
| -rw-r--r-- | src/GF/Compile/ShellState.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index 9746c011e..afc3d61f9 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -17,8 +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.GFCC.AbsGFCC(CId(CId)) +--import GF.GFCC.DataGFCC(mkGFCC) import GF.Canon.CanonToGFCC as C2GFCC import GF.Grammar.Macros import GF.Grammar.MMacros @@ -264,7 +264,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 fcfgs0 = [(IC id,g) | (CId id,g) <- - FCnv.convertGrammar (mkGFCC (C2GFCC.mkCanon2gfccNoUTF8 cgr))] + FCnv.convertGrammar (C2GFCC.mkCanon2gfccNoUTF8 cgr)] fcfgs = [(c,g) | c <- concrs, Just g <- [lookup c fcfgs0]] pInfos = zipWith3 Prs.buildPInfo mcfgs (map snd fcfgs) cfgs |