From 7ae615619d99e405341ef2bcb461659a72d0e2b1 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 29 Mar 2008 16:39:36 +0000 Subject: [PATCH] Remove a DEBUG --- compiler/utils/Binary.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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. -- 1.7.10.4