diff options
author | 2012-11-03 14:25:06 -0400 | |
---|---|---|
committer | 2012-11-03 14:25:06 -0400 | |
commit | 414fb6e1dc03201cb237041be97670c12be90f9f (patch) | |
tree | a0d442d2e99bc8fd8647d810f1856bbd22356b74 /Assistant/Threads/XMPPClient.hs | |
parent | 1279d72b4e4fe77abb983954dc937021559d4169 (diff) |
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.
Diffstat (limited to 'Assistant/Threads/XMPPClient.hs')
-rw-r--r-- | Assistant/Threads/XMPPClient.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/XMPPClient.hs b/Assistant/Threads/XMPPClient.hs index 7fb3cc874..9ecceabe5 100644 --- a/Assistant/Threads/XMPPClient.hs +++ b/Assistant/Threads/XMPPClient.hs @@ -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 |