mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

migrate: Copy over metadata to new key.

Browse source
This commit is contained in:
Joey Hess 2016-01-07 14:21:12 -04:00
parent 66f3fb1ce2
commit 0b59fb423e
Failed to extract signature
3 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Migrate.hs
View file

@ -17,6 +17,7 @@ import Annex.Content
import qualified Command.ReKey
import qualified Command.Fsck
import qualified Annex
import Logs.MetaData
cmd :: Command
cmd = notDirect $ withGlobalOptions annexedMatchingOptions $
@ -73,7 +74,8 @@ perform file oldkey oldbackend newbackend = go =<< genkey
| knowngoodcontent = finish newkey
| otherwise = stopUnless checkcontent $ finish newkey
checkcontent = Command.Fsck.checkBackend oldbackend oldkey Command.Fsck.KeyLocked $ Just file
finish newkey = stopUnless (Command.ReKey.linkKey oldkey newkey) $
finish newkey = stopUnless (Command.ReKey.linkKey oldkey newkey) $ do
copyMetaData oldkey newkey
next $ Command.ReKey.cleanup file oldkey newkey
genkey = case maybe Nothing (\fm -> fm oldkey newbackend (Just file)) (fastMigrate oldbackend) of
Just newkey -> return $ Just (newkey, True)