summaryrefslogtreecommitdiff
path: root/Build/Configure.hs
diff options
context:
space:
mode:
authorJoey Hess <joeyh@debian.org>2013-12-03 15:02:21 -0400
committerJoey Hess <joeyh@debian.org>2013-12-03 15:02:21 -0400
commita4f3e112954e1b785c84c339bcbd83597a89335e (patch)
treeeb2a975663782f83e6b20d6d239447d7222de81b /Build/Configure.hs
downloadgit-repair-a4f3e112954e1b785c84c339bcbd83597a89335e.tar.gz
git-repair (1.20131203) unstable; urgency=low
* Fix build deps. Closes: #731179 # imported from the archive
Diffstat (limited to 'Build/Configure.hs')
-rw-r--r--Build/Configure.hs30
1 files changed, 30 insertions, 0 deletions
diff --git a/Build/Configure.hs b/Build/Configure.hs
new file mode 100644
index 0000000..4912122
--- /dev/null
+++ b/Build/Configure.hs
@@ -0,0 +1,30 @@
+{- Checks system configuration and generates SysConfig.hs. -}
+
+module Build.Configure where
+
+import System.Environment
+import Control.Applicative
+import Control.Monad.IfElse
+
+import Build.TestConfig
+import Build.Version
+import Git.Version
+
+tests :: [TestCase]
+tests =
+ [ TestCase "version" getVersion
+ , TestCase "git" $ requireCmd "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
+ args <- getArgs
+ config <- runTests ts
+ writeSysConfig config
+ whenM (isReleaseBuild) $
+ cabalSetup "git-repair.cabal"