[project @ 2000-06-09 13:48:09 by simonmar]

Guard failure will now throw a PatternMatchFail, the
NonExhaustiveGuards exception is to be removed.

diff --git a/ghc/tests/lib/should_run/exceptions001.hs b/ghc/tests/lib/should_run/exceptions001.hs
index 4e28e94..3332008 100644 (file)
--- a/ghc/tests/lib/should_run/exceptions001.hs
+++ b/ghc/tests/lib/should_run/exceptions001.hs
@@ -41,7 +41,7 @@ test1 [] = ()
 
 guardTest = catchAllIO (case test2 of () -> return ())
   (\ex -> case ex of
-               NonExhaustiveGuards err -> putStr err
+               PatternMatchFail err -> putStr err
                other                -> error "help!")
 
 test2 | all (==0) [1] = ()