diff options
| author | simonmar <unknown> | 2004-09-08 08:55:55 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2004-09-08 08:55:55 +0000 |
| commit | d4a2fe2b1578d162fa2880f760cfcfd547973039 (patch) | |
| tree | d159fced1080491f6681f90ff8c386f5f2e6a764 /ghc/compiler/main/ErrUtils.lhs | |
| parent | 266c5c7999e778abf02f36c680a90c2893bbe4d7 (diff) | |
| download | haskell-d4a2fe2b1578d162fa2880f760cfcfd547973039.tar.gz | |
[project @ 2004-09-08 08:55:55 by simonmar]
Fix newline wibbles in new message API
Diffstat (limited to 'ghc/compiler/main/ErrUtils.lhs')
| -rw-r--r-- | ghc/compiler/main/ErrUtils.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/compiler/main/ErrUtils.lhs b/ghc/compiler/main/ErrUtils.lhs index 4f86481456..d6f1ae1deb 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 |