Yay!! Direct generation of PMCFG from GF grammar

1 files changed, 3 insertions, 2 deletions

diff --git a/src/compiler/GF/Command/Importing.hs b/src/compiler/GF/Command/Importing.hs
index 06deab6c6..194c993ba 100644
--- a/src/compiler/GF/Command/Importing.hs
+++ b/src/compiler/GF/Command/Importing.hs
@@ -4,13 +4,14 @@ import PGF
 import PGF.Data
 
 import GF.Compile
-import GF.Grammar.Grammar (SourceGrammar) -- for cc command
+import GF.Grammar (identC, SourceGrammar) -- for cc command
 import GF.Grammar.CF
 import GF.Infra.UseIO
 import GF.Infra.Option
 import GF.Data.ErrM
 
 import Data.List (nubBy)
+import qualified Data.ByteString.Char8 as BS
 import System.FilePath
 
 -- import a grammar in an environment where it extends an existing grammar
@@ -25,7 +26,7 @@ importGrammar pgf0 opts files =
                Ok g -> return g
                Bad s -> error s ---- 
        Ok gr <- appIOE $ compileSourceGrammar opts gf
-       epgf <- appIOE $ link opts (cnc ++ "Abs") gr
+       epgf <- appIOE $ link opts (identC (BS.pack (cnc ++ "Abs"))) gr
        case epgf of
          Ok pgf -> return pgf
          Bad s -> error s ----