diff options
author | Joey Hess <joey@kitenet.net> | 2013-02-15 16:06:22 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-02-15 16:06:22 -0400 |
commit | ecd610e955e0cfa5c88535039f434ea2a299068c (patch) | |
tree | 4478996bc743bd75b5c36bbbed5b21a0b8c2fc7a | |
parent | d3a9ae31978538f7d43b70a8b99ebc9580a9ab62 (diff) |
fixed test suite build after recent changes broke it
-rw-r--r-- | test.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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" |