[project @ 2003-05-20 22:39:33 by igloo]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcRnTypes.lhs

diff --git a/ghc/compiler/typecheck/TcRnTypes.lhs b/ghc/compiler/typecheck/TcRnTypes.lhs
index 6140efd..50a5c55 100644 (file)
--- 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