diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:44 +0000 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2008-07-31 01:23:44 +0000 |
| commit | b034e785cac038b9ffa72bf73ccc45a12c40c812 (patch) | |
| tree | 1cc061a38914e321c149f282e7835520d89e4b6e /compiler/main/ErrUtils.lhs | |
| parent | beb406f4092f020b79077eb019dbee7c32a72238 (diff) | |
| download | haskell-b034e785cac038b9ffa72bf73ccc45a12c40c812.tar.gz | |
Expand ErrUtils api with another plain variant
Diffstat (limited to 'compiler/main/ErrUtils.lhs')
| -rw-r--r-- | compiler/main/ErrUtils.lhs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs index 18e7337ba9..af1da394a3 100644 --- a/compiler/main/ErrUtils.lhs +++ b/compiler/main/ErrUtils.lhs @@ -11,7 +11,7 @@ module ErrUtils ( ErrMsg, WarnMsg, throwErrMsg, handleErrMsg, errMsgSpans, errMsgContext, errMsgShortDoc, errMsgExtraInfo, Messages, errorsFound, emptyMessages, - mkErrMsg, mkWarnMsg, mkPlainErrMsg, mkLongErrMsg, + mkErrMsg, mkPlainErrMsg, mkLongErrMsg, mkWarnMsg, mkPlainWarnMsg, printErrorsAndWarnings, printBagOfErrors, printBagOfWarnings, handleFlagWarnings, @@ -132,6 +132,10 @@ mkLongErrMsg locn print_unqual msg extra mkWarnMsg :: SrcSpan -> PrintUnqualified -> Message -> WarnMsg mkWarnMsg = mkErrMsg +-- Variant that doesn't care about qualified/unqualified names +mkPlainWarnMsg :: SrcSpan -> Message -> ErrMsg +mkPlainWarnMsg locn msg = mkWarnMsg locn alwaysQualify msg + type Messages = (Bag WarnMsg, Bag ErrMsg) emptyMessages :: Messages |