From d4a2fe2b1578d162fa2880f760cfcfd547973039 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 8 Sep 2004 08:55:55 +0000
Subject: [PATCH] [project @ 2004-09-08 08:55:55 by simonmar] Fix newline
 wibbles in new message API

---
 ghc/compiler/main/ErrUtils.lhs |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/main/ErrUtils.lhs b/ghc/compiler/main/ErrUtils.lhs
index 4f86481..d6f1ae1 100644
--- 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
-- 
1.7.10.4