From b1a8e947df45ce363da7d2787ec487dedac3c397 Mon Sep 17 00:00:00 2001 From: joe Date: Sat, 9 Jun 2018 21:40:39 -0400 Subject: Use IPv4 for tentative tox4 address. --- src/Network/Tox/DHT/Handlers.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Network/Tox/DHT/Handlers.hs b/src/Network/Tox/DHT/Handlers.hs index 0dea53ad..e6986bf4 100644 --- a/src/Network/Tox/DHT/Handlers.hs +++ b/src/Network/Tox/DHT/Handlers.hs @@ -160,7 +160,7 @@ newRouting addr crypto update4 update6 = do , searchNodeAddress = nodeIP &&& nodePort , searchQuery = \_ _ -> return Nothing } - refresher4 <- newBucketRefresher tentative_info nullSearch nullPing + refresher4 <- newBucketRefresher tentative_info4 nullSearch nullPing refresher6 <- newBucketRefresher tentative_info6 nullSearch nullPing let tbl4 = refreshBuckets refresher4 tbl6 = refreshBuckets refresher6 -- cgit v1.2.3