From 5610131fadb45479984da20143cbc87ce0b04a59 Mon Sep 17 00:00:00 2001 From: joe Date: Wed, 26 Jun 2013 15:45:16 -0400 Subject: comments --- Presence/main.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'Presence/main.hs') diff --git a/Presence/main.hs b/Presence/main.hs index 5897d79e..08943b08 100644 --- a/Presence/main.hs +++ b/Presence/main.hs @@ -90,7 +90,7 @@ instance XMPPSession UnixSession where subscribe session Nothing = do let tmvar = localSubscriber (presence_state session) atomically $ subscribeToChan tmvar - subscribe session (Just jid) = do + subscribe session (Just jid) = do -- UNUSED as yet let tvar = subscriberMap (presence_state session) atomically $ subscribeToMap tvar jid announcePresence session (Presence jid status) = do @@ -149,11 +149,12 @@ update_presence locals_greedy subscribers state getStatus = type RefCount = Int data PresenceState = PresenceState - { hostname :: Peer -- ByteString + { hostname :: Peer -- ByteString, TODO: remove this, its always LocalHost now , currentTTY :: TVar ByteString , activeUsers :: TVar (Set JID) - , subscriberMap :: TVar (Map JID (RefCount,TChan Presence)) - , localSubscriber :: TMVar (RefCount,TChan Presence) + , subscriberMap :: TVar (Map JID (RefCount,TChan Presence)) -- UNUSED as yet + , localSubscriber :: TMVar (RefCount,TChan Presence) -- TODO: rename this, its not just locals + -- ... or make a separte channel for remotes } newPresenceState hostname = atomically $ do -- cgit v1.2.3