1 files changed, 4 insertions, 15 deletions

diff --git a/Presence/XMPP.hs b/Presence/XMPP.hs
index 01852f43..9dfee14e 100644
--- a/Presence/XMPP.hs
+++ b/Presence/XMPP.hs
@@ -478,27 +478,20 @@ handlePeer st src snk = do
         session_factory = hHead st'
     name <- fmap bshow $ getPeerName sock
     L.putStrLn $ "(P) connected " <++> name
-    jids <- newTVarIO Set.empty
     session <- newSession session_factory sock
 
-    finally ( src $= parseBytes def $$ fromPeer (session,jids) )
+    finally ( src $= parseBytes def $$ fromPeer session )
         $ do 
             L.putStrLn $ "(P) disconnected " <++> name
-            js <- fmap Set.toList (readTVarIO jids)
-            let offline jid = Presence jid Offline
-            forM_ js $ announcePresence session . offline
             closeSession session
 
 
-handlePeerPresence (session,jids) stanza False = do
+handlePeerPresence session stanza False = do
     -- Offline
     withJust (lookupAttrib "from" (tagAttrs stanza)) $ \jid -> do
     peer_jid <- liftIO $ parseAddressJID (L.fromChunks [S.encodeUtf8 jid])
-    liftIO . atomically $ do
-        jids_ <- readTVar jids
-        writeTVar jids (Set.delete peer_jid jids_)
     liftIO $ announcePresence session (Presence peer_jid Offline)
-handlePeerPresence (session,jids) stanza True = do
+handlePeerPresence session stanza True = do
     -- online (Available or Away)
     let log  = liftIO . L.putStrLn . ("(P) " <++>)
     withJust (lookupAttrib "from" (tagAttrs stanza)) $ \jid -> do
@@ -517,10 +510,6 @@ handlePeerPresence (session,jids) stanza True = do
         toStat "chat" = Available
 
     stat' <- parseChildren Available
-
-    liftIO . atomically $ do
-        jids_ <- readTVar jids
-        writeTVar jids (Set.insert pjid jids_)
     liftIO $ announcePresence session (Presence pjid stat')
     log $ bshow (Presence pjid stat')
 
@@ -546,7 +535,7 @@ isPresenceOf (EventBeginElement name attrs) testType
 isPresenceOf _ _ = False
 
 fromPeer :: (MonadThrow m,MonadIO m, XMPPSession session) => 
-    (session, TVar (Set JID))  -> Sink XML.Event m ()
+    session -> Sink XML.Event m ()
 fromPeer session = doNestingXML $ do
     let log  = liftIO . L.putStrLn . ("(P) " <++>)
     withXML $ \begindoc -> do