diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/dhtd.hs | 3 |
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 | |||
| 860 | case HashMap.lookup (Tox.key2id mypubkey) acsmap of | 860 | case HashMap.lookup (Tox.key2id mypubkey) acsmap of |
| 861 | Nothing -> hPutClient h "Unable to find account for selected key" | 861 | Nothing -> hPutClient h "Unable to find account for selected key" |
| 862 | Just account -> do | 862 | Just account -> do |
| 863 | atomically $ setContactAddr their_pub their_addr account | 863 | now <- getPOSIXTime |
| 864 | atomically $ setContactAddr now their_pub their_addr account | ||
| 864 | Tox.netCrypto tox sec their_pub | 865 | Tox.netCrypto tox sec their_pub |
| 865 | hPutClient h "Handshake sent" | 866 | hPutClient h "Handshake sent" |
| 866 | goTarget (Right their_pub) = do | 867 | goTarget (Right their_pub) = do |