From dd588893b7f1ec2c54671dfb8c1166ffa8378ecf Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 7 Nov 2012 16:59:18 -0400 Subject: data types and xml generation/parsing for xmpp push --- Assistant/Types/NetMessager.hs | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'Assistant/Types') diff --git a/Assistant/Types/NetMessager.hs b/Assistant/Types/NetMessager.hs index f84247d6c..aa0585590 100644 --- a/Assistant/Types/NetMessager.hs +++ b/Assistant/Types/NetMessager.hs @@ -13,6 +13,7 @@ import Assistant.Pairing import Data.Text (Text) import Control.Concurrent.STM import Control.Concurrent.MSampleVar +import Data.ByteString (ByteString) {- Messages that can be sent out of band by a network messager. -} data NetMessage @@ -23,6 +24,16 @@ data NetMessage -- notification about a stage in the pairing process, -- involving a client identified by the Text, and a UUID. | PairingNotification PairStage Text UUID + -- request that a git push be sent over the out of band network + | PushRequest + -- indicates that a PushRequest has been seen and a push is starting + | StartingPush + -- a chunk of output of git receive-pack + | ReceivePackOutput ByteString + -- a chuck of output of git send-pack + | SendPackOutput ByteString + -- sent when git receive-pack exits, with its exit code + | ReceivePackDone ExitCode deriving (Show) data NetMessagerControl = NetMessagerControl -- cgit v1.2.3