diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-09 14:34:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-09 14:34:06 -0400 |
| commit | dcaa93dd5aff1be6e085f689672c2ec35d5f49f1 (patch) | |
| tree | ce5cd2bae1b8625f5f43ec0af6d65d12db2ba5fd /Assistant/Types | |
| parent | b8e1ac94f21661786dd1825418b9d1d512a6a878 (diff) | |
add canpush xmpp command
Diffstat (limited to 'Assistant/Types')
| -rw-r--r-- | Assistant/Types/NetMessager.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Assistant/Types/NetMessager.hs b/Assistant/Types/NetMessager.hs index 6974cf57d..3d7bb4d04 100644 --- a/Assistant/Types/NetMessager.hs +++ b/Assistant/Types/NetMessager.hs @@ -25,6 +25,8 @@ data NetMessage -- notification about a stage in the pairing process, -- involving a client, and a UUID. | PairingNotification PairStage ClientID UUID + -- indicates that we have data to push over the out of band network + | CanPush ClientID -- request that a git push be sent over the out of band network | PushRequest ClientID -- indicates that a push is starting @@ -44,6 +46,7 @@ getClientID :: NetMessage -> Maybe ClientID getClientID (NotifyPush _) = Nothing getClientID QueryPresence = Nothing getClientID (PairingNotification _ cid _) = Just cid +getClientID (CanPush cid) = Just cid getClientID (PushRequest cid) = Just cid getClientID (StartingPush cid) = Just cid getClientID (ReceivePackOutput cid _) = Just cid |