Commit f0be4602 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Improve misleading warning (Trac #1422)

parent ab241c5d
...@@ -1300,8 +1300,8 @@ dodgyExportWarn item = dodgyMsg (ptext SLIT("export")) item ...@@ -1300,8 +1300,8 @@ dodgyExportWarn item = dodgyMsg (ptext SLIT("export")) item
dodgyMsg kind tc dodgyMsg kind tc
= sep [ ptext SLIT("The") <+> kind <+> ptext SLIT("item") <+> quotes (ppr (IEThingAll 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("suggests that") <+> quotes (ppr tc) <+> ptext SLIT("has constructors or class methods,"),
ptext SLIT("but it has none; it is a type synonym or abstract type or class") ] ptext SLIT("but it has none") ]
exportItemErr export_item exportItemErr export_item
= sep [ ptext SLIT("The export item") <+> quotes (ppr export_item), = sep [ ptext SLIT("The export item") <+> quotes (ppr export_item),
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment