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

fixed (?) wtf

This commit is contained in:
Dmitry Zuikov 2023-10-18 16:02:32 +03:00
parent e061a2793a
commit 27e2a6f761
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,8 +24,11 @@ findMissedBlocks sto href = do
walkMerkle (fromHashRef href) (lift . getBlock sto) $ \(hr :: Either (Hash HbSync) [HashRef]) -> do walkMerkle (fromHashRef href) (lift . getBlock sto) $ \(hr :: Either (Hash HbSync) [HashRef]) -> do
case hr of case hr of
-- FIXME: investigate-this-wtf -- FIXME: investigate-this-wtf
Left hx -> S.yield (HashRef hx) Left hx | fromHashRef href /= hx -> S.yield (HashRef hx)
| otherwise -> pure ()
Right (hrr :: [HashRef]) -> do Right (hrr :: [HashRef]) -> do
forM_ hrr $ \hx -> runMaybeT do forM_ hrr $ \hx -> runMaybeT do
blk <- lift $ getBlock sto (fromHashRef hx) blk <- lift $ getBlock sto (fromHashRef hx)