diff options
| -rw-r--r-- | Assistant/XMPP.hs | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/Assistant/XMPP.hs b/Assistant/XMPP.hs index 3104f844d..0360ce860 100644 --- a/Assistant/XMPP.hs +++ b/Assistant/XMPP.hs @@ -75,23 +75,21 @@ gitAnnexTagInfo v = case extractGitAnnexTag v of <*> pure tag _ -> Nothing -{- A presence with a git-annex tag in it. -} +{- A presence with a git-annex tag in it. + - Also includes a status tag, which may be visible in XMPP clients. -} gitAnnexPresence :: Element -> Presence -gitAnnexPresence = insertGitAnnexTag $ emptyPresence PresenceAvailable - -{- A presence with an empty git-annex tag in it, used for letting other - - clients know we're around and are a git-annex client. - - - - Also includes a status tag, which may be visible in XMPP clients. - -} -gitAnnexSignature :: Presence -gitAnnexSignature = addStatusTag $ gitAnnexPresence $ Element gitAnnexTagName [] [] +gitAnnexPresence = insertGitAnnexTag $ addStatusTag $ emptyPresence PresenceAvailable where addStatusTag p = p { presencePayloads = status : presencePayloads p } status = Element "status" [] [statusMessage] statusMessage = NodeContent $ ContentText $ T.pack "git-annex" +{- A presence with an empty git-annex tag in it, used for letting other + - clients know we're around and are a git-annex client. -} +gitAnnexSignature :: Presence +gitAnnexSignature = gitAnnexPresence $ Element gitAnnexTagName [] [] + {- XMPP client to server ping -} xmppPing :: JID -> IQ xmppPing selfjid = (emptyIQ IQGet) |