X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FDriverPipeline.hs;h=1f81249f689052fb1f35a8723cf8e838ab8387fc;hp=39feb18eaaba10d59140d555119b580b375093a4;hb=448873c017b64b4343f695925b4470fa21e216f5;hpb=41676ec859d1332d4c4ec56c9ea8b0aa9cedf606

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index 39feb18..1f81249 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -1097,8 +1097,8 @@ runPhase_MoveBinary dflags input_fn dep_packages
 	case (dynLibLoader dflags) of
 	  Wrapped wrapmode ->
 	      do
-		let (o_base, o_ext) = splitFilename input_fn
-		let wrapped_executable | o_ext == "exe" = (o_base ++ "_real") `joinFileExt` o_ext
+		let (o_base, o_ext) = splitExtension input_fn
+		let wrapped_executable | o_ext == "exe" = (o_base ++ "_real") <.> o_ext
 				       | otherwise = input_fn ++ "_real"
 		behaviour <- wrapper_behaviour dflags wrapmode dep_packages