[project @ 2004-11-10 04:17:50 by wolfgang]

[ghc-hetmet.git] / ghc / compiler / main / ErrUtils.lhs

diff --git a/ghc/compiler/main/ErrUtils.lhs b/ghc/compiler/main/ErrUtils.lhs
index 4f86481..3e93a50 100644 (file)
--- a/ghc/compiler/main/ErrUtils.lhs
+++ b/ghc/compiler/main/ErrUtils.lhs
@@ -40,7 +40,7 @@ import CmdLineOpts    ( DynFlags(..), DynFlag(..), dopt,
 import List             ( replicate, sortBy )
 import System          ( ExitCode(..), exitWith )
 import DATA_IOREF
-import IO              ( hPutStr, stderr, stdout )
+import IO              ( hPutStrLn, stderr, stdout )
 
 
 -- -----------------------------------------------------------------------------
@@ -170,7 +170,7 @@ doIfSet_dyn dflags flag action | dopt flag dflags = action
 
 \begin{code}
 showPass :: DynFlags -> String -> IO ()
-showPass dflags what = compilationPassMsg dflags ("*** "++what++":\n")
+showPass dflags what = compilationPassMsg dflags ("*** "++what++":")
 
 dumpIfSet :: Bool -> String -> SDoc -> IO ()
 dumpIfSet flag hdr doc
@@ -234,7 +234,7 @@ debugTraceMsg :: DynFlags -> String -> IO ()
 debugTraceMsg dflags msg
   = ifVerbose dflags 2 (putMsg msg)
 
-GLOBAL_VAR(msgHandler, hPutStr stderr, (String -> IO ()))
+GLOBAL_VAR(msgHandler, hPutStrLn stderr, (String -> IO ()))
 
 setMsgHandler :: (String -> IO ()) -> IO ()
 setMsgHandler handle_msg = writeIORef msgHandler handle_msg