[commit: ghc] wip/names3: BinFingerprint: Rip out debugging (703b3a8)

[git at git.haskell.org]

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

On branch  : wip/names3
Link       : http://ghc.haskell.org/trac/ghc/changeset/703b3a8c6a076fb1a05d733fc294fd5f16e717b9/ghc

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

commit 703b3a8c6a076fb1a05d733fc294fd5f16e717b9
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Thu Sep 8 17:03:46 2016 -0400

    BinFingerprint: Rip out debugging


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

703b3a8c6a076fb1a05d733fc294fd5f16e717b9
 compiler/iface/BinFingerprint.hs | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/compiler/iface/BinFingerprint.hs b/compiler/iface/BinFingerprint.hs
index 21c275f..3b1ecb9 100644
--- a/compiler/iface/BinFingerprint.hs
+++ b/compiler/iface/BinFingerprint.hs
@@ -14,7 +14,6 @@ import Binary
 import Name
 import Panic
 import Util
-import Outputable
 
 fingerprintBinMem :: BinHandle -> IO Fingerprint
 fingerprintBinMem bh =
@@ -29,8 +28,6 @@ computeFingerprint put_nonbinding_name a = do
   bh <- return $ setUserData bh $ newWriteState put_nonbinding_name putNameLiterally putFS
   put_ bh a
   fp <- fingerprintBinMem bh
-  withBinBuffer bh (\x -> -- pprTrace "computeFingerprint" (ppr fp $$ text (show x)) $
-                          return a)
   return fp
 
 -- | Used when we want to fingerprint a structure without depending on the