From de0da0aece589190473e896e1798de84fdcabe22 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 1 Aug 2014 17:18:39 -0400 Subject: [PATCH] minor optimisation --- Remote/Helper/Chunked.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Remote/Helper/Chunked.hs b/Remote/Helper/Chunked.hs index 2a156ddc54..0d786c98dd 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