mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove xa

Browse source 
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.
This commit is contained in:
Joey Hess 2013-03-07 03:35:47 -04:00
parent ade57af9e5
commit 90e4708890
1 changed files with 1 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Assistant/XMPP.hs
View file

@ -52,9 +52,8 @@ instance GitAnnexTaggable Message where
extractGitAnnexTag = headMaybe . filter isGitAnnexTag . messagePayloads extractGitAnnexTag = headMaybe . filter isGitAnnexTag . messagePayloads
instance GitAnnexTaggable Presence where instance GitAnnexTaggable Presence where
-- always mark extended away and set presence priority to negative
insertGitAnnexTag p elt = p insertGitAnnexTag p elt = p
{ presencePayloads = extendedAway : negativePriority : elt : presencePayloads p } { presencePayloads = negativePriority : elt : presencePayloads p }
extractGitAnnexTag = headMaybe . filter isGitAnnexTag . presencePayloads extractGitAnnexTag = headMaybe . filter isGitAnnexTag . presencePayloads
data GitAnnexTagInfo = GitAnnexTagInfo data GitAnnexTagInfo = GitAnnexTagInfo
@ -205,10 +204,6 @@ silentMessage = (emptyMessage MessageChat)
, elementNodes = [] , 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. -} {- Add to a presence to give it a negative priority. -}
negativePriority :: Element negativePriority :: Element
negativePriority = Element "priority" [] [NodeContent $ ContentText "-1"] negativePriority = Element "priority" [] [NodeContent $ ContentText "-1"]