From 2b7a296e52e969c969e3b77b37f512a4ff59d9ae Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sat, 31 Mar 2001 17:00:55 +0000
Subject: [PATCH] [project @ 2001-03-31 17:00:55 by panne] Don't use
 catchAllIO anymore

---
 ghc/tests/concurrent/should_run/conc019.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4