convert getFileSize to RawFilePath
Lots of nice wins from this in avoiding unncessary work, and I think nothing got slower. This commit was sponsored by Boyd Stephen Smith Jr. on Patreon.
This commit is contained in:
parent
2670af9d5a
commit
9b0dde834e
34 changed files with 79 additions and 70 deletions
|
@ -251,7 +251,7 @@ retrieveChunks retriever u chunkconfig encryptor basek dest basep sink
|
|||
where
|
||||
go pe cks = do
|
||||
let ls = map chunkKeyList cks
|
||||
currsize <- liftIO $ catchMaybeIO $ getFileSize dest
|
||||
currsize <- liftIO $ catchMaybeIO $ getFileSize (toRawFilePath dest)
|
||||
let ls' = maybe ls (setupResume ls) currsize
|
||||
if any null ls'
|
||||
then noop -- dest is already complete
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue