[project @ 2000-12-20 13:40:08 by simonmar]

[ghc-hetmet.git] / ghc / tests / io / should_run / io002.hs

diff --git a/ghc/tests/io/should_run/io002.hs b/ghc/tests/io/should_run/io002.hs
index 92d7a3e..e06fe6c 100644 (file)
--- a/ghc/tests/io/should_run/io002.hs
+++ b/ghc/tests/io/should_run/io002.hs
@@ -12,4 +12,4 @@ main = do
 getEnv_except :: IOError -> IO String
 getEnv_except ioe
  | isDoesNotExistError ioe = return ""
- | otherwise              = fail ioe
+ | otherwise              = ioError ioe