msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Fix bug in gf -server mode with /gfshell requests not updating the state of the shell

Browse Source 
The test for the quit command had the wrong polarity.
The problem was reported by Fahime Ghasemi on gf-dev mailing list.
This commit is contained in:
hallgren
2015-10-28 15:03:19 +00:00
parent 90a5c3fe85
commit 2ace6089e3
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/compiler/GF/Interactive.hs
View File

@@ -70,8 +70,8 @@ mainServerGFI opts0 port files =
jobs = join (flag optJobs opts) jobs = join (flag optJobs opts)
execute1' gfenv0 cmd = execute1' gfenv0 cmd =
do (quit,gfenv) <- runStateT (execute1 cmd) gfenv0 do (continue,gfenv) <- runStateT (execute1 cmd) gfenv0
return $ if quit then Nothing else Just gfenv return $ if continue then Just gfenv else Nothing
#else #else
mainServerGFI opts port files = mainServerGFI opts port files =
error "GF has not been compiled with server mode support" error "GF has not been compiled with server mode support"