From: simonpj <unknown>
Date: Mon, 27 Oct 2003 14:03:59 +0000 (+0000)
Subject: [project @ 2003-10-27 14:03:59 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~326
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ca43b44cd47311dd89dcba39b60c72c951aae88c;p=ghc-hetmet.git

[project @ 2003-10-27 14:03:59 by simonpj]
Remove unused function dontAddErrLoc
---

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