GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 10:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
kr.angelov
2008-05-22 12:39:13 +00:00
parent fc42d8ec3b
commit 3df4c21879
4 changed files with 6 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src-3.0/GF/Devel/GFI.hs
View File

@@ -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