From: simonmar <unknown>
Date: Fri, 14 Mar 2003 16:51:59 +0000 (+0000)
Subject: [project @ 2003-03-14 16:51:59 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1072
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=527a0c8e4821474f02e5f4672d0fc7c1b9b8a16b;p=ghc-hetmet.git

[project @ 2003-03-14 16:51:59 by simonmar]
Fix tryM for GHC 5.00.x and 5.02.x.
---

diff --git a/ghc/compiler/typecheck/TcRnTypes.lhs b/ghc/compiler/typecheck/TcRnTypes.lhs
index 69b0184..f61115a 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@(IOException _) | isUserError e = Just e
+	tc_errors e | isUserError e = Just e
 #endif
 	tc_errors _other = Nothing
 	-- type checker failures show up as UserErrors only