From: simonmar <unknown>
Date: Wed, 7 Feb 2001 16:23:28 +0000 (+0000)
Subject: [project @ 2001-02-07 16:23:28 by simonmar]
X-Git-Tag: Approximately_9120_patches~2713
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=729c0f508cd6a011fa1ec0247dcea621cc5f2a31;p=ghc-hetmet.git

[project @ 2001-02-07 16:23:28 by simonmar]
wibble
---

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index f2a83dc..f734401 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -204,6 +204,7 @@ cmLoadModule cmstate1 rootname
 	-- See getValidLinkables below for details.
 	valid_linkables <- getValidLinkables ui1 mg2unsorted_names 
 				mg2_with_srcimps
+	pprTrace "valid_linkables" (ppr valid_linkables) $ do
 
         -- Figure out a stable set of modules which can be retained
         -- the top level envs, to avoid upsweeping them.  Goes to a
@@ -802,7 +803,7 @@ downsweep rootNm old_summaries
 		let all_home = map (moduleName.ms_mod) home_summaries
 
 		-- imports for modules we don't already have
-                let needed_imps = filter (`notElem` all_home) imps
+                let needed_imps = nub (filter (`notElem` all_home) imps)
 
 		-- summarise them
                 needed_summaries <- mapM getSummary needed_imps