From: simonmar <unknown>
Date: Fri, 9 Jan 2004 12:09:23 +0000 (+0000)
Subject: [project @ 2004-01-09 12:09:23 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~139
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=568d3f41cb2da3fe4887e13d69f152d66cbcb755

[project @ 2004-01-09 12:09:23 by simonmar]
Remove extra space in 'Not in scope' error message.
---

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index b0a6996..417d873 100644
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -48,7 +48,8 @@ import TcRnMonad
 import Name		( Name, nameIsLocalOrFrom, mkInternalName, isInternalName,
 			  nameSrcLoc, nameOccName, nameModuleName, nameParent )
 import NameSet
-import OccName		( tcName, isDataOcc, occNameFlavour, reportIfUnused )
+import OccName		( tcName, isDataOcc, occNameFlavour, reportIfUnused,
+			  isVarOcc )
 import Module		( Module, ModuleName, moduleName, mkHomeModule )
 import PrelNames	( mkUnboundName, rOOT_MAIN_Name, iNTERACTIVE )
 import UniqSupply
@@ -721,9 +722,12 @@ shadowedNameWarn doc shadow
     $$ doc
 
 unknownNameErr name
-  = sep [ptext SLIT("Not in scope:"), text flavour <+> quotes (ppr name)]
+  = sep [ptext SLIT("Not in scope:"), 
+	 if isVarOcc occ_name then quotes (ppr name)
+			      else text (occNameFlavour occ_name) 
+					<+> quotes (ppr name)]
   where
-    flavour = occNameFlavour (rdrNameOcc name)
+    occ_name = rdrNameOcc name
 
 unknownInstBndrErr cls op
   = quotes (ppr op) <+> ptext SLIT("is not a (visible) method of class") <+> quotes (ppr cls)