summaryrefslogtreecommitdiff
path: root/Assistant/Types
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-04-09 15:26:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-04-09 15:26:41 -0400
commitb7feceff3dfd4ed7c8889036cd43f06642a449da (patch)
treecf41ddf713ca484948402871fa963374d349f7c9 /Assistant/Types
parent11c19090eaeef4a7f8dd7faaa67eccb48d1937f8 (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.hs3
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