From: panne <unknown>
Date: Sat, 31 Mar 2001 17:00:55 +0000 (+0000)
Subject: [project @ 2001-03-31 17:00:55 by panne]
X-Git-Tag: Approximately_9120_patches~2239
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2b7a296e52e969c969e3b77b37f512a4ff59d9ae;p=ghc-hetmet.git

[project @ 2001-03-31 17:00:55 by panne]
Don't use catchAllIO anymore
---

diff --git a/ghc/tests/concurrent/should_run/conc019.hs b/ghc/tests/concurrent/should_run/conc019.hs
index 722cf03..51f640e 100644
--- 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