diff options
| author | panne <unknown> | 2000-03-02 15:53:26 +0000 |
|---|---|---|
| committer | panne <unknown> | 2000-03-02 15:53:26 +0000 |
| commit | b4e5ee101fab479f2be10b63269536735fce7359 (patch) | |
| tree | e439ad5d0ff122e898baf9d379ac8478a159bc52 | |
| parent | 31e66845603e9bb1229d72e5fbf6222c3a0d46c6 (diff) | |
| download | haskell-b4e5ee101fab479f2be10b63269536735fce7359.tar.gz | |
[project @ 2000-03-02 15:53:26 by panne]
Small improvement in warning message
| -rw-r--r-- | ghc/compiler/rename/Rename.lhs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs index bc6cfa1b6b..28c58f799e 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 |