diff options
author | 2011-12-31 14:32:59 -0400 | |
---|---|---|
committer | 2011-12-31 14:32:59 -0400 | |
commit | 09905f66559f964ad36dc40da03d4f7f96804a91 (patch) | |
tree | b871c8a2372e6cba00aaa9b707c091f65837016b /test.hs | |
parent | 38195a6363e54874ce072eb2d3ced448e0b68e02 (diff) | |
parent | f0957426c586610d16ad9694e002b73324baa29a (diff) |
Merge branch 'autosync'
Diffstat (limited to 'test.hs')
-rw-r--r-- | test.hs | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -850,7 +850,7 @@ checklocationlog f expected = do expected (thisuuid `elem` uuids) _ -> assertFailure $ f ++ " failed to look up key" -checkbackend :: FilePath -> Types.Backend Types.Annex -> Assertion +checkbackend :: FilePath -> Types.Backend -> Assertion checkbackend file expected = do r <- annexeval $ Backend.lookupFile file let b = snd $ fromJust r @@ -936,14 +936,14 @@ changecontent f = writeFile f $ changedcontent f changedcontent :: FilePath -> String changedcontent f = (content f) ++ " (modified)" -backendSHA1 :: Types.Backend Types.Annex +backendSHA1 :: Types.Backend backendSHA1 = backend_ "SHA1" -backendSHA256 :: Types.Backend Types.Annex +backendSHA256 :: Types.Backend backendSHA256 = backend_ "SHA256" -backendWORM :: Types.Backend Types.Annex +backendWORM :: Types.Backend backendWORM = backend_ "WORM" -backend_ :: String -> Types.Backend Types.Annex +backend_ :: String -> Types.Backend backend_ name = Backend.lookupBackendName name |