diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-15 17:52:41 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-15 17:52:41 -0400 |
| commit | 77e43ec65fff0aaaa1e08caffeb654971aee0b36 (patch) | |
| tree | 4f09745fe8b3433293dd78eb74c5abf9f3154e10 /Assistant/Types | |
| parent | e41db4a717f8e92c2c33704196f43224ae6a5ec8 (diff) | |
webapp: Display an alert when there are XMPP remotes, and a cloud transfer repository needs to be configured.
Diffstat (limited to 'Assistant/Types')
| -rw-r--r-- | Assistant/Types/DaemonStatus.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Assistant/Types/DaemonStatus.hs b/Assistant/Types/DaemonStatus.hs index df95b23c0..0fc800a37 100644 --- a/Assistant/Types/DaemonStatus.hs +++ b/Assistant/Types/DaemonStatus.hs @@ -46,6 +46,8 @@ data DaemonStatus = DaemonStatus , syncGitRemotes :: [Remote] -- Ordered list of remotes to sync data with , syncDataRemotes :: [Remote] + -- Are we syncing to any cloud remotes? + , syncingToCloudRemote :: Bool -- List of uuids of remotes that we may have gotten out of sync with. , desynced :: S.Set UUID -- Pairing request that is in progress. @@ -81,6 +83,7 @@ newDaemonStatus = DaemonStatus <*> pure [] <*> pure [] <*> pure [] + <*> pure False <*> pure S.empty <*> pure Nothing <*> newNotificationBroadcaster |