From dc5ae80c6230e802baac8a3032701a6cfb475e47 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 9 Jun 2000 13:48:09 +0000
Subject: [PATCH] [project @ 2000-06-09 13:48:09 by simonmar] Guard failure
 will now throw a PatternMatchFail, the NonExhaustiveGuards
 exception is to be removed.

---
 ghc/tests/lib/should_run/exceptions001.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/tests/lib/should_run/exceptions001.hs b/ghc/tests/lib/should_run/exceptions001.hs
index 4e28e94..3332008 100644
--- 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] = ()
-- 
1.7.10.4