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

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 41abf2e..23d53a6 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -110,7 +110,7 @@ renameExpr dflags hit hst pcs this_module expr
 	  
 	; renameSource dflags hit hst pcs this_module $
 	  initRnMS rdr_env emptyLocalFixityEnv SourceMode (rnExpr expr)	`thenRn` \ (e,fvs) -> 
-	  closeDecls [] fvs						`thenRn` \ decls ->
+	  slurpImpDecls fvs						`thenRn` \ decls ->
 	  doptRn Opt_D_dump_rn						`thenRn` \ dump_rn ->
 	  ioToRnM (dumpIfSet dump_rn "Renamer:" (ppr e))		`thenRn_`
 	  returnRn (Just (print_unqual, (e, decls)))