diff options
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 |