[commit: ghc] wip/T16039: Minor refactoring (8145e72)

[git at git.haskell.org]

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

On branch  : wip/T16039
Link       : http://ghc.haskell.org/trac/ghc/changeset/8145e7236f592ea753911462e7af2e16d7704648/ghc

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

commit 8145e7236f592ea753911462e7af2e16d7704648
Author: Gabor Greif <ggreif at gmail.com>
Date:   Mon Dec 17 14:52:53 2018 +0100

    Minor refactoring


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

8145e7236f592ea753911462e7af2e16d7704648
 compiler/coreSyn/PprCore.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/compiler/coreSyn/PprCore.hs b/compiler/coreSyn/PprCore.hs
index 5fe033b..812555a 100644
--- a/compiler/coreSyn/PprCore.hs
+++ b/compiler/coreSyn/PprCore.hs
@@ -62,10 +62,10 @@ pprCoreBindingsWithSize = pprTopBinds sizeAnn
 pprCoreBindingWithSize = pprTopBind sizeAnn
 
 instance OutputableBndr b => Outputable (Bind b) where
-    ppr bind = ppr_bind noAnn bind
+    ppr = ppr_bind noAnn
 
 instance OutputableBndr b => Outputable (Expr b) where
-    ppr expr = pprCoreExpr expr
+    ppr = pprCoreExpr
 
 {-
 ************************************************************************
@@ -363,9 +363,9 @@ instance OutputableBndr Var where
   bndrIsJoin_maybe = isJoinId_maybe
 
 instance Outputable b => OutputableBndr (TaggedBndr b) where
-  pprBndr _    b = ppr b   -- Simple
-  pprInfixOcc  b = ppr b
-  pprPrefixOcc b = ppr b
+  pprBndr _    = ppr   -- Simple
+  pprInfixOcc  = ppr
+  pprPrefixOcc = ppr
   bndrIsJoin_maybe (TB b _) = isJoinId_maybe b
 
 pprCoreBinder :: BindingSite -> Var -> SDoc