diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-13 17:14:56 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-13 17:14:56 -0400 |
| commit | 7e226e373b203dce324b9d3b7fc2a82ca1781183 (patch) | |
| tree | 50cf3d083441c4a99d4e46f95a66421e1e1d2a4a /Assistant/Types | |
| parent | a0865e6c494ec4bdfb7ab058a5633a8634d48bd4 (diff) | |
cronner: run jobs triggered by remotes becoming connected (untested)
Diffstat (limited to 'Assistant/Types')
| -rw-r--r-- | Assistant/Types/DaemonStatus.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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 |