From 529374caaa6d451400f57f1ff82106d89d603944 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 21 May 2008 09:46:30 +0000 Subject: added Readline to GF3 shell (in the same way as GF2, using GFCFLAGS in Makefile) --- src-3.0/GF/Devel/GFI.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src-3.0/GF') 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 -- cgit v1.2.3