summaryrefslogtreecommitdiff
path: root/Remote/Helper
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-08-01 17:18:39 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-08-01 17:18:39 -0400
commit13dee7b4750bc771ea3747926249f1c47ca54770 (patch)
tree201aa9692a236a2a55900fa942a2bf67ccd6ac47 /Remote/Helper
parent70c55d3b42bb4650faf8626726bf17b65f16b57a (diff)
minor optimisation
Diffstat (limited to 'Remote/Helper')
-rw-r--r--Remote/Helper/Chunked.hs2
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