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

monotonic time probe

This commit is contained in:
voidlizard 2024-11-01 08:34:48 +03:00
parent 03b638a571
commit 795702000d
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1151,6 +1151,13 @@ runPeer opts = respawnOnError opts $ runResourceT do
peerThread "checkMetrics" (checkMetrics metrics metricsProbe) peerThread "checkMetrics" (checkMetrics metrics metricsProbe)
t0 <- getTimeCoarse
peerThread "monotonicTime" $ forever do
pause @'Seconds 10
tx <- getTimeCoarse
acceptReport metricsProbe [("monotonicTime", fromIntegral (tx-t0) `div` round 1e9)]
peerThread "peerPingLoop" (peerPingLoop @e conf penv) peerThread "peerPingLoop" (peerPingLoop @e conf penv)
peerThread "knownPeersPingLoop" (knownPeersPingLoop @e conf (SomeBrains brains)) peerThread "knownPeersPingLoop" (knownPeersPingLoop @e conf (SomeBrains brains))