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

fix(?) findMissedBlocks

This commit is contained in:
Dmitry Zuikov 2023-10-20 06:37:23 +03:00
parent efe9d2940a
commit 0f0eb2a494
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
hbs2-core/lib/HBS2/Storage/Operations/Missed.hs
View File

@ -17,6 +17,8 @@ import Data.Maybe
-- TODO: slow-dangerous -- TODO: slow-dangerous
findMissedBlocks :: (MonadIO m) => AnyStorage -> HashRef -> m [HashRef] findMissedBlocks :: (MonadIO m) => AnyStorage -> HashRef -> m [HashRef]
findMissedBlocks sto href = do findMissedBlocks sto href = do
-- TODO: limit-recursion-depth?
-- TODO: cache-results-limit-calls-freq
-- trace $ "findMissedBlocks" <+> pretty href -- trace $ "findMissedBlocks" <+> pretty href
@ -38,7 +40,16 @@ findMissedBlocks sto href = do
let w = tryDetect (fromHashRef hx) bs let w = tryDetect (fromHashRef hx) bs
r <- case w of r <- case w of
Merkle{} -> lift $ lift $ findMissedBlocks sto hx Merkle{} -> lift $ lift $ findMissedBlocks sto hx
MerkleAnn{} -> lift $ lift $ findMissedBlocks sto hx MerkleAnn t -> lift $ lift do
-- FIXME: make-tail-recursive
b0 <- case _mtaMeta t of
AnnHashRef hm -> findMissedBlocks sto (HashRef hm)
_ -> pure mempty
b1 <- findMissedBlocks sto hx
pure (b0 <> b1)
_ -> pure mempty _ -> pure mempty
lift $ mapM_ S.yield r lift $ mapM_ S.yield r