Permalink
Browse files

Add .exe to executable names on windows

  • Loading branch information...
1 parent c0fd7b4 commit 5032d8fab7416e1a3388f34260f5ea5e92925234 @dmpots committed Oct 8, 2010
Showing with 3 additions and 1 deletion.
  1. +3 −1 tools/fibon-run/Fibon/Run/BenchmarkBundle.hs
@@ -29,6 +29,7 @@ import Fibon.Run.Config
import System.FilePath
import System.IO
import System.Process
+import System.Info
data BenchmarkBundle = BenchmarkBundle {
@@ -88,7 +89,8 @@ pathToExeRunDir :: BenchmarkBundle -> FilePath
pathToExeRunDir = pathToExeBuildDir
pathToExe :: BenchmarkBundle -> FilePath
-pathToExe bb = (pathToExeBuildDir bb) </> (exeName.benchDetails $ bb)
+pathToExe bb = (pathToExeBuildDir bb) </> (exeName.benchDetails $ bb)++ext
+ where ext = if System.Info.os == "mingw32" then ".exe" else ""
pathToSizeInputFiles :: BenchmarkBundle -> FilePath
pathToSizeInputFiles = pathToSizeDataFiles "input"

0 comments on commit 5032d8f

Please sign in to comment.