diff options
| author | David Terei <davidterei@gmail.com> | 2012-04-02 18:58:43 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2012-04-04 13:01:24 -0700 |
| commit | c690214d52904d4209d929fce739b831c287c6e8 (patch) | |
| tree | 749eff7a17dc5998903ce6b5b71db4d340e9017b /compiler/main/ErrUtils.lhs | |
| parent | 2bf60839b316d5b6f0324db9ad0ced8c3ec94221 (diff) | |
| download | haskell-c690214d52904d4209d929fce739b831c287c6e8.tar.gz | |
Fix tracking of reason safe inference failed. (#5988)
Diffstat (limited to 'compiler/main/ErrUtils.lhs')
| -rw-r--r-- | compiler/main/ErrUtils.lhs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs index be7f2544e6..dc73257967 100644 --- a/compiler/main/ErrUtils.lhs +++ b/compiler/main/ErrUtils.lhs @@ -9,7 +9,7 @@ module ErrUtils ( ErrMsg, WarnMsg, Severity(..), Messages, ErrorMessages, WarningMessages, errMsgSpans, errMsgContext, errMsgShortDoc, errMsgExtraInfo, - MsgDoc, mkLocMessage, pprMessageBag, pprErrMsgBag, + MsgDoc, mkLocMessage, pprMessageBag, pprErrMsgBag, pprErrMsgBagWithLoc, pprLocErrMsg, makeIntoWarning, errorsFound, emptyMessages, @@ -144,6 +144,9 @@ pprErrMsgBag bag errMsgExtraInfo = e, errMsgContext = unqual } <- sortMsgBag bag ] +pprErrMsgBagWithLoc :: Bag ErrMsg -> [SDoc] +pprErrMsgBagWithLoc bag = [ pprLocErrMsg item | item <- sortMsgBag bag ] + pprLocErrMsg :: ErrMsg -> SDoc pprLocErrMsg (ErrMsg { errMsgSpans = spans , errMsgShortDoc = d |