blob: 1a3527f10d89d1040411885d960033ad5a5468cc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
{- Checks system configuration and generates SysConfig. -}
{-# OPTIONS_GHC -fno-warn-tabs #-}
module Build.Configure where
import System.Environment
import Control.Monad.IfElse
import Control.Applicative
import Prelude
import Build.TestConfig
import Build.Version
import Git.Version
tests :: [TestCase]
tests =
[ TestCase "version" (Config "packageversion" . StringConfig <$> getVersion)
, TestCase "git" $ testCmd "git" "git --version >/dev/null"
, TestCase "git version" getGitVersion
]
getGitVersion :: Test
getGitVersion = Config "gitversion" . StringConfig . show
<$> Git.Version.installed
run :: [TestCase] -> IO ()
run ts = do
config <- runTests ts
writeSysConfig config
whenM (isReleaseBuild) $
cabalSetup "git-repair.cabal"
|
