Reclassified some Relay prints to RelayVerbose.

2 files changed, 3 insertions, 2 deletions

diff --git a/dht/src/DebugTag.hs b/dht/src/DebugTag.hs
index 75d07ef8..93b5b74f 100644
--- a/dht/src/DebugTag.hs
+++ b/dht/src/DebugTag.hs
@@ -12,6 +12,7 @@ data DebugTag
   | XNetCrypto
   | XOnion
   | XRelay
+  | XRelayVerbose
   | XRoutes
   | XPing
   | XJabber
diff --git a/dht/src/Network/Tox/Relay.hs b/dht/src/Network/Tox/Relay.hs
index 6a1f04fa..d2c8f98a 100644
--- a/dht/src/Network/Tox/Relay.hs
+++ b/dht/src/Network/Tox/Relay.hs
@@ -222,7 +222,7 @@ handlePacket cons thistcp thisKey crypto sendOnion sendToClient session = \case
     RelayPing x -> sendToClient $ RelayPong x -- TODO x==0 is invalid.  Do we care?
 
     OOBSend them bs -> do
-        dput XRelay $ "OOB send from " ++ showKey256 thisKey ++ " to " ++ showKey256 them
+        dput XRelayVerbose $ "OOB send from " ++ showKey256 thisKey ++ " to " ++ showKey256 them
         m <- atomically $ Map.lookup them <$> readTVar cons
         forM_ m $ \(sendToThem,_) -> sendToThem $ OOBRecv thisKey bs
 
@@ -236,7 +236,7 @@ handlePacket cons thistcp thisKey crypto sendOnion sendToClient session = \case
                 i <- c2key con
                 sendToThem' <- IntMap.lookup i $ associated mySession
                 return $ sendToThem' $ RelayData bs
-        dput XRelay $ "RelayData from " ++ showKey256 thisKey ++ " to conid="
+        dput XRelayVerbose $ "RelayData from " ++ showKey256 thisKey ++ " to conid="
                       ++ show con ++ maybe " (no key)" (\io -> " (associated key)") mbSendIt
         sequence_ mbSendIt