X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnHsSyn.lhs;h=c80f351cc2e7e2a0181e7119f997004fed9e4751;hb=dabfa71f33eabc5a2d10959728f772aa016f1c84;hp=51073048bc8fe24f8798e0cef79592692745cfe0;hpb=3990d44447b6c38a2effd68beb50da459dfd19fc;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnHsSyn.lhs b/ghc/compiler/rename/RnHsSyn.lhs
index 5107304..c80f351 100644
--- a/ghc/compiler/rename/RnHsSyn.lhs
+++ b/ghc/compiler/rename/RnHsSyn.lhs
@@ -92,12 +92,6 @@ isRnImplicit _			 = False
 isRnUnbound (RnUnbound _) = True
 isRnUnbound _		  = False
 
-isRnDecl (RnName _)	= True
-isRnDecl (RnSyn _)	= True
-isRnDecl (RnData _ _ _)	= True
-isRnDecl (RnClass _ _)	= True
-isRnDecl _		= False
-
 -- Very general NamedThing comparison, used when comparing
 -- Uniquable things with different types
 
@@ -128,8 +122,8 @@ instance NamedThing RnName where
     getName (RnImplicitClass n) = n
     getName (RnUnbound occ)     = pprTrace "getRnName:RnUnbound: " (ppr PprDebug occ)
 				  (case occ of
-				     Unqual n -> mkLocalName bottom n bottom2
-				     Qual m n -> mkLocalName bottom n bottom2)
+				     Unqual n -> mkLocalName bottom n False bottom2
+				     Qual m n -> mkLocalName bottom n False bottom2)
 			        where bottom = mkAlphaTyVarUnique 0 -- anything; just something that will print
 				      bottom2 = panic "getRnName: srcloc"