From 7e226e373b203dce324b9d3b7fc2a82ca1781183 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 13 Oct 2013 17:14:56 -0400 Subject: cronner: run jobs triggered by remotes becoming connected (untested) --- Assistant/Types/DaemonStatus.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'Assistant/Types') diff --git a/Assistant/Types/DaemonStatus.hs b/Assistant/Types/DaemonStatus.hs index afb5f940a..abb857a36 100644 --- a/Assistant/Types/DaemonStatus.hs +++ b/Assistant/Types/DaemonStatus.hs @@ -18,6 +18,7 @@ import Assistant.Types.NetMessager import Assistant.Types.Alert import Control.Concurrent.STM +import Control.Concurrent.MVar import Control.Concurrent.Async import Data.Time.Clock.POSIX import qualified Data.Map as M @@ -69,6 +70,8 @@ data DaemonStatus = DaemonStatus -- When the XMPP client is connected, this will contain the XMPP -- address. , xmppClientID :: Maybe ClientID + -- MVars to signal when a remote gets connected. + , connectRemoteNotifiers :: M.Map UUID [MVar ()] } type TransferMap = M.Map Transfer TransferInfo @@ -100,3 +103,4 @@ newDaemonStatus = DaemonStatus <*> newNotificationBroadcaster <*> newNotificationBroadcaster <*> pure Nothing + <*> pure M.empty -- cgit v1.2.3