Commit 28378bbd authored by simonmar's avatar simonmar

[project @ 2002-09-10 12:31:54 by simonmar]

Put debugging output in #ifdef DEBUG

MERGE TO STABLE
parent 0602c047
......@@ -263,7 +263,9 @@ expandBin (BinMem _ ix_r sz_r arr_r) off = do
| i <- [ 0 .. sz-1 ] ]
writeFastMutInt sz_r sz'
writeIORef arr_r arr'
hPutStrLn stderr ("expanding to size: " ++ show sz')
#ifdef DEBUG
hPutStrLn stderr ("Binary: expanding to size: " ++ show sz')
#endif
return ()
expandBin (BinIO _ _ _) _ = return ()
-- no need to expand a file, we'll assume they expand by themselves.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment