send a presence query when the buddy list is displayed

This ensures that clients that have not sent presence in a while will show
up in the list.
This commit is contained in:
Joey Hess 2012-11-03 14:25:06 -04:00
parent a1228e27ed
commit 9a8d0be866
4 changed files with 15 additions and 3 deletions

View file

@ -88,8 +88,8 @@ xmppClientThread = NamedThread "XMPPClient" $ do
relayNetMessage :: Assistant (XMPP ())
relayNetMessage = convert <$> waitNetMessage
where
convert (NotifyPush us) =
putStanza $ gitAnnexPresence $ encodePushNotification us
convert (NotifyPush us) = putStanza $ pushNotification us
convert QueryPresence = putStanza presenceQuery
data DecodedStanza
= PresenceMessage Presence