get rid of GF.System.Arch only one function from it was actually used

src-3.0/GF/Devel/GFI.hs

@@ -6,10 +6,11 @@ import GF.Command.Commands
 import GF.GFCC.API
 
 import GF.Devel.UseIO
-import GF.Devel.Arch
-import GF.System.Arch (fetchCommand)
+import GF.System.Readline (fetchCommand)
 import GF.Infra.Option ---- Haskell's option lib
 
+import System.CPUTime
+
 
 mainGFI :: [String] -> IO ()
 mainGFI xx = do
@@ -39,8 +40,9 @@ loop gfenv0 = do
       loopNewCPU gfenv
 
 loopNewCPU gfenv = do
-  cpu <- prCPU $ cputime gfenv
-  loop $ gfenv {cputime = cpu}
+  cpu' <- getCPUTime
+  putStrLn (show ((cpu' - cputime gfenv) `div` 1000000000) ++ " msec")
+  loop $ gfenv {cputime = cpu'}
 
 importInEnv mgr0 xx = do
   let (opts,files) = getOptions "-" xx