diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2020-01-02 18:07:10 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-01-02 18:07:10 +0000 |
| commit | 1092316ba04116d7ae1d4cdf347804feacef768a (patch) | |
| tree | fbc819794d4202a4ac778f0f6be57eedef7518dd /Build/Configure.hs | |
| parent | d1e0531dd8e8b842349421a898b74b212d2157e8 (diff) | |
| parent | 50a5a7b101cc9c30a5a04b4c20cbf7f99fcab0ef (diff) | |
| download | git-repair-1092316ba04116d7ae1d4cdf347804feacef768a.tar.gz | |
Merge tag '1.20200102'
tagging package git-repair version 1.20200102
Diffstat (limited to 'Build/Configure.hs')
| -rw-r--r-- | Build/Configure.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Build/Configure.hs b/Build/Configure.hs index e488ee1..1a3527f 100644 --- a/Build/Configure.hs +++ b/Build/Configure.hs @@ -1,10 +1,13 @@ -{- Checks system configuration and generates SysConfig.hs. -} +{- Checks system configuration and generates SysConfig. -} + +{-# OPTIONS_GHC -fno-warn-tabs #-} module Build.Configure where import System.Environment -import Control.Applicative import Control.Monad.IfElse +import Control.Applicative +import Prelude import Build.TestConfig import Build.Version @@ -13,7 +16,7 @@ import Git.Version tests :: [TestCase] tests = [ TestCase "version" (Config "packageversion" . StringConfig <$> getVersion) - , TestCase "git" $ requireCmd "git" "git --version >/dev/null" + , TestCase "git" $ testCmd "git" "git --version >/dev/null" , TestCase "git version" getGitVersion ] @@ -23,7 +26,6 @@ getGitVersion = Config "gitversion" . StringConfig . show run :: [TestCase] -> IO () run ts = do - args <- getArgs config <- runTests ts writeSysConfig config whenM (isReleaseBuild) $ |