[project @ 2004-09-08 08:55:55 by simonmar]

Fix newline wibbles in new message API

diff --git a/ghc/compiler/main/ErrUtils.lhs b/ghc/compiler/main/ErrUtils.lhs
index 4f86481..d6f1ae1 100644 (file)
--- a/ghc/compiler/main/ErrUtils.lhs
+++ b/ghc/compiler/main/ErrUtils.lhs
@@ -8,7 +8,7 @@ module ErrUtils (
        Message, mkLocMessage, printError,
 
        ErrMsg, WarnMsg,
-       errMsgSpans, errMsgContext, errMsgShortDoc, errMsgExtraInfo,
+       errMsgSpans, errMsgShortDoc, errMsgExtraInfo,
        Messages, errorsFound, emptyMessages,
        mkErrMsg, mkWarnMsg, mkPlainErrMsg, mkLongErrMsg,
        printErrorsAndWarnings, pprBagOfErrors, pprBagOfWarnings,
@@ -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