[commit: ghc] master: Simple eta reduction in call to adjustMatchResults, just a tidy-up (bc58d2e)

[git at git.haskell.org]

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