diff options
Diffstat (limited to 'src/compiler/GF/Command/Importing.hs')
| -rw-r--r-- | src/compiler/GF/Command/Importing.hs | 5 |
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 ---- |