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

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

diff --git a/ghc/tests/concurrent/should_run/conc018.hs b/ghc/tests/concurrent/should_run/conc018.hs
index 56f0e9e..6ffe887 100644 (file)
--- a/ghc/tests/concurrent/should_run/conc018.hs
+++ b/ghc/tests/concurrent/should_run/conc018.hs
@@ -2,7 +2,7 @@ import Concurrent
 import Exception
 
 main = do
-  catchAllIO (do
+  Exception.catch (do
        m <- newMVar ()
        putMVar m ()
      )