msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

interrupt in proper place in GFI

Browse Source
This commit is contained in:
aarne
2008-06-27 06:50:50 +00:00
parent 757ea827e6
commit e8dc8c3ef5
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GFI.hs
View File

@@ -48,7 +48,7 @@ loop opts gfenv0 = do
let loopNewCPU gfenv' = do let loopNewCPU gfenv' = do
cpu' <- getCPUTime cpu' <- getCPUTime
putStrLnFlush (show ((cpu' - cputime gfenv') `div` 1000000000) ++ " msec") putStrLnFlush (show ((cpu' - cputime gfenv') `div` 1000000000) ++ " msec")
loop opts $ gfenv' {cputime = cpu'} return $ gfenv' {cputime = cpu'}
let let
enc = encode gfenv enc = encode gfenv
s = decode gfenv s0 s = decode gfenv s0
@@ -118,7 +118,8 @@ loop opts gfenv0 = do
interpretCommandLine enc env s interpretCommandLine enc env s
loopNewCPU gfenv loopNewCPU gfenv
gfenv' <- return $ either (const gfenv) id r gfenv' <- return $ either (const gfenv) id r
loopNewCPU gfenv' e <- loopNewCPU gfenv'
loop opts e
importInEnv :: GFEnv -> Options -> [FilePath] -> IO GFEnv importInEnv :: GFEnv -> Options -> [FilePath] -> IO GFEnv
importInEnv gfenv opts files importInEnv gfenv opts files