X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnIfaces.lhs;h=e62b780ea49a0c2ce8321a45b073a639fc6d0c65;hb=8fbe28ca67a6c07575aee35bfade43e967ad792e;hp=d1e4174635b5dbcb503d7b7a34588f83695cb286;hpb=96cf57e3ca14b3d9e6654a7780ea0b0ea4f5c0e8;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index d1e4174..e62b780 100644
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -213,22 +213,20 @@ slurpImpDecls source_fvs
   = traceRn (text "slurpImp" <+> fsep (map ppr (nameSetToList source_fvs))) `thenRn_`
 
 	-- The current slurped-set records all local things
-    getSlurped					`thenRn` \ source_binders ->
-    slurpSourceRefs source_binders source_fvs	`thenRn` \ (decls, needed) ->
+    slurpSourceRefs source_fvs	`thenRn` \ (decls, needed) ->
 
 	-- Then get everything else
     closeDecls decls needed
 
 
 -------------------------------------------------------
-slurpSourceRefs :: NameSet			-- Variables defined in source
-		-> FreeVars			-- Variables referenced in source
+slurpSourceRefs :: FreeVars			-- Variables referenced in source
 		-> RnMG ([RenamedHsDecl],
 			 FreeVars)		-- Un-satisfied needs
 -- The declaration (and hence home module) of each gate has
 -- already been loaded
 
-slurpSourceRefs source_binders source_fvs
+slurpSourceRefs source_fvs
   = go_outer [] 			-- Accumulating decls
 	     emptyFVs 			-- Unsatisfied needs
 	     emptyFVs			-- Accumulating gates