From f00396cf25cf3aaf3f1e4209804bede37d79605f Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Tue, 14 Jan 2020 21:06:35 -0500
Subject: Reclassified some Relay prints to RelayVerbose.

---
 dht/src/DebugTag.hs          | 1 +
 dht/src/Network/Tox/Relay.hs | 4 ++--
 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
 
-- 
cgit v1.2.3