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

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

diff --git a/ghc/tests/concurrent/should_run/conc016.hs b/ghc/tests/concurrent/should_run/conc016.hs
index e616a42..3990d0c 100644 (file)
--- a/ghc/tests/concurrent/should_run/conc016.hs
+++ b/ghc/tests/concurrent/should_run/conc016.hs
@@ -8,11 +8,11 @@ main = do
   m <- newEmptyMVar
   sub_thread <- forkIO (do
                         takeMVar m
-                        raiseInThread main_thread (ErrorCall "foo")
+                        throwTo main_thread (ErrorCall "foo")
                        )
-  blockAsyncExceptions (do
+  block (do
     putMVar m ()
     sum [1..10000] `seq` -- to be sure the other thread is now blocked
-       killThread sub_thread
+      killThread sub_thread
    )
   putStrLn "ok"