X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRename.lhs;h=2f14e0dcf69a4df3df47571e6a9036111a9889e0;hb=99073d876ea762016683fb0b22b9d343ff864eb4;hp=0cc7b3f0402244f869ed37898c679b792864e735;hpb=323fee1e8cbabe604496a1b92c6de0e98ca037e4;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 0cc7b3f..2f14e0d 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -75,9 +75,7 @@ renameModule :: DynFlags -> Finder
 	     -> HomeIfaceTable -> HomeSymbolTable
 	     -> PersistentCompilerState 
 	     -> Module -> RdrNameHsModule 
-	     -> IO (PersistentCompilerState, Maybe ModIface)
-			-- The mi_decls in the ModIface include
-			-- ones imported from packages too
+	     -> IO (PersistentCompilerState, Maybe (ModIface, [RenamedHsDecl]))
 
 renameModule dflags finder hit hst old_pcs this_module 
 	     this_mod@(HsModule _ _ _ _ _ _ loc)
@@ -110,7 +108,7 @@ rename this_module this_mod@(HsModule mod_name vers exports imports local_decls
     case maybe_stuff of {
 	Nothing -> 	-- Everything is up to date; no need to recompile further
 		rnDump [] []		`thenRn` \ dump_action ->
-		returnRn (Nothing, [], dump_action) ;
+		returnRn (Nothing, dump_action) ;
 
   	Just (gbl_env, local_gbl_env, export_avails, global_avail_env) ->