diff options
| author | simonpj@microsoft.com <unknown> | 2009-03-13 13:44:02 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-03-13 13:44:02 +0000 |
| commit | 168b79b497c49f1a557aaeb173afd4d18528aeac (patch) | |
| tree | 7a4b3362e7c09929320da8474606e67643c55fb5 | |
| parent | 9393f9eacb06271a1eb820c7ddc14ef8b5872a96 (diff) | |
| download | haskell-168b79b497c49f1a557aaeb173afd4d18528aeac.tar.gz | |
Adjust error message slightly to make it clearer
| -rw-r--r-- | compiler/rename/RnNames.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs index 8448857eb2..d2add1f7be 100644 --- a/compiler/rename/RnNames.lhs +++ b/compiler/rename/RnNames.lhs @@ -1389,8 +1389,9 @@ dodgyExportWarn item = dodgyMsg (ptext (sLit "export")) item dodgyMsg :: OutputableBndr n => SDoc -> n -> SDoc 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 constructors or class methods,"), + = sep [ ptext (sLit "The") <+> kind <+> ptext (sLit "item") <+> quotes (ppr (IEThingAll tc)) + <+> ptext (sLit "suggests that"), + quotes (ppr tc) <+> ptext (sLit "has (in-scope) constructors or class methods,"), ptext (sLit "but it has none") ] exportItemErr :: IE RdrName -> SDoc |