X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FbasicTypes%2FRdrName.lhs;h=2f7f7a8b50977d52d7294c78a4ca52819ca4175c;hp=d487b4691531dd3f34c8ed5bc10ed3a3ca36c6e8;hb=b00b5bc04ff36a551552470060064f0b7d84ca30;hpb=7086e46a3819c173dc6033006d787e7a9d1a4fd3

diff --git a/compiler/basicTypes/RdrName.lhs b/compiler/basicTypes/RdrName.lhs
index d487b46..2f7f7a8 100644
--- a/compiler/basicTypes/RdrName.lhs
+++ b/compiler/basicTypes/RdrName.lhs
@@ -42,7 +42,7 @@ module RdrName (
 
 import OccName
 import Module   ( ModuleName, mkModuleNameFS, Module, moduleName )
-import Name	( Name, NamedThing(getName), nameModule, nameParent_maybe,
+import Name	( Name, NamedThing(getName), nameModule,
 		  nameOccName, isExternalName, nameSrcLoc )
 import Maybes	( mapCatMaybes )
 import SrcLoc	( isGoodSrcLoc, isGoodSrcSpan, srcLocSpan, SrcSpan )
@@ -308,8 +308,7 @@ data GlobalRdrElt
     }
 
 instance Outputable GlobalRdrElt where
-  ppr gre = ppr name <+> pp_parent (nameParent_maybe name)
-		<+> parens (pprNameProvenance gre)
+  ppr gre = ppr name <+> parens (pprNameProvenance gre)
 	  where
 	    name = gre_name gre
 	    pp_parent (Just p) = brackets (text "parent:" <+> ppr p)