X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FErrUtils.lhs;fp=ghc%2Fcompiler%2Fmain%2FErrUtils.lhs;h=fa34674cbf72223f385580907acbc1c929ba08c8;hb=1f5e55804b97d2b9a77207d568d602ba88d8855d;hp=3a04c50fd084db7d2699c1679e3ef9095acbad5f;hpb=599e42c2948811e71607c5167d9345ddd74d83c3;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/ErrUtils.lhs b/ghc/compiler/main/ErrUtils.lhs
index 3a04c50..fa34674 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, 
+	addErrLocHdrLine, 
 
 	printErrorsAndWarnings, pprBagOfErrors, pprBagOfWarnings,
 
@@ -50,7 +50,6 @@ addShortWarnLocLine :: SrcLoc -> PrintUnqualified -> Message -> WarnMsg
 	-- Be refined about qualification, return an ErrMsg
 
 addErrLocHdrLine    :: SrcLoc -> Message -> Message -> Message
-addWarnLocHdrLine   :: SrcLoc -> Message -> Message -> Message
 	-- Used by Lint and other system stuff
 	-- Always print qualified, return a Message
 
@@ -67,18 +66,11 @@ addShortWarnLocLine locn print_unqual msg
 addErrLocHdrLine locn hdr msg
   = mkErrDoc locn (hdr $$ msg)
 
-addWarnLocHdrLine locn hdr msg
-  = mkWarnDoc locn (hdr $$ msg)
-
 mkErrDoc locn msg
   | isGoodSrcLoc locn = hang (ppr locn <> colon) 4 msg
   | otherwise	      = msg
 	
-mkWarnDoc locn msg 
-  | isGoodSrcLoc locn = hang (ppr locn <> colon) 4 warn_msg
-  | otherwise	      = warn_msg
-  where
-    warn_msg = ptext SLIT("Warning:") <+> msg
+mkWarnDoc locn msg = mkErrDoc locn msg
 \end{code}
 
 \begin{code}