From 448873c017b64b4343f695925b4470fa21e216f5 Mon Sep 17 00:00:00 2001 From: Clemens Fruhwirth Date: Thu, 17 Jan 2008 13:41:39 +0000 Subject: [PATCH] Fix references to Filepath --- compiler/main/DriverPipeline.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4