[commit: ghc] master: Remove some disabled code (f7b74fe)

Ian Lynagh igloo at earth.li
Tue May 29 15:13:07 CEST 2012


Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/f7b74fe9c8264808f3f30f60233bb23931af28b2

>---------------------------------------------------------------

commit f7b74fe9c8264808f3f30f60233bb23931af28b2
Author: Ian Lynagh <igloo at earth.li>
Date:   Tue May 29 13:31:32 2012 +0100

    Remove some disabled code

>---------------------------------------------------------------

 compiler/utils/Binary.hs |    3 ---
 1 files changed, 0 insertions(+), 3 deletions(-)

diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs
index feb4be5..77bd190 100644
--- a/compiler/utils/Binary.hs
+++ b/compiler/utils/Binary.hs
@@ -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.
 





More information about the Cvs-ghc mailing list