From 15e6a5e4fc7140d49bf112aeaef6145a746a3e87 Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 27 Aug 2002 09:34:20 +0000 Subject: [PATCH] [project @ 2002-08-27 09:34:20 by simonmar] Fix a bug in the cleaning up of temporary files: we were wrongly cleaning the temporary pre-processed source files for stable modules, with the result that the compiler would panic the next time they were required. Reported ages ago by: Hal Duame. MERGE TO STABLE --- ghc/compiler/compMan/CompManager.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs index 449801c..abe2bf7 100644 --- a/ghc/compiler/compMan/CompManager.lhs +++ b/ghc/compiler/compMan/CompManager.lhs @@ -610,7 +610,7 @@ cmLoadModules cmstate1 dflags mg2unsorted -- clean up between compilations let cleanup = cleanTempFilesExcept verb - (ppFilesFromSummaries (flattenSCCs upsweep_these)) + (ppFilesFromSummaries (flattenSCCs mg2)) (upsweep_complete_success, threaded3, modsUpswept, newLis) <- upsweep_mods ghci_mode dflags valid_linkables reachable_from -- 1.7.10.4