X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FErrUtils.lhs;fp=ghc%2Fcompiler%2Fmain%2FErrUtils.lhs;h=3a04c50fd084db7d2699c1679e3ef9095acbad5f;hb=ca43b44cd47311dd89dcba39b60c72c951aae88c;hp=a33098a42c3bfb991054cf18cacfdc52cbdcdcb3;hpb=8def87551a7bf9f531059e519259b1fd9df45725;p=ghc-hetmet.git

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