diff options
Diffstat (limited to 'src/Network/Tox')
-rw-r--r-- | src/Network/Tox/DHT/Handlers.hs | 6 | ||||
-rw-r--r-- | src/Network/Tox/Onion/Handlers.hs | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/Network/Tox/DHT/Handlers.hs b/src/Network/Tox/DHT/Handlers.hs index 4576fc85..89f3d442 100644 --- a/src/Network/Tox/DHT/Handlers.hs +++ b/src/Network/Tox/DHT/Handlers.hs | |||
@@ -306,10 +306,10 @@ unsendNodes :: Message -> Maybe (Asymm (Nonce8,SendNodes)) | |||
306 | unsendNodes (DHTSendNodes asymm) = Just asymm | 306 | unsendNodes (DHTSendNodes asymm) = Just asymm |
307 | unsendNodes _ = Nothing | 307 | unsendNodes _ = Nothing |
308 | 308 | ||
309 | unwrapNodes :: SendNodes -> ( [NodeInfo], [NodeInfo], () ) | 309 | unwrapNodes :: SendNodes -> ( [NodeInfo], [NodeInfo], Maybe () ) |
310 | unwrapNodes (SendNodes ns) = (ns,ns,()) | 310 | unwrapNodes (SendNodes ns) = (ns,ns,Just ()) |
311 | 311 | ||
312 | getNodes :: Client -> NodeId -> NodeInfo -> IO (Maybe ([NodeInfo],[NodeInfo],())) | 312 | getNodes :: Client -> NodeId -> NodeInfo -> IO (Maybe ([NodeInfo],[NodeInfo],Maybe ())) |
313 | getNodes client nid addr = do | 313 | getNodes client nid addr = do |
314 | -- hPutStrLn stderr $ show addr ++ " <-- getnodes " ++ show nid | 314 | -- hPutStrLn stderr $ show addr ++ " <-- getnodes " ++ show nid |
315 | reply <- QR.sendQuery client (serializer GetNodesType DHTGetNodes unsendNodes) (GetNodes nid) addr | 315 | reply <- QR.sendQuery client (serializer GetNodesType DHTGetNodes unsendNodes) (GetNodes nid) addr |
diff --git a/src/Network/Tox/Onion/Handlers.hs b/src/Network/Tox/Onion/Handlers.hs index b06fc2af..e792aa50 100644 --- a/src/Network/Tox/Onion/Handlers.hs +++ b/src/Network/Tox/Onion/Handlers.hs | |||
@@ -171,7 +171,7 @@ handlers net _ _ keydb _ = Just $ NoReply Right $ dataToRouteH keydb net | |||
171 | toxidSearch :: (TransactionId -> OnionDestination r -> STM (OnionDestination r, Int)) | 171 | toxidSearch :: (TransactionId -> OnionDestination r -> STM (OnionDestination r, Int)) |
172 | -> TransportCrypto | 172 | -> TransportCrypto |
173 | -> Client r | 173 | -> Client r |
174 | -> Search NodeId (IP, PortNumber) (Maybe Nonce32) NodeInfo Rendezvous | 174 | -> Search NodeId (IP, PortNumber) Nonce32 NodeInfo Rendezvous |
175 | toxidSearch getTimeout crypto client = Search | 175 | toxidSearch getTimeout crypto client = Search |
176 | { searchSpace = toxSpace | 176 | { searchSpace = toxSpace |
177 | , searchNodeAddress = nodeIP &&& nodePort | 177 | , searchNodeAddress = nodeIP &&& nodePort |