X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverPipeline.hs;h=e0b00978f83cc523def6f248304f3bcb6d5bf194;hb=9f66c841f79f96dd2e933bd2dc6ca054ef6aac2d;hp=f48f9e082680c801cb712d2ee7ef9c3fbfb55ba2;hpb=9b7de002ff5d580adb9777bf2777a425231e0c13;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index f48f9e0..e0b0097 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -712,7 +712,7 @@ run_phase SplitAs basename _suff _input_fn output_fn
 
 	odir <- readIORef v_Output_dir
 	let real_odir = case odir of
-				Nothing -> basename
+				Nothing -> basename ++ "_split"
 				Just d  -> d
 
 	let assemble_file n