Documented NodeInfoCallback.

1 files changed, 5 insertions, 2 deletions

diff --git a/src/Network/Tox/DHT/Handlers.hs b/src/Network/Tox/DHT/Handlers.hs
index 58a29c3e..6c29e958 100644
--- a/src/Network/Tox/DHT/Handlers.hs
+++ b/src/Network/Tox/DHT/Handlers.hs
@@ -121,8 +121,11 @@ classify client msg = fromMaybe (IsUnknown "unknown")
 data NodeInfoCallback = NodeInfoCallback
     { interestingNodeId :: NodeId
     , listenerId        :: Int
-    , observedAddress   :: POSIXTime -> NodeInfo -> STM ()
-    , rumoredAddress    :: POSIXTime -> SockAddr -> NodeInfo -> STM ()
+    , observedAddress   :: POSIXTime -> NodeInfo -- Address and port for interestingNodeId
+                                     -> STM ()
+    , rumoredAddress    :: POSIXTime -> SockAddr -- source of information
+                                     -> NodeInfo -- Address and port for interestingNodeId
+                                     -> STM ()
     }
 
 data Routing = Routing