diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-03-29 16:39:36 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-03-29 16:39:36 +0000 |
| commit | 7ae615619d99e405341ef2bcb461659a72d0e2b1 (patch) | |
| tree | 1eaad4ab97b9c56cc47dd9a793f0458f1b9f28b8 /compiler/utils/Binary.hs | |
| parent | c26717e6713bf1037a065ae5d89f98b109f87fab (diff) | |
| download | haskell-7ae615619d99e405341ef2bcb461659a72d0e2b1.tar.gz | |
Remove a DEBUG
Diffstat (limited to 'compiler/utils/Binary.hs')
| -rw-r--r-- | compiler/utils/Binary.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index 466a515dfc..2ebc856f58 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -61,6 +61,7 @@ import Unique import Panic import UniqFM import FastMutInt +import Util import Foreign import Data.Array.IO @@ -234,9 +235,8 @@ expandBin (BinMem _ _ sz_r arr_r) off = do | i <- [ 0 .. sz-1 ] ] writeFastMutInt sz_r sz' writeIORef arr_r arr' -#ifdef DEBUG - hPutStrLn stderr ("Binary: expanding to size: " ++ show sz') -#endif + when debugIsOn $ + 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. |