tox: Keep tramplineIds map in sync when trampoline nodes are abandoned.

1 files changed, 3 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 369650f9..fce976db 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -808,6 +808,8 @@ clientSession s@Session{..} sock cnum h = do
         ("onion", s) -> cmd0 $ join $ atomically $ do
             rm <- readTVar $ routeMap onionRouter
             ts <- readTVar $ trampolineNodes onionRouter
+            tcnt <- readTVar $ trampolineCount onionRouter
+            icnt <- HashMap.size <$> readTVar (trampolineIds onionRouter)
             rs <- mapM readTVar (pendingRoutes onionRouter)
             let showRecord :: Int -> Bool -> [String]
                 showRecord n True = [show n, "pending", ""]
@@ -817,7 +819,7 @@ clientSession s@Session{..} sock cnum h = do
                     | otherwise = [show n, "error!",""]
                 r = map (uncurry showRecord) $ IntMap.toAscList rs
             return $ do
-                hPutClientChunk h $ "trampolines: " ++ show (IntMap.size ts) ++ "\n"
+                hPutClientChunk h $ "trampolines: " ++ show (IntMap.size ts,tcnt) ++ "\n"
                 hPutClient h $ showColumns $ ["","responses","timeouts"]:r
 
         -- necrypto <FRIEND-TOXID>