make the assistant retry failed transfers
When a transfer fails, the progress info can be used to intelligently retry it. If the transfer managed to make some progress, but did not fully complete, then there's a good chance that a retry will finish it (or at least make more progress).
This commit is contained in:
parent
d4055b3dd2
commit
df07ccf404
6 changed files with 37 additions and 17 deletions
|
@ -43,7 +43,7 @@ start to from file key =
|
|||
|
||||
toPerform :: Remote -> Key -> AssociatedFile -> CommandPerform
|
||||
toPerform remote key file = next $
|
||||
upload (uuid remote) key file $ \p -> do
|
||||
upload (uuid remote) key file forwardRetry $ \p -> do
|
||||
ok <- Remote.storeKey remote key file p
|
||||
when ok $
|
||||
Remote.logStatus remote key InfoPresent
|
||||
|
@ -51,5 +51,5 @@ toPerform remote key file = next $
|
|||
|
||||
fromPerform :: Remote -> Key -> AssociatedFile -> CommandPerform
|
||||
fromPerform remote key file = next $
|
||||
download (uuid remote) key file $
|
||||
download (uuid remote) key file forwardRetry $
|
||||
getViaTmp key $ Remote.retrieveKeyFile remote key file
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue