diff options
Diffstat (limited to 'dht/src/Network/Tox/DHT/Handlers.hs')
-rw-r--r-- | dht/src/Network/Tox/DHT/Handlers.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/dht/src/Network/Tox/DHT/Handlers.hs b/dht/src/Network/Tox/DHT/Handlers.hs index 73bc2229..7806da78 100644 --- a/dht/src/Network/Tox/DHT/Handlers.hs +++ b/dht/src/Network/Tox/DHT/Handlers.hs | |||
@@ -198,7 +198,7 @@ newRouting addr crypto update4 update6 = do | |||
198 | nullSearch = Search | 198 | nullSearch = Search |
199 | { searchSpace = toxSpace | 199 | { searchSpace = toxSpace |
200 | , searchNodeAddress = nodeIP &&& nodePort | 200 | , searchNodeAddress = nodeIP &&& nodePort |
201 | , searchQuery = Left $ \_ _ -> return Nothing | 201 | , searchQuery = \_ _ -> return Nothing |
202 | , searchAlpha = 1 | 202 | , searchAlpha = 1 |
203 | , searchK = 2 | 203 | , searchK = 2 |
204 | } | 204 | } |
@@ -541,9 +541,7 @@ nodeSearch :: Client -> TVar (HashMap NodeId [NodeInfoCallback]) -> Search NodeI | |||
541 | nodeSearch client cbvar = Search | 541 | nodeSearch client cbvar = Search |
542 | { searchSpace = toxSpace | 542 | { searchSpace = toxSpace |
543 | , searchNodeAddress = nodeIP &&& nodePort | 543 | , searchNodeAddress = nodeIP &&& nodePort |
544 | -- searchQuery :: Either (nid -> ni -> IO (Maybe ([ni], [r], Maybe tok))) | 544 | , searchQuery = getNodesUDP client cbvar |
545 | -- (nid -> ni -> (Maybe ([ni],[r],Maybe tok) -> IO ()) -> IO ()) | ||
546 | , searchQuery = Left $ getNodesUDP client cbvar | ||
547 | , searchAlpha = 8 | 545 | , searchAlpha = 8 |
548 | , searchK = 16 | 546 | , searchK = 16 |
549 | } | 547 | } |