[project @ 2000-03-21 15:54:25 by simonmar]

[ghc-hetmet.git] / ghc / tests / concurrent / should_run / conc015.hs

diff --git a/ghc/tests/concurrent/should_run/conc015.hs b/ghc/tests/concurrent/should_run/conc015.hs
index ad4fc69..96ce373 100644 (file)
--- a/ghc/tests/concurrent/should_run/conc015.hs
+++ b/ghc/tests/concurrent/should_run/conc015.hs
@@ -22,8 +22,8 @@ main = do
   ( do
     blockAsyncExceptions (do
        putMVar m ()
-       threadDelay 500000
-       (unblockAsyncExceptions (threadDelay 500000))
+       sum [1..10000] `seq` -- give 'foo' a chance to be raised
+         (unblockAsyncExceptions (threadDelay 500000))
                `catchAllIO` (\e -> putStrLn ("caught1: " ++ show e))
      )
     takeMVar m2