summaryrefslogtreecommitdiff
path: root/dht/src/Data/Tox/DHT/Multi.hs
diff options
context:
space:
mode:
Diffstat (limited to 'dht/src/Data/Tox/DHT/Multi.hs')
-rw-r--r--dht/src/Data/Tox/DHT/Multi.hs2
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)
122nodeInfo nid (SessionUDP :=> Identity saddr) = fmap (UDP ==>) $ UDP.nodeInfo nid saddr 122nodeInfo nid (SessionUDP :=> Identity saddr) = fmap (UDP ==>) $ UDP.nodeInfo nid saddr
123nodeInfo nid (SessionTCP :=> Identity taddr@(ViaRelay _ nid2 _)) = 123nodeInfo 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
127nodeId :: DSum T Identity -> NodeId 127nodeId :: DSum T Identity -> NodeId
128nodeId (UDP :=> Identity ni ) = UDP.nodeId ni 128nodeId (UDP :=> Identity ni ) = UDP.nodeId ni