From 277e886a4bade97723e1cb641e69d5144f59bf41 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sat, 4 Feb 2023 14:17:57 +0300 Subject: [PATCH] pong output --- 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 f45b9a2c..de7ce4fc 100644 --- a/hbs2-peer/app/PeerMain.hs +++ b/hbs2-peer/app/PeerMain.hs @@ -88,7 +88,7 @@ main = do sodiumInit setLogging @DEBUG (set loggerTr ("[debug] " <>)) - setLogging @INFO (set loggerTr ("[info] " <>)) + setLogging @INFO defLog setLogging @ERROR (set loggerTr ("[error] " <>)) setLogging @WARN (set loggerTr ("[warn] " <>)) setLogging @NOTICE (set loggerTr ("[notice] " <>)) @@ -472,7 +472,7 @@ withRPC saddr cmd = do RPCPing{} -> do void $ liftIO $ void $ race (pause @'Seconds 5 >> exitFailure) do pa <- liftIO $ atomically $ readTQueue pingQ - notice $ "pong from" <+> pretty pa + Log.info $ "pong from" <+> pretty pa exitSuccess _ -> pure ()