From ecb42f44d097573ec943be38660137cf7fb3ad61 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 13 Mar 2001 16:04:07 +0000
Subject: [PATCH] [project @ 2001-03-13 16:04:07 by simonpj] Remove debug
 print

---
 ghc/compiler/main/CodeOutput.lhs |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs
index 33357fc..c320964 100644
--- 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" 
-- 
1.7.10.4