voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixed wtf

This commit is contained in:
voidlizard 2024-11-05 19:45:30 +03:00
parent 85fe082868
commit a3a954bed0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-peer/app/RPC2.hs
View File

@ -225,7 +225,7 @@ downloadFromPeerRec t bu0 cache env h0 peer = do
done <- atomically do done <- atomically do
pe <- isEmptyTQueue p pe <- isEmptyTQueue p
qe <- isEmptyTQueue q qe <- isEmptyTQueue q
unless pe retry when (qe && not pe) retry
pure qe pure qe
if done then if done then