From 729c0f508cd6a011fa1ec0247dcea621cc5f2a31 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 7 Feb 2001 16:23:28 +0000
Subject: [PATCH] [project @ 2001-02-07 16:23:28 by simonmar] wibble

---
 ghc/compiler/compMan/CompManager.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
1.7.10.4