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

Ctrl-C shouldn't terminate the GF shell

Browse Source 
This quick fix should make Ctrl-C in the GF shell behave more like it does in
other shells: even if no command is running, Ctrl-C now just gives you a new
prompt instead of terminating the shell.
This commit is contained in:
hallgren
2011-04-20 14:30:49 +00:00
parent a53558aac0
commit fd0fb48493
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/compiler/GFI.hs
View File

@@ -294,10 +294,11 @@ fetchCommand gfenv = do
Haskeline.historyFile = Just path, Haskeline.historyFile = Just path,
Haskeline.autoAddHistory = True Haskeline.autoAddHistory = True
} }
res <- Haskeline.runInputT settings (Haskeline.getInputLine (prompt (commandenv gfenv))) res <- runInterruptibly $ Haskeline.runInputT settings (Haskeline.getInputLine (prompt (commandenv gfenv)))
case res of case res of
Nothing -> return "q" Left _ -> return ""
Just s -> return s Right Nothing -> return "q"
Right (Just s) -> return s
importInEnv :: GFEnv -> Options -> [FilePath] -> IO GFEnv importInEnv :: GFEnv -> Options -> [FilePath] -> IO GFEnv
importInEnv gfenv opts files importInEnv gfenv opts files