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

generalized Annex.Wanted

Browse source 
this should make it easy to use from inside the assistant, where
everything is an AssociatedFile.
This commit is contained in:
Joey Hess 2012-10-08 17:14:01 -04:00
parent acb8721072
commit fee40dd374
5 changed files with 28 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Copy.hs
View file

@ -31,5 +31,5 @@ start to from file (key, backend) = autoCopies file key (<) $
Command.Move.start to from False file (key, backend)
where
shouldCopy = case to of
Nothing -> checkAuto $ shouldGet file key
Just r -> checkAuto $ shouldSend r file
Nothing -> checkAuto $ wantGet (Just file)
Just r -> checkAuto $ wantSend (Remote.uuid r) (Just file)