cronner: run jobs triggered by remotes becoming connected (untested)
This commit is contained in:
parent
57d369c5a8
commit
25462f125d
4 changed files with 94 additions and 31 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue