From: simonpj@microsoft.com <unknown>
Date: Fri, 13 Mar 2009 13:44:02 +0000 (+0000)
Subject: Adjust error message slightly to make it clearer
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=168b79b497c49f1a557aaeb173afd4d18528aeac

Adjust error message slightly to make it clearer
---

diff --git a/compiler/rename/RnNames.lhs b/compiler/rename/RnNames.lhs
index 8448857..d2add1f 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