[project @ 2001-08-22 12:24:41 by simonmar]

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

diff --git a/ghc/tests/concurrent/should_run/conc019.hs b/ghc/tests/concurrent/should_run/conc019.hs
deleted file mode 100644 (file)
index 51f640e..0000000
--- a/ghc/tests/concurrent/should_run/conc019.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-import IO
-import Concurrent
-import Exception
-
-main = do
-  forkIO (Exception.catch (do { m <- newEmptyMVar; takeMVar m })
-                         (\e -> putStrLn ("caught: " ++ show e)))
-  let x = sum [1..10000]
-  x `seq` print x