TODO note about removing "weird-hack" in XMPPServer.

1 files changed, 8 insertions, 1 deletions

diff --git a/dht/src/Network/StreamServer.hs b/dht/src/Network/StreamServer.hs
index 80ed4ee2..79398e8e 100644
--- a/dht/src/Network/StreamServer.hs
+++ b/dht/src/Network/StreamServer.hs
@@ -130,7 +130,14 @@ streamServer cfg addrs = do
 -- socket must be closed by 'quitListening'.
 acceptLoop :: ServerConfig -> Socket -> Int -> IO ()
 acceptLoop cfg sock n = handle (acceptException cfg n sock) $ do
-    con <- accept sock
+    con <- accept sock -- TODO: We need to remember the (snd con) peer address here!!!
+                       -- See also: "-- Weird hack: addr is would-be peer name" in XMPPServer.hs
+                       -- If we remember the peer address here, we won't need that weird
+                       -- hack or to call sIsConnected.
+                       -- Probably we should move the
+                       --   newtype Local a = Local a deriving (Eq,Ord,Show)
+                       --   newtype Remote a = Remote a deriving (Eq,Ord,Show)
+                       -- defines so that they are accessible to this module.
     let conkey = n + 1
     h <- socketToHandle (fst con) ReadWriteMode
     forkIO $ do