diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-10 01:34:03 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-10 01:34:03 -0400 |
| commit | cf18a864ff07942475ed1c24743d0985e3bec642 (patch) | |
| tree | fd75862dd87eb7514a645a02dd4828db8baec5f6 /Assistant/Types | |
| parent | 9878bea94e465333bbfb32ae7bb410d59014749c (diff) | |
fix deferring of CanPush, and stop deferring StartingPush
Diffstat (limited to 'Assistant/Types')
| -rw-r--r-- | Assistant/Types/NetMessager.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Assistant/Types/NetMessager.hs b/Assistant/Types/NetMessager.hs index 3d7bb4d04..cd96a5523 100644 --- a/Assistant/Types/NetMessager.hs +++ b/Assistant/Types/NetMessager.hs @@ -53,6 +53,11 @@ getClientID (ReceivePackOutput cid _) = Just cid getClientID (SendPackOutput cid _) = Just cid getClientID (ReceivePackDone cid _) = Just cid +isPushInitiationMessage :: NetMessage -> Bool +isPushInitiationMessage (CanPush _) = True +isPushInitiationMessage (PushRequest _) = True +isPushInitiationMessage _ = False + data NetMessager = NetMessager -- outgoing messages { netMessages :: TChan (NetMessage) |