X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnNames.lhs;h=26fadbe628356354b7fdceb91de0ae5b3de04f3d;hb=308af7d2ef52f02f28d8cea8142e49c278166198;hp=7f800497ac06c391dc467aec98e40ca7f0ed31ee;hpb=b0e7c6f2d78e856761944c27755b442e36ead60f;p=ghc-hetmet.git

diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs
index 7f80049..26fadbe 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),