X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=70039a9654b7d1aada8334b65affd8b87c1621a2;hb=2a8cdc3aee5997374273e27365f92c161aca8453;hp=dab148a7a5dbbee0a1b034b3d856aa6236e49e3a;hpb=190f24892156953d73b55401d0467a6f1a88ce5d;p=ghc-hetmet.git

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index dab148a..70039a9 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -654,6 +654,8 @@ load2 s@(Session ref) how_much mod_graph = do
 	let cleanup = cleanTempFilesExcept dflags
 			  (ppFilesFromSummaries (flattenSCCs mg2_with_srcimps))
 
+	debugTraceMsg dflags 2 (hang (text "Ready for upsweep") 
+				   2 (ppr mg))
         (upsweep_ok, hsc_env1, modsUpswept)
            <- upsweep (hsc_env { hsc_HPT = emptyHomePackageTable })
 			   pruned_hpt stable_mods cleanup mg