From cd1a374f11f48bc393076d0af087c93e880f3e0a Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Fri, 24 Mar 2023 09:41:32 +0300 Subject: [PATCH] fixed an oopsie in 4VQVM2R8N4 --- hbs2-peer/app/RefLog.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/hbs2-peer/app/RefLog.hs b/hbs2-peer/app/RefLog.hs index 03c9d1f6..fad1b56c 100644 --- a/hbs2-peer/app/RefLog.hs +++ b/hbs2-peer/app/RefLog.hs @@ -169,6 +169,7 @@ reflogWorker conf adapter = do here <- liftIO $ readTVarIO reflogMon <&> HashSet.member h unless here do + liftIO $ atomically $ modifyTVar' reflogMon (HashSet.insert h) void $ liftIO $ async $ do timeout <- async (reflogTimeout reflog h) work <- async $ do