From a95a32c60d352e253b808c2b6c7cbbbc2ce9123b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 29 Sep 2017 16:30:43 -0400 Subject: copy, move: Behave same with --fast when sending to remotes located on a local disk as when sending to other remotes. Let --fast override use of hasKey even when hasKeyCheap. --- Command/Move.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Command') diff --git a/Command/Move.hs b/Command/Move.hs index 74aa430d3..c8867e391 100644 --- a/Command/Move.hs +++ b/Command/Move.hs @@ -109,7 +109,7 @@ toStart move afile key ai dest = do toStart' :: Remote -> Bool -> AssociatedFile -> Key -> ActionItem -> CommandStart toStart' dest move afile key ai = do fast <- Annex.getState Annex.fast - if fast && not move && not (Remote.hasKeyCheap dest) + if fast && not move then ifM (expectedPresent dest key) ( stop , go True (pure $ Right False) -- cgit v1.2.3