From fe4f8946f8974670d38a968103984933715a4aa7 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Fri, 1 Nov 2024 06:26:04 +0300 Subject: [PATCH] probes fix --- hbs2-core/lib/HBS2/Prelude.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/hbs2-core/lib/HBS2/Prelude.hs b/hbs2-core/lib/HBS2/Prelude.hs index 736ef084..d8ba546b 100644 --- a/hbs2-core/lib/HBS2/Prelude.hs +++ b/hbs2-core/lib/HBS2/Prelude.hs @@ -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 ()