diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-04-09 15:26:41 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-09 15:26:41 -0400 |
| commit | b7feceff3dfd4ed7c8889036cd43f06642a449da (patch) | |
| tree | cf41ddf713ca484948402871fa963374d349f7c9 /Assistant/Types | |
| parent | 11c19090eaeef4a7f8dd7faaa67eccb48d1937f8 (diff) | |
webapp: Show a network signal icon next to ssh remotes that it's currently connected with.
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 a618c700d..2adad2828 100644 --- a/Assistant/Types/DaemonStatus.hs +++ b/Assistant/Types/DaemonStatus.hs @@ -52,6 +52,8 @@ data DaemonStatus = DaemonStatus , syncDataRemotes :: [Remote] -- Are we syncing to any cloud remotes? , syncingToCloudRemote :: Bool + -- Set of uuids of remotes that are currently connected. + , currentlyConnectedRemotes :: S.Set UUID -- List of uuids of remotes that we may have gotten out of sync with. , desynced :: S.Set UUID -- Pairing request that is in progress. @@ -104,6 +106,7 @@ newDaemonStatus = DaemonStatus <*> pure [] <*> pure False <*> pure S.empty + <*> pure S.empty <*> pure Nothing <*> newNotificationBroadcaster <*> newNotificationBroadcaster |