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

pong output

This commit is contained in:
Dmitry Zuikov 2023-02-04 14:17:57 +03:00
parent d5d7c6fbb7
commit 277e886a4b
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

@ -88,7 +88,7 @@ main = do
sodiumInit sodiumInit
setLogging @DEBUG (set loggerTr ("[debug] " <>)) setLogging @DEBUG (set loggerTr ("[debug] " <>))
setLogging @INFO (set loggerTr ("[info] " <>)) setLogging @INFO defLog
setLogging @ERROR (set loggerTr ("[error] " <>)) setLogging @ERROR (set loggerTr ("[error] " <>))
setLogging @WARN (set loggerTr ("[warn] " <>)) setLogging @WARN (set loggerTr ("[warn] " <>))
setLogging @NOTICE (set loggerTr ("[notice] " <>)) setLogging @NOTICE (set loggerTr ("[notice] " <>))
@ -472,7 +472,7 @@ withRPC saddr cmd = do
RPCPing{} -> do RPCPing{} -> do
void $ liftIO $ void $ race (pause @'Seconds 5 >> exitFailure) do void $ liftIO $ void $ race (pause @'Seconds 5 >> exitFailure) do
pa <- liftIO $ atomically $ readTQueue pingQ pa <- liftIO $ atomically $ readTQueue pingQ
notice $ "pong from" <+> pretty pa Log.info $ "pong from" <+> pretty pa
exitSuccess exitSuccess
_ -> pure () _ -> pure ()