diff options
author | Joey Hess <joey@kitenet.net> | 2013-03-19 18:46:29 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-03-19 18:46:29 -0400 |
commit | 4887b1b3afd8acf58602d622499664ffb777a8b1 (patch) | |
tree | 16cd101c9a61320f5fbf1ca72f1a51f602f70824 /Assistant/Monad.hs | |
parent | 28336756f9e97173ce922d02c6eeed4e01d07e57 (diff) |
maintain pools of running transferkeys processes (untested)
Diffstat (limited to 'Assistant/Monad.hs')
-rw-r--r-- | Assistant/Monad.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 |