Remove a DEBUG

diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs
index 466a515..2ebc856 100644 (file)
--- a/compiler/utils/Binary.hs
+++ b/compiler/utils/Binary.hs
@@ -61,6 +61,7 @@ import Unique
 import Panic
 import UniqFM
 import FastMutInt
 import Panic
 import UniqFM
 import FastMutInt

+import Util

 
 import Foreign
 import Data.Array.IO
 
 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'
              | 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.
    return ()
 expandBin (BinIO _ _ _) _ = return ()
 -- no need to expand a file, we'll assume they expand by themselves.