diff --git a/hbs2-peer/app/RefChan.hs b/hbs2-peer/app/RefChan.hs index f09999e3..83946903 100644 --- a/hbs2-peer/app/RefChan.hs +++ b/hbs2-peer/app/RefChan.hs @@ -191,6 +191,7 @@ refChanWorker env brains = do h <- liftIO $ getRef sto (RefChanLogKey @s chan) + -- игнорируем, если синхронно unless ((HashRef <$> h) == Just val) do refChanAddDownload env chan val $ \href -> do