More performant pendingRoutes (IntMap -> Array).

1 files changed, 3 insertions, 6 deletions

diff --git a/src/Network/Tox/Onion/Transport.hs b/src/Network/Tox/Onion/Transport.hs
index e2e136ae..7ed9702a 100644
--- a/src/Network/Tox/Onion/Transport.hs
+++ b/src/Network/Tox/Onion/Transport.hs
@@ -250,12 +250,9 @@ encodeOnionAddr crypto getRoute (msg,OnionDestination _ ni (Just rid)) = do
             req <- wrapForRoute crypto msg ni route
             return ( runPut $ putRequest req
                    , nodeAddr $ routeNodeA route)
-        mapM' f x = do
-            let _ = x :: Maybe OnionRoute
-            -- dput XMisc $ "ONION encode sending to  " ++ show ni
-            -- dput XMisc $ "ONION encode getRoute -> " ++ show (fmap (\y -> map ($ y) [routeNodeA,routeNodeB,routeNodeC]) x)
-            mapM f x         -- ONION encode getRoute -> Nothing
-    getRoute ni rid >>= mapM' go
+    m <- {-# SCC "encodeOnionAddr.getRoute" #-} getRoute ni rid
+    x <- {-# SCC "encodeOnionAddr.wrapForRoute" #-} mapM go m
+    return x
 
 
 forwardOnions :: TransportCrypto -> UDPTransport -> UDPTransport