More performant pendingRoutes (IntMap -> Array).

1 files changed, 2 insertions, 2 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 8e9e7692..7ed77d3a 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -935,7 +935,7 @@ clientSession s@Session{..} sock cnum h = do
             ts <- readTVar $ trampolineNodes onionRouter
             tcnt <- readTVar $ trampolineCount onionRouter
             icnt <- HashMap.size <$> readTVar (trampolineIds onionRouter)
-            rs <- mapM readTVar (pendingRoutes onionRouter)
+            rs <- getAssocs (pendingRoutes onionRouter)
             pqs <- readTVar (pendingQueries onionRouter)
             let showRecord :: Int -> Int -> [String]
                 showRecord n wanted_ver
@@ -945,7 +945,7 @@ clientSession s@Session{..} sock cnum h = do
                                      then show routeVersion
                                      else show routeVersion ++ "(pending)" ]
                     | otherwise = [show n, "error!","","",""]
-                r = map (uncurry showRecord) $ IntMap.toAscList rs
+                r = map (uncurry showRecord) rs
             return $ do
                 hPutClientChunk h $ unlines [ "trampolines: " ++ show (IntMap.size ts,tcnt,icnt)
                                             , "pending: " ++ show (W64.size pqs) ]