projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9ee95af
)
[project @ 2000-11-22 12:19:29 by simonmar]
author
simonmar
<unknown>
Wed, 22 Nov 2000 12:19:29 +0000
(12:19 +0000)
committer
simonmar
<unknown>
Wed, 22 Nov 2000 12:19:29 +0000
(12:19 +0000)
message wibble
ghc/compiler/main/DriverFlags.hs
patch
|
blob
|
history
diff --git
a/ghc/compiler/main/DriverFlags.hs
b/ghc/compiler/main/DriverFlags.hs
index
5050f28
..
e07ec11
100644
(file)
--- a/
ghc/compiler/main/DriverFlags.hs
+++ b/
ghc/compiler/main/DriverFlags.hs
@@
-1,5
+1,5
@@
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.22 2000/11/21 16:43:20 simonmar Exp $
+-- $Id: DriverFlags.hs,v 1.23 2000/11/22 12:19:29 simonmar Exp $
--
-- Driver flags
--
--
-- Driver flags
--
@@
-508,7
+508,7
@@
buildStaticHscOpts = do
runSomething phase_name cmd
= do
verb <- dynFlag verbosity
runSomething phase_name cmd
= do
verb <- dynFlag verbosity
- when (verb >= 2) $ putStr ("*** " ++ phase_name)
+ when (verb >= 2) $ putStrLn ("*** " ++ phase_name)
when (verb >= 3) $ putStrLn cmd
hFlush stdout
when (verb >= 3) $ putStrLn cmd
hFlush stdout