X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FDsGRHSs.lhs;fp=compiler%2FdeSugar%2FDsGRHSs.lhs;h=07907bd300eed9e46487841d38385e4ae8e74f85;hp=55b4f572f07dcd2887ed34816b9ca70f2faa5584;hb=03d60379b5b3d4c2ee8669e8e026084f3b402479;hpb=70918cf4a4d61d4752b18f29ce14c7d7f1fbce01

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