diff options
author | Joe Crayne <joe@jerkface.net> | 2020-01-28 00:59:36 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-01-28 01:00:13 -0500 |
commit | 6339073a292cac1885f75b659b533ccb294a08bc (patch) | |
tree | aedbcf3403b54a3d13fb4bb626ffa27414c9c89f /dht/src/Network/Tox/Crypto/Transport.hs | |
parent | 3581bb6d887728441d161765392a0d96ae8ccf19 (diff) |
Debug prints putRendezvous related debug prints.
Diffstat (limited to 'dht/src/Network/Tox/Crypto/Transport.hs')
-rw-r--r-- | dht/src/Network/Tox/Crypto/Transport.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dht/src/Network/Tox/Crypto/Transport.hs b/dht/src/Network/Tox/Crypto/Transport.hs index 127b2dac..cff4fd88 100644 --- a/dht/src/Network/Tox/Crypto/Transport.hs +++ b/dht/src/Network/Tox/Crypto/Transport.hs | |||
@@ -103,7 +103,7 @@ encodeCrypto (x,saddr) = Just (B.cons 0x1b (runPut $ put x),saddr) | |||
103 | 103 | ||
104 | parseHandshakes :: ByteString -> addr -> Either String (Handshake Encrypted, addr) | 104 | parseHandshakes :: ByteString -> addr -> Either String (Handshake Encrypted, addr) |
105 | parseHandshakes (B.uncons -> Just (0x1a,pkt)) saddr = left ("parseHandshakes: "++) $ (,saddr) <$> runGet get pkt | 105 | parseHandshakes (B.uncons -> Just (0x1a,pkt)) saddr = left ("parseHandshakes: "++) $ (,saddr) <$> runGet get pkt |
106 | parseHandshakes bs _ = Left $ "parseHandshakes_: " ++ show (B.unpack $ B.take 1 bs) | 106 | parseHandshakes bs _ = Left $ "Unhandled packet: " ++ show (B.unpack $ B.take 1 bs) |
107 | 107 | ||
108 | encodeHandshakes :: Handshake Encrypted -> addr -> (ByteString, addr) | 108 | encodeHandshakes :: Handshake Encrypted -> addr -> (ByteString, addr) |
109 | encodeHandshakes x saddr = (B.cons 0x1a (runPut $ put x),saddr) | 109 | encodeHandshakes x saddr = (B.cons 0x1a (runPut $ put x),saddr) |