From 434ef2b14b37df405602a74838b8b38d0f5b4375 Mon Sep 17 00:00:00 2001 From: sof Date: Thu, 12 Jul 2001 16:25:32 +0000 Subject: [PATCH] [project @ 2001-07-12 16:25:32 by sof] ppFilesFromSummaries: to cope with recent driver changes, only report a file as being preprocessed if it differs from the source file(name). Fixes awfully bad breakage when using --make (source files were being deleted). --- ghc/compiler/compMan/CompManager.lhs | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs index cc7ca58..30f0b58 100644 --- a/ghc/compiler/compMan/CompManager.lhs +++ b/ghc/compiler/compMan/CompManager.lhs @@ -539,8 +539,18 @@ cmLoadFinish ok linkresult hst hit ui mods ghci_mode pcs return (new_cmstate, ok, mods_loaded) } +-- used to fish out the preprocess output files for the purposes +-- of cleaning up. ppFilesFromSummaries summaries - = [ fn | Just fn <- map (ml_hspp_file . ms_location) summaries ] + = [ fn | Just fn <- map toPpFile summaries ] + where + toPpFile sum + | hspp /= ml_hs_file loc = hspp + | otherwise = Nothing + where + loc = ms_location sum + hspp = ml_hspp_file loc + ----------------------------------------------------------------------------- -- getValidLinkables -- 1.7.10.4