From: simonmar <unknown>
Date: Wed, 22 Nov 2000 12:19:29 +0000 (+0000)
Subject: [project @ 2000-11-22 12:19:29 by simonmar]
X-Git-Tag: Approximately_9120_patches~3266
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e221ca6d270d327c96767e620385ba0feb184e25;p=ghc-hetmet.git

[project @ 2000-11-22 12:19:29 by simonmar]
message wibble
---

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index 5050f28..e07ec11 100644
--- 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
 --
@@ -508,7 +508,7 @@ buildStaticHscOpts = do
 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