compiler: Eliminate pprTrace in SPT entry addition codepath
authorBen Gamari <bgamari.foss@gmail.com>
Fri, 23 Jun 2017 15:35:48 +0000 (11:35 -0400)
committerBen Gamari <ben@smart-cactus.org>
Fri, 23 Jun 2017 15:35:49 +0000 (11:35 -0400)
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

compiler/main/HscMain.hs

index d2b6e5b..b8bd76b 100644 (file)
@@ -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
 
 {-