questions and transfer in shell state

1 files changed, 5 insertions, 0 deletions

diff --git a/src/GF/API/IOGrammar.hs b/src/GF/API/IOGrammar.hs
index ce522a9e5..cb84d9bf7 100644
--- a/src/GF/API/IOGrammar.hs
+++ b/src/GF/API/IOGrammar.hs
@@ -31,6 +31,8 @@ import GF.Data.Operations
 import GF.Infra.UseIO
 import GF.System.Arch
 
+import qualified Transfer.InterpreterAPI as T
+
 import Control.Monad (liftM)
 
 -- | a heuristic way of renaming constants is used
@@ -56,6 +58,9 @@ shellStateFromFiles opts st file = do
  ign <- ioeIO $ getNoparseFromFile opts file
  let top = identC $ justModuleName file
  sh <- case fileSuffix file of
+  "trc" -> do
+     env <- ioeIO $ T.loadFile file
+     return $ addTransfer (top,env) st
   "gfcm" -> do
      cenv <- compileOne opts (compileEnvShSt st []) file
      ioeErr $ updateShellState opts ign Nothing st cenv