revert previous fix until I can find out why it was wrong

[ghc-hetmet.git] / compiler / deSugar / DsGRHSs.lhs

diff --git a/compiler/deSugar/DsGRHSs.lhs b/compiler/deSugar/DsGRHSs.lhs
index 55b4f57..07907bd 100644 (file)
--- 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