object download minor fix

2023-03-28 14:15:46 +03:00 · 2023-03-28 14:15:46 +03:00 · 0f3bb22487
parent 8a87da62e9
commit 0f3bb22487
1 changed files with 3 additions and 1 deletions
--- 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