diff options
Diffstat (limited to 'Assistant/Types/NetMessager.hs')
-rw-r--r-- | Assistant/Types/NetMessager.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Assistant/Types/NetMessager.hs b/Assistant/Types/NetMessager.hs index 6bc9ec34a..79342b666 100644 --- a/Assistant/Types/NetMessager.hs +++ b/Assistant/Types/NetMessager.hs @@ -8,7 +8,9 @@ module Assistant.Types.NetMessager where import Common.Annex +import Assistant.Pairing +import Data.Text (Text) import Control.Concurrent.STM import Control.Concurrent.MSampleVar @@ -18,12 +20,11 @@ data NetMessage = NotifyPush [UUID] -- requests other clients to inform us of their presence | QueryPresence + -- notification about a stage in the pairing process, + -- involving another client identified by the Text, and a UUID. + | PairingNotification PairStage Text UUID + deriving (Show) -{- Controls for the XMPP client. - - - - It can be fed XMPP messages to send. - - - - It can also be sent a signal when it should restart for some reason. -} data NetMessagerControl = NetMessagerControl { netMessages :: TChan (NetMessage) , netMessagerRestart :: MSampleVar () |