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

genOutputFilenameFunc: fix output filename generated for non-Haskell
compilations with -odir.

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