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/CmdLineParser.hs | |
| 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/CmdLineParser.hs')
| -rw-r--r-- | compiler/main/CmdLineParser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/CmdLineParser.hs b/compiler/main/CmdLineParser.hs index 67515e53a1..372bd3507e 100644 --- a/compiler/main/CmdLineParser.hs +++ b/compiler/main/CmdLineParser.hs @@ -233,5 +233,5 @@ missingArgErr f = Left ("missing argument for flag: " ++ f) errorsToGhcException :: [Located String] -> GhcException errorsToGhcException errs = let errors = vcat [ ppr l <> text ": " <> text e | L l e <- errs ] - in UsageError (showSDoc $ withPprStyle cmdlineParserStyle errors) + in UsageError (renderWithStyle errors cmdlineParserStyle) |