From 568d3f41cb2da3fe4887e13d69f152d66cbcb755 Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 9 Jan 2004 12:09:23 +0000 Subject: [PATCH] [project @ 2004-01-09 12:09:23 by simonmar] Remove extra space in 'Not in scope' error message. --- ghc/compiler/rename/RnEnv.lhs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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) -- 1.7.10.4