diff options
Diffstat (limited to 'src/Network/Tox/Onion/Transport.hs')
-rw-r--r-- | src/Network/Tox/Onion/Transport.hs | 4 |
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 | |||
681 | decrypt crypto msg addr = do | 681 | decrypt 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 | ||
687 | senderkey :: OnionDestination r -> t -> (PublicKey, t) | 687 | senderkey :: OnionDestination r -> t -> (PublicKey, t) |
688 | senderkey addr e = (onionKey addr, e) | 688 | senderkey addr e = (onionKey addr, e) |