mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

minor optimisation

Browse source
This commit is contained in:
Joey Hess 2014-08-01 17:18:39 -04:00
parent 3991327d09
commit de0da0aece
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/Helper/Chunked.hs
View file

@ -241,7 +241,7 @@ retrieveChunks retriever u chunkconfig encryptor basek dest basep sink
currsize <- liftIO $ catchMaybeIO $ currsize <- liftIO $ catchMaybeIO $
toInteger . fileSize <$> getFileStatus dest toInteger . fileSize <$> getFileStatus dest
let ls' = maybe ls (setupResume ls) currsize let ls' = maybe ls (setupResume ls) currsize
if any (== 0) (map length ls') if any null ls'
then return True -- dest is already complete then return True -- dest is already complete
else firstavail currsize ls' `catchNonAsyncAnnex` giveup else firstavail currsize ls' `catchNonAsyncAnnex` giveup