[project @ 2001-03-31 17:00:55 by panne]

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

diff --git a/ghc/tests/concurrent/should_run/conc019.hs b/ghc/tests/concurrent/should_run/conc019.hs
index 722cf03..51f640e 100644 (file)
--- a/ghc/tests/concurrent/should_run/conc019.hs
+++ b/ghc/tests/concurrent/should_run/conc019.hs
@@ -3,7 +3,7 @@ import Concurrent
 import Exception
 
 main = do
-  forkIO (catchAllIO (do { m <- newEmptyMVar; takeMVar m })
-                    (\e -> putStrLn ("caught: " ++ show e)))
+  forkIO (Exception.catch (do { m <- newEmptyMVar; takeMVar m })
+                         (\e -> putStrLn ("caught: " ++ show e)))
   let x = sum [1..10000]
   x `seq` print x