[commit: ghc] wip/all-inlinable: Remove traces (912a5cc)

[git at git.haskell.org]

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

On branch  : wip/all-inlinable
Link       : http://ghc.haskell.org/trac/ghc/changeset/912a5cca80867b2bc7f2b8ca26d1ee430b08946a/ghc

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

commit 912a5cca80867b2bc7f2b8ca26d1ee430b08946a
Author: Matthew Pickering <matthewtpickering at gmail.com>
Date:   Sun Jan 1 21:34:05 2017 +0000

    Remove traces


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

912a5cca80867b2bc7f2b8ca26d1ee430b08946a
 compiler/deSugar/DsBinds.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/deSugar/DsBinds.hs b/compiler/deSugar/DsBinds.hs
index ab1cc75..7ba0416 100644
--- a/compiler/deSugar/DsBinds.hs
+++ b/compiler/deSugar/DsBinds.hs
@@ -327,10 +327,10 @@ makeCorePair :: DynFlags -> Id -> Bool -> Arity -> CoreExpr -> (Id, CoreExpr)
 makeCorePair dflags gbl_id is_default_method dict_arity rhs
   | is_default_method                 -- Default methods are *always* inlined
   = (gbl_id `setIdUnfolding` mkCompulsoryUnfolding rhs, rhs)
-  | pprTrace "isOverloadedTy" (ppr $ idType gbl_id)
+  |
     (isEmptyInlineSpec inline_spec) &&
       (isOverloadedTy (idType gbl_id))
-  = pprTrace "overloaded" (ppr "") (gbl_id `setIdUnfolding` inlinable_unf, rhs)
+  = (gbl_id `setIdUnfolding` inlinable_unf, rhs)
     -- Expose unfolding of overloaded function if we know no better
   | otherwise
   = case inlinePragmaSpec inline_prag of