Comments.

1 files changed, 9 insertions, 1 deletions

diff --git a/Presence/Presence.hs b/Presence/Presence.hs
index f1bae255..41204818 100644
--- a/Presence/Presence.hs
+++ b/Presence/Presence.hs
@@ -502,6 +502,9 @@ peerKeyToResolvedName buds pk = do
     return $ fromMaybe (peerKeyToText pk) (listToMaybe ns')
 
 
+-- Given a local address and an IP-address JID, we return True if the JID is
+-- local, False otherwise.  Additionally, a list of equivalent hostname JIDS
+-- are returned.
 multiplyJIDForClient :: SockAddr -> Text -> IO (Bool,[(Maybe Text,Text,Maybe Text)])
 multiplyJIDForClient laddr jid = do
     let (n,h,r) = splitJID jid
@@ -819,6 +822,8 @@ answerProbe state mto k chan = do
         pstanza <- makePresenceStanza "jabber:server" (Just jid) Offline
         atomically $ writeTChan (connChan conn) pstanza
 
+-- Send friend requests and remote presences stored in remotesByPeer to XMPP
+-- clients.
 sendCachedPresence :: PresenceState -> ConnectionKey -> IO ()
 sendCachedPresence state k = do
     forClient state k (return ()) $ \client -> do
@@ -888,7 +893,9 @@ modifyRosterFile :: (Traversable t, MonadPlus t) =>
                    -> t1)
                   -> Text -- user
                   -> Text -- profile
-                  -> Text -> [SockAddr] -> Bool -> t1
+                  -> Text
+                  -> [SockAddr] -- If a JID reverse-resolves to this address, consider it same.
+                  -> Bool -> t1
 modifyRosterFile doit whose profile to addrs bAdd = do
     let (mu,_,_) = splitJID to
         cmp jid = runTraversableT $ do
@@ -1058,6 +1065,7 @@ peerSubscriptionRequest state fail k stanza chan = do
 
     let from' = unsplitJID fromtup
 
+    -- Update roster files (subscribe: add to pending, unsubscribe: remove from subscribers).
     already_pending <-
       if is_wanted then
         addToRosterFile ConfigFiles.modifyPending u profile from' addrs