From 688450c2d9998db7b4389dc9642d219774c23857 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sun, 16 Dec 2018 13:51:02 -0500
Subject: More TCP work.

---
 src/Network/Tox/DHT/Handlers.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Network/Tox/DHT')

diff --git a/src/Network/Tox/DHT/Handlers.hs b/src/Network/Tox/DHT/Handlers.hs
index 2fbac5d3..afdf2cc3 100644
--- a/src/Network/Tox/DHT/Handlers.hs
+++ b/src/Network/Tox/DHT/Handlers.hs
@@ -195,6 +195,8 @@ newRouting addr crypto update4 update6 = do
                 { searchSpace       = toxSpace
                 , searchNodeAddress = nodeIP &&& nodePort
                 , searchQuery       = \_ _ -> return Nothing
+                , searchAlpha       = 1
+                , searchK           = 2
                 }
         tbl4 <- newTVar $ R.nullTable (comparing nodeId) (\s -> hashWithSalt s . nodeId) tentative_info4 R.defaultBucketCount
         tbl6 <- newTVar $ R.nullTable (comparing nodeId) (\s -> hashWithSalt s . nodeId) tentative_info6 R.defaultBucketCount
@@ -524,4 +526,7 @@ nodeSearch client cbvar = Search
     { searchSpace       = toxSpace
     , searchNodeAddress = nodeIP &&& nodePort
     , searchQuery       = getNodes client cbvar
+    , searchAlpha       = 8
+    , searchK           = 16
+
     }
-- 
cgit v1.2.3