diff options
author | Joey Hess <joey@kitenet.net> | 2012-06-21 13:04:24 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-06-21 13:04:24 -0400 |
commit | 46d1f5a9d05f69a1933bd79e1e0ec82893934e0f (patch) | |
tree | d5a213771480efb6c88c920350362fb07aa35ca7 /test.hs | |
parent | ebe8ee675366da190b5c462f2cc66dd528412db4 (diff) |
fix test suite build
Diffstat (limited to 'test.hs')
-rw-r--r-- | test.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -28,6 +28,7 @@ import qualified Backend import qualified Git.CurrentRepo import qualified Git.Filename import qualified Locations +import qualified Types.KeySource import qualified Types.Backend import qualified Types import qualified GitAnnex @@ -172,7 +173,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.Backend.KeySource { Types.Backend.keyFilename = tmp, Types.Backend.contentLocation = tmp } + Types.KeySource.KeySource { Types.KeySource.keyFilename = tmp, Types.KeySource.contentLocation = tmp } let key = show $ fromJust r git_annex "reinject" [tmp, sha1annexedfile] @? "reinject failed" git_annex "fromkey" [key, sha1annexedfiledup] @? "fromkey failed" |