From: krasimir <unknown>
Date: Fri, 13 May 2005 15:06:13 +0000 (+0000)
Subject: [project @ 2005-05-13 15:06:13 by krasimir]
X-Git-Tag: Initial_conversion_from_CVS_complete~555
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6bfe1aa048ae13f0a95867773489c5a452f8d28c;p=ghc-hetmet.git

[project @ 2005-05-13 15:06:13 by krasimir]
replace emptyNodeMap with old_summary_map.
---

diff --git a/ghc/compiler/main/GHC.hs b/ghc/compiler/main/GHC.hs
index bab465a..8f38dd1 100644
--- a/ghc/compiler/main/GHC.hs
+++ b/ghc/compiler/main/GHC.hs
@@ -1217,7 +1217,7 @@ downsweep hsc_env old_summaries excl_mods
 			else do
 		throwDyn (CmdLineError ("can't find file: " ++ file))	
 	getRootSummary (Target (TargetModule modl) maybe_buf)
- 	   = do maybe_summary <- summariseModule hsc_env emptyNodeMap Nothing False 
+ 	   = do maybe_summary <- summariseModule hsc_env old_summary_map Nothing False 
 					   modl maybe_buf excl_mods
 		case maybe_summary of
 		   Nothing -> packageModErr modl