From 80fa144d79ddcf220a7be9b2d502d9fd616f8309 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 15 Feb 2013 16:06:22 -0400
Subject: [PATCH] fixed test suite build after recent changes broke it

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

diff --git a/test.hs b/test.hs
index 6270c5978d..03c0c4e3a1 100644
--- a/test.hs
+++ b/test.hs
@@ -75,8 +75,8 @@ instance Arbitrary Logs.Transfer.TransferInfo where
 		<*> arbitrary `suchThat` (/= Just "")
 		<*> arbitrary
 
-instance Arbitrary Annex.Content.Direct.Cache where
-	arbitrary = Annex.Content.Direct.Cache
+instance Arbitrary Utility.InodeCache.InodeCache where
+	arbitrary = Utility.InodeCache.InodeCache
 		<$> arbitrary
 		<*> arbitrary
 		<*> arbitrary
@@ -209,7 +209,7 @@ test_reinject = "git-annex reinject/fromkey" ~: TestCase $ intmpclonerepo $ do
 	git_annex "drop" ["--force", sha1annexedfile] @? "drop failed"
 	writeFile tmp $ content sha1annexedfile
 	r <- annexeval $ Types.Backend.getKey backendSHA1 $
-		Types.KeySource.KeySource { Types.KeySource.keyFilename = tmp, Types.KeySource.contentLocation = tmp }
+		Types.KeySource.KeySource { Types.KeySource.keyFilename = tmp, Types.KeySource.contentLocation = tmp, Types.KeySource.inodeCache = Nothing }
 	let key = Types.Key.key2file $ fromJust r
 	git_annex "reinject" [tmp, sha1annexedfile] @? "reinject failed"
 	git_annex "fromkey" [key, sha1annexedfiledup] @? "fromkey failed"