diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-07 03:35:47 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-07 03:35:47 -0400 |
| commit | 69f270d68ec3f658fa857ab5a523314fd518cd6f (patch) | |
| tree | 0ffac5df1d0ac22a92059373afaf6a4b20f7c168 /Assistant/XMPP.hs | |
| parent | b5c8f21f25779addb634456425fd55b9321f2de6 (diff) | |
remove xa
I have a theory that some google xmpp servers don't send prsense for xa
clients, while others do. Seeing some weird lack of presence messages
sometimes there.
Diffstat (limited to 'Assistant/XMPP.hs')
| -rw-r--r-- | Assistant/XMPP.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/Assistant/XMPP.hs b/Assistant/XMPP.hs index 2c0004403..49cc82368 100644 --- a/Assistant/XMPP.hs +++ b/Assistant/XMPP.hs @@ -52,9 +52,8 @@ instance GitAnnexTaggable Message where extractGitAnnexTag = headMaybe . filter isGitAnnexTag . messagePayloads instance GitAnnexTaggable Presence where - -- always mark extended away and set presence priority to negative insertGitAnnexTag p elt = p - { presencePayloads = extendedAway : negativePriority : elt : presencePayloads p } + { presencePayloads = negativePriority : elt : presencePayloads p } extractGitAnnexTag = headMaybe . filter isGitAnnexTag . presencePayloads data GitAnnexTagInfo = GitAnnexTagInfo @@ -205,10 +204,6 @@ silentMessage = (emptyMessage MessageChat) , elementNodes = [] } -{- Add to a presence to mark its client as extended away. -} -extendedAway :: Element -extendedAway = Element "show" [] [NodeContent $ ContentText "xa"] - {- Add to a presence to give it a negative priority. -} negativePriority :: Element negativePriority = Element "priority" [] [NodeContent $ ContentText "-1"] |