diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-01-04 12:33:10 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-01-04 12:33:10 -0400 |
commit | 2963de7dade0a314a5fc626114fe8de364c4ff13 (patch) | |
tree | 4c1d85a771751cd3784a8d38c0d3da2b46a2715c /Command/Migrate.hs | |
parent | b3eaa4108f0f4e0df8c1642c4c65b6f9ef7f4bce (diff) |
Avoid re-checksumming when migrating from hash to hashE backend. Closes: #774494
Diffstat (limited to 'Command/Migrate.hs')
-rw-r--r-- | Command/Migrate.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |