diff options
author | Joe Crayne <joe@jerkface.net> | 2019-12-12 03:30:20 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-01-01 23:26:05 -0500 |
commit | b675708ddb86efcdb2000c5e4b152d7744cbe16f (patch) | |
tree | 8fd610a9a40f25ff76a1b3271a83fbff72c9a790 /dht/src/Data/Tox/Relay.hs | |
parent | 458d053dcff411179d52d437087cce76b8af4a9c (diff) |
TCP client: RoutingRequest query + cosmetic changes
Diffstat (limited to 'dht/src/Data/Tox/Relay.hs')
-rw-r--r-- | dht/src/Data/Tox/Relay.hs | 5 |
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 | |||
72 | newtype PacketNumber = PacketNumber { packetNumberToWord8 :: Word8 } | 72 | newtype PacketNumber = PacketNumber { packetNumberToWord8 :: Word8 } |
73 | deriving (Eq,Ord,Show) | 73 | deriving (Eq,Ord,Show) |
74 | 74 | ||
75 | pattern PingPacket = PacketNumber 4 | 75 | pattern RoutingRequestPacket = PacketNumber 0 |
76 | pattern OnionPacketID = PacketNumber 8 | 76 | pattern PingPacket = PacketNumber 4 |
77 | pattern OnionPacketID = PacketNumber 8 | ||
77 | 78 | ||
78 | packetNumber :: RelayPacket -> PacketNumber | 79 | packetNumber :: RelayPacket -> PacketNumber |
79 | packetNumber (RelayData _ (ConId conid)) = PacketNumber $ conid -- 0 to 15 not allowed. | 80 | packetNumber (RelayData _ (ConId conid)) = PacketNumber $ conid -- 0 to 15 not allowed. |