diff options
Diffstat (limited to 'compiler/utils/Binary.hs')
-rw-r--r-- | compiler/utils/Binary.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index feb4be50c1..77bd190fa9 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -267,9 +267,6 @@ expandBin (BinMem _ _ sz_r arr_r) off = do copyBytes new old sz writeFastMutInt sz_r sz' writeIORef arr_r arr' - when False $ -- disabled - hPutStrLn stderr ("Binary: expanding to size: " ++ show sz') - return () expandBin (BinIO _ _ _) _ = return () -- no need to expand a file, we'll assume they expand by themselves. |