X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRename.lhs;h=04ed4464278755aadd22bbf77d59d41f5b323ef2;hb=e4f0e4adfb32f0f562dc2dda9fc2c1c7fe71b202;hp=1f7ba6125974518a65453f35ab9aef3b15989700;hpb=9bedea20f62a1da832c69833c39dd1d15e6ee9a3;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 1f7ba61..04ed446 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -84,11 +84,9 @@ type FixityEnv = LocalFixityEnv
 
 \begin{code}
 type RenameResult = ( PersistentCompilerState
-		    , Module		-- This module
-		    , RenamedHsModule	-- Renamed module
-		    , Maybe ParsedIface	-- The existing interface file, if any
-		    , ParsedIface	-- The new interface
-		    , [Module])		-- Imported modules
+		    , ModIface		-- The mi_decls in here include
+					-- ones imported from packages too
+		    )	
 		   
 renameModule :: DynFlags -> Finder 
 	     -> PersistentCompilerState -> HomeSymbolTable
@@ -193,7 +191,7 @@ rename this_mod@(HsModule mod_name vers exports imports local_decls mod_deprec l
 	    | FixitySig name fixity loc <- nameEnvElts local_fixity_env,
 	      isUserExportedName name
 	    ]
-
+ ------ HERE
 	new_iface = ParsedIface { pi_mod     = this_module
 				, pi_vers    = initialVersion
 				, pi_orphan  = any isOrphanDecl rn_local_decls