summaryrefslogtreecommitdiff
path: root/dht/src/Network/Tox/Onion/Handlers.hs
diff options
context:
space:
mode:
Diffstat (limited to 'dht/src/Network/Tox/Onion/Handlers.hs')
-rw-r--r--dht/src/Network/Tox/Onion/Handlers.hs1
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)