diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-05-21 09:46:30 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-05-21 09:46:30 +0000 |
| commit | 529374caaa6d451400f57f1ff82106d89d603944 (patch) | |
| tree | 663cdd773d420d5582bc083b877b754e3470227e /src-3.0/GF | |
| parent | 055c0d0d5a5bb0dc75904fe53df7f2e4f5732a8f (diff) | |
added Readline to GF3 shell (in the same way as GF2, using GFCFLAGS in Makefile)
Diffstat (limited to 'src-3.0/GF')
| -rw-r--r-- | src-3.0/GF/Devel/GFI.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src-3.0/GF/Devel/GFI.hs b/src-3.0/GF/Devel/GFI.hs index f59bd15e6..e68bbb077 100644 --- a/src-3.0/GF/Devel/GFI.hs +++ b/src-3.0/GF/Devel/GFI.hs @@ -5,6 +5,7 @@ import GF.Command.Importing import GF.Command.Commands import GF.GFCC.API +import GF.System.Arch (fetchCommand) import GF.Devel.UseIO import GF.Devel.Arch import GF.Infra.Option ---- Haskell's option lib @@ -20,8 +21,7 @@ mainGFI xx = do loop :: GFEnv -> IO GFEnv loop gfenv0 = do let env = commandenv gfenv0 - putStrFlush (prompt env) - s <- getLine + s <- fetchCommand (prompt env) let gfenv = gfenv0 {history = s : history gfenv0} case words s of |