From ffe298780ce5945dd7a3a5fa957cf2770ca34b56 Mon Sep 17 00:00:00 2001 From: joe Date: Mon, 23 Oct 2017 18:35:50 -0400 Subject: Decryption layer for data-to-route messages. --- src/Network/Tox/Transport.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Network/Tox/Transport.hs') diff --git a/src/Network/Tox/Transport.hs b/src/Network/Tox/Transport.hs index 59c0cf6f..2a4e7eee 100644 --- a/src/Network/Tox/Transport.hs +++ b/src/Network/Tox/Transport.hs @@ -24,14 +24,14 @@ toxTransport :: -> UDPTransport -> IO ( Transport String NodeInfo (DHTMessage Encrypted8) , Transport String (OnionDestination RouteId) (OnionMessage Encrypted) - , Transport String Rendezvous (Asymm (Encrypted DataToRoute)) + , Transport String Rendezvous DataToRoute , Transport String SockAddr NetCrypto ) toxTransport crypto orouter closeLookup udp = do (dht,udp1) <- partitionTransport parseDHTAddr (Just . encodeDHTAddr) $ forwardOnions crypto udp (onion1,udp2) <- partitionTransportM (parseOnionAddr $ lookupSender orouter) (encodeOnionAddr $ lookupRoute orouter) udp1 - (dta,onion) <- partitionTransport (parseDataToRoute crypto) (encodeDataToRoute crypto) onion1 + (dta,onion) <- partitionTransportM (parseDataToRoute crypto) (encodeDataToRoute crypto) onion1 let netcrypto = layerTransport parseNetCrypto encodeNetCrypto udp2 return ( forwardDHTRequests crypto closeLookup dht , onion -- cgit v1.2.3