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

debug-8

This commit is contained in:
Dmitry Zuikov 2023-07-19 12:19:20 +03:00
parent bc713a381f
commit ccce48f84b
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
hbs2-peer/app/RefChan.hs
View File

@ -437,6 +437,8 @@ logMergeProcess _ q = do
trans <- filter (not . flip HashSet.member current) . mconcat <$> mapM (lift . readLog sto) logs trans <- filter (not . flip HashSet.member current) . mconcat <$> mapM (lift . readLog sto) logs
guard (not $ List.null trans)
-- итак, тут приехал весь лог, который есть у пира -- итак, тут приехал весь лог, который есть у пира
-- логично искать подтверждения только в нём. если -- логично искать подтверждения только в нём. если
-- пир принял транзы без достаточного количества -- пир принял транзы без достаточного количества
@ -456,8 +458,6 @@ logMergeProcess _ q = do
r <- forM trans $ \href -> runMaybeT do r <- forM trans $ \href -> runMaybeT do
debug $ "TO MERGE" <+> pretty href
blk <- MaybeT $ liftIO $ getBlock sto (fromHashRef href) blk <- MaybeT $ liftIO $ getBlock sto (fromHashRef href)
debug $ "BLOCK OK" <+> pretty href debug $ "BLOCK OK" <+> pretty href
@ -508,9 +508,10 @@ logMergeProcess _ q = do
let pt = toPTree (MaxSize 256) (MaxNum 256) merged let pt = toPTree (MaxSize 256) (MaxNum 256) merged
liftIO do unless (List.null new) do
nref <- makeMerkle 0 pt $ \(_,_,bss) -> do liftIO do
void $ putBlock sto bss nref <- makeMerkle 0 pt $ \(_,_,bss) -> do
void $ putBlock sto bss
updateRef sto chanKey nref updateRef sto chanKey nref