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

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

diff --git a/ghc/tests/concurrent/should_run/conc017.hs b/ghc/tests/concurrent/should_run/conc017.hs
index 283e6de..7bdaad2 100644 (file)
--- a/ghc/tests/concurrent/should_run/conc017.hs
+++ b/ghc/tests/concurrent/should_run/conc017.hs
@@ -26,7 +26,7 @@ main = do
         ) `catchAllIO` (\e -> putStrLn ("caught1: " ++ show e))
        putMVar m2 ()
        -- blocked here, "bar" can't be delivered
-       (threadDelay 100000)
+       (sum [1..10000] `seq` return ())
          `catchAllIO` (\e -> putStrLn ("caught2: " ++ show e))
      )
     -- unblocked here, "bar" delivered to "caught3"