summaryrefslogtreecommitdiff
path: root/Command/Migrate.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-01-07 14:21:12 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-01-07 14:21:12 -0400
commit3729ee0549993ccb648b7f798c9c400661350cdf (patch)
tree2aa2ca2dfb48b0724bf1bb6fde4040e9d06fdcc9 /Command/Migrate.hs
parent4a05793349c55477cde81455810bfe57444ae9bf (diff)
migrate: Copy over metadata to new key.
Diffstat (limited to 'Command/Migrate.hs')
-rw-r--r--Command/Migrate.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/Command/Migrate.hs b/Command/Migrate.hs
index b8d2eea87..ad3a5efa1 100644
--- a/Command/Migrate.hs
+++ b/Command/Migrate.hs
@@ -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)