summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2018-06-09 21:40:39 -0400
committerjoe <joe@jerkface.net>2018-06-09 21:40:39 -0400
commitb1a8e947df45ce363da7d2787ec487dedac3c397 (patch)
treeac47dca61e4cb2718343eb183bffb160778c6dd2 /src
parent3cdcc5851248ec7c7156e8bd03799a3b329a3498 (diff)
Use IPv4 for tentative tox4 address.
Diffstat (limited to 'src')
-rw-r--r--src/Network/Tox/DHT/Handlers.hs2
1 files changed, 1 insertions, 1 deletions
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
160 , searchNodeAddress = nodeIP &&& nodePort 160 , searchNodeAddress = nodeIP &&& nodePort
161 , searchQuery = \_ _ -> return Nothing 161 , searchQuery = \_ _ -> return Nothing
162 } 162 }
163 refresher4 <- newBucketRefresher tentative_info nullSearch nullPing 163 refresher4 <- newBucketRefresher tentative_info4 nullSearch nullPing
164 refresher6 <- newBucketRefresher tentative_info6 nullSearch nullPing 164 refresher6 <- newBucketRefresher tentative_info6 nullSearch nullPing
165 let tbl4 = refreshBuckets refresher4 165 let tbl4 = refreshBuckets refresher4
166 tbl6 = refreshBuckets refresher6 166 tbl6 = refreshBuckets refresher6