From 0fe14834f10717e06efca4cef07d0640a99ff0a7 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 29 Nov 2001 12:20:08 +0000
Subject: [PATCH] [project @ 2001-11-29 12:20:08 by simonpj] Wibble in TcPat;
 fixes the stage2 build problem in AsmCodeGen

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

diff --git a/ghc/compiler/typecheck/TcPat.lhs b/ghc/compiler/typecheck/TcPat.lhs
index 3660c78..7d5e823 100644
--- a/ghc/compiler/typecheck/TcPat.lhs
+++ b/ghc/compiler/typecheck/TcPat.lhs
@@ -140,7 +140,7 @@ tcPat tc_bndr (LazyPatIn pat) pat_ty
 tcPat tc_bndr pat_in@(AsPatIn name pat) pat_ty
   = tc_bndr name pat_ty			`thenTc` \ (co_fn, lie_req1, bndr_id) ->
     tcPat tc_bndr pat pat_ty		`thenTc` \ (pat', lie_req2, tvs, ids, lie_avail) ->
-    returnTc (co_fn <$> (AsPat bndr_id pat'), lie_req1 `plusLIE` lie_req1, 
+    returnTc (co_fn <$> (AsPat bndr_id pat'), lie_req1 `plusLIE` lie_req2, 
 	      tvs, (name, bndr_id) `consBag` ids, lie_avail)
 
 tcPat tc_bndr WildPatIn pat_ty
-- 
1.7.10.4