X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverPipeline.hs;h=81ef08da225fd1f88a8821780cd4c69ca90825fd;hb=2d532e45924dfdb5b5157caf4d3fc3541497d86c;hp=24c804ed07d80c86550b5b0fdd9aa2efb33a916b;hpb=6677029a5084f59b4cd35d76ce3f19b154f2ac87;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 24c804e..81ef08d 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -576,7 +576,7 @@ runPhase Hsc basename suff input_fn get_output_fn _maybe_loc = do
   	       getImportsFromFile input_fn
 
   -- build a ModLocation to pass to hscMain.
-	(mod, location') <- mkHomeModLocation mod_name "." basename suff
+	(mod, location') <- mkHomeModLocation mod_name (basename ++ '.':suff)
 
   -- take -ohi into account if present
 	ohi <- readIORef v_Output_hi