From 17676f8b5df3beadc231adaf208ffc5ac8f833f3 Mon Sep 17 00:00:00 2001 From: joe Date: Sat, 28 Oct 2017 17:49:16 -0400 Subject: Decrypt cookie response with cached public key. --- src/Network/Tox/Transport.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Network/Tox/Transport.hs') diff --git a/src/Network/Tox/Transport.hs b/src/Network/Tox/Transport.hs index 5cda1524..01928e56 100644 --- a/src/Network/Tox/Transport.hs +++ b/src/Network/Tox/Transport.hs @@ -27,7 +27,7 @@ toxTransport :: , Transport String AnnouncedRendezvous (PublicKey,OnionData) , Transport String SockAddr NetCrypto ) toxTransport crypto orouter closeLookup udp = do - (dht,udp1) <- partitionTransport parseDHTAddr (Just . encodeDHTAddr) $ forwardOnions crypto udp + (dht,udp1) <- partitionTransportM (parseDHTAddr crypto) (fmap Just . encodeDHTAddr) $ forwardOnions crypto udp (onion1,udp2) <- partitionTransportM (parseOnionAddr $ lookupSender orouter) (encodeOnionAddr $ lookupRoute orouter) udp1 -- cgit v1.2.3