From cf5f5cdc573f62a06a7ca646f397f8fb4fe1a41d 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 ()