From f4a7b7100ef8e7f292a617b1a305ae793224dad3 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 3 Jun 2008 09:45:46 +0000
Subject: [PATCH] remove the "expanding to size" messages

---
 compiler/utils/Binary.hs |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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 ()
-- 
1.7.10.4