[commit: ghc] master: compiler: Eliminate pprTrace in SPT entry addition codepath (84cf095)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/84cf095dc981ea21fcceddbb71463dd7844754ca/ghc

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

commit 84cf095dc981ea21fcceddbb71463dd7844754ca
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Fri Jun 23 11:35:48 2017 -0400

    compiler: Eliminate pprTrace in SPT entry addition codepath
    
    Test Plan: Load program with StaticPointers into GHCi, ensure no
    tracing output makes it in.
    
    Reviewers: austin
    
    Subscribers: rwbarton, thomie, RyanGlScott
    
    GHC Trac Issues: #12356
    
    Differential Revision: https://phabricator.haskell.org/D3663


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

84cf095dc981ea21fcceddbb71463dd7844754ca
 compiler/main/HscMain.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs
index d2b6e5b..b8bd76b 100644
--- a/compiler/main/HscMain.hs
+++ b/compiler/main/HscMain.hs
@@ -1611,8 +1611,7 @@ hscAddSptEntries hsc_env entries = do
     let add_spt_entry :: SptEntry -> IO ()
         add_spt_entry (SptEntry i fpr) = do
             val <- getHValue hsc_env (idName i)
-            pprTrace "add_spt_entry" (ppr fpr <+> ppr i) $
-                addSptEntry hsc_env fpr val
+            addSptEntry hsc_env fpr val
     mapM_ add_spt_entry entries
 
 {-