diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-23 15:22:23 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-23 15:24:15 -0400 |
| commit | 715a9a2f8e788ffe0bc92bc02919a1825bda49a7 (patch) | |
| tree | 259e5e683f7d7db3f6bba0192638fe77eeb36d05 /Assistant/TransferQueue.hs | |
| parent | 487bdf0e24d34135da2e53bbcd2c97d892ed817a (diff) | |
keep logs of failed transfers, and requeue them when doing a non-full scan
of a remote
Diffstat (limited to 'Assistant/TransferQueue.hs')
| -rw-r--r-- | Assistant/TransferQueue.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Assistant/TransferQueue.hs b/Assistant/TransferQueue.hs index aa6192527..18719de8e 100644 --- a/Assistant/TransferQueue.hs +++ b/Assistant/TransferQueue.hs @@ -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. - |