From: Clemens Fruhwirth <clemens@endorphin.org>
Date: Thu, 17 Jan 2008 13:41:39 +0000 (+0000)
Subject: Fix references to Filepath
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=448873c017b64b4343f695925b4470fa21e216f5

Fix references to Filepath
---

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