From 237732e25e0cdda35795dcfd1a895b62dc2cbea4 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Thu, 20 Jul 2023 09:14:00 +0300 Subject: [PATCH] ip, log merging, debug-27 --- hbs2-peer/app/RefChan.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/hbs2-peer/app/RefChan.hs b/hbs2-peer/app/RefChan.hs index 25d57b88..7cf0c954 100644 --- a/hbs2-peer/app/RefChan.hs +++ b/hbs2-peer/app/RefChan.hs @@ -192,11 +192,11 @@ refChanWorker env brains = do h <- liftIO $ getRef sto (RefChanLogKey @s chan) -- игнорируем, если синхронно - -- unless ((HashRef <$> h) == Just val) do + unless ((HashRef <$> h) == Just val) do - refChanAddDownload env chan val $ \href -> do - debug $ "BLOCK DOWNLOADED" <+> pretty href - atomically $ writeTQueue mergeQ (chan, href) + refChanAddDownload env chan val $ \href -> do + debug $ "BLOCK DOWNLOADED" <+> pretty href + atomically $ writeTQueue mergeQ (chan, href) atomically $ writeTQueue mergeQ (chan, val)