import Panic
import UniqFM
import FastMutInt
-import Util
import Fingerprint
import Foreign
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 ()