From 6e9258558a9bcb8c9df4bee0382b5136c95f516a Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 24 Sep 2003 14:26:35 +0000
Subject: Improvements in hte editor.

---
 src/GF/Shell.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/GF/Shell.hs')

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
 
 {-
-- 
cgit v1.2.3