[commit: ghc] wip/T16039: more eta (5242502)

git at git.haskell.org git at git.haskell.org
Sun Mar 31 15:07:29 UTC 2019


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T16039
Link       : http://ghc.haskell.org/trac/ghc/changeset/52425020651523e9a775f0d519bed3877ade2db2/ghc

>---------------------------------------------------------------

commit 52425020651523e9a775f0d519bed3877ade2db2
Author: Gabor Greif <ggreif at gmail.com>
Date:   Wed Dec 19 14:24:08 2018 +0100

    more eta


>---------------------------------------------------------------

52425020651523e9a775f0d519bed3877ade2db2
 compiler/coreSyn/PprCore.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/coreSyn/PprCore.hs b/compiler/coreSyn/PprCore.hs
index 812555a..d7bd2e7 100644
--- a/compiler/coreSyn/PprCore.hs
+++ b/compiler/coreSyn/PprCore.hs
@@ -147,11 +147,11 @@ ppr_binding ann (val_bdr, expr)
         lhs_bndrs = take join_arity bndrs
         rhs       = mkLams (drop join_arity bndrs) body
 
-pprParendExpr expr = ppr_expr parens expr
-pprCoreExpr   expr = ppr_expr noParens expr
+pprParendExpr = ppr_expr parens
+pprCoreExpr = ppr_expr noParens
 
 noParens :: SDoc -> SDoc
-noParens pp = pp
+noParens = id
 
 pprOptCo :: Coercion -> SDoc
 -- Print a coercion optionally; i.e. honouring -dsuppress-coercions



More information about the ghc-commits mailing list