make ignoring lan message suppressible

2 files changed, 2 insertions, 2 deletions

diff --git a/src/DPut.hs b/src/DPut.hs
index 11bcc2d0..482db515 100644
--- a/src/DPut.hs
+++ b/src/DPut.hs
@@ -6,7 +6,7 @@ import System.IO (stderr,hPutStrLn)
 import Data.Maybe
 import System.IO.Unsafe (unsafePerformIO)
 
-data DebugTag = XAnnounce | XDHT | XOnion | XNetCrypto | XPing | XMisc
+data DebugTag = XAnnounce | XDHT | XOnion | XNetCrypto | XPing | XLan | XMisc
     deriving (Eq,Ord,Show,Read)
 
 {-# NOINLINE verbosityMap #-}
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
 
 updateRouting :: Client -> Routing -> OnionRouter -> NodeInfo -> Message -> IO ()
 updateRouting client routing orouter naddr msg
-    | PacketKind 0x21 <- msgType msg = hPutStrLn stderr "(tox)updateRouting: ignoring lan discovery" -- ignore lan discovery
+    | PacketKind 0x21 <- msgType msg = dput XLan "(tox)updateRouting: ignoring lan discovery" -- ignore lan discovery
     | otherwise                      = do
     atomically $ do
         m <- HashMap.lookup (nodeId naddr) <$> readTVar (nodesOfInterest routing)