From: Ian Lynagh <igloo@earth.li>
Date: Sat, 29 Mar 2008 16:39:36 +0000 (+0000)
Subject: Remove a DEBUG
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7ae615619d99e405341ef2bcb461659a72d0e2b1

Remove a DEBUG
---

diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs
index 466a515..2ebc856 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.