From 0f3bb2248780bee80f34005c0ba8e79d8fdbaa15 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Tue, 28 Mar 2023 14:15:46 +0300 Subject: [PATCH] object download minor fix --- hbs2-peer/app/RefLog.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/hbs2-peer/app/RefLog.hs b/hbs2-peer/app/RefLog.hs index 8197ba25..c3abfb4a 100644 --- a/hbs2-peer/app/RefLog.hs +++ b/hbs2-peer/app/RefLog.hs @@ -188,7 +188,9 @@ reflogWorker conf adapter = do bss <- liftIO $ getBlock sto (fromHashRef ha) when (isNothing bss) do - liftIO $ reflogDownload adapter (fromHashRef ha) + trace $ "missed block for " <+> pretty ha + + liftIO $ reflogDownload adapter (fromHashRef ha) bs <- MaybeT $ pure bss