From 2963de7dade0a314a5fc626114fe8de364c4ff13 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 4 Jan 2015 12:33:10 -0400 Subject: Avoid re-checksumming when migrating from hash to hashE backend. Closes: #774494 --- Command/Migrate.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Command/Migrate.hs') diff --git a/Command/Migrate.hs b/Command/Migrate.hs index 19fd89c7a..a7198c71f 100644 --- a/Command/Migrate.hs +++ b/Command/Migrate.hs @@ -72,7 +72,7 @@ perform file oldkey oldbackend newbackend = go =<< genkey checkcontent = Command.Fsck.checkBackend oldbackend oldkey $ Just file finish newkey = stopUnless (Command.ReKey.linkKey oldkey newkey) $ next $ Command.ReKey.cleanup file oldkey newkey - genkey = case maybe Nothing (\fm -> fm oldkey newbackend) (fastMigrate oldbackend) of + genkey = case maybe Nothing (\fm -> fm oldkey newbackend (Just file)) (fastMigrate oldbackend) of Just newkey -> return $ Just (newkey, True) Nothing -> do content <- calcRepo $ gitAnnexLocation oldkey -- cgit v1.2.3