diff options
| author | James Crayne <jim.crayne@gmail.com> | 2018-06-17 01:31:17 +0000 |
|---|---|---|
| committer | James Crayne <jim.crayne@gmail.com> | 2018-06-17 01:31:17 +0000 |
| commit | b781d86e1cabf50a8e19bc4bedbe2036703231cf (patch) | |
| tree | 200ca0ce19db22db35135c350775d34265850fd6 /src/Network/Tox | |
| parent | c74b90ae02cfb5614ed41ee1b52bb233f62db3b8 (diff) | |
make ignoring lan message suppressible
Diffstat (limited to 'src/Network/Tox')
| -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 57fc1d57..6a80b4a4 100644 --- a/src/Network/Tox/DHT/Handlers.hs +++ b/src/Network/Tox/DHT/Handlers.hs | |||
| @@ -414,7 +414,7 @@ getNodes client cbvar nid addr = do | |||
| 414 | 414 | ||
| 415 | updateRouting :: Client -> Routing -> OnionRouter -> NodeInfo -> Message -> IO () | 415 | updateRouting :: Client -> Routing -> OnionRouter -> NodeInfo -> Message -> IO () |
| 416 | updateRouting client routing orouter naddr msg | 416 | updateRouting client routing orouter naddr msg |
| 417 | | PacketKind 0x21 <- msgType msg = hPutStrLn stderr "(tox)updateRouting: ignoring lan discovery" -- ignore lan discovery | 417 | | PacketKind 0x21 <- msgType msg = dput XLan "(tox)updateRouting: ignoring lan discovery" -- ignore lan discovery |
| 418 | | otherwise = do | 418 | | otherwise = do |
| 419 | atomically $ do | 419 | atomically $ do |
| 420 | m <- HashMap.lookup (nodeId naddr) <$> readTVar (nodesOfInterest routing) | 420 | m <- HashMap.lookup (nodeId naddr) <$> readTVar (nodesOfInterest routing) |