From 4887b1b3afd8acf58602d622499664ffb777a8b1 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 19 Mar 2013 18:46:29 -0400
Subject: maintain pools of running transferkeys processes (untested)

---
 Assistant/Monad.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Assistant/Monad.hs')

diff --git a/Assistant/Monad.hs b/Assistant/Monad.hs
index e046c9666..ced98b395 100644
--- a/Assistant/Monad.hs
+++ b/Assistant/Monad.hs
@@ -35,6 +35,7 @@ import Assistant.Types.DaemonStatus
 import Assistant.Types.ScanRemotes
 import Assistant.Types.TransferQueue
 import Assistant.Types.TransferSlots
+import Assistant.Types.TransferrerPool
 import Assistant.Types.Pushes
 import Assistant.Types.BranchChange
 import Assistant.Types.Commits
@@ -62,6 +63,7 @@ data AssistantData = AssistantData
 	, scanRemoteMap :: ScanRemoteMap
 	, transferQueue :: TransferQueue
 	, transferSlots :: TransferSlots
+	, transferrerPool :: TransferrerPool
 	, failedPushMap :: FailedPushMap
 	, commitChan :: CommitChan
 	, changeChan :: ChangeChan
@@ -78,6 +80,7 @@ newAssistantData st dstatus = AssistantData
 	<*> newScanRemoteMap
 	<*> newTransferQueue
 	<*> newTransferSlots
+	<*> newTransferrerPool
 	<*> newFailedPushMap
 	<*> newCommitChan
 	<*> newChangeChan
-- 
cgit v1.2.3