From a3a954bed0e6567af95e3487375eff1b249a915a Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Tue, 5 Nov 2024 19:45:30 +0300
Subject: [PATCH] fixed wtf

---
 hbs2-peer/app/RPC2.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hbs2-peer/app/RPC2.hs b/hbs2-peer/app/RPC2.hs
index 08bd414b..5f3a8560 100644
--- a/hbs2-peer/app/RPC2.hs
+++ b/hbs2-peer/app/RPC2.hs
@@ -225,7 +225,7 @@ downloadFromPeerRec t bu0 cache env h0 peer = do
         done <- atomically do
           pe <- isEmptyTQueue p
           qe <- isEmptyTQueue q
-          unless pe retry
+          when (qe && not pe) retry
           pure qe
 
         if done then