diff options
Diffstat (limited to 'dht/src')
-rw-r--r-- | dht/src/Network/Tox/Onion/Routes.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/dht/src/Network/Tox/Onion/Routes.hs b/dht/src/Network/Tox/Onion/Routes.hs index 93e9bfcd..987a56c2 100644 --- a/dht/src/Network/Tox/Onion/Routes.hs +++ b/dht/src/Network/Tox/Onion/Routes.hs | |||
@@ -566,6 +566,19 @@ lookupRoute or ni (RouteId rid) = do | |||
566 | mb <- atomically $ readArray (routeMap or) rid | 566 | mb <- atomically $ readArray (routeMap or) rid |
567 | return $ storedRoute <$> mb | 567 | return $ storedRoute <$> mb |
568 | 568 | ||
569 | resolveRouteFromNodeId :: OnionRouter -> NodeId -> IO (RouteId,Maybe OnionRoute) | ||
570 | resolveRouteFromNodeId or nid = do | ||
571 | let RouteId rid = routeId nid | ||
572 | mb <- atomically $ fmap storedRoute <$> readArray (routeMap or) rid | ||
573 | return (RouteId rid,mb) | ||
574 | |||
575 | showRoute :: String -> OnionRoute -> [String] | ||
576 | showRoute prefix r = | ||
577 | [ prefix ++ maybe (show $ routeNodeA r) (show . TCP.NodeInfo (routeNodeA r)) (routeRelayPort r) | ||
578 | , prefix ++ show (routeNodeB r) | ||
579 | , prefix ++ show (routeNodeC r) | ||
580 | ] | ||
581 | |||
569 | lookupTimeout :: OnionRouter -> OnionDestination r -> STM (OnionDestination RouteId, Int) | 582 | lookupTimeout :: OnionRouter -> OnionDestination r -> STM (OnionDestination RouteId, Int) |
570 | lookupTimeout or (OnionDestination asel ni Nothing) = do | 583 | lookupTimeout or (OnionDestination asel ni Nothing) = do |
571 | let RouteId rid = routeId (nodeId ni) | 584 | let RouteId rid = routeId (nodeId ni) |