From 0c645d5fbfb57ca5cf9d7cd045b4f7e24810e544 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Thu, 27 Jul 2023 11:33:31 +0300
Subject: [PATCH] reduced noise in log

---
 hbs2-peer/app/PeerMain.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs
index e434e8ef..1524bf29 100644
--- a/hbs2-peer/app/PeerMain.hs
+++ b/hbs2-peer/app/PeerMain.hs
@@ -575,10 +575,10 @@ runPeer opts = U.handle (\e -> myException e
                   mkey <- join <$> forM mpeerData \peerData -> getEncryptionKey penv peerData
                   case mkey of
                       Nothing ->
-                          trace $ "ENCRYPTION empty getEncryptionKey"
+                          trace1 $ "ENCRYPTION empty getEncryptionKey"
                               <+> pretty peer <+> viaShow mpeerData
                       Just k ->
-                          trace $ "ENCRYPTION success getEncryptionKey"
+                          trace1 $ "ENCRYPTION success getEncryptionKey"
                               <+> pretty peer <+> viaShow mpeerData <+> viaShow k
                   pure mkey