diff options
| author | Thomas Schilling <nominolo@googlemail.com> | 2011-04-04 21:05:26 +0100 |
|---|---|---|
| committer | Thomas Schilling <nominolo@googlemail.com> | 2011-04-07 13:03:59 +0100 |
| commit | 4e6bac1ec5a0546584c945c3232863d117496d90 (patch) | |
| tree | 744354d66bf854cefd75d3448080d55d0a77e4fb /compiler/main/ErrUtils.lhs | |
| parent | d637f9bc79e075f046843906900c03a2121d67f2 (diff) | |
| download | haskell-4e6bac1ec5a0546584c945c3232863d117496d90.tar.gz | |
Start support for coloured SDoc output.
The SDoc type now passes around an abstract SDocContext rather than
just a PprStyle which required touching a few more files. This should
also make it easier to integrate DynFlags passing, so that we can get
rid of global variables.
Diffstat (limited to 'compiler/main/ErrUtils.lhs')
| -rw-r--r-- | compiler/main/ErrUtils.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs index d0a8a862a4..b6297a2d6d 100644 --- a/compiler/main/ErrUtils.lhs +++ b/compiler/main/ErrUtils.lhs @@ -67,7 +67,8 @@ mkLocMessage locn msg -- would look strange. Better to say explicitly "<no location info>". printError :: SrcSpan -> Message -> IO () -printError span msg = printErrs (mkLocMessage span msg $ defaultErrStyle) +printError span msg = + printErrs (mkLocMessage span msg) defaultErrStyle -- ----------------------------------------------------------------------------- |