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

mirror: Support --all (and --unused).

Browse source
This commit is contained in:
Joey Hess 2014-01-01 17:39:33 -04:00
parent ba20e5a7f4
commit 079f463d51
5 changed files with 32 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/Drop.hs
View file

@ -102,10 +102,10 @@ handleDropsFrom locs rs reason fromhere key (Just afile) knownpresentremote = do
)
dropl fs n = checkdrop fs n Nothing $ \numcopies ->
Command.Drop.startLocal afile numcopies key knownpresentremote
Command.Drop.startLocal (Just afile) numcopies key knownpresentremote
dropr fs r n = checkdrop fs n (Just $ Remote.uuid r) $ \numcopies ->
Command.Drop.startRemote afile numcopies key r
Command.Drop.startRemote (Just afile) numcopies key r
safely a = either (const False) id <$> tryAnnex a