From 3a27dd455ee22b9b6eb9e9ec9656b344bd8741a0 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 22 May 2008 07:38:41 +0000
Subject: restored readline

---
 src-3.0/GF/Devel/GFI.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 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..04c567aa3 100644
--- a/src-3.0/GF/Devel/GFI.hs
+++ b/src-3.0/GF/Devel/GFI.hs
@@ -7,6 +7,7 @@ import GF.GFCC.API
 
 import GF.Devel.UseIO
 import GF.Devel.Arch
+import GF.System.Arch (fetchCommand)
 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
 
@@ -68,7 +68,10 @@ welcome = unlines [
   "Some things may work.         "
   ]
 
-prompt env = abstractName (multigrammar env) ++ "> "
+prompt env = absname ++ "> " where
+  absname = case abstractName (multigrammar env) of
+    "_" -> ""  --- created by new Ident handling 22/5/2008
+    n   -> n
 
 data GFEnv = GFEnv {
   commandenv :: CommandEnv,
-- 
cgit v1.2.3