From ca43b44cd47311dd89dcba39b60c72c951aae88c Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 27 Oct 2003 14:03:59 +0000
Subject: [PATCH] [project @ 2003-10-27 14:03:59 by simonpj] Remove unused
 function dontAddErrLoc

---
 ghc/compiler/main/ErrUtils.lhs |    5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

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
-- 
1.7.10.4