[project @ 1999-01-23 17:54:42 by sof]

[ghc-hetmet.git] / ghc / tests / lib / should_run / exceptions001.hs

diff --git a/ghc/tests/lib/should_run/exceptions001.hs b/ghc/tests/lib/should_run/exceptions001.hs
index 5afa536..4e28e94 100644 (file)
--- a/ghc/tests/lib/should_run/exceptions001.hs
+++ b/ghc/tests/lib/should_run/exceptions001.hs
@@ -13,7 +13,7 @@ main = do
   dynTest
 
 ioTest :: IO ()
-ioTest = catchIO justIoErrors (fail (userError "wibble")) 
+ioTest = catchIO justIoErrors (ioError (userError "wibble")) 
           (\ex -> if isUserError ex then putStr "io exception caught\n" 
                                     else error "help!")