From 1f9ce9e9a5f6d7eaf149f42de559cb9830c7f28e Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 27 Nov 2010 17:31:20 -0400
Subject: [PATCH] tweak

---
 configure.hs | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/configure.hs b/configure.hs
index 7d3fc01271..92a051c80e 100644
--- a/configure.hs
+++ b/configure.hs
@@ -6,7 +6,7 @@ import System.Exit
 import System.Directory
 
 type Test = IO Bool
-data TestDesc = TestDesc String String Test
+data TestCase = TestCase String String Test
 data Config = Config String Bool
 
 instance Show Config where
@@ -15,13 +15,13 @@ instance Show Config where
 			, key ++ " = " ++ show value
 		]
 
-tests :: [TestDesc]
+tests :: [TestCase]
 tests = [
-	  TestDesc "cp -a" "cp_a" $ testCp "-a"
-	, TestDesc "cp -p" "cp_p" $ testCp "-p"
-	, TestDesc "cp --reflink=auto" "cp_reflink_auto" $ testCp "--reflink=auto"
-	, TestDesc "uuid" "uuid" $ requireCommand "uuid" "uuid"
-	, TestDesc "xargs -0" "xargs_0" $ requireCommand "xargs -0" "xargs -0 </dev/null"
+	  TestCase "cp -a" "cp_a" $ testCp "-a"
+	, TestCase "cp -p" "cp_p" $ testCp "-p"
+	, TestCase "cp --reflink=auto" "cp_reflink_auto" $ testCp "--reflink=auto"
+	, TestCase "uuid" "uuid" $ requireCommand "uuid" "uuid"
+	, TestCase "xargs -0" "xargs_0" $ requireCommand "xargs -0" "xargs -0 </dev/null"
 	]
 
 tmpDir :: String
@@ -70,9 +70,9 @@ writeSysConfig config = writeFile "SysConfig.hs" body
 			]
 		footer = []
 
-runTests :: [TestDesc] -> IO [Config]
+runTests :: [TestCase] -> IO [Config]
 runTests [] = return []
-runTests ((TestDesc tname key t):ts) = do
+runTests ((TestCase tname key t):ts) = do
 	testStart tname
 	val <- t
 	testEnd val