From 3421a14c805531bfa36ad412b9a4166837e07411 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Wed, 6 Nov 2024 12:54:21 +0300 Subject: [PATCH] fix --- hbs2-peer/app/RPC2.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/hbs2-peer/app/RPC2.hs b/hbs2-peer/app/RPC2.hs index 86aa7350..ceeaea25 100644 --- a/hbs2-peer/app/RPC2.hs +++ b/hbs2-peer/app/RPC2.hs @@ -234,7 +234,6 @@ runBurstMachine BurstMachine{..} = do atomically do e <- headDef bu0 . Map.elems <$> readTVar _rates - writeTVar _rates mempty nrates <- readTVar _rates <&> take 100 . Map.toList writeTVar _rates (Map.fromList nrates) modifyTVar _buMaxReal (max e)