diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-03 22:52:41 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-03 22:52:41 -0400 |
| commit | fc6d4cdfcc7c83163d12059a8f784442ce5c4ca9 (patch) | |
| tree | 9d07328a64281723f3c87e0ebfba855133bd4556 /Assistant/XMPP/Buddies.hs | |
| parent | 82c6426b785bc7fca45e2f5a44e1e8d29e40d7f1 (diff) | |
workaround for Google Talk's insane handling of self-directed presence
Maybe the spec allows it, but broadcasting self-directed presence info to
all buddies is just insane.
I had to bring back the IQ messages for self-pairing, while still using
directed presence for other pairing. Ugly.
Diffstat (limited to 'Assistant/XMPP/Buddies.hs')
| -rw-r--r-- | Assistant/XMPP/Buddies.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/XMPP/Buddies.hs b/Assistant/XMPP/Buddies.hs index 087a34879..77e506ee9 100644 --- a/Assistant/XMPP/Buddies.hs +++ b/Assistant/XMPP/Buddies.hs @@ -18,7 +18,7 @@ import Data.Text (Text) import qualified Data.Text as T genKey :: JID -> BuddyKey -genKey j = BuddyKey $ formatJID $ JID (jidNode j) (jidDomain j) Nothing +genKey j = BuddyKey $ formatJID $ baseJID j buddyName :: JID -> Text buddyName j = maybe (T.pack "") strNode (jidNode j) |