[project @ 2001-03-13 16:04:07 by simonpj]

Remove debug print

diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs
index 33357fc..c320964 100644 (file)
--- a/ghc/compiler/main/CodeOutput.lhs
+++ b/ghc/compiler/main/CodeOutput.lhs
@@ -82,8 +82,7 @@ codeOutput dflags mod_name tycons core_binds stg_binds
 
 doOutput :: String -> (Handle -> IO ()) -> IO ()
 doOutput filenm io_action
-  = (do        hPutStr stderr ("Writing to" ++ filenm)
-       handle <- openFile filenm WriteMode
+  = (do        handle <- openFile filenm WriteMode
        io_action handle
        hClose handle)
     `catch` (\err -> pprPanic "Failed to open or write code output file"