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

[ghc-hetmet.git] / ghc / tests / lib / IO / IOError001.hs

diff --git a/ghc/tests/lib/IO/IOError001.hs b/ghc/tests/lib/IO/IOError001.hs
deleted file mode 100644 (file)
index dee7f31..0000000
--- a/ghc/tests/lib/IO/IOError001.hs
+++ /dev/null
@@ -1,7 +0,0 @@
-
--- test for a bug in GHC <= 4.08.2: handles were being left locked after
--- being shown in an error message.
-main = do
-  getContents
-  catch getChar (\e -> print e >> return 'x')
-  catch getChar (\e -> print e >> return 'x')