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

support invalidating existing VerifiedCopys

Browse source
This commit is contained in:
Joey Hess 2015-10-08 17:58:32 -04:00
parent 90f7c4b6a2
commit c75c79864d
Failed to extract signature
8 changed files with 73 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/TransferSlots.hs
View file

@ -161,7 +161,7 @@ genTransfer t info = case transferRemote info of
("object uploaded to " ++ show remote)
True (transferKey t)
(associatedFile info)
[VerifiedCopy (Remote.uuid remote)]
[mkVerifiedCopy RecentlyVerifiedCopy remote]
void recordCommit
, whenM (liftAnnex $ isNothing <$> checkTransfer t) $
void $ removeTransfer t