[project @ 2001-02-13 15:12:42 by rrt]

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

diff --git a/ghc/tests/concurrent/should_run/conc010.hs b/ghc/tests/concurrent/should_run/conc010.hs
index 661b076..bb97b96 100644 (file)
--- a/ghc/tests/concurrent/should_run/conc010.hs
+++ b/ghc/tests/concurrent/should_run/conc010.hs
@@ -22,8 +22,8 @@ main = do
   block  <- newEmptyMVar
   ready  <- newEmptyMVar
   ready2 <- newEmptyMVar
-  id <- forkIO (catchAllIO (putMVar ready () >> takeMVar block) 
+  id <- forkIO (Exception.catch (putMVar ready () >> takeMVar block) 
                (\e -> putStr (show e) >> putMVar ready2 ()))
   takeMVar ready
-  raiseInThread id (ErrorCall "hello")
+  throwTo id (ErrorCall "hello")
   takeMVar ready2