diff options
| author | simonpj@microsoft.com <unknown> | 2007-06-19 16:53:54 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2007-06-19 16:53:54 +0000 |
| commit | f0be46023a60a192954ddbfb6b2e0e72d371c55f (patch) | |
| tree | 26d575b8dc48002a176c277269f48c3d6b23fb24 /compiler | |
| parent | ab241c5d6187a93acffc609bdbffdae30ff9b284 (diff) | |
| download | haskell-f0be46023a60a192954ddbfb6b2e0e72d371c55f.tar.gz | |
Improve misleading warning (Trac #1422)
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/rename/RnNames.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs index 7f800497ac..26fadbe628 100644 --- a/compiler/rename/RnNames.lhs +++ b/compiler/rename/RnNames.lhs @@ -1300,8 +1300,8 @@ dodgyExportWarn item = dodgyMsg (ptext SLIT("export")) item dodgyMsg kind tc = sep [ ptext SLIT("The") <+> kind <+> ptext SLIT("item") <+> quotes (ppr (IEThingAll tc)), - ptext SLIT("suggests that") <+> quotes (ppr tc) <+> ptext SLIT("has constructor or class methods"), - ptext SLIT("but it has none; it is a type synonym or abstract type or class") ] + ptext SLIT("suggests that") <+> quotes (ppr tc) <+> ptext SLIT("has constructors or class methods,"), + ptext SLIT("but it has none") ] exportItemErr export_item = sep [ ptext SLIT("The export item") <+> quotes (ppr export_item), |