diff options
| author | aarne <unknown> | 2003-09-24 14:26:35 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-09-24 14:26:35 +0000 |
| commit | 6e9258558a9bcb8c9df4bee0382b5136c95f516a (patch) | |
| tree | 99475ee58ba264780403480ce29c9ee40beee1ec /src/GF/Shell.hs | |
| parent | b1402e8bd6a68a891b00a214d6cf184d66defe19 (diff) | |
Improvements in hte editor.
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 6e4afe88f..0444a0a33 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -143,8 +143,8 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = case comm of CImport file | oElem showOld opts -> useIOE sa $ batchCompileOld file >> return sa CImport file -> useIOE sa $ do - st <- shellStateFromFiles opts st file - ioeIO $ changeState (const st) sa --- \ ((_,h),a) -> ((st,h), a)) + st1 <- shellStateFromFiles opts st file + ioeIO $ changeState (const st1) sa --- \ ((_,h),a) -> ((st,h), a)) CEmptyState -> changeState reinitShellState sa {- |