oops interesction instead of subtraction

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
         sendModifiedStanzaToClient update chan
 
     let dsts = Map.fromList $ map ((,()) . PeerKey) addrs
-        cdsts = ktc Map.\\ dsts
+        cdsts = ktc `Map.intersection` dsts
     forM_ (Map.toList cdsts) $ \(pk,con) -> do
         -- if already connected, send solicitation ...
         -- let from = clientJID con client