From: simonpj <unknown>
Date: Tue, 13 Mar 2001 16:04:07 +0000 (+0000)
Subject: [project @ 2001-03-13 16:04:07 by simonpj]
X-Git-Tag: Approximately_9120_patches~2428
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ecb42f44d097573ec943be38660137cf7fb3ad61;p=ghc-hetmet.git

[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
--- 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"