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)