From: panne <unknown>
Date: Thu, 2 Mar 2000 15:53:26 +0000 (+0000)
Subject: [project @ 2000-03-02 15:53:26 by panne]
X-Git-Tag: Approximately_9120_patches~5065
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b4e5ee101fab479f2be10b63269536735fce7359;p=ghc-hetmet.git

[project @ 2000-03-02 15:53:26 by panne]
Small improvement in warning message
---

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index bc6cfa1..28c58f7 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -558,7 +558,9 @@ warnDeprec :: (Name, DeprecTxt) -> RnM d ()
 warnDeprec (name, txt)
   = pushSrcLocRn (getSrcLoc name)	$
     addWarnRn				$
-    sep [ text "Using deprecated entity" <+> ppr name <> colon, nest 4 (ppr txt) ]
+    sep [ text (occNameFlavour (nameOccName name)) <+> ppr name <+>
+          text "is deprecated:", nest 4 (ppr txt) ]
+
 
 rnDump  :: [RenamedHsDecl] 	-- Renamed imported decls
 	-> [RenamedHsDecl] 	-- Renamed local decls