From e2404ca40933ccdc046d08f7040b2d86e32d5f88 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 7 Apr 2011 22:03:31 -0400
Subject: refactor away whichCmd and some other cleanup

---
 configure.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'configure.hs')

diff --git a/configure.hs b/configure.hs
index c0e3d8106..0661813ae 100644
--- a/configure.hs
+++ b/configure.hs
@@ -11,7 +11,7 @@ tests = [
 	, testCp "cp_a" "-a"
 	, testCp "cp_p" "-p"
 	, testCp "cp_reflink_auto" "--reflink=auto"
-	, TestCase "uuid generator" $ selectCmd "uuid" ["uuid", "uuidgen"]
+	, TestCase "uuid generator" $ selectCmd True "uuid" ["uuid", "uuidgen"] ""
 	, TestCase "xargs -0" $ requireCmd "xargs_0" "xargs -0 </dev/null"
 	, TestCase "rsync" $ requireCmd "rsync" "rsync --version >/dev/null"
 	, TestCase "curl" $ testCmd "curl" "curl --version >/dev/null"
@@ -22,9 +22,9 @@ shaTestCases :: [Int] -> [TestCase]
 shaTestCases l = map make l
 	where make n =
 		let
-			cmds = map (\x -> "sha" ++ show n ++ x ++ " </dev/null") ["", "sum"]
+			cmds = map (\x -> "sha" ++ show n ++ x) ["", "sum"]
 			key = "sha" ++ show n
-		in TestCase key $ whichCmd key cmds
+		in TestCase key $ selectCmd False key cmds "</dev/null"
 
 tmpDir :: String
 tmpDir = "tmp"
-- 
cgit v1.2.3