X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnEnv.lhs;h=2be3bfd5c0b464e30c0a1ca339365b931f612b09;hb=9d7da331989abcd1844e9d03b8d1e4163796fa85;hp=99d6a3414c32fc88a9cd63e32a06f1a8e2c1a80f;hpb=f9f5235fce1fb043b0738d86190a4e50386e5dcc;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index 99d6a34..2be3bfd 100644
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -50,7 +50,8 @@ import TcRnMonad
 import Name		( Name, nameIsLocalOrFrom, mkInternalName, isWiredInName,
 			  nameSrcLoc, nameOccName, nameModule, nameParent, isExternalName )
 import NameSet
-import OccName		( tcName, isDataOcc, occNameFlavour, reportIfUnused )
+import OccName		( tcName, isDataOcc, pprNonVarNameSpace, occNameSpace,
+			  reportIfUnused )
 import Module		( Module )
 import PrelNames	( mkUnboundName, rOOT_MAIN, iNTERACTIVE, consDataConKey, hasKey )
 import UniqSupply
@@ -747,7 +748,8 @@ warnUnusedName :: (Name, Maybe Provenance) -> RnM ()
 warnUnusedName (name, prov)
   = addWarnAt loc $
     sep [msg <> colon, 
-	 nest 2 $ occNameFlavour (nameOccName name) <+> quotes (ppr name)]
+	 nest 2 $ pprNonVarNameSpace (occNameSpace (nameOccName name))
+			<+> quotes (ppr name)]
 	-- TODO should be a proper span
   where
     (loc,msg) = case prov of
@@ -778,7 +780,8 @@ shadowedNameWarn doc shadow
 
 unknownNameErr rdr_name
   = sep [ptext SLIT("Not in scope:"), 
-	 nest 2 $ occNameFlavour (rdrNameOcc rdr_name) <+> quotes (ppr rdr_name)]
+	 nest 2 $ pprNonVarNameSpace (occNameSpace (rdrNameOcc rdr_name))
+		  <+> quotes (ppr rdr_name)]
 
 unknownInstBndrErr cls op
   = quotes (ppr op) <+> ptext SLIT("is not a (visible) method of class") <+> quotes (ppr cls)