aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Gröber <dxld@darkboxed.org>2015-08-10 04:15:23 +0200
committerDaniel Gröber <dxld@darkboxed.org>2015-08-10 04:15:23 +0200
commit252dddbb76ff90bd502f485912f99d57aea55638 (patch)
tree06427c840e961531677c0912ac0583f7123d9dcf
parentaca3c9fc6358cb2ebdcd2669c1262fca42b223bb (diff)
Fix exe output path
-rw-r--r--CabalHelper/Main.hs13
1 files changed, 4 insertions, 9 deletions
diff --git a/CabalHelper/Main.hs b/CabalHelper/Main.hs
index 754f356..39cab5d 100644
--- a/CabalHelper/Main.hs
+++ b/CabalHelper/Main.hs
@@ -351,16 +351,11 @@ componentEntrypoints (CBench Benchmark {})
= ChLibEntrypoint [] []
exeOutDir :: LocalBuildInfo -> String -> FilePath
-exeOutDir lbi exeName =
+exeOutDir lbi exeName' =
----- Copied from Distribution/Simple/GHC.hs:buildOrReplExe
- -- exeNameReal, the name that GHC really uses (with .exe on Windows)
- let exeNameReal = exeName <.>
- (if takeExtension exeName /= ('.':exeExtension)
- then exeExtension
- else "")
-
- targetDir = (buildDir lbi) </> exeName
- in targetDir
+ let targetDir = (buildDir lbi) </> exeName'
+ exeDir = targetDir </> (exeName' ++ "-tmp")
+ in exeDir
removeInplaceDeps :: Verbosity