implement pair request broadcasts
Pair requests are sent on all network interfaces, and contain the best available hostname to use to contact the host on that interface. Added a pairing in progress page. Revert "reduce some boilerplate using ghc extensions", because it caused overlapping instances for Text.
This commit is contained in:
parent
0c01348b65
commit
3dd4b4058f
7 changed files with 174 additions and 30 deletions
|
@ -9,6 +9,7 @@ module Assistant.DaemonStatus where
|
|||
|
||||
import Common.Annex
|
||||
import Assistant.Alert
|
||||
import Assistant.Pairing
|
||||
import Utility.TempFile
|
||||
import Utility.NotificationBroadcaster
|
||||
import Logs.Transfer
|
||||
|
@ -38,6 +39,8 @@ data DaemonStatus = DaemonStatus
|
|||
, lastAlertId :: AlertId
|
||||
-- Ordered list of remotes to talk to.
|
||||
, knownRemotes :: [Remote]
|
||||
-- Pairing requests that are in progress.
|
||||
, pairingInProgress :: [PairingInProgress]
|
||||
-- Broadcasts notifications about all changes to the DaemonStatus
|
||||
, changeNotifier :: NotificationBroadcaster
|
||||
-- Broadcasts notifications when queued or current transfers change.
|
||||
|
@ -61,6 +64,7 @@ newDaemonStatus = DaemonStatus
|
|||
<*> pure M.empty
|
||||
<*> pure firstAlertId
|
||||
<*> pure []
|
||||
<*> pure []
|
||||
<*> newNotificationBroadcaster
|
||||
<*> newNotificationBroadcaster
|
||||
<*> newNotificationBroadcaster
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue