[commit: ghc] master: Simple eta reduction in call to adjustMatchResults, just a tidy-up (bc58d2e)
git at git.haskell.org
git at git.haskell.org
Fri May 23 06:49:23 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/bc58d2e8a9da7cab90e4a06c28197d1d746a06cf/ghc
>---------------------------------------------------------------
commit bc58d2e8a9da7cab90e4a06c28197d1d746a06cf
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date: Mon May 19 23:51:24 2014 +0100
Simple eta reduction in call to adjustMatchResults, just a tidy-up
>---------------------------------------------------------------
bc58d2e8a9da7cab90e4a06c28197d1d746a06cf
compiler/deSugar/DsGRHSs.lhs | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/compiler/deSugar/DsGRHSs.lhs b/compiler/deSugar/DsGRHSs.lhs
index 0a4e1ed..a571e80 100644
--- a/compiler/deSugar/DsGRHSs.lhs
+++ b/compiler/deSugar/DsGRHSs.lhs
@@ -63,10 +63,8 @@ dsGRHSs hs_ctx _ (GRHSs grhss binds) rhs_ty
= ASSERT( notNull grhss )
do { match_results <- mapM (dsGRHS hs_ctx rhs_ty) grhss
; let match_result1 = foldr1 combineMatchResults match_results
- match_result2 = adjustMatchResultDs
- (\e -> dsLocalBinds binds e)
- match_result1
- -- NB: nested dsLet inside matchResult
+ match_result2 = adjustMatchResultDs (dsLocalBinds binds) match_result1
+ -- NB: nested dsLet inside matchResult
; return match_result2 }
dsGRHS :: HsMatchContext Name -> Type -> LGRHS Id (LHsExpr Id) -> DsM MatchResult
More information about the ghc-commits
mailing list