diff options
author | 2012-11-03 14:25:06 -0400 | |
---|---|---|
committer | 2012-11-03 14:25:06 -0400 | |
commit | 414fb6e1dc03201cb237041be97670c12be90f9f (patch) | |
tree | a0d442d2e99bc8fd8647d810f1856bbd22356b74 /Assistant/XMPP.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/XMPP.hs')
-rw-r--r-- | Assistant/XMPP.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Assistant/XMPP.hs b/Assistant/XMPP.hs index 05bc94fa3..834055fbc 100644 --- a/Assistant/XMPP.hs +++ b/Assistant/XMPP.hs @@ -84,6 +84,9 @@ decodePushNotification (Element name attrs _nodes) fromContent (ContentText t) = t fromContent (ContentEntity t) = t +pushNotification :: [UUID] -> Presence +pushNotification = gitAnnexPresence . encodePushNotification + {- A request for other git-annex clients to send presence. -} presenceQuery :: Presence presenceQuery = gitAnnexPresence $ Element gitAnnexTagName |