Commit d4a2fe2b authored by simonmar's avatar simonmar

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

Fix newline wibbles in new message API
parent 266c5c79
......@@ -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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment