on second thought, do allow deferring StartingPush

My reasoning is that StartingPush could be received after another push
starts being received, and it would be better to respond to it afterwards
than not.
This commit is contained in:
Joey Hess 2012-11-10 01:41:28 -04:00
parent 16b2472574
commit 2286032781

View file

@ -56,6 +56,7 @@ getClientID (ReceivePackDone cid _) = Just cid
isPushInitiationMessage :: NetMessage -> Bool
isPushInitiationMessage (CanPush _) = True
isPushInitiationMessage (PushRequest _) = True
isPushInitiationMessage (StartingPush _) = True
isPushInitiationMessage _ = False
data NetMessager = NetMessager