From: Simon Marlow <simonmar@microsoft.com>
Date: Mon, 23 Apr 2007 13:05:45 +0000 (+0000)
Subject: revert previous fix until I can find out why it was wrong
X-Git-Tag: 2007-05-06~128
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=03d60379b5b3d4c2ee8669e8e026084f3b402479

revert previous fix until I can find out why it was wrong
should fix recent GHCi problems in the HEAD
---

diff --git a/compiler/deSugar/DsGRHSs.lhs b/compiler/deSugar/DsGRHSs.lhs
index 55b4f57..07907bd 100644
--- a/compiler/deSugar/DsGRHSs.lhs
+++ b/compiler/deSugar/DsGRHSs.lhs
@@ -63,7 +63,7 @@ dsGRHSs hs_ctx pats grhssa@(GRHSs grhss binds) rhs_ty =
     let 
 	match_result1 = foldr1 combineMatchResults match_results
 	match_result2 = adjustMatchResultDs 
-                                 (\e -> bindLocalsDs binders $ 
+                                 (\e -> bindLocalsDs patsBinders $ 
                                         dsLocalBinds binds e) 
                                  match_result1
 		-- NB: nested dsLet inside matchResult