diff options
Diffstat (limited to 'Assistant/Types/DaemonStatus.hs')
-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 |