diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2015-08-10 04:15:23 +0200 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2015-08-10 04:15:23 +0200 |
| commit | 252dddbb76ff90bd502f485912f99d57aea55638 (patch) | |
| tree | 06427c840e961531677c0912ac0583f7123d9dcf /CabalHelper | |
| parent | aca3c9fc6358cb2ebdcd2669c1262fca42b223bb (diff) | |
Fix exe output path
Diffstat (limited to 'CabalHelper')
| -rw-r--r-- | CabalHelper/Main.hs | 13 |
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 |