From 07b1494c9d5c692371c9689a8f78f4cf7ee58732 Mon Sep 17 00:00:00 2001 From: joe Date: Mon, 18 Jun 2018 00:49:38 -0400 Subject: Tox: Added timestamps to dhtkey and sockaddr information. --- examples/dhtd.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'examples') 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 -- cgit v1.2.3