keep logs of failed transfers, and requeue them when doing a non-full scan
of a remote
This commit is contained in:
parent
487bdf0e24
commit
715a9a2f8e
9 changed files with 132 additions and 64 deletions
|
@ -13,6 +13,7 @@ module Assistant.TransferQueue (
|
|||
queueTransfers,
|
||||
queueTransfer,
|
||||
queueTransferAt,
|
||||
queueTransferWhenSmall,
|
||||
getNextTransfer,
|
||||
dequeueTransfer,
|
||||
) where
|
||||
|
@ -115,6 +116,9 @@ queueTransferAt wantsz schedule q dstatus f t remote = do
|
|||
else retry -- blocks until queuesize changes
|
||||
enqueue schedule q dstatus t (stubInfo f remote)
|
||||
|
||||
queueTransferWhenSmall :: TransferQueue -> DaemonStatusHandle -> AssociatedFile -> Transfer -> Remote -> IO ()
|
||||
queueTransferWhenSmall = queueTransferAt 10 Later
|
||||
|
||||
{- Blocks until a pending transfer is available from the queue,
|
||||
- and removes it.
|
||||
-
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue