diff options
Diffstat (limited to 'dht/src/Network/Tox/Onion/Handlers.hs')
-rw-r--r-- | dht/src/Network/Tox/Onion/Handlers.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/dht/src/Network/Tox/Onion/Handlers.hs b/dht/src/Network/Tox/Onion/Handlers.hs index ca7d47db..bd441f06 100644 --- a/dht/src/Network/Tox/Onion/Handlers.hs +++ b/dht/src/Network/Tox/Onion/Handlers.hs | |||
@@ -373,6 +373,7 @@ putRendezvous getTimeout crypto client pubkey nonce32 ni = do | |||
373 | rendezvousKey = key2id rkey | 373 | rendezvousKey = key2id rkey |
374 | asel <- atomically $ selectAlias crypto longTermKey | 374 | asel <- atomically $ selectAlias crypto longTermKey |
375 | let oaddr = OnionDestination asel ni Nothing | 375 | let oaddr = OnionDestination asel ni Nothing |
376 | dput XPublish $ "putRendezvous at " ++ show ni | ||
376 | fmap resultToMaybe | 377 | fmap resultToMaybe |
377 | $ sendOnion getTimeout client (AnnounceRequest nonce32 longTermKey rendezvousKey) oaddr | 378 | $ sendOnion getTimeout client (AnnounceRequest nonce32 longTermKey rendezvousKey) oaddr |
378 | $ \ni resp -> (Rendezvous rkey ni, resp) | 379 | $ \ni resp -> (Rendezvous rkey ni, resp) |