diff options
| author | joe <joe@jerkface.net> | 2014-03-09 00:43:18 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2014-03-09 00:43:18 -0500 |
| commit | 28c1f1e291d219afe602ecf9a7b453fbe1179435 (patch) | |
| tree | 1b81189a318b1a093fb49fe775eb5703bb0d28cb /xmppServer.hs | |
| parent | d7537a3c5d69228e97aa977d29d523b594fc0e4d (diff) | |
similar bug
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) |