Removed old or wrong comments

1 files changed, 0 insertions, 37 deletions

diff --git a/Presence/XMPP.hs b/Presence/XMPP.hs
index 153e70f9..4c103880 100644
--- a/Presence/XMPP.hs
+++ b/Presence/XMPP.hs
@@ -162,20 +162,6 @@ gatherElement opentag empty = loop (empty `mplus` return opentag) 1
          _ | eventIsBeginElement tag -> loop ts' (cnt+1)
          _                           -> loop ts' cnt
 
-{-
-sourceStanza :: Monad m => Event -> ConduitM Event Event m ()
-sourceStanza opentag = yield opentag >> loop 1
- where
-    loop 0 = return ()
-    loop cnt = do
-        e <- await
-        let go tag cnt = yield tag >> loop cnt
-        case e of
-            Just tag | eventIsEndElement tag   -> go tag (cnt-1)
-            Just tag | eventIsBeginElement tag -> go tag (cnt+1)
-            Just tag                           -> go tag cnt
-            Nothing                            -> return ()
--}
 
 voidMaybeT body = (>> return ()) . runMaybeT $ body
 fixMaybeT f = (>> return ()) . runMaybeT . fix $ f
@@ -369,14 +355,6 @@ handleIQGet session cmdChan tag = do
             atomically . writeTChan cmdChan . Send $ pong
         "{jabber:iq:roster}query" -> liftIO $ do
             putStrLn $ "REQUESTED ROSTER " ++ show tag
-            -- REQUESTED ROSTER EventBeginElement 
-            -- (Name {nameLocalName = "iq", nameNamespace = Just "jabber:client", namePrefix = Nothing}) 
-            -- [(Name { nameLocalName = "id"
-            --        , nameNamespace = Nothing
-            --        , namePrefix = Nothing},
-            --  [ContentText "32a337c2-7b22-45b6-9d21-15ded0d079ec"])
-            -- ,(Name {nameLocalName = "type", nameNamespace = Nothing, namePrefix = Nothing},
-            --  [ContentText "get"])]
             roster <- getRoster session stanza_id
             atomically $ do
                 writeTChan cmdChan InterestedInRoster
@@ -766,7 +744,6 @@ clientRequestsSubscription session cmdChan stanza = do
              then do
                 addSolicited session to_str' to_jid
                 putStrLn $ "added to solicited: " ++ show to_jid
-                -- TODO: notify peer.
              else do
                 -- addLocalSubscriber session to_str
                 -- self <- getJID session
@@ -948,16 +925,6 @@ presenceStanza sock fromjid tojid typ = do
       , EventEndElement "{jabber:server}presence"
       ]
 
-{-
-toPeerChain
-  :: SocketLike sock =>
-     sock
-     -> CachedMessages
-     -> TChan OutBoundMessage
-     -> Sink ByteString IO b
-     -> IO b
-toPeerChain sock cache chan snk = toPeer sock cache chan $$ renderChunks =$ snk
--}
 
 toPeer
   :: SocketLike sock =>
@@ -1052,14 +1019,10 @@ seekRemotePeers config chan server_connections = do
                   forM_ (Set.toList peers) $ \peer -> do
                     when (is_remote peer) $
                         liftIO $ sendMessage server_connections (OutBoundPresence p) peer
-                  -- TODO: send presence probes for buddies
-                  -- TODO: cache remote presences for clients
             _ -> return (Just ())
         loop 
 
 xmlifyPresenceForPeer sock (Presence jid stat) = do
-    -- TODO: accept socket argument and determine local ip address
-    --       connected to this peer.
     addr <- getSocketName sock
     let n = name jid
         rsc = resource jid