[project @ 2000-03-21 15:54:25 by simonmar]

[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 753d45b..56f0e9e 100644 (file)
--- a/ghc/tests/concurrent/should_run/conc018.hs
+++ b/ghc/tests/concurrent/should_run/conc018.hs
@@ -1,7 +1,8 @@
 import Concurrent
+import Exception
 
 main = do
-  catch (do
+  catchAllIO (do
        m <- newMVar ()
        putMVar m ()
      )