diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-08-01 17:18:39 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-08-01 17:18:39 -0400 |
| commit | 13dee7b4750bc771ea3747926249f1c47ca54770 (patch) | |
| tree | 201aa9692a236a2a55900fa942a2bf67ccd6ac47 /Remote/Helper | |
| parent | 70c55d3b42bb4650faf8626726bf17b65f16b57a (diff) | |
minor optimisation
Diffstat (limited to 'Remote/Helper')
| -rw-r--r-- | Remote/Helper/Chunked.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Helper/Chunked.hs b/Remote/Helper/Chunked.hs index 2a156ddc5..0d786c98d 100644 --- a/Remote/Helper/Chunked.hs +++ b/Remote/Helper/Chunked.hs @@ -241,7 +241,7 @@ retrieveChunks retriever u chunkconfig encryptor basek dest basep sink currsize <- liftIO $ catchMaybeIO $ toInteger . fileSize <$> getFileStatus dest let ls' = maybe ls (setupResume ls) currsize - if any (== 0) (map length ls') + if any null ls' then return True -- dest is already complete else firstavail currsize ls' `catchNonAsyncAnnex` giveup |