From: igloo <unknown>
Date: Tue, 20 May 2003 22:39:33 +0000 (+0000)
Subject: [project @ 2003-05-20 22:39:33 by igloo]
X-Git-Tag: Approx_11550_changesets_converted~888
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2206f264f11b8a6f95ec42f9dfd618925c728f67;p=ghc-hetmet.git

[project @ 2003-05-20 22:39:33 by igloo]
Fix building on 5.02
---

diff --git a/ghc/compiler/typecheck/TcRnTypes.lhs b/ghc/compiler/typecheck/TcRnTypes.lhs
index 6140efd..50a5c55 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
 #elif __GLASGOW_HASKELL__ == 502
-	tc_errors (UserError _) = Just e
+	tc_errors e@(UserError _) = Just e
 #else 
 	tc_errors e@(IOException ioe) | isUserError e = Just e
 #endif