From: simonmar 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