From 1211c2f050496a690b0026492bd2484b5a15da7d Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 29 Mar 2023 10:10:20 +0300 Subject: [PATCH] wip --- hbs2-peer/app/BlockDownload.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-peer/app/BlockDownload.hs b/hbs2-peer/app/BlockDownload.hs index 73d93ba7..3c18971c 100644 --- a/hbs2-peer/app/BlockDownload.hs +++ b/hbs2-peer/app/BlockDownload.hs @@ -446,7 +446,7 @@ blockDownloadLoop env0 = do runPeer <- liftIO $ async $ liftIO (withPeerM e $ withDownload env0 (peerDownloadLoop p)) withDownload env0 $ newPeerThread p runPeer - | here && not auth -> do + | not auth -> do withDownload env0 $ delPeerThread p -- pure ()