diff options
| author | kr.angelov <kr.angelov@chalmers.se> | 2008-05-22 12:39:13 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@chalmers.se> | 2008-05-22 12:39:13 +0000 |
| commit | 2e49f7f5b15e106f46e6d714b6e91aaf1a303bcd (patch) | |
| tree | a27b5c82bf800b3c5f5369f4b4caa68fee8efb93 /src-3.0/GF/Devel/GFI.hs | |
| parent | df0c4f81fa9c620d7c63af79c0b183a6beccf0bd (diff) | |
get rid of GF.System.Arch only one function from it was actually used
Diffstat (limited to 'src-3.0/GF/Devel/GFI.hs')
| -rw-r--r-- | src-3.0/GF/Devel/GFI.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src-3.0/GF/Devel/GFI.hs b/src-3.0/GF/Devel/GFI.hs index 04c567aa3..f78e576cf 100644 --- a/src-3.0/GF/Devel/GFI.hs +++ b/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 |