diff options
| author | joe <joe@jerkface.net> | 2014-03-09 00:37:14 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2014-03-09 00:37:14 -0500 |
| commit | d7537a3c5d69228e97aa977d29d523b594fc0e4d (patch) | |
| tree | 1c343fe2d10c3ee4210c476e53e0d78b6bb4ef15 /xmppServer.hs | |
| parent | 56af0dbac65ee93e71dd975ae02c33cf04610408 (diff) | |
oops interesction instead of subtraction
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 7c09d345..4a289eae 100644 --- a/xmppServer.hs +++ b/xmppServer.hs | |||
| @@ -666,7 +666,7 @@ clientSubscriptionRequest state fail k stanza chan = do | |||
| 666 | sendModifiedStanzaToClient update chan | 666 | sendModifiedStanzaToClient update chan |
| 667 | 667 | ||
| 668 | let dsts = Map.fromList $ map ((,()) . PeerKey) addrs | 668 | let dsts = Map.fromList $ map ((,()) . PeerKey) addrs |
| 669 | cdsts = ktc Map.\\ dsts | 669 | cdsts = ktc `Map.intersection` dsts |
| 670 | forM_ (Map.toList cdsts) $ \(pk,con) -> do | 670 | forM_ (Map.toList cdsts) $ \(pk,con) -> do |
| 671 | -- if already connected, send solicitation ... | 671 | -- if already connected, send solicitation ... |
| 672 | -- let from = clientJID con client | 672 | -- let from = clientJID con client |