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

[ghc-hetmet.git] / ghc / compiler / main / ErrUtils.lhs

diff --git a/ghc/compiler/main/ErrUtils.lhs b/ghc/compiler/main/ErrUtils.lhs
index a33098a..3a04c50 100644 (file)
--- a/ghc/compiler/main/ErrUtils.lhs
+++ b/ghc/compiler/main/ErrUtils.lhs
@@ -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