From: sewardj <unknown>
Date: Mon, 27 Nov 2000 14:23:03 +0000 (+0000)
Subject: [project @ 2000-11-27 14:23:03 by sewardj]
X-Git-Tag: Approximately_9120_patches~3237
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=29753e9aef6a2f4e4d4f739d4f54603832a022d9;p=ghc-hetmet.git

[project @ 2000-11-27 14:23:03 by sewardj]
Call rnDump in closeIfaceDecls.
---

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 298d0b7..be45b05 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -607,7 +607,9 @@ closeIfaceDecls dflags hit hst pcs
 
 	-- Do the transitive closure
     lookupOrigNames implicit_occs	`thenRn` \ implicit_names ->
-    closeDecls decls (needed `plusFV` implicit_names)
+    closeDecls decls (needed `plusFV` implicit_names) `thenRn` \closed_decls ->
+    rnDump [] closed_decls `thenRn_`
+    returnRn closed_decls
   where
     implicit_occs = string_occs	-- Data type decls with record selectors,
 				-- which may appear in the decls, need unpackCString