summaryrefslogtreecommitdiff
path: root/src/Network/Tox/Onion/Transport.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/Tox/Onion/Transport.hs')
-rw-r--r--src/Network/Tox/Onion/Transport.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/Tox/Onion/Transport.hs b/src/Network/Tox/Onion/Transport.hs
index 85cf095d..baadbbe8 100644
--- a/src/Network/Tox/Onion/Transport.hs
+++ b/src/Network/Tox/Onion/Transport.hs
@@ -681,8 +681,8 @@ decrypt :: TransportCrypto -> OnionMessage Encrypted -> OnionDestination r -> IO
681decrypt crypto msg addr = do 681decrypt crypto msg addr = do
682 (skey,pkey) <- selectKey crypto msg addr 682 (skey,pkey) <- selectKey crypto msg addr
683 return $ do 683 return $ do
684 msg <- sequenceMessage $ transcode (\n -> decryptMessage (skey,pkey) n . left (senderkey addr)) msg 684 msg <- sequenceMessage $ transcode (\n -> decryptMessage (skey,pkey) n . left (senderkey addr)) msg
685 Right (msg, addr) 685 Right (msg, addr)
686 686
687senderkey :: OnionDestination r -> t -> (PublicKey, t) 687senderkey :: OnionDestination r -> t -> (PublicKey, t)
688senderkey addr e = (onionKey addr, e) 688senderkey addr e = (onionKey addr, e)