cronner: run jobs triggered by remotes becoming connected (untested)

This commit is contained in:
Joey Hess 2013-10-13 17:14:56 -04:00
parent 57d369c5a8
commit 25462f125d
4 changed files with 94 additions and 31 deletions

View file

@ -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