diff options
author | Joe Crayne <joe@jerkface.net> | 2020-01-16 00:09:23 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-01-16 00:15:27 -0500 |
commit | f669ed747e7c4eb37c4a6821e0eaaadefbab9d3b (patch) | |
tree | 73df3e4b94daaabe3cab36dc61863d37ae2487c6 /dht/src/Data | |
parent | 2a35ec75c6aaddf617d3617fc3527e2e54d5cab7 (diff) |
Debug print on key mismatch in cookie.
Diffstat (limited to 'dht/src/Data')
-rw-r--r-- | dht/src/Data/Tox/DHT/Multi.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dht/src/Data/Tox/DHT/Multi.hs b/dht/src/Data/Tox/DHT/Multi.hs index acd645a3..d31ae4b8 100644 --- a/dht/src/Data/Tox/DHT/Multi.hs +++ b/dht/src/Data/Tox/DHT/Multi.hs | |||
@@ -122,7 +122,7 @@ nodeInfo :: NodeId -> DSum S Identity -> Either String (DSum T Identity) | |||
122 | nodeInfo nid (SessionUDP :=> Identity saddr) = fmap (UDP ==>) $ UDP.nodeInfo nid saddr | 122 | nodeInfo nid (SessionUDP :=> Identity saddr) = fmap (UDP ==>) $ UDP.nodeInfo nid saddr |
123 | nodeInfo nid (SessionTCP :=> Identity taddr@(ViaRelay _ nid2 _)) = | 123 | nodeInfo nid (SessionTCP :=> Identity taddr@(ViaRelay _ nid2 _)) = |
124 | if nid2 == nid then Right $ TCP ==> taddr | 124 | if nid2 == nid then Right $ TCP ==> taddr |
125 | else Left $ "Cached dht-key doesn't match." | 125 | else Left $ "Cached dht-key("++show nid2++") doesn't match "++show nid |
126 | 126 | ||
127 | nodeId :: DSum T Identity -> NodeId | 127 | nodeId :: DSum T Identity -> NodeId |
128 | nodeId (UDP :=> Identity ni ) = UDP.nodeId ni | 128 | nodeId (UDP :=> Identity ni ) = UDP.nodeId ni |