Show route on failure to send dht key.

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
     mb <- atomically $ readArray (routeMap or) rid
     return $ storedRoute <$> mb
 
+resolveRouteFromNodeId :: OnionRouter -> NodeId -> IO (RouteId,Maybe OnionRoute)
+resolveRouteFromNodeId or nid = do
+    let RouteId rid = routeId nid
+    mb <- atomically $ fmap storedRoute <$> readArray (routeMap or) rid
+    return (RouteId rid,mb)
+
+showRoute :: String -> OnionRoute -> [String]
+showRoute prefix r =
+    [ prefix ++ maybe (show $ routeNodeA r) (show . TCP.NodeInfo (routeNodeA r)) (routeRelayPort r)
+    , prefix ++ show (routeNodeB r)
+    , prefix ++ show (routeNodeC r)
+    ]
+
 lookupTimeout :: OnionRouter -> OnionDestination r -> STM (OnionDestination RouteId, Int)
 lookupTimeout or (OnionDestination asel ni Nothing) = do
     let RouteId rid = routeId (nodeId ni)