From 2206f264f11b8a6f95ec42f9dfd618925c728f67 Mon Sep 17 00:00:00 2001
From: igloo <unknown>
Date: Tue, 20 May 2003 22:39:33 +0000
Subject: [PATCH] [project @ 2003-05-20 22:39:33 by igloo] Fix building on
 5.02

---
 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 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
-- 
1.7.10.4