Messages, errorsFound, emptyMessages,
addShortErrLocLine, addShortWarnLocLine,
- addErrLocHdrLine, addWarnLocHdrLine, dontAddErrLoc,
+ addErrLocHdrLine, addWarnLocHdrLine,
printErrorsAndWarnings, pprBagOfErrors, pprBagOfWarnings,
addWarnLocHdrLine locn hdr msg
= mkWarnDoc locn (hdr $$ msg)
-dontAddErrLoc :: Message -> ErrMsg
-dontAddErrLoc msg = (noSrcLoc, msg defaultErrStyle)
-
mkErrDoc locn msg
| isGoodSrcLoc locn = hang (ppr locn <> colon) 4 msg
| otherwise = msg