Skip to content
This repository
Newer
Older
100644 34 lines (27 sloc) 0.838 kb
9f9c0b11 »
2010-07-09 Initial Revision
1 #!/usr/bin/env runhaskell
2 import Distribution.Simple
4d8fb904 »
2010-08-30 Use separate repository for config dir
3 import Distribution.PackageDescription
031c2662 »
2010-08-04 Added ability to use local run configurations
4 import Control.Monad
5 import System.Directory
fed10502 »
2010-08-26 Rename benchmark finding file
6 import FindBench
ae708348 »
2010-08-26 Stop using template haskell for config finder
7 import FindConfig
031c2662 »
2010-08-04 Added ability to use local run configurations
8
4d8fb904 »
2010-08-30 Use separate repository for config dir
9 main = defaultMainWithHooks simpleUserHooks {
10 preConf = createConfDir
11 , postConf = writeLocalConf
12 , postClean = deleteLocalConf}
13
14 createConfDir _ _ = do
15 e <- doesDirectoryExist configDir
16 unless e (createDirectory configDir)
17 return emptyHookedBuildInfo
031c2662 »
2010-08-04 Added ability to use local run configurations
18
19 writeLocalConf _ _ _ _ = do
ae708348 »
2010-08-26 Stop using template haskell for config finder
20 findLocalConfigs configDir
21 findLocalBenchmarks benchmarkDir
031c2662 »
2010-08-04 Added ability to use local run configurations
22
23 deleteLocalConf _ _ _ _ = do
ae708348 »
2010-08-26 Stop using template haskell for config finder
24 deleteIfExists (localConfigsFileName configDir)
031c2662 »
2010-08-04 Added ability to use local run configurations
25
ae708348 »
2010-08-26 Stop using template haskell for config finder
26 deleteIfExists :: FilePath -> IO ()
27 deleteIfExists f = do
031c2662 »
2010-08-04 Added ability to use local run configurations
28 e <- doesFileExist f
29 when e (removeFile f)
30
31
a179ae10 »
2010-08-19 Generate the benchmarks list automatically
32 configDir, benchmarkDir :: FilePath
031c2662 »
2010-08-04 Added ability to use local run configurations
33 configDir = "config"
a179ae10 »
2010-08-19 Generate the benchmarks list automatically
34 benchmarkDir = "benchmarks"
Something went wrong with that request. Please try again.