projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make the lists of files and directories to be cleaned-up non-global
[ghc-hetmet.git]
/
compiler
/
main
/
DriverPipeline.hs
diff --git
a/compiler/main/DriverPipeline.hs
b/compiler/main/DriverPipeline.hs
index
53ace5c
..
8f7b05c
100644
(file)
--- a/
compiler/main/DriverPipeline.hs
+++ b/
compiler/main/DriverPipeline.hs
@@
-1071,8
+1071,8
@@
runPhase SplitMangle _stop hsc_env _basename _suff input_fn _get_output_fn maybe
dflags' = dflags { splitInfo = Just (split_s_prefix, n_files) }
-- Remember to delete all these files
dflags' = dflags { splitInfo = Just (split_s_prefix, n_files) }
-- Remember to delete all these files
- addFilesToClean [ split_s_prefix ++ "__" ++ show n ++ ".s"
- | n <- [1..n_files]]
+ addFilesToClean dflags' [ split_s_prefix ++ "__" ++ show n ++ ".s"
+ | n <- [1..n_files]]
return (SplitAs, dflags', maybe_loc, "**splitmangle**")
-- we don't use the filename
return (SplitAs, dflags', maybe_loc, "**splitmangle**")
-- we don't use the filename