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

wip, log merging, debug

This commit is contained in:
Dmitry Zuikov 2023-07-19 11:47:14 +03:00
parent 003fc43cc1
commit c55e5876a8
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -485,6 +485,8 @@ logMergeProcess _ q = do
S.yield prop S.yield prop
S.each accs S.each accs
debug $ "NEW TRANS TO MERGE" <+> pretty new
let merged = HashSet.union current (HashSet.fromList new) & HashSet.toList let merged = HashSet.union current (HashSet.fromList new) & HashSet.toList
let pt = toPTree (MaxSize 256) (MaxNum 256) merged let pt = toPTree (MaxSize 256) (MaxNum 256) merged