diff options
Diffstat (limited to 'Command/Get.hs')
| -rw-r--r-- | Command/Get.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Get.hs b/Command/Get.hs index 928ab0f1b..9b12b9599 100644 --- a/Command/Get.hs +++ b/Command/Get.hs @@ -23,7 +23,7 @@ seek = [withField Command.Move.fromOption Remote.byName $ \from -> start :: Maybe Remote -> FilePath -> (Key, Backend) -> CommandStart start from file (key, _) = stopUnless (not <$> inAnnex key) $ - autoCopies file key (<) $ \_numcopies -> do + autoCopies file key (<) $ \_numcopies -> case from of Nothing -> go $ perform key Just src -> do @@ -36,7 +36,7 @@ start from file (key, _) = stopUnless (not <$> inAnnex key) $ next a perform :: Key -> CommandPerform -perform key = stopUnless (getViaTmp key $ getKeyFile key) $ do +perform key = stopUnless (getViaTmp key $ getKeyFile key) $ next $ return True -- no cleanup needed {- Try to find a copy of the file in one of the remotes, |