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

wired preferred content up to get, copy, and drop --auto

Browse source
This commit is contained in:
Joey Hess 2012-10-08 13:16:53 -04:00
parent 888981eaae
commit 71fd18a97f
8 changed files with 104 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Drop.hs
View file

@ -30,7 +30,7 @@ seek = [withField fromOption Remote.byName $ \from ->
withFilesInGit $ whenAnnexed $ start from]
start :: Maybe Remote -> FilePath -> (Key, Backend) -> CommandStart
start from file (key, _) = autoCopiesWith file key (>) $ \numcopies ->
start from file (key, _) = autoCopiesDrop file key (>) $ \numcopies ->
case from of
Nothing -> startLocal file numcopies key
Just remote -> do