diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-06-23 12:49:42 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-06-23 12:49:42 +0100 |
| commit | f81e14bb14e459cdd59ea232f7c711827be85dd6 (patch) | |
| tree | 8d6f780898d16ebecf8703d4a87ec0faa7e59cf2 /compiler/main/ErrUtils.lhs | |
| parent | 03fbf8ac9e76ac6d7bff20f56e4ba4bee786c96c (diff) | |
| download | haskell-f81e14bb14e459cdd59ea232f7c711827be85dd6.tar.gz | |
Allow the GHCi messages to be overridden via the GHC API; fixes #7456
They now go through log_action. The existing severities all used
printDoc, which always adds a trailing newline, which we don't
want for the GHCi messages. I therefore added a new severity
SevInteractive, which doesn't add a newline.
Diffstat (limited to 'compiler/main/ErrUtils.lhs')
| -rw-r--r-- | compiler/main/ErrUtils.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs index 3fd92ed473..f9f4387120 100644 --- a/compiler/main/ErrUtils.lhs +++ b/compiler/main/ErrUtils.lhs @@ -78,6 +78,7 @@ type MsgDoc = SDoc data Severity = SevOutput | SevDump + | SevInteractive | SevInfo | SevWarning | SevError |