data types and xml generation/parsing for xmpp push

1 files changed, 11 insertions, 0 deletions

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