adapted GFCC2FCFG to other uses of GFCC, made it to default parser

2007-09-19 13:49:12 +00:00
parent a886f7042b
commit 7825a1a1c5
8 changed files with 97 additions and 70 deletions
--- a/src/GF/Compile/ShellState.hs
+++ b/src/GF/Compile/ShellState.hs
@@ -260,7 +260,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.mkCanon2gfcc cgr)
+      fcfgs         = FCnv.convertGrammar (C2GFCC.mkCanon2gfccNoUTF8 cgr)
      pInfos        = zipWith3 Prs.buildPInfo mcfgs (map snd fcfgs) cfgs