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

try to drop unused object if it does not need to be transferred anywhere

Browse source
This commit is contained in:
Joey Hess 2014-01-23 16:51:16 -04:00
parent 3518c586cf
commit 964a181026
4 changed files with 22 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/TransferSlots.hs
View file

@ -218,7 +218,7 @@ finishedTransfer t (Just info)
| transferDirection t == Download =
whenM (liftAnnex $ inAnnex $ transferKey t) $ do
dodrops False
queueTransfersMatching (/= transferUUID t)
void $ queueTransfersMatching (/= transferUUID t)
"newly received object"
Later (transferKey t) (associatedFile info) Upload
| otherwise = dodrops True