mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix deferring of CanPush, and stop deferring StartingPush

Browse source
This commit is contained in:
Joey Hess 2012-11-10 01:34:03 -04:00
parent 17ec59bcd1
commit c0fab69f85
2 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Assistant/Types/NetMessager.hs
View file

@ -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)