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

probes fix

This commit is contained in:
voidlizard 2024-11-01 06:26:04 +03:00
parent 5e997acc59
commit cf5f5cdc57
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hbs2-core/lib/HBS2/Prelude.hs
View File

@ -249,7 +249,8 @@ instance Probe SimpleProbe where
t <- liftIO getPOSIXTime <&> round
atomically do
writeTVar spTimestamp t
modifyTVar spProbeValues (<> HM.fromList values)
old <- readTVar spProbeValues
writeTVar spProbeValues (HM.fromList values <> old)
dontHandle :: Applicative f => a -> f ()