diff options
Diffstat (limited to 'dht/TCPProber.hs')
-rw-r--r-- | dht/TCPProber.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dht/TCPProber.hs b/dht/TCPProber.hs index d58b8b60..faf8b35c 100644 --- a/dht/TCPProber.hs +++ b/dht/TCPProber.hs | |||
@@ -177,7 +177,7 @@ nodeSearch :: TCPProber -> TCP.TCPClient err Nonce8 -> Search NodeId (IP, PortNu | |||
177 | nodeSearch prober tcp = Search | 177 | nodeSearch prober tcp = Search |
178 | { searchSpace = TCP.tcpSpace | 178 | { searchSpace = TCP.tcpSpace |
179 | , searchNodeAddress = TCP.nodeIP &&& TCP.tcpPort | 179 | , searchNodeAddress = TCP.nodeIP &&& TCP.tcpPort |
180 | , searchQuery = Left $ getNodes prober tcp | 180 | , searchQuery = getNodes prober tcp |
181 | , searchAlpha = 8 | 181 | , searchAlpha = 8 |
182 | , searchK = 16 | 182 | , searchK = 16 |
183 | } | 183 | } |