fixed an oopsie in 4VQVM2R8N4

2023-03-24 09:41:32 +03:00 · 2023-03-24 09:41:32 +03:00 · cd1a374f11
parent 885682eb8a
commit cd1a374f11
1 changed files with 1 additions and 0 deletions
--- 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