diff options
Diffstat (limited to 'Presence/Presence.hs')
| -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 |