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

rekey: No longer copies over urls from the old to the new key.

Browse source 
It makes sense for migrate to do that, but not for this low-level (and
little used) plumbing command to.
This commit is contained in:
Joey Hess 2016-01-07 18:06:20 -04:00
parent 2b781cbf7b
commit d6fe7fdd7d
Failed to extract signature
3 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Command/ReKey.hs
View file

@ -16,10 +16,8 @@ import Annex.Ingest
import Annex.Link
import Annex.Perms
import Annex.ReplaceFile
import Logs.Web
import Logs.Location
import Git.FilePath
import qualified Remote
import qualified Database.Keys
import Annex.InodeSentinal
import Utility.InodeCache
@ -93,13 +91,6 @@ linkKey file oldkey newkey = ifM (isJust <$> isAnnexLink file)
cleanup :: FilePath -> Key -> Key -> CommandCleanup
cleanup file oldkey newkey = do
-- If the old key had some associated urls, record them for
-- the new key as well.
urls <- getUrls oldkey
forM_ urls $ \url -> do
r <- Remote.claimingUrl url
setUrlPresent (Remote.uuid r) newkey url
ifM (isJust <$> isAnnexLink file)
( do
-- Update symlink to use the new key.