[project @ 2005-07-08 13:57:50 by simonmar]

[ghc-hetmet.git] / ghc / compiler / main / DriverPipeline.hs

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index ec70b8d..882b45c 100644 (file)
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -511,7 +511,7 @@ getOutputFilename dflags stop_phase output basename
 
                odir_persistent
                   | Just loc <- maybe_location = ml_obj_file loc
-                  | Just d <- odir = replaceFilenameDirectory persistent d
+                  | Just d <- odir = d `joinFileName` persistent
                   | otherwise      = persistent