use ByteString internally in Ident, CId and Label

src-3.0/GF/Devel/GFI.hs

@@ -5,7 +5,6 @@ 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
@@ -21,7 +20,8 @@ mainGFI xx = do
 loop :: GFEnv -> IO GFEnv
 loop gfenv0 = do
   let env = commandenv gfenv0
-  s <- fetchCommand (prompt env)
+  putStrFlush (prompt env)
+  s <- getLine
   let gfenv = gfenv0 {history = s : history gfenv0}
   case words s of