X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FDriverPipeline.hs;h=8f7b05c96a4a556a07f509e77acd77b5f078a1f3;hb=5e12e5be4fe676a79669f9a0cb5265e5cd33bebe;hp=53ace5c4443d7c05389d2efab80f6ddfee24f9ca;hpb=43102375d04a5bfb486a046581ab25bde1b68777;p=ghc-hetmet.git

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index 53ace5c..8f7b05c 100644
--- 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
-	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