diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-09-09 17:38:58 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-10-03 07:00:51 -0400 |
| commit | 38505a54b28492ad303cad66f07591df3abf2a4d (patch) | |
| tree | f2cd1dfe586327618a838e1d844c5992fa2b000e /Presence | |
| parent | c9f4768777ed33fbe33ad672c34da74718b938fc (diff) | |
Provide a different roster resolver for tox-peers to Presence.
Diffstat (limited to 'Presence')
| -rw-r--r-- | Presence/Presence.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Presence/Presence.hs b/Presence/Presence.hs index 98d701e9..c3e60239 100644 --- a/Presence/Presence.hs +++ b/Presence/Presence.hs | |||
| @@ -794,6 +794,7 @@ informClientPresence0 state mbk client stanza = do | |||
| 794 | atomically $ setClientFlag0 client cf_available | 794 | atomically $ setClientFlag0 client cf_available |
| 795 | maybe (return ()) (sendCachedPresence state) mbk | 795 | maybe (return ()) (sendCachedPresence state) mbk |
| 796 | addrs <- subscribedPeers (manager state $ clientProfile client) (clientUser client) (clientProfile client) | 796 | addrs <- subscribedPeers (manager state $ clientProfile client) (clientUser client) (clientProfile client) |
| 797 | dput XJabber $ "informClientPresence(subscribedPeers) "++show (clientProfile client,addrs) | ||
| 797 | ktc <- atomically $ readTVar (pkeyToChan state) | 798 | ktc <- atomically $ readTVar (pkeyToChan state) |
| 798 | let connected = mapMaybe (flip Map.lookup ktc) addrs | 799 | let connected = mapMaybe (flip Map.lookup ktc) addrs |
| 799 | forM_ connected $ \con -> do | 800 | forM_ connected $ \con -> do |