From 762cdf360afd7f02ddf2fd9b3e50f57cafa5c523 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 12 May 2003 14:12:52 +0000
Subject: [PATCH] [project @ 2003-05-12 14:12:52 by simonmar] Another bugfix
 to tryM, this time for GHC 5.00--5.04

---
 ghc/compiler/typecheck/TcRnTypes.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/typecheck/TcRnTypes.lhs b/ghc/compiler/typecheck/TcRnTypes.lhs
index f61115a..5f032a5 100644
--- a/ghc/compiler/typecheck/TcRnTypes.lhs
+++ b/ghc/compiler/typecheck/TcRnTypes.lhs
@@ -164,7 +164,7 @@ tryM (TcRn thing) = TcRn (\ env -> tryJust tc_errors (thing env))
 #if __GLASGOW_HASKELL__ > 504 || __GLASGOW_HASKELL__ < 500
 	tc_errors e@(IOException ioe) | isUserError ioe = Just e
 #else
-	tc_errors e | isUserError e = Just e
+	tc_errors e@(IOException ioe) | isUserError e = Just e
 #endif
 	tc_errors _other = Nothing
 	-- type checker failures show up as UserErrors only
-- 
1.7.10.4