diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-05-29 13:31:32 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-05-29 13:31:32 +0100 |
| commit | f7b74fe9c8264808f3f30f60233bb23931af28b2 (patch) | |
| tree | da94d85de18a75b9665915de0140ee2e71769c8d /compiler/utils | |
| parent | e2b6e45e173d2c8303fb0fea99ee685fb0c237d3 (diff) | |
| download | haskell-f7b74fe9c8264808f3f30f60233bb23931af28b2.tar.gz | |
Remove some disabled code
Diffstat (limited to 'compiler/utils')
| -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. |