diff options
Diffstat (limited to 'src/compiler/GFC.hs')
| -rw-r--r-- | src/compiler/GFC.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/compiler/GFC.hs b/src/compiler/GFC.hs index 6dc891679..c035d0676 100644 --- a/src/compiler/GFC.hs +++ b/src/compiler/GFC.hs @@ -10,7 +10,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.Ident(identS) import GF.Infra.UseIO import GF.Infra.Option @@ -21,7 +21,6 @@ import Data.Binary import qualified Data.Map as Map import qualified Data.ByteString as BSS import qualified Data.ByteString.Lazy as BSL -import qualified Data.ByteString.Char8 as BS import System.FilePath import System.IO import Control.Exception @@ -49,7 +48,7 @@ compileSourceFiles opts fs = let cnc = justModuleName (last fs) if flag optStopAfterPhase opts == Compile then return () - else do pgf <- link opts (identC (BS.pack cnc)) gr + else do pgf <- link opts (identS cnc) gr writePGF opts pgf writeByteCode opts pgf writeOutputs opts pgf @@ -62,7 +61,7 @@ compileCFFiles opts fs = gr <- compileSourceGrammar opts gf if flag optStopAfterPhase opts == Compile then return () - else do pgf <- link opts (identC (BS.pack cnc)) gr + else do pgf <- link opts (identS cnc) gr writePGF opts pgf writeOutputs opts pgf |