voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

reduced noise in log

This commit is contained in:
Dmitry Zuikov 2023-07-27 11:33:31 +03:00
parent 08a3ad851f
commit 0c645d5fbf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-peer/app/PeerMain.hs
View File

@ -575,10 +575,10 @@ runPeer opts = U.handle (\e -> myException e
mkey <- join <$> forM mpeerData \peerData -> getEncryptionKey penv peerData mkey <- join <$> forM mpeerData \peerData -> getEncryptionKey penv peerData
case mkey of case mkey of
Nothing -> Nothing ->
trace $ "ENCRYPTION empty getEncryptionKey" trace1 $ "ENCRYPTION empty getEncryptionKey"
<+> pretty peer <+> viaShow mpeerData <+> pretty peer <+> viaShow mpeerData
Just k -> Just k ->
trace $ "ENCRYPTION success getEncryptionKey" trace1 $ "ENCRYPTION success getEncryptionKey"
<+> pretty peer <+> viaShow mpeerData <+> viaShow k <+> pretty peer <+> viaShow mpeerData <+> viaShow k
pure mkey pure mkey