diff options
Diffstat (limited to 'Command/Get.hs')
-rw-r--r-- | Command/Get.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Get.hs b/Command/Get.hs index cdb85af94..fb2145fdd 100644 --- a/Command/Get.hs +++ b/Command/Get.hs @@ -36,7 +36,7 @@ seek ps = do start :: Maybe Remote -> FilePath -> (Key, Backend) -> CommandStart start from file (key, _) = start' expensivecheck from key (Just file) where - expensivecheck = checkAuto (numCopiesCheck file key (<) <||> wantGet False (Just file)) + expensivecheck = checkAuto (numCopiesCheck file key (<) <||> wantGet False (Just key) (Just file)) startKeys :: Maybe Remote -> Key -> CommandStart startKeys from key = start' (return True) from key Nothing |