Tox: Added timestamps to dhtkey and sockaddr information.

1 files changed, 2 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index ac78d552..91fabc27 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -860,7 +860,8 @@ clientSession s@Session{..} sock cnum h = do
                                             case HashMap.lookup (Tox.key2id mypubkey) acsmap of
                                                 Nothing -> hPutClient h "Unable to find account for selected key"
                                                 Just account -> do
-                                                    atomically $ setContactAddr their_pub their_addr account
+                                                    now <- getPOSIXTime
+                                                    atomically $ setContactAddr now their_pub their_addr account
                                                     Tox.netCrypto tox sec their_pub
                                                     hPutClient h "Handshake sent"
                         goTarget (Right their_pub) = do