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/GFC.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/compiler/GFC.hs')

diff --git a/src/compiler/GFC.hs b/src/compiler/GFC.hs
index 352827f6d..0cd8a343b 100644
--- a/src/compiler/GFC.hs
+++ b/src/compiler/GFC.hs
@@ -9,6 +9,7 @@ import GF.Compile
 import GF.Compile.Export
 
 import GF.Grammar.CF ---- should this be on a deeper level? AR 15/10/2008
+import GF.Grammar (identC)
 
 import GF.Infra.UseIO
 import GF.Infra.Option
@@ -16,6 +17,7 @@ import GF.Data.ErrM
 
 import Data.Maybe
 import Data.Binary
+import qualified Data.ByteString.Char8 as BS
 import System.FilePath
 import System.IO
 import Control.Exception
@@ -37,7 +39,7 @@ compileSourceFiles opts fs =
        let cnc = justModuleName (last fs)
        if flag optStopAfterPhase opts == Compile 
          then return ()
-         else do pgf <- link opts cnc gr
+         else do pgf <- link opts (identC (BS.pack cnc)) gr
                  writePGF opts pgf
                  writeOutputs opts pgf
 
@@ -49,7 +51,7 @@ compileCFFiles opts fs =
        gr <- compileSourceGrammar opts gf
        if flag optStopAfterPhase opts == Compile 
          then return ()
-         else do pgf <- link opts cnc gr
+         else do pgf <- link opts (identC (BS.pack cnc)) gr
                  writePGF opts pgf
                  writeOutputs opts pgf
 
-- 
cgit v1.2.3