Merge branch 'autosync'

1 files changed, 5 insertions, 5 deletions

diff --git a/test.hs b/test.hs
index a2fa98e4d..7350a0769 100644
--- a/test.hs
+++ b/test.hs
@@ -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