From 471aa27bf0a0e4c698303acb7fdf9cea6a75634b Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 18 Nov 2013 13:06:58 -0400
Subject: copied from git-annex

---
 Build/Configure.hs | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 Build/Configure.hs

(limited to 'Build/Configure.hs')

diff --git a/Build/Configure.hs b/Build/Configure.hs
new file mode 100644
index 0000000..0c6245d
--- /dev/null
+++ b/Build/Configure.hs
@@ -0,0 +1,27 @@
+{- 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 Git.Version
+
+tests :: [TestCase]
+tests =
+	[ TestCase "git" $ requireCmd "git" "git --version >/dev/null"
+	, TestCase "git version" getGitVersion
+	, TestCase "nice" $ testCmd "nice" "nice true >/dev/null"
+	]
+
+getGitVersion :: Test
+getGitVersion = Config "gitversion" . StringConfig . show
+	<$> Git.Version.installed
+
+run :: [TestCase] -> IO ()
+run ts = do
+	args <- getArgs
+	config <- runTests ts
+	writeSysConfig config
-- 
cgit v1.2.3