[project @ 2000-11-21 09:30:16 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / Rename.lhs

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 41abf2e..23d53a6 100644 (file)
--- 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)))