From 03d60379b5b3d4c2ee8669e8e026084f3b402479 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 23 Apr 2007 13:05:45 +0000 Subject: [PATCH] revert previous fix until I can find out why it was wrong should fix recent GHCi problems in the HEAD --- compiler/deSugar/DsGRHSs.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4