summaryrefslogtreecommitdiff
path: root/dht/src/Data
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2019-12-12 03:30:20 -0500
committerJoe Crayne <joe@jerkface.net>2020-01-01 23:26:05 -0500
commitb675708ddb86efcdb2000c5e4b152d7744cbe16f (patch)
tree8fd610a9a40f25ff76a1b3271a83fbff72c9a790 /dht/src/Data
parent458d053dcff411179d52d437087cce76b8af4a9c (diff)
TCP client: RoutingRequest query + cosmetic changes
Diffstat (limited to 'dht/src/Data')
-rw-r--r--dht/src/Data/Tox/Relay.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/dht/src/Data/Tox/Relay.hs b/dht/src/Data/Tox/Relay.hs
index 64c90806..1bce76db 100644
--- a/dht/src/Data/Tox/Relay.hs
+++ b/dht/src/Data/Tox/Relay.hs
@@ -72,8 +72,9 @@ data RelayPacket
72newtype PacketNumber = PacketNumber { packetNumberToWord8 :: Word8 } 72newtype PacketNumber = PacketNumber { packetNumberToWord8 :: Word8 }
73 deriving (Eq,Ord,Show) 73 deriving (Eq,Ord,Show)
74 74
75pattern PingPacket = PacketNumber 4 75pattern RoutingRequestPacket = PacketNumber 0
76pattern OnionPacketID = PacketNumber 8 76pattern PingPacket = PacketNumber 4
77pattern OnionPacketID = PacketNumber 8
77 78
78packetNumber :: RelayPacket -> PacketNumber 79packetNumber :: RelayPacket -> PacketNumber
79packetNumber (RelayData _ (ConId conid)) = PacketNumber $ conid -- 0 to 15 not allowed. 80packetNumber (RelayData _ (ConId conid)) = PacketNumber $ conid -- 0 to 15 not allowed.