diff options
| author | simonpj <unknown> | 2004-09-02 15:18:44 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2004-09-02 15:18:44 +0000 |
| commit | 0e2c58247410a9317064bbddbf294644c0300b14 (patch) | |
| tree | e6981025a1238f0f3d3a5fd86aa753a0fc42210a /ghc/compiler/rename/RnNames.lhs | |
| parent | cc8f20ad72bc67f61a8a079d3ef0e7a715ad18e5 (diff) | |
| download | haskell-0e2c58247410a9317064bbddbf294644c0300b14.tar.gz | |
[project @ 2004-09-02 15:18:34 by simonpj]
Make error messages consistent
Diffstat (limited to 'ghc/compiler/rename/RnNames.lhs')
| -rw-r--r-- | ghc/compiler/rename/RnNames.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs index 6781ee7cac..396aba968e 100644 --- a/ghc/compiler/rename/RnNames.lhs +++ b/ghc/compiler/rename/RnNames.lhs @@ -740,7 +740,7 @@ reportDeprecations tcg_env , Just deprec_txt <- lookupDeprec hpt pit name = addSrcSpan (is_loc imp_spec) $ addWarn (sep [ptext SLIT("Deprecated use of") <+> - text (occNameFlavour (nameOccName name)) <+> + occNameFlavour (nameOccName name) <+> quotes (ppr name), (parens imp_msg), (ppr deprec_txt) ]) |