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

add back inAnnex check for keys options

Browse source 
Lost in recent commit.
This commit is contained in:
Joey Hess 2020-07-24 11:49:15 -04:00
parent 4685612f43
commit 2d771a7d32
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Command/Get.hs
View file

@ -66,7 +66,8 @@ start o from file key = start' expensivecheck from key afile ai
startKeys :: Maybe Remote -> (Key, ActionItem) -> CommandStart startKeys :: Maybe Remote -> (Key, ActionItem) -> CommandStart
startKeys from (key, ai) = checkFailedTransferDirection ai Download $ startKeys from (key, ai) = checkFailedTransferDirection ai Download $
start' (return True) from key (AssociatedFile Nothing) ai stopUnless (not <$> inAnnex key) $
start' (return True) from key (AssociatedFile Nothing) ai
start' :: Annex Bool -> Maybe Remote -> Key -> AssociatedFile -> ActionItem -> CommandStart start' :: Annex Bool -> Maybe Remote -> Key -> AssociatedFile -> ActionItem -> CommandStart
start' expensivecheck from key afile ai = start' expensivecheck from key afile ai =