diff options
| author | joe <joe@jerkface.net> | 2018-06-09 21:40:39 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2018-06-09 21:40:39 -0400 |
| commit | b1a8e947df45ce363da7d2787ec487dedac3c397 (patch) | |
| tree | ac47dca61e4cb2718343eb183bffb160778c6dd2 /src/Network | |
| parent | 3cdcc5851248ec7c7156e8bd03799a3b329a3498 (diff) | |
Use IPv4 for tentative tox4 address.
Diffstat (limited to 'src/Network')
| -rw-r--r-- | src/Network/Tox/DHT/Handlers.hs | 2 |
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 |