From 992a7ffb381190ffa67f59f33d0dfadf41f84e78 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 18 Jun 2010 12:55:58 +0000
Subject: Yay!! Direct generation of PMCFG from GF grammar

---
 src/compiler/GF/Command/Importing.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/compiler/GF/Command/Importing.hs')

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 ----
-- 
cgit v1.2.3