Remove some disabled code
authorIan Lynagh <igloo@earth.li>
Tue, 29 May 2012 12:31:32 +0000 (13:31 +0100)
committerIan Lynagh <igloo@earth.li>
Tue, 29 May 2012 12:31:32 +0000 (13:31 +0100)
compiler/utils/Binary.hs

index feb4be5..77bd190 100644 (file)
@@ -267,9 +267,6 @@ expandBin (BinMem _ _ sz_r arr_r) off = do
        copyBytes new old sz 
    writeFastMutInt sz_r sz'
    writeIORef arr_r arr'
-   when False $ -- disabled
-      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.