From 715a9a2f8e788ffe0bc92bc02919a1825bda49a7 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 23 Aug 2012 15:22:23 -0400
Subject: keep logs of failed transfers, and requeue them when doing a non-full
 scan of a remote

---
 Assistant/TransferQueue.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Assistant/TransferQueue.hs')

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.
  -
-- 
cgit v1.2.3