diff options
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) |