summaryrefslogtreecommitdiff
path: root/dht/src/Network/Tox.hs
diff options
context:
space:
mode:
Diffstat (limited to 'dht/src/Network/Tox.hs')
-rw-r--r--dht/src/Network/Tox.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/dht/src/Network/Tox.hs b/dht/src/Network/Tox.hs
index 8a952aa4..34e63ad8 100644
--- a/dht/src/Network/Tox.hs
+++ b/dht/src/Network/Tox.hs
@@ -391,8 +391,8 @@ newToxOverTransport keydb addr onNewSession (crypto,roster) udp tcp = do
391 , toxRelayServer = Nothing 391 , toxRelayServer = Nothing
392 } 392 }
393 393
394onionTimeout :: Tox extra -> DHT.TransactionId -> Onion.OnionDestination RouteId -> STM (Onion.OnionDestination RouteId, Int) 394onionTimeout :: Tox extra -> Onion.OnionDestination RouteId -> STM (Onion.OnionDestination RouteId, Int)
395onionTimeout Tox { toxOnionRoutes = or } (DHT.TransactionId n8 _) od = lookupTimeout or n8 od 395onionTimeout Tox { toxOnionRoutes = or } od = lookupTimeout or od
396 396
397routing4nodeInfo :: DHT.Routing -> IO NodeInfo 397routing4nodeInfo :: DHT.Routing -> IO NodeInfo
398routing4nodeInfo (DHT.routing4 -> tv) = R.thisNode <$> readTVarIO tv 398routing4nodeInfo (DHT.routing4 -> tv) = R.thisNode <$> readTVarIO tv