X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnSource.lhs;h=b64782dc528bc36fbd6a1b17c897bda6ec304c25;hp=c7b23686f5c18da253b476c11e005c47254d26ce;hb=4385caba003064bb556f965b32fdc962ea19ea69;hpb=479f9fcbe056864fd5daff01d0e00d4a432b3658

diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs
index c7b2368..b64782d 100644
--- a/compiler/rename/RnSource.lhs
+++ b/compiler/rename/RnSource.lhs
@@ -427,9 +427,10 @@ rnSrcInstDecl (InstDecl inst_ty mbinds uprags ats)
 	-- But the (unqualified) method names are in scope
     let 
 	binders = collectHsBindBinders mbinds'
-	ok_sig  = okInstDclSig (mkNameSet binders)
+	bndr_set = mkNameSet binders
     in
-    bindLocalNames binders (renameSigs ok_sig uprags)	`thenM` \ uprags' ->
+    bindLocalNames binders 
+	(renameSigs (Just bndr_set) okInstDclSig uprags)	`thenM` \ uprags' ->
 
     returnM (InstDecl inst_ty' mbinds' uprags' ats',
 	     meth_fvs `plusFV` at_fvs
@@ -731,7 +732,7 @@ rnTyClDecl (ClassDecl {tcdCtxt = context, tcdLName = cname,
 	     { context' <- rnContext cls_doc context
 	     ; fds' <- rnFds cls_doc fds
 	     ; (ats', ats_fvs) <- rnATs ats
-	     ; sigs' <- renameSigs okClsDclSig sigs
+	     ; sigs' <- renameSigs Nothing okClsDclSig sigs
 	     ; return   (tyvars', context', fds', ats', ats_fvs, sigs') }
 
 	-- No need to check for duplicate associated type decls