diff options
| -rw-r--r-- | testsuite/tests/concurrent/should_run/conc038.hs | 4 | ||||
| -rw-r--r-- | testsuite/tests/concurrent/should_run/conc038.stdout | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/concurrent/should_run/conc038.hs b/testsuite/tests/concurrent/should_run/conc038.hs index bf7fd6d261..5534646c76 100644 --- a/testsuite/tests/concurrent/should_run/conc038.hs +++ b/testsuite/tests/concurrent/should_run/conc038.hs @@ -24,9 +24,9 @@ main = do th <- newEmptyMVar forkIO $ do putStrLn "newThread started" - sleepBlock 1 + sleepBlock 2 putStrLn "newThread back again" - putMVar th "1 sec later" + putMVar th "2 secs later" threadDelay 500000 >> putStrLn "mainThread" -- this will not be blocked in the threaded RTS forkIO $ (hFun 2) diff --git a/testsuite/tests/concurrent/should_run/conc038.stdout b/testsuite/tests/concurrent/should_run/conc038.stdout index 21fc15c4e2..88299dfcc3 100644 --- a/testsuite/tests/concurrent/should_run/conc038.stdout +++ b/testsuite/tests/concurrent/should_run/conc038.stdout @@ -2,6 +2,6 @@ newThread started mainThread Haskell: 2 newThread back again -1 sec later +2 secs later shutting down |