Commit ca43b44c authored by simonpj's avatar simonpj
Browse files

[project @ 2003-10-27 14:03:59 by simonpj]

Remove unused function dontAddErrLoc
parent 8def8755
......@@ -9,7 +9,7 @@ module ErrUtils (
Messages, errorsFound, emptyMessages,
addShortErrLocLine, addShortWarnLocLine,
addErrLocHdrLine, addWarnLocHdrLine, dontAddErrLoc,
addErrLocHdrLine, addWarnLocHdrLine,
printErrorsAndWarnings, pprBagOfErrors, pprBagOfWarnings,
......@@ -70,9 +70,6 @@ addErrLocHdrLine locn hdr msg
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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment