From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 3 Jun 2008 09:45:46 +0000 (+0000)
Subject: remove the "expanding to size" messages
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=f4a7b7100ef8e7f292a617b1a305ae793224dad3

remove the "expanding to size" messages
---

diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs
index 076ae16..4d82deb 100644
--- a/compiler/utils/Binary.hs
+++ b/compiler/utils/Binary.hs
@@ -62,7 +62,6 @@ import FastString
 import Panic
 import UniqFM
 import FastMutInt
-import Util
 import Fingerprint
 
 import Foreign
@@ -257,7 +256,7 @@ expandBin (BinMem _ _ sz_r arr_r) off = do
        copyBytes new old sz 
    writeFastMutInt sz_r sz'
    writeIORef arr_r arr'
-   when debugIsOn $
+   when False $ -- disabled
       hPutStrLn stderr ("Binary: expanding to size: " ++ show sz')
    return ()
 expandBin (BinIO _ _ _) _ = return ()