summaryrefslogtreecommitdiff
path: root/Assistant/XMPP.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Assistant/XMPP.hs')
-rw-r--r--Assistant/XMPP.hs3
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