GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-19 16:12:52 -06:00
Code Issues Packages Projects Releases Wiki Activity

Improvements in hte editor.

Browse Source
This commit is contained in:
aarne
2003-09-24 14:26:35 +00:00
parent b1402e8bd6
commit 6e9258558a
19 changed files with 219 additions and 111 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Shell.hs
View File

@@ -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
{-