diff options
Diffstat (limited to 'xmppServer.hs')
| -rw-r--r-- | xmppServer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/xmppServer.hs b/xmppServer.hs index 4a289eae..a903f332 100644 --- a/xmppServer.hs +++ b/xmppServer.hs | |||
| @@ -802,7 +802,7 @@ clientInformSubscription state fail k stanza = do | |||
| 802 | 802 | ||
| 803 | -- notify peer | 803 | -- notify peer |
| 804 | let dsts = Map.fromList $ map ((,()) . PeerKey) addrs | 804 | let dsts = Map.fromList $ map ((,()) . PeerKey) addrs |
| 805 | cdsts = ktc Map.\\ dsts | 805 | cdsts = ktc `Map.intersection` dsts |
| 806 | forM_ (Map.toList cdsts) $ \(pk,con) -> do | 806 | forM_ (Map.toList cdsts) $ \(pk,con) -> do |
| 807 | let from = clientJID con client | 807 | let from = clientJID con client |
| 808 | to' = unsplitJID (mu, peerKeyToText pk, Nothing) | 808 | to' = unsplitJID (mu, peerKeyToText pk, Nothing) |