voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

object download minor fix

This commit is contained in:
Dmitry Zuikov 2023-03-28 14:15:46 +03:00
parent 8a87da62e9
commit 0f3bb22487
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-peer/app/RefLog.hs
View File

@ -188,6 +188,8 @@ reflogWorker conf adapter = do
bss <- liftIO $ getBlock sto (fromHashRef ha) bss <- liftIO $ getBlock sto (fromHashRef ha)
when (isNothing bss) do when (isNothing bss) do
trace $ "missed block for " <+> pretty ha
liftIO $ reflogDownload adapter (fromHashRef ha) liftIO $ reflogDownload adapter (fromHashRef ha)
bs <- MaybeT $ pure bss bs <- MaybeT $ pure bss