projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
c8208e8
)
[project @ 2001-03-13 16:04:07 by simonpj]
author
simonpj
<unknown>
Tue, 13 Mar 2001 16:04:07 +0000
(16:04 +0000)
committer
simonpj
<unknown>
Tue, 13 Mar 2001 16:04:07 +0000
(16:04 +0000)
Remove debug print
ghc/compiler/main/CodeOutput.lhs
patch
|
blob
|
history
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"