diff options
| author | John J. Camilleri <john@digitalgrammars.com> | 2021-07-06 15:35:03 +0200 |
|---|---|---|
| committer | John J. Camilleri <john@digitalgrammars.com> | 2021-07-06 15:35:03 +0200 |
| commit | ef422164154e093b1231c2ee905c0539c0c0a1b3 (patch) | |
| tree | d1430334cb77dbe49dd4952f5d604772c8cfdc94 /src/compiler/GF/Interactive.hs | |
| parent | 0c3ca3d79acb34e0159cf6b51ba41ff570ad2af1 (diff) | |
Add import from command line invocation to command history
Closes #64
Diffstat (limited to 'src/compiler/GF/Interactive.hs')
| -rw-r--r-- | src/compiler/GF/Interactive.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Interactive.hs b/src/compiler/GF/Interactive.hs index 9987b7c39..855ab22d1 100644 --- a/src/compiler/GF/Interactive.hs +++ b/src/compiler/GF/Interactive.hs @@ -38,7 +38,6 @@ import GF.Server(server) #endif import GF.Command.Messages(welcome) -import GF.Infra.UseIO (Output) -- Provides an orphan instance of MonadFail for StateT in ghc versions < 8 import Control.Monad.Trans.Instances () @@ -56,6 +55,7 @@ mainGFI opts files = do shell opts files = flip evalStateT (emptyGFEnv opts) $ do mapStateT runSIO $ importInEnv opts files + modify $ \ gfenv0 -> gfenv0 {history = [unwords ("i":files)]} loop #ifdef SERVER_MODE |