Tox: Added timestamps to dhtkey and sockaddr information.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 29b980b7..5a4c02ea 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -294,7 +294,7 @@ netCryptoWithBackoff millisecs tox myseckey theirpubkey = do
          (Nothing,_,_,_) -> do
             hPutStrLn stderr ("netCrypto: (" ++ show mykeyAsId ++") no DHT-key for friend (" ++ show theirkeyAsId ++ "). TODO: what?")
             return []
-         (Just keyPkt,Just saddr,mbFR,mbPolicy)
+         (Just (stamp_theirDhtKey,keyPkt),Just (stamp_saddr,saddr),mbFR,mbPolicy)
                                   | theirDhtKey <- DHT.dhtpk keyPkt -> do
             -- Do we already have an active session with this user?
             sessionsMap <- atomically $ readTVar (netCryptoSessionsByKey (toxCryptoSessions tox) )