minor-fix

2023-02-26 14:05:27 +03:00 · 2023-02-26 14:05:27 +03:00 · fb224635a5
parent 8bbc15bc5b
commit fb224635a5
1 changed files with 4 additions and 1 deletions
--- a/hbs2-peer/app/PeerTypes.hs
+++ b/hbs2-peer/app/PeerTypes.hs
@ -289,7 +289,10 @@ addDownload h = do
    wip <- asks (view blockWip)

    liftIO do
-      atomically $ writeTQueue q h
+      atomically $ do
+        modifyTVar tinq $ HashMap.insert h ()
+        writeTQueue q h
+
      Cache.insert wip h ()

     -- | False -> do -- not hasSize -> do