comments

1 files changed, 5 insertions, 4 deletions

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