diff options
author | Joey Hess <joey@kitenet.net> | 2012-11-11 16:23:16 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-11-11 16:23:16 -0400 |
commit | 6068fd160ffeb930368a4c4c2a8818ace71f29ab (patch) | |
tree | 3f5a183e9594854a55f17cfdca740516943084c6 /Assistant/Types | |
parent | 0d21e323e0d095232e347859adaaf2cc2cd71592 (diff) |
don't try to transfer data to/from XMPP remotes
Partition syncRemotes into ones needing git sync (ie, non-special remotes),
and ones needing data sync (ie, non-XMPP remotes).
Diffstat (limited to 'Assistant/Types')
-rw-r--r-- | Assistant/Types/DaemonStatus.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/Assistant/Types/DaemonStatus.hs b/Assistant/Types/DaemonStatus.hs index ca4122d55..df0928d6e 100644 --- a/Assistant/Types/DaemonStatus.hs +++ b/Assistant/Types/DaemonStatus.hs @@ -33,8 +33,12 @@ data DaemonStatus = DaemonStatus -- Messages to display to the user. , alertMap :: AlertMap , lastAlertId :: AlertId - -- Ordered list of remotes to sync with. + -- Ordered list of all remotes that can be synced with , syncRemotes :: [Remote] + -- Ordered list of remotes to sync git with + , syncGitRemotes :: [Remote] + -- Ordered list of remotes to sync data with + , syncDataRemotes :: [Remote] -- Pairing request that is in progress. , pairingInProgress :: Maybe PairingInProgress -- Broadcasts notifications about all changes to the DaemonStatus @@ -60,6 +64,8 @@ newDaemonStatus = DaemonStatus <*> pure M.empty <*> pure firstAlertId <*> pure [] + <*> pure [] + <*> pure [] <*> pure Nothing <*> newNotificationBroadcaster <*> newNotificationBroadcaster |