Commit f4a7b710 authored by Simon Marlow's avatar Simon Marlow
Browse files

remove the "expanding to size" messages

parent 667ef993
......@@ -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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment